Lisp tính diện tích hình kín và thay thế text có sẵn trên màn hình.

minmhhieuthanh

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
  g, k4 F1 z5 Y. ?Do 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
) Q; @- d/ }% D" _, }
(defun c:ss() ;
5 p2 L) ?" q% v2 H5 n& \! O+ Q( Y$ g! L(setvar "cmdecho" 0)
; ~6 N- m$ e+ F! c( \. _9 N, x0 Z(setvar "DIMZIN" 0)
(if (= Ty_le nil)
(progn
' O) ?  M' v& q' |( A( z(setq Ty_le (getreal "\Nnhap ti le <1000>:"))
* Q/ t% O8 A4 m(if (= Ty_le nil)(setq Ty_le 1000.00))
)
  B# v0 l, o" ^( y. f(progn
9 Z( D1 l* J/ O/ L, ^; M: `5 N(setq khaibaoTy_le (getstring (strcat "\nti le = " (rtos Ty_le 2 0) " CO MUON THAY DOI KHONG <K>,C:")))
(if (= (strlen khaibaoTy_le) 0) (setq khaibaoTy_le "K"))
(if (or (= khaibaoTy_le "k") (= khaibaoTy_le "K"))
(progn
(princ (strcat "\nti le = " (rtos Ty_le 2 0)))
. y7 c# [8 o, I% w)
/ f# O, s6 s! v; }(if (or (= khaibaoTy_le "c") (= khaibaoTy_le "C"))
(progn
(setq Ty_le (getreal "\nnhap ti le <1000>:"))
(if (= Ty_le nil)(setq Ty_le 1000.00))
)
)
)
)
9 K* m, }3 Y7 a% r; L)
(if (= So_Le nil)
(progn
(setq So_Le (getint "\nnhap so le dien tich <2>:"))
(if (= So_Le nil)(setq So_Le 2))
. C+ N  n" [5 x)
9 B, I# `+ F6 J; p. m- l% p0 S(progn
; l* y/ O! F' \; L$ Z(setq khaibaoSo_Le (getstring (strcat "\nso le dien tich = " (rtos So_Le 2 0) " co muon thay doi khong <K>,C:")))
; L6 A0 s$ p: u0 e0 ^- a" k(if (= (strlen khaibaoSo_Le) 0) (setq khaibaoSo_Le "K"))
# ^+ z+ `/ ~5 C1 ?(if (or (= khaibaoSo_Le "k") (= khaibaoSo_Le "K"))
(progn
(princ (strcat "\nso le dien tich = " (rtos So_Le 2 0)))
)
6 y9 g6 \# I/ L' J% ~2 I(if (or (= khaibaoSo_Le "c") (= khaibaoSo_Le "C"))
' K8 A! u- k2 `- I6 r* v(progn
8 x$ Q( B0 R8 W(setq So_Le (getint "\nnhap so le dien tich <2>:"))
(if (= So_Le nil)(setq So_Le 2))
)
  a! G6 }% J+ T* `  k8 K)
)
. T+ Z5 \) b  I' B) i  p9 \)
)
( Y3 |+ U5 y; X) S0 d; M2 ?' k9 S(setq He_so (/ 1000 Ty_le))
3 ~+ I9 S' L1 \(setq He_so2 (* He_so He_so))
9 ^: I/ ?3 N8 x3 I6 Q/ c; J6 x; H(setq dtl 0)
(setq ss (ssadd))
(setq oslast (getvar "OSMODE"))
% o  s) {9 p4 e& d# _% }5 g(command "osnap" "")
(print)
(print)
$ j* U$ B6 s: D(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
0 F' r- r  k1 S4 n0 ?' j(while (/= pt1 nil)
(command "-boundary" pt1 "")
(setq et (entlast))
(ssadd et ss)
! P# ?- G9 d0 f6 g(command "area" "e" "last")
9 e5 w' J! a. {, |4 l* z(setq vsize ( /(getvar "VIEWSIZE") 50 ))
(command "hatch" "ANSI31" vsize "0" "last" "")
1 u6 t, u" [5 q  }+ D(setq et (entlast))
# B1 \" K! @( @, J; T. a8 L(ssadd et ss)
(setq dtcon (getvar "AREA"))
# a  V7 b' u: a) f+ p  r' A' C(setq dtl (+ dtcon dtl))
# M- V# e6 d" i1 j( d0 O(print)
(print)
* P8 E3 K; g( V: }(setq pt1 (getpoint "\nChon Vung Kin Tinh Dien Tich : "))
  {% S! Q! p& T. J)
, {& @" z; t  u* z* X: Z(command "setvar" "OSMODE" oslast)
6 m* r  u: h* s2 W; T! K( j; h(command "erase" ss "")
(setq ss nil)
" O# L, K- u4 x- U4 _' ~(command "redraw")
(setq dtl (/ (/ dtl He_so2) 1))
! Q* V) [+ i4 R& c! s2 C(setq en (car (entsel "Thay cho so : ")))
# @: `" a  {! u! b0 ]( @5 Q(while (= en nil)
6 y" M9 R' R+ ^) Q- O(setq en (car (entsel "Thay cho so : ")))
' T" y7 A* S% O0 T- Y# n)
(setq elst (entget en))
! g: u! V3 F3 p(setq elstold (assoc 1 elst))
! i6 K) |' d. T% s: w# s5 ?(setq elstnew (cons 1 (rtos dtl 2 So_Le)))
& @7 x5 v- P+ w2 X(setq elst (subst elstnew elstold elst))
(entmod elst)
(setq elst nil)
$ M+ T* ?7 u8 @9 Z- E(setq dtl nil)
(command "_change" en "" "p" "c" "1" "")
7 i1 w9 V0 O" z& w7 i(princ "\nhttp:\\doanduyhung.googlepages.com")
)

+ Y& \, s( ?3 T% D6 M

conghoa

Bạn có thể dùng cái này cho tiện

7 w" l1 T* l! E  q. f; v
http://www.lee-mac.com/lisp/Areas2FieldV1-3.lsp

naturooo

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.

mr.minh_dt

conghoa gửi lúc 22/7/2014 13:47
Bạn có thể dùng cái này cho tiện

4 H+ W, E6 H: t( h& M( oGÕ LỆNH TẮT NHƯ NÀO VẬY BAN

khoaxd2013

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?)

conghoa

khoaxd2013 gửi lúc 22/7/2014 15:57
! m; b; Q( f2 CBạ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à ...

- R: P3 N# v8 N' C% d' v0 x9 ~3 LChữ đó 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 đó
- m  h- H$ ]9 B- o+ {
- 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.

khongdunglai

conghoa gửi lúc 22/7/2014 13:47
) `2 a+ _8 q: t" f+ a& Z* E! pBạn có thể dùng cái này cho tiện

4 j, I# P, S5 X6 ~  l) slisp 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?

minmhhieuthanh

khoaxd2013 gửi lúc 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à ...

Nô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...
0 `& n6 x% U5 v: J& l% c. W: U- load lisp, gó lệnh SS
- nói hỏi nhập tỷ lệ : - bạn nhập tỷ lệ bản vẽ của mình
- 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
7 y7 e* `8 C$ t/ q4 S0 x6 G- 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
- thay cho số : là bạn click vào text (có sẵn) muốn thay thế để kiểm tra

minmhhieuthanh

conghoa gửi lúc 22/7/2014 13:47
; r) M# z* W: m+ y: aBạn có thể dùng cái này cho tiện

# }6 c  `3 v+ i* C; H2 gLisp 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ẻ

khoaxd2013

minmhhieuthanh gửi lúc 23/7/2014 10:25
# }+ R' q7 }% y; h8 TNô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 ...

$ |, f4 H: @9 a! o, [, `Mình đã làm được rồi!Cám ơn bạn rất nhiều!

khoaxd2013

conghoa gửi lúc 22/7/2014 13:47
Bạn có thể dùng cái này cho tiện

Lisp của bạn nếu thay đổi tỉ lệ thì làm cách nào?

boda9999

conghoa gửi lúc 22/7/2014 13:47
Bạn có thể dùng cái này cho tiện

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 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 ý ạ)

boda9999

boda9999 gửi lúc 17/10/2014 22:53
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  ...

2 |0 Q* |% ~& R- \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 ý ạ.

shatashi

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

songlamngheanvn

minmhhieuthanh gửi lúc 23/7/2014 10:25
( o: k* T) \) C+ A/ n2 _) mNô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 ...

3 ], @+ B- o) h' K( ?- Z. GAnh ơ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é.