Question

跪求 CAD里面统计线条的数量的lisp源代码，不是线条的长度

Answer 1

ap加载 输入tjj统计线条个数。

(defun c:tjj(/ ss )

(setq ss  (ssget '((0 . "LINE,LWPOLYLINE,CIRCLE,ARC,HELIX,ELLIPSE,SPLINE,POLYLINE"))))

(alert(strcat"共选择了：" (itoa (sslength ss))"条线段!"))

(princ)

)

(princ"\nCAD 命令窗口输入“ap”加载本程序，输入tjj运行程序!")