CAD?LISP

程序

1.

計算所有線段總長度

(

加載后只需框選所有線段便可得出這些線段的總長度

)

(defun?c:LL?()

(setvar?"cmdecho"?1)

(setq?en?(

ssget

(list?'(0?.?"spline,arc,line,ellipse,LWPOLYLINE"))))

(setq?i?0)

(setq?ll?0)

(repeat?(sslength?en)

(setq?ss?(ssname?en?i))

(setq?endata?(entget?ss))

(command?"lengthen"?ss?"")

(setq?dd?(getvar?"perimeter"))

(setq?ll?(+?dd?ll))

(setq?i?(1+?i))

)

(princ?"

所選線條總長為：

")(princ?ll)(princ)

)

2.

標注所有線段

(

加載后只需框選所有線段便可得標注這些線段

)

(defun?c:LLL?()

(COMMAND?"UCS"?"")

(setvar?"cmdecho"?1)

(SETVAR?"OSMODE"?0)

(setq

AcadObject

(vlax-get-acad-object)

AcadDocument?(vla-get-ActiveDocument?Acadobject)

mSpace

(vla-get-ModelSpace?Acaddocument)

)

;;

選取需要測量的樣條曲線、圓弧、直線、橢圓

(setq?en?(

ssget

(list?'(0?.?"spline,arc,line,ellipse,LWPOLYLINE"))))

(setq?i?0)

總結

以上是生活随笔為你收集整理的五边形lisp程序_CAD LISP 程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。