五边形lisp程序_CAD LISP 程序

CADLISP

程序

1.

计算所有线段总长度

(

加载后只需框选所有线段便可得出这些线段的总长度

)

(defunc:LL()

(setvar"cmdecho"1)

(setqen(

ssget

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

(setqi0)

(setqll0)

(repeat(sslengthen)

(setqss(ssnameeni))

(setqendata(entgetss))

(command"lengthen"ss"")

(setqdd(getvar"perimeter"))

(setqll(+ddll))

(setqi(1+i))

)

(princ"

所选线条总长为：

")(princll)(princ)

)

2.

标注所有线段

(

加载后只需框选所有线段便可得标注这些线段

)

(defunc:LLL()

(COMMAND"UCS""")

(setvar"cmdecho"1)

(SETVAR"OSMODE"0)

(setq

AcadObject

(vlax-get-acad-object)

AcadDocument(vla-get-ActiveDocumentAcadobject)

mSpace

(vla-get-ModelSpaceAcaddocument)

)

;;

选取需要测量的样条曲线、圆弧、直线、椭圆

(setqen(

ssget

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

(setqi0)

如果觉得《五边形lisp程序_CAD LISP 程序》对你有帮助，请点赞、收藏，并留下你的观点哦！