Lisp cộng dim trong Cad

Hiện nay, có rất nhiều Lisp cộng dim trong Cad nhưng một số bị lỗi. Tuy nhiên mình đã sưu tầm được 1 Lisp cộng dim hoạt động ổn định và chính xác. Nay mình chia sẻ lại cho các bạn.

Download tại đây: Lisp cộng dim trong Cad

Ứng dụng lisp cộng dim trong Cad để diễn giải khối lượng
Sau khi bạn download Lisp về bạn chỉ cần lưu lại ở một nơi cố định trong máy tính bạn.

Tiếp theo bạn mở phần mềm Autocad lên và gõ lệnh Ap sau đó ấn Enter và tiến hành load lisp và sử dụng.

Load lisp cộng dim trong Cad
Khi load lisp Cad xong bạn gõ lệnh SD và chọn từng dim bạn muốn cộng lại với nhau, sau đó bạn nhấn Enter 3 lần và click chọn 1 điểm để hiển thị công thức cộng dim.

Click chọn Dim
Một công thức cộng dim sẽ hiện ra theo thứ tự như sau: điểm đầu tiên bạn chọn sẽ hiển thị cuối cùng. Ví dụ ở đây mình chọn theo thứ tự như sau: 3060, 1720, 1180, 410, 250, 690, 1820, 3210.

Kết quả phép tính hiện ra như sau: 3210 + 1820 + 690 + 250 + 410 + 1180 + 1720 + 3060 = 12340.

Hướng dẫn sử dụng lisp cộng dim trong Cad
Bạn cảm thấy hiệu quả của lisp công dim trong Cad mang lại cho bạn như thế nào? Quá tuyệt vời và hữu ích đúng không. Đối với mình đây là 1 lisp rất quan trọng và luôn đồng hành với mình trong công việc.

link download :http://www.mediafire.com/file/qfy26pat4ad84gl/Sum+Dimension+%28Sumdim+-+SD%29.VLX

Nguồn :https://silocad.com/autocad/lisp-cad/lisp-cong-dim-trong-cad.html

Cộng các đường dim kích thước trong AutoCAD
Trước tiên là lisp của ban Lee Mac, một "cao thủ" trong giới võ lâm:
(defun c:Dim2 ( / *error* spc doc pt uFlag ss ids )
(vl-load-com)
;; Lee Mac 2010

(defun *error* ( msg )
(and uFlag (vla-EndUndomark doc))
(or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
(princ (strcat "\n** Error: " msg " **")))
(princ)
)

(setq spc
(if
(or
(eq AcModelSpace
(vla-get-ActiveSpace
(setq doc
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
)
(eq :vlax-true (vla-get-MSpace doc))
)
(vla-get-ModelSpace doc)
(vla-get-PaperSpace doc)
)
)

(if (and (ssget '((0 . "*DIMENSION")))
(setq pt (getpoint "\nPick Point for Field: ")))
(progn
(setq uFlag (not (vla-StartUndoMark doc)))

(vlax-for obj (setq ss (vla-get-ActiveSelectionSet doc))
(setq Ids
(cons (GetObjectID obj doc) Ids)
)
)
(vla-delete ss)

(vla-AddMText spc (vlax-3D-point pt) 0.

(if (= 1 (length Ids))
(strcat "%<\\AcObjProp Object(%<\\_ObjId " (car Ids) ">%).Measurement \\f \"%lu6\">%")
(strcat "%<\\AcExpr"
(lst->str Ids " %<\\AcObjProp Object(%<\\_ObjId " ">%).Measurement >% +")
">%).Measurement >% \\f \"%lu6\">%"
)
)
)

(setq uFlag (vla-EndUndomark doc))
)
)
(princ)
)

(defun lst->str ( lst d1 d2 )
;; Lee Mac 2010
(if (cdr lst)
(strcat d1 (car lst) d2 (lst->str (cdr lst) d1 d2))
(strcat d1 (car lst))
)
)

(defun GetObjectID ( obj doc )
;; Lee Mac 2010
(if
(eq "X64"
(strcase
(getenv "PROCESSOR_ARCHITECTURE")
)
)
(vlax-invoke-method
(vla-get-Utility doc) 'GetObjectIdString obj :vlax-false
)
(itoa (vla-get-Objectid obj))
)
)

Và của một thành viên alanjt diễn đàn CadTutor
(defun c:DimSum (/ ss)
;; Alan J. Thompson
(if (setq ss (ssget '((0 . "DIMENSION"))))
((lambda (v)
(vlax-for x (setq ss (vla-get-activeselectionset
(cond (*AcadDoc*)
((setq *AcadDoc* (vla-get-activedocument
(vlax-get-acad-object)
)
)
)
)
)
)
(or (wcmatch (vla-get-objectname x) "*Angular*") (setq v (+ v (vla-get-measurement x))))
)
(vla-delete ss)
(or (zerop v) (alert (strcat "Total: " (rtos v))))
)
0.
)
)
(princ)
)

Cuối cùng là code của một bạn bên http://forums.augi.com:


(defun c:dimsum (/ Ss1 i tot val edat)

(princ "Select dim:")

(setq Ss1 (ssget '((0 . "DIMENSION"))))

(setq i 0 tot 0.0)

(while (< i (sslength ss1))

(setq edat (entget (ssname ss1 i)))

(setq val (cdr (assoc 42 edat)))

(setq tot (+ tot val))

(setq i (1+ i))

) ;_ end of while



(princ (strcat "\nTotal: " (rtos tot)))

(princ)

)

Hãy trải nghiệm tiện ích!

Nguồn bài viết :http://www.tankhanh.com.vn/2013/06/cong-cac-uong-dim-kich-thuoc-trong.html