Question

编写一lisp程序

Answer 1

方法/步骤
创建一个cad，新建一个工程，如下图所示。

在lisp编辑器中编写一下程序，程序的作用为计算线段总长度，并选择另存为位置，保存文件lsp文件。

使用cad加载lsp文件，选择lsp文件位置。

在命令栏点击l，用cad绘制几条线段，如下图所示。

在命令栏输入ll，选择所有线段，则在图下计算并显示出了所有线段的总长度，如下图所示。

用lisp的代码为(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)
)

追问

我们是用2007版的CAD，这样真的可以在任意位置绘制指定大小，位置的图形吗？那些圆的排数可以任意可变吗？😳😳

可以写个流程图给我看看吗😁😁😁