setq jgzlb cons strcat zfc quot， quot rtos car p10 2 3 quot ， quot rtos cadr p10 2 3 jgzlbsetq i 1+ iIf jglb progn setq jgzlb reverse jgzlbsetq fff open quote提取承台编号csvquot quotwquotforeach zfc jgzlb writeline zfc fffclose fffalert quot结果已存入\quote提取承台编号csv\quot文件中！quot；这是CAD lisp语言中用到的几个函数car 表示取出表中的第一个元素，cdr表示取出除了第一个元素的其他元素形成新的表它们嵌套的话从内向外理解cadr #391 2 3 等价于car cdr #391 2 3caar #391 2 3 4 等价于car car #391 2 3 4依此类推，还有cdar cddr cdddr 等等。

defun c d ent f i lst m2 obj pt ss txt x y defun maketext txt pt 生成文字子函数 entmake list #390 quotTEXTquot cons 62 1 cons 10 pt cons 40 10 cons 1 txt #3941 08写文字，0表示字体，62表示颜色1红，10表示坐标点，40表；一个是需要安装源泉插件，文字工具中的编辑输出文字，另一个就是CAD中的ET工具虽然是自带的但是没有安装也是无法使用的。

工具\材料 电脑 cad软件 1首先在电脑上下载并打开cad软件，接着打开需要统计线段的cad图纸2接着选择一个需要统计的线段然后点击鼠标右键，如下图所示，点击“统计长度”选项3接着继续点击需要统计的线段，选择完成后点击右键4然后移动鼠标到需要标注的位置点击输出统计的长度，如下图所示；PO点L直线XL射线PL多段线ML多线SPL样条曲线POL正多边形REC矩形C圆A圆弧DO圆环EL椭圆REG面域MT多行文本T多行文本B，块定义I插入块W定义块文件H填充M移动。

xtrans x 0 1 ptbforeach pt ptb setq no 1+ nowriteline strcat itoa no quot，quotrtos car pt 2 2 quot，quotrtos cadr pt 2 2 quot，quotfff close fffprinc strcat quot\n坐标已存入\quotquot wjm quot\quot中quotsetvar quotcmdechoquot cmprinc；你的意思你是计算所有笔画的总面积是吧，分两种情况1如果你的字是在cad里用线条描画出来，那就好办首先输入pedit空格随便选择一条线组成字的线条如果是块，要线打散空格输入J空格框选所有的线条空格输入aa空格输入E空格选择刚才的线条空格，这样下面的对话框，就有结果了。

你理解错误了，什么Z轴 X轴都是你自己定位 只要你标出3个方向即可，在三维模式中一个面是X Y的话，他的旁边面就是Z坐标3个方向你可以随便定位哪个X 哪个Y 哪个Z；用li命令，不如使用特性窗口查询打开特性窗口的方法是ctrl+1上排键的1，不要用小键盘的1选中要查询的对象，在特性窗口中可以查询许多该对象的信息，也可以改动他的特性长度和面积的单位，由你作图所用的单位确定若你用毫米为单位。

因为你没有选择对象，所以不能够归零这个归零有个缺点，如果对象已经无穷远，就无法归零有Z坐标加强版，Z归零，代码如下Z坐标归零defun cz0 block c10 c38 e ent i len ss setvar quotcmdechoquot 0 setvar quotblipmodequot 0 command quotUCSquot quotquot包围盒坐标defun getbo；if and = quotAcDbRegionquot vlagetobjectname obj = 00 setq z caddr car getboundingbox ename vlamove obj vlax3dpoint list 0 0 z vlax3dpoint list 0 0 0 defun zerogroup x x cond 处理 1015 段，含 Z 坐标且非零组码，设置Z。

或者 返回列表第一个值car getpoint“\n指定点pt”返回列表第二个值cadr getpoint“\n指定点pt”返回列表第三个值caddr getpoint“\n指定点pt”也可以这样 setq ptgetpoint“\n指定点pt”返回列表第一个值car pt返回列表第二个值cadr pt返回列表第三个值caddr；在这段LISP代码中，第15行缺少一个开括号，导致后续所有语句都无法正常执行应该在第15行末尾添加一个左括号，将其与下一行的代码合并在同一组中，即setq AcadObject vlaxgetacadobject AcadDocument vlagetActiveDocument Acadobject mSpace vlagetModelSpace Acaddocument此外，在。

其实很简单的，不用三楼那么麻烦的defun cptsetvar quotcmdechoquot 0while setq pt1 getpoint quot\n请指定点位置quotsetq point_x rtos car pt1 2 2setq point_y rtos cadr pt1 2 2setq point_z rtos caddr pt1 2 2command quot_textquot pt1 quotquot。

6文件类型为DXE，最后保存即可；可以的，但是要用REGGAP声明例如 regapp quotSYCADquot声明SYCADregapp quotSOUTHquot 声明SOUTH这是测量绘图软件CASS的扩展属性存放名要提取的话可用 ENTGET enname list quot*quot其中ENNAME为对象名。