Thư viện xây dựng: Tiêu chuẩn xây dựng- Văn bản- File mẫu- Sơ đồ- Quy trình- Phần mềm xây dựng

Tiêu đề: Lisp tính diện tích hình kín và thay thế text có sẵn trên màn hình. [In trang]
Tác giả: minmhhieuthanh    Thời gian: 22/7/2014 11:51
Tiêu đề: Lisp tính diện tích hình kín và thay thế text có sẵn trên màn hình.
Nếu bạn dùng các phần mềm thiết kế đường như nova chẳng hạn, sẽ phân vân công thức mình lập để tính diện tích có đúng không? mình thì thường lập xong rồi chạy và dùng lisp này để kiểm tra lại.Lệnh SS
! [' e7 H  B' W1 r, D! gDo trang mình ko cho up file có đuôi Lsp nên mình dán tạm bên dưới, mọi người copy rồi dán vào notepad lưu lại dùng đỡ nha
3 x% V$ U! a) A/ l; ?: S  s6 S
' Z) E' w9 B" O! r% K. {  q(defun c:ss() ; 4 o# h" U) O- ^& W& V; o
(setvar "cmdecho" 0)
& U* p3 J* h* |1 S# L' K(setvar "DIMZIN" 0)
* \# [, n6 x$ _7 s9 _' O6 Q) h) [! [(if (= Ty_le nil)
9 Q. z  H8 q1 u; S. v(progn, t$ D! `( I5 A3 P3 v" X% h3 x2 L
(setq Ty_le (getreal "\Nnhap ti le <1000>:"))
. l) d& e! l' ^(if (= Ty_le nil)(setq Ty_le 1000.00))
; C' E, {- \/ Z( H. B/ G)2 g' b3 R$ A; m7 L1 F
(progn
1 |7 a7 c, @' j2 r( X, S(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))! C% h! ?, [8 f# E$ N: A
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
4 a8 F  H# [/ r! C  {  E; t+ n(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))% q" o8 R( V/ Y
(progn1 c1 Z2 X( t3 s4 ]1 I
(princ (strcat "\nti le = " (rtos Ty_le 2 0)))
+ V% \+ }" ^" e2 d& c, i- q, S)
" |. L# L6 a; F3 O6 |2 J0 |+ b/ a(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))/ ]2 H, U% u! P
(progn8 w2 H" l. _$ f
(setq Ty_le (getreal "\nnhap ti le <1000>:")): X" t9 H- i% A1 I! b. x0 A
(if (= Ty_le nil)(setq Ty_le 1000.00))
9 O# R  }" T! H: g9 J3 f- y)1 Z9 Z0 B* _3 t8 F# u
)
+ T: y% f" j- n0 X' c+ ]& R- O)
& f' }- h9 `0 x" F)
/ R& @* s4 |) o)1 u% }: D) X6 ]$ R! z5 _# q
(if (= So_Le nil)
  ?% m3 v# }( w5 R(progn
& E. L- a/ Z& i+ E( M% w& g1 y  Z(setq So_Le (getint "\nnhap so le dien tich <2>:"))
. R8 R" a, X* `, A% {. P(if (= So_Le nil)(setq So_Le 2))
& Z1 m9 b* w; `! U+ R. F0 m* E)! D$ N9 H3 D5 u- h
(progn, C2 I- t8 r; p& X& p
(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
% {. L, D5 Q3 ?+ v% @0 U. U0 s(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))( v3 U2 L& a4 d* Q
(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
, F( J. E% K4 Q2 ^. Q3 e! {+ C: ](progn
" ]6 o0 _" g, a4 B; B6 [) V* u(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
$ _$ J, y2 a! b* P8 k4 D)
8 L/ Q5 k2 q4 [; P(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C")), e2 O' k. S  Q
(progn0 a. J. n1 i6 Q+ S; v
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
; s$ k/ l' V+ ?- \4 t(if (= So_Le nil)(setq So_Le 2)): `$ m+ X( S. s3 Y, Z- M- J; w
)) s" i* K& I% Z% u
) * R# z% |9 f( U
)& a* h; \8 t) e
)
7 u9 @4 g/ L% f! h- m. t. g)
0 D/ T1 b  |4 f& S4 x: G( O3 A5 c. }(setq He_so (/ 1000 Ty_le))1 ?. r3 |9 ^- C2 u5 R
(setq He_so2 (* He_so He_so)) ' r5 V+ v! D1 b3 k
(setq dtl 0). l8 T0 M+ V$ l2 O/ K4 R( P5 G! P
(setq ss (ssadd))# r8 [" @- m9 G
(setq oslast (getvar "OSMODE"))
: @1 X9 @) \5 x& E$ r8 e4 g(command "osnap" "")
7 a2 q1 u3 f  D$ H) C& @( K(print)
- x3 s7 ^0 \% H# o* {(print)" W: u1 C3 c2 E  U9 w
(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))* L7 J6 k3 S& e- j6 }
(while (/= pt1 nil)6 j3 y# c: y7 e3 q# V
(command "-boundary" pt1 "")
0 G% ?5 q0 D/ ^1 |& p' D(setq et (entlast))
2 W9 h: h1 g9 j1 r, r0 s(ssadd et ss)8 s3 _- o7 A. V5 _  k
(command "area" "e" "last")
% R4 @. R0 `* y$ \" R. j5 D(setq vsize ( /(getvar "VIEWSIZE") 50 ))+ J) z0 X! n* V: d' g$ s
(command "hatch" "ANSI31" vsize "0" "last" "")
% f5 N0 w2 ]/ S; D(setq et (entlast))
' L6 k( R8 k# t1 L, Z5 @(ssadd et ss)6 t" s5 V( ?* A- E9 m5 q' l! q
(setq dtcon (getvar "AREA"))
' j; N. V& R- k$ x1 j* ^0 E3 u* T(setq dtl (+ dtcon dtl))! B1 r$ t& H6 F$ L1 B+ N1 g
(print)
; N0 T5 S1 x+ w$ N- y(print)
; Q- v2 T7 Y, Q( Z! r(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : ")); g" l0 ]$ ^2 A; r" C
)
0 k# w: J/ v# D$ b3 w8 Z, X(command "setvar" "OSMODE" oslast)9 `  z5 g, ~* `  s2 \) h$ p
(command "erase" ss "")
$ \7 H) [6 b7 m6 {. P. t(setq ss nil)
: X. {, U- @: T! t(command "redraw")
. p8 d) l& k2 _& r(setq dtl (/ (/ dtl He_so2) 1)) 0 m' t- {  w8 W
(setq en (car (entsel "Thay cho so : ")))& y# @9 C8 b( j- {
(while (= en nil)
: v+ _# Z* L. r(setq en (car (entsel "Thay cho so : "))); _) w' P  q- r- Y; m
)* O7 V: `+ l2 P* e; S+ b9 l8 }9 ]
(setq elst (entget en))1 R# v+ I: a! G0 m
(setq elstold (assoc 1 elst))
; P/ w8 Z( y' a# j(setq elstnew (cons 1 (rtos dtl 2 So_Le))), E8 _3 L& J8 }6 j, h
(setq elst (subst elstnew elstold elst))
, ?6 U! D. c, R# K+ S' a4 H(entmod elst)
3 q; v) _& B+ F(setq elst nil)
' b9 H$ @* O$ D' L7 a& V(setq dtl nil)
& K# x  ]$ X4 S4 e) A% \  C(command "_change" en "" "p" "c" "1" "")
! X: m* T7 V" J  \" ~(princ "\nhttp:\\doanduyhung.googlepages.com")5 k- S* d+ O4 n* x3 I1 r3 o
)
$ ^0 P! T; C. m3 m6 d+ L9 z" J8 G0 }
Tác giả: conghoa    Thời gian: 22/7/2014 13:47
Bạn có thể dùng cái này cho tiện
5 U5 L8 K2 \2 P7 f
$ s* R$ [( R% p. u( Y( y, V9 E5 I. d, f! Q' v
http://www.lee-mac.com/lisp/Areas2FieldV1-3.lsp
Tác giả: khoaxd2013    Thời gian: 22/7/2014 15:57
Bạn minhhieuthanh hướng dẫn cách sử dụng giùm luôn đi. Mình tải về rồi nhập lệnh mà không hiểu lệnh yêu cầu gì ("Thay cho so:" nghĩa là gì bạn?)
Tác giả: conghoa    Thời gian: 23/7/2014 08:46
khoaxd2013 gửi lúc 22/7/2014 15:57
  A3 ^2 y- A. s1 LBạn minhhieuthanh hướng dẫn cách sử dụng giùm luôn đi. Mình tải về rồi nhập lệnh mà ...

( Y6 L/ m. R; ^Chữ đó có nghĩa là bạn chọn 1 text có sẵn trong bản vẽ để nó ghi kết quả diện tích vào text đó: R& z5 S9 o. R

' W* }" Z$ V+ Z* J7 Q- Còn nếu bạn muốn nó hiện ra 1 text mới thì dùng cái lisp mình post bên trên.
Tác giả: khongdunglai    Thời gian: 23/7/2014 09:58
conghoa gửi lúc 22/7/2014 13:47
1 c. B$ r, }4 e7 I) GBạn có thể dùng cái này cho tiện

+ e( C- d! a9 G$ Clisp rất hay. bác cho em hỏi là khi dùng lisp này thì ra text đóng khối nên phải thủ công phá khối đi. bác có thể chỉnh lại dc k?
Tác giả: minmhhieuthanh    Thời gian: 23/7/2014 10:25
khoaxd2013 gửi lúc 22/7/2014 15:57
# u: N2 a* ?8 {+ W& Q3 oBạn minhhieuthanh hướng dẫn cách sử dụng giùm luôn đi. Mình tải về rồi nhập lệnh mà ...

  }+ U+ u/ I! m( v! GNôm na thế này nhé: nếu bạn làm bên thiết kế (cầu đường chẳng hạn), khi bạn tính diện tích (đào, đắp, khuôn...) và bạn xuất nó ra trên trắc ngang- tức là đã có sẵn text khối lượng, nhưng bạn không chắc mình lập công thức tính có chính xác ko? khi đó bạn sẽ dùng lisp này để kiểm tra...- ]6 t* T7 A; B9 q
- load lisp, gó lệnh SS
6 @2 a0 L6 ~0 w' J% r- nói hỏi nhập tỷ lệ : - bạn nhập tỷ lệ bản vẽ của mình
1 M! o+ O6 t* ?' n" b0 O" w: _8 v- nói hỏi nhập số lẻ : là số chứ số bạn muốn làm tròn sau dấu phẩy% x3 E; O9 M, j9 L+ ^% S
- chọn vùng kín tính diện tích: bạn bạn các vùng cần tính diện tích rồi enter
& p( ~2 ~/ X4 O3 N4 e- thay cho số : là bạn click vào text (có sẵn) muốn thay thế để kiểm tra
Tác giả: minmhhieuthanh    Thời gian: 23/7/2014 10:29
conghoa gửi lúc 22/7/2014 13:47
. V) E5 Q* y- H; B+ eBạn có thể dùng cái này cho tiện

, L5 P# C8 h( p8 \; i. @Lisp của bạn mình cũng đã dùng, cũng rất hay nhưng đối với việc kiểm tra diện tích trong trắc ngang thì mình thấy của mình tiện hơn vì khi chạy khối lượng đã có sẵn text, mình kiểm tra so sánh thôi. Cám ơn bạn đã chia sẻ
Tác giả: khoaxd2013    Thời gian: 23/7/2014 11:33
minmhhieuthanh gửi lúc 23/7/2014 10:25
9 \, ~# x. K8 u% rNôm na thế này nhé: nếu bạn làm bên thiết kế (cầu đường chẳng hạn), khi bạn tính ...

; ?: ?+ d6 F. D* i, i4 RMình đã làm được rồi!Cám ơn bạn rất nhiều!
Tác giả: khoaxd2013    Thời gian: 23/7/2014 11:41
conghoa gửi lúc 22/7/2014 13:47% E) c% r- }& Q
Bạn có thể dùng cái này cho tiện

, m+ h9 w& t9 ]4 v( uLisp của bạn nếu thay đổi tỉ lệ thì làm cách nào?
Tác giả: mr.minh_dt    Thời gian: 5/9/2014 09:23
conghoa gửi lúc 22/7/2014 13:47
2 C% L3 `, G$ y6 N' K& g8 k7 EBạn có thể dùng cái này cho tiện
( p7 j: ?6 v* i8 c( c/ U
GÕ LỆNH TẮT NHƯ NÀO VẬY BAN
3 D* q* \4 k- b, O* l
Tác giả: boda9999    Thời gian: 17/10/2014 22:53
conghoa gửi lúc 22/7/2014 13:47/ @6 c( Z' @- j6 q& s, t! r. S1 s  _
Bạn có thể dùng cái này cho tiện

8 |8 w& c; Q5 G( {/ pa cho em hỏi...khi em tích 1 vùng diện tích bao gồm các ô dính vào nhau. khi tích xong em muốn chúng thành 1 cùng liền mạch được không ạ.( tức là các layer trung nhau sẽ biến mất, chỉ để lại đường bao ngoài cùng ý ạ)
Tác giả: boda9999    Thời gian: 18/10/2014 09:41
boda9999 gửi lúc 17/10/2014 22:53
  f" Y6 T+ J$ z  ]a cho em hỏi...khi em tích 1 vùng diện tích bao gồm các ô dính vào nhau. khi tích xong  ...
! n, `" u1 L- a8 ?
dạ không được ạ. chắc a chưa hiểu rõ ý của em.Hi. Tức là em có 1 vùng cần tính diện tích, nhưng vùng đó bị chia cắt bởi nhiều vùng nhỏ bên trong. Đáng ra thì dùng lệnh pl về đường bao tròn rồi dùng lệnh aa để ghi diện tich. Nếu miền đa giác ban đâu có ít điểm thì không sao, nhưng vùng của em nhiều điểm nên làm rất mất thời gian ạ. E muốn nhờ các a cái lips mà em chỉ cần pick vào các miền đa giác nhỏ bên trong mà xuất ra text được diện tích của vùng đó, đồng thời để lại luôn được đường bo tròn ngoài cùng ý ạ.
Tác giả: shatashi    Thời gian: 7/11/2014 09:01
Mình hỏi tí. Sao mình load cái http://www.lee-mac.com/lisp/Areas2FieldV1-3.lsp này rồi. A2f mà vẫn k đc? Mình dùng cad 2010
Tác giả: songlamngheanvn    Thời gian: 11/11/2014 14:23
minmhhieuthanh gửi lúc 23/7/2014 10:25
/ J/ i# n: f7 F* ^6 q. a, @1 kNôm na thế này nhé: nếu bạn làm bên thiết kế (cầu đường chẳng hạn), khi bạn tính ...
  X) s) J8 e( c$ N, p
Anh ơi, em thử mấy cái trắc ngang đường nó thay toán số : "0.00" hết anh ạ. có cách nào thêm chỉ em với a. tk a nhiều nhé.
Tác giả: naturooo    Thời gian: 28/11/2014 11:17
Mình đã dùng lisp của bạn minmhhieuthanh, nó rất hay, có vấn đề này không biết có thể chỉnh lại được không, khi kiểm tra khối lượng lớn trắc ngang thì dùng lệnh cứ lắp đi lặp lại cái hỏi chọn tỉ lệ với số đằng sau dấu phảy, không biết có thể đê chức năng này bằng 1 lệnh phụ chỉ khi nào muốn thay thôi không, hoặc có thể dùng liên tiếp lệnh này thì lần thứ hai không hỏi như thế nữa mà kích luôn đối tượng cần đo diện tích.
Tác giả: minmhhieuthanh    Thời gian: 28/11/2014 11:44
naturooo gửi lúc 28/11/2014 11:17
, P6 c/ J* p' IMình đã dùng lisp của bạn minmhhieuthanh, nó rất hay, có vấn đề này không biết có th ...
6 w. ?/ b$ J3 @, X; U, l
Hix mình chỉ "chà đồ nhôm" thôi, của mấy anh trên công ty dùng rồi chỉ mình. Mình không có khả năng viết lisp nên đành chịu. Với lại, thứ nhất là nhưng lần sau nó có lưu lại thông số thì phải nên enter không thôi cũng đỡ. Thứ 2 mình chỉ dùng để kiểm tra qua một ít mặt cắt thôi để coi công thức lập có đúng không. Đa phần bước lập công thức khá chính xác nên không cần chỉnh thêm. Nếu ai có khả năng chỉnh sửa lisp thì giúp Naturooo nha
Tác giả: phanvandac    Thời gian: 20/12/2014 21:05
anh ơi xao em em cop về mak không dùn được ak. anh có thể dúp em không ak . email của em : dinhdac18.udideco@gmail.com    em cảm ơn anh nhiêu
Tác giả: minmhhieuthanh    Thời gian: 26/12/2014 13:27
songlamngheanvn gửi lúc 11/11/2014 14:23
% [$ W2 w0 f5 r- T0 S6 vAnh ơi, em thử mấy cái trắc ngang đường nó thay toán số : "0.00" hết anh ạ. có cách ...

9 [+ h8 E" m0 B$ l6 m, W- Qtheo mình thì bạn nhập tỉ lệ sai. Tỉ lệ nhập ở mẫu số nha. ví dụ trắc ngang xuất từ Nova thường là 1/1000 thì bạn nhập tỉ lệ là 1000
Tác giả: thdong    Thời gian: 22/8/2015 15:14
conghoa gửi lúc 22/7/2014 13:47
, Z( M3 {9 E! F# lBạn có thể dùng cái này cho tiện

4 W/ i- E) u+ s, T: `Lisp này còn chưa hay lắm nếu áp dụng với diện tích có nhiều thanh rời rạc.( pick sẽ lâu). đề nghị bạn thêm tỉ lệ nữa.
Tác giả: phamthanh.green    Thời gian: 27/9/2016 20:16
sao mình gõ lệnh nó toàn báo unknow command nhỉ, load rồi mà mấy lisp liền chưa dùng đc
Tác giả: vandac    Thời gian: 4/7/2017 10:33
naturooo gửi lúc 28/11/2014 11:17# k" R8 e" H9 I) ~
Mình đã dùng lisp của bạn minmhhieuthanh, nó rất hay, có vấn đề này không biết có th ...
( L0 m8 o  z  L2 K5 h- R0 a
Mình đã dùng lisp cua đoanuyhung rât hay nhưng nếu bạn hướng dẫn mình sửa lisp bỏ chữ "K" C lặp lại mỗi lần gõ lệnh đi được không. cám ơn bạn nhiều!
Tác giả: naturooo    Thời gian: 14/10/2017 08:10
vandac gửi lúc 4/7/2017 10:336 U" y9 \9 G) `/ q
Mình đã dùng lisp cua đoanuyhung rât hay nhưng nếu bạn hướng dẫn mình sửa lisp bỏ c ...
$ n/ d; E/ j* v3 ?% o2 }
Gửi bạn vandac:Mình chỉnh lại lisp thành như vậy nhé:% K  X. j) u7 `3 |1 G, P
- Lần đầu dùng lệnh SS1 để nhập tỉ lệ và cỡ chứ
$ O1 F% @1 ]4 P0 u8 a, l* C( p( b- Lần 2 chỉ dùng lệnh SS thôi sẽ bỏ qua bước nhập tỉ lệ và cỡ chữ sẽ nhanh hơn.
9 B9 L& B0 q1 p/ \- r' ?( v4 IBạn xem ok chưa.
, S' g+ i% r$ i
Tác giả: naturooo    Thời gian: 14/10/2017 08:12
  1. (defun c:ss1()& R9 t4 D% O( a  O/ R/ e6 \
  2. (setq old_osmode (getvar "osmode")! v0 w2 ]- ]; Q5 `" |
  3. old_autosnap (getvar "autosnap")
    ; ^( Z, M) d2 M3 Q" P1 ]; i
  4. )
    % w; d/ X5 D, A. L- |8 S
  5. (setvar "cmdecho" 0)9 X% Q, l' k* k0 ?* M2 x
  6. (setvar "DIMZIN" 0)
    8 f5 F/ W  j3 C- O- r
  7. (if (= Ty_le nil)
    # G4 w/ K) C: A& d
  8. (progn8 v/ c0 W, o/ K+ {2 l; m6 e
  9. (setq Ty_le (getreal "\Nnhap ti le <1000>:"))1 @3 a; s+ w! H& s1 R$ {9 d; g& C' c
  10. (if (= Ty_le nil)(setq Ty_le 1000.00))$ U% [- g, }; r4 w
  11. )
    3 |- B) c' n$ e+ p2 t( M6 x
  12. (progn
    ! z. T9 q1 K9 @6 W- o( v; t7 r
  13. (setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))/ ~7 J5 O% ^* `0 s/ D
  14. (if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))+ `, x. e9 J. H6 u
  15. (if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))- [) z1 h# ]& {5 j
  16. (progn7 [2 U8 R' E9 ~4 k
  17. (princ (strcat "\nti le = " (rtos Ty_le 2 0)))% y6 C0 n) j$ J1 ^- F( o
  18. )! H% O3 ^/ K# g$ H
  19. (if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))/ v# F3 D+ ?+ j  Y4 C
  20. (progn
    7 B+ q/ _& e. l0 V$ X: b- I+ Y
  21. (setq Ty_le (getreal "\nnhap ti le <1000>:"))
    , r5 a8 ~) ]  I: U3 s
  22. (if (= Ty_le nil)(setq Ty_le 1000.00))3 d: @6 B- V, y  K
  23. )
    " w: W4 n: r6 J! T
  24. )
    8 u/ m2 f( A$ Q+ \8 y
  25. )
    , y6 J$ x2 s& g
  26. )
    . g5 x. {9 m! V5 d6 K
  27. )
    1 p1 x& ?/ K/ U8 S, O% Y6 N
  28. (if (= So_Le nil), p/ e; o2 R) n! v# ^8 t6 K
  29. (progn
    # ~* N4 u/ W3 d
  30. (setq So_Le (getint "\nnhap so le dien tich <2>:"))
    5 K* O$ E% [8 m  w! Y6 x8 o
  31. (if (= So_Le nil)(setq So_Le 2))5 J0 l0 ?2 Y' p7 A* s, e
  32. )6 A  x2 l- l* |( P- e
  33. (progn: J0 J  s, K8 e& r
  34. (setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
    & j' i% d" r( h* e% T8 _
  35. (if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
    + |# h' m0 D. ^
  36. (if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
    ) k6 `/ d( |! M  z
  37. (progn9 R9 N# j1 s) o% U6 q0 I% q, X4 a" M
  38. (princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
      B2 I/ T4 P) F- R1 J5 p) g# t  n
  39. )
      v# D* h5 \" }2 l2 N5 z0 S
  40. (if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
    # y: Z: X- ~( x% r0 u; s
  41. (progn# m. `: p+ N- ?. U' y1 j
  42. (setq So_Le (getint "\nnhap so le dien tich <2>:"))
      P" h6 r+ G8 u5 Q1 H- p
  43. (if (= So_Le nil)(setq So_Le 2)), J1 V/ [! S  L) D- ?
  44. )
    9 F. Q$ z( y2 {" C9 `, i
  45. )
    , J( ]& \. ?+ K1 _
  46. )8 e1 y7 G/ Y! _6 o/ x8 M
  47. )- g% V" I* r9 J" w: {' ?7 n
  48. ), D7 a) |( }  [
  49. (setq He_so (/ 1000 Ty_le))
    8 _! C# n, e* l. W! v
  50. (setq He_so2 (* He_so He_so))
    ) e% Z/ ]$ @) C3 c1 x
  51. (setq dtl 0)+ N/ C2 ?6 H1 y. h: T
  52. (setq ss (ssadd))% U+ F0 Y3 i0 K4 ~; D" K/ H
  53. (setq oslast (getvar "OSMODE"))
    , m, T& N* m% v( A
  54. (command "osnap" "")
    6 X6 H6 f- E& _- f7 ?4 ?
  55. (print)( J+ C+ \0 {( u3 h) @3 U
  56. (print), N: z$ |! k1 z
  57. (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
    ! s! i- S& L4 Z% S( R" b# t
  58. (while (/= pt1 nil)) C* h4 u4 h) q# q+ \% r* A
  59. (command "-boundary" pt1 "")- }  n3 p3 S: V* \* B
  60. (setq et (entlast)). l+ k: I- Z+ j+ z# Y. ^3 r
  61. (ssadd et ss)
    6 c; {4 Y  e; u& n) ]: Q- G& @
  62. (command "area" "e" "last")( i% m, e7 a+ U0 T! s% k8 d
  63. (setq vsize ( /(getvar "VIEWSIZE") 50 ))4 `& N7 N+ x! \' L9 t' h
  64. (command "hatch" "ANSI31" vsize "0" "last" "")) m2 w1 q, q% m, a
  65. (setq et (entlast))& O4 g+ ~0 x! n
  66. (ssadd et ss). @8 ?3 A: w8 K( @
  67. (setq dtcon (getvar "AREA"))( M' o/ ~+ S/ x: n* M
  68. (setq dtl (+ dtcon dtl))
    . a. E" T( j: p0 p% K
  69. (print)
    9 k. M# K7 y: J0 }. o, t" h
  70. (print)# E+ W+ d# o* S# t
  71. (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))$ \6 }. @9 [5 j6 D
  72. ): `; _) ]/ E$ z, P% E2 ^& e
  73. (command "setvar" "OSMODE" oslast)
      `& k- P( e7 G" ], G% K
  74. (command "erase" ss "")0 E: [8 \! K% S4 {: j& m
  75. (setq ss nil)4 N  p8 k! e3 F1 n4 |( x) e! K; Z) y
  76. (command "redraw")
    + W3 e; a' |2 F7 X" M
  77. (setq dtl (/ (/ dtl He_so2) 1))
    ' X' w' B. R- u3 H) o
  78. (setq en (car (entsel "Thay cho so : "))); e* [9 C' |' _5 P. F
  79. (while (= en nil)5 p9 L( ?$ Y: P5 H; b
  80. (setq en (car (entsel "Thay cho so : ")))
    * {% F7 b5 @( g% W  G$ X6 F
  81. )
    ; E( b; z$ y1 r; e
  82. (setq elst (entget en))5 K- f: l2 ^0 n
  83. (setq elstold (assoc 1 elst)) . U3 @% p3 G4 p$ ^* a9 l# L
  84. (setq elstnew (cons 1 (rtos dtl 2 So_Le)))" ?4 `, }. O5 _& p6 b  V
  85. (setq elst (subst elstnew elstold elst))
    . i1 r( R4 K8 o  ~
  86. (entmod elst)
    . f: ^) f% ?6 ]9 d( x$ f5 G
  87. (setq elst nil)
    4 M4 q  N2 B# }+ k* {4 H
  88. (setq dtl nil)2 V; O: O0 z4 K8 G2 t2 T0 C0 ]6 J5 q
  89. (command "_change" en "" "p" "c" "1" "")
    ; O9 P. j$ L4 e9 n. k
  90. (if old_osmode (setvar "osmode" old_osmode))
    ( u! J0 X7 h1 ]3 {0 N
  91. (if old_autosnap (setvar "autosnap" old_autosnap))
    3 m8 f2 ~6 K) ^' Z
  92. )4 |6 |6 N/ P1 c( B; }  V
  93. ;==============================================================================
    ( a/ E6 z+ A7 h6 |% S0 k
  94. (defun c:ss()7 E$ p) F) ~% ^+ z
  95. (setq old_osmode (getvar "osmode")) i7 ?3 q2 m  ~. d9 H. N! V( l
  96. old_autosnap (getvar "autosnap")
    + i6 ?: Z, Q/ R1 A5 y
  97. )
    ! y) k5 G, T) g" l* F! z5 }% _
  98. (setvar "cmdecho" 0)! J& g$ O, M3 R" W' c% K
  99. (setvar "DIMZIN" 0)6 k# G9 @% \! T2 X4 g7 i" o
  100. (setq He_so (/ 1000 Ty_le))2 F' j3 X& n3 l( @1 Q/ f
  101. (setq He_so2 (* He_so He_so))
    1 D" D2 g9 P% l' u# X& g
  102. (setq dtl 0)8 @2 C0 F- z, {) Y7 p" A( Q; o) P
  103. (setq ss (ssadd)), U9 v" q, h8 G' k, _
  104. (setq oslast (getvar "OSMODE"))
    ; a1 e4 o8 v. O7 X6 S" o
  105. (command "osnap" ""), f& D# ^4 n+ A* |4 b
  106. (print)( p, }4 F! t6 }/ c- n+ R
  107. (print)
    2 p9 O1 P- G5 Y$ i) Z; R8 i
  108. (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
    & [% a0 ?6 J9 d1 Q% l0 x
  109. (while (/= pt1 nil)
    9 q2 n8 ]5 ]8 R/ ^
  110. (command "-boundary" pt1 "")4 |0 b8 ^4 ?& u' l3 _
  111. (setq et (entlast))/ i. ]0 e3 F8 d9 i7 K  p+ |6 Y$ w
  112. (ssadd et ss)0 b# {7 _, r" \4 A3 J* e6 C
  113. (command "area" "e" "last")# g$ h" ?* w( m# q8 j
  114. (setq vsize ( /(getvar "VIEWSIZE") 50 ))5 q' G: Q% O1 I. q$ Y7 }5 U$ l
  115. (command "hatch" "ANSI31" vsize "0" "last" "")
    6 `' A. T. K, w! Y- @
  116. (setq et (entlast))
      v( N( ]  O4 k) l! _
  117. (ssadd et ss)  u% D# M# b3 \
  118. (setq dtcon (getvar "AREA"))
    ; ^: s* D# V$ E% b
  119. (setq dtl (+ dtcon dtl))* r7 X; k! ~$ ~
  120. (print)
    1 q  D) O0 `9 G3 d& X% `
  121. (print)2 s* \& E  m0 }/ C8 {$ Q+ A
  122. (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
    1 W* {' {# I* f8 w3 ~# @
  123. )
    & V2 A9 s9 U; w( X
  124. (command "setvar" "OSMODE" oslast)
    - g9 D8 I1 U. }* ?7 ~# J9 z
  125. (command "erase" ss "")
    " i9 L1 @3 Q2 U) ?; \
  126. (setq ss nil): J8 h5 L/ s' x6 i: B. m- {
  127. (command "redraw")
    9 \0 D' j1 ?  ?! s0 M, g: M8 @7 j
  128. (setq dtl (/ (/ dtl He_so2) 1)) 7 ^; U) G1 Q9 f: M" K
  129. (setq en (car (entsel "Thay cho so : ")))
    ! b/ N# r. M( U1 ~; Z7 a! b& m
  130. (while (= en nil)( ?5 Z8 {; Z+ u, r! D( h
  131. (setq en (car (entsel "Thay cho so : ")))- }" ^5 Y( E& I) P# K
  132. )
    9 c! o; y) E1 O  P( O  V
  133. (setq elst (entget en))
    4 i( @' J( ?1 m/ w' x
  134. (setq elstold (assoc 1 elst))
    # g, r5 [' n; u+ d) u' y
  135. (setq elstnew (cons 1 (rtos dtl 2 So_Le)))
    3 R9 u3 K; ]! e, C2 S6 f
  136. (setq elst (subst elstnew elstold elst))
    , \/ ^8 ~, K+ L& C: i
  137. (entmod elst)" _: ^& Z! S& `# {: E! j+ G
  138. (setq elst nil)
    0 k4 @# e& ^$ n( O, k7 c3 G6 C
  139. (setq dtl nil)& W; n+ W/ f1 |% D3 ?$ d: V$ G; |
  140. (command "_change" en "" "p" "c" "1" "")
    ) V. x2 A  q( O. {2 P
  141. (if old_osmode (setvar "osmode" old_osmode))
    0 ^0 R7 j' P( c0 a. d" ]% d9 O
  142. (if old_autosnap (setvar "autosnap" old_autosnap))
    - V& p) C/ {7 D7 K7 o/ \
  143. )
Sao chép mã
Tác giả: naturooo    Thời gian: 14/10/2017 08:15
naturooo gửi lúc 14/10/2017 08:12
& m; O. b  j" b/ C2 q
Lisp mình không rành nên đành mày mò thủ công là lệnh SS sử dụng mảng của lệnh SS1. Tính ra thành 2 lisp đơn rồi. )
Tác giả: dongks    Thời gian: 5/5/2023 17:46
Dùng chat open Ai sửa lại như này:
+ N# |+ n2 }  _" P7 @0 O/ H, y2 W  x
(defun c:ss2() ; 4 B% \$ H% v; J$ |. i: Z
  (setvar "cmdecho" 0)
0 A! \8 L9 ?6 Q' C' r  (setvar "DIMZIN" 0)
" Y" W( e+ V, w5 n  (setq Ty_le (getreal "\nNhap ti le <1000>: "))
+ W7 ]$ E# z8 \$ ]% j$ `  (if (= Ty_le nil) (setq Ty_le 1000.00)), u/ a1 N1 @- f
  (setq So_Le (getint "\nNhap so le dien tich <2>: "))
. Y; C6 Q9 A" Y& p8 s  (if (= So_Le nil) (setq So_Le 2))  y& y5 a3 e& {, o- C, m* A
  (setq He_so (/ 1000 Ty_le))# c. a" K1 E6 p0 j4 a3 I
  (setq He_so2 (* He_so He_so)) / t! T2 t+ s+ K8 h( {) \
  (setq dtl 0)
( l+ A" m2 l6 C$ m  (setq ss (ssadd))' t) `7 }( O; V4 @  Z
  (setq oslast (getvar "OSMODE")): N+ R. J" g5 ^# Q, a- |6 _0 T
  (command "osnap" "")# v- B( U. z3 t, s$ N
  (print)9 Y, I3 J5 t1 L/ q# i
  (print)
. s( b2 n+ _# M  t, a" p  (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))  U, s( C5 L) K- F( A
  (while (/= pt1 nil)! M( L/ L& D; \: u* g
    (command "-boundary" pt1 "")! Q  Y* d) E( J/ F& }, H1 k3 c
    (setq et (entlast))* i- d) I7 r6 l9 j: ^, u
    (ssadd et ss)
( j! h+ y% l4 M+ h; z    (command "area" "e" "last")4 u; R( a6 z' h
    (setq vsize (/(getvar "VIEWSIZE") 50 ))8 B6 ]: e. k. X( M% W  ]3 k0 v
    (command "hatch" "ANSI31" vsize "0" "last" "")/ a% w9 f9 E# }1 I
    (setq et (entlast))
  x/ ?. H! T' \3 {3 ^$ X    (ssadd et ss)$ M5 U, o; I: f. s0 h6 r# ^
    (setq dtcon (getvar "AREA"))3 P4 {" L! Q! Q, `
    (setq dtl (+ dtcon dtl))
: \; k6 ?+ L$ e( p    (print)$ w6 b9 a8 e; F2 N9 q& }$ m9 M
    (print)5 l* Y" ?: `2 y" ]- @8 u% k* z
    (setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
- h, p' C- D, J+ s  )
# [& j/ [: `7 E5 g- T7 f( l5 c1 L, ~! H  (command "setvar" "OSMODE" oslast)0 n4 {# O- ]- J+ q  H# b
  (command "erase" ss "")6 x5 L; r7 g# ?0 `$ P
  (setq ss nil)
8 H& y6 g" K5 [/ J4 e  (command "redraw")" l- w) @  a6 O) ~( }
  (setq dtl (/ (/ dtl He_so2) 1)) 1 D1 L' n/ {4 D4 S% O2 `7 H
  (setq en (car (entsel "Thay cho so : ")))2 \0 h2 r  s; G5 u6 v
  (while (= en nil)# a, o* b4 u. F
    (setq en (car (entsel "Thay cho so : ")))# g' C0 M  I; H
  )
/ ^8 O+ p% N# |2 _5 \6 }  (setq elst (entget en))
( ?  q% B7 Z0 i* `- f  (setq elstold (assoc 1 elst)) % m" V9 Q, W- m) e+ B. D  s
  (setq elstnew (cons 1 (rtos dtl 2 So_Le)))  }4 q) n2 [8 N# z9 D
  (setq elst (subst elstnew elstold elst))# l0 C4 s! T2 F  P- ]: q
  (entmod elst)
6 B& |: l: `9 T) x  (setq elst nil)5 v. N: e9 l* P! H
  (setq dtl nil)2 |5 g; h# R- d  }
  (command "_change" en "" "p" "c" "1" "")0 B' R* F+ {  C7 A2 H6 @
  (princ "\nDongdac đã sửa bằng ứng dụng chat open AI ")) y8 K8 N, V+ r$ e
)+ }0 t6 {3 x0 z4 f/ G! a: j# Z

! `; H2 f& A0 @. c; K: {, H: K% ~: m: Q6 ^9 R- ^




Chào mừng ghé thăm Thư viện xây dựng: Tiêu chuẩn xây dựng- Văn bản- File mẫu- Sơ đồ- Quy trình- Phần mềm xây dựng (https://xaydung360.vn/thuvien/) Powered by Discuz! X3.2