编写一lisp程序

如题所述

第1个回答  2016-04-28
方法/步骤
创建一个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,这样真的可以在任意位置绘制指定大小,位置的图形吗?那些圆的排数可以任意可变吗?😳😳

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

本回答被网友采纳
相似回答