点击查看求CAD lisp 程序，选择一条或多条多段线，输出其上点的x,y,z坐标。具体信息

答：坐标标注插件，免费的，下载输入AP加载之后，然后输入zbbz就可以了。也可以安装天正系列的软件。

答：请查看附件，写的lisp程序，输入tt运行程序，批量选择cad中的点，然后将坐标写入txt文件。 指定保存文件的位置及名称，...

答：复制下面的脚本到命令行回车即可加载，输入pldd，程序会提示选择pline，选择pline后会打印所有的三维坐标 (defun c:pldd (/ wb cc ss1 aa pts bhbz ent) (setq ent (car (entsel "\n请选择PLINE"))) (setq wb (entget ent) cc nil bhbz (cdr (as...

答：根据你的问题描述和程序，你应该是没有搞清楚lisp里面“表”的概念，你应该把你的数据转化成“点表”【例如：(0 . 0)，(1 . 1)】后再运用”command“语句; 如果你要大批量的引用数据，你还应使用循环语句repeat(或do while); 如果你只是想快速输...

答：(DEFUN C:TT ( / ss ff ss1 en pt x y) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "dimzin" 0) (vl-load-com);;加载vlax扩展函数 (setq ss (ssget '((0 . "point"))) n 0);;请选择点 (if (/= ss nil) (progn (setq ff (open "d://文...

答：vla-intersectWith 求，看cad帮助 (vla-intersectWith e1 e2 no) ;;no是表示是否延伸求交的线 0~3 。 也可以按最基本的几何求法， 求圆心到 直线的垂线，垂点，已知半径，线的角度 求距离。

答：我有提取CAD里的坐标到Excel表格的软件，可以永久使用的，你要吗？

答：(defun c:tqzb (/) (setq cm (getvar "cmdecho")) (setvar "cmdecho" 0) (if (setq wjm (getfiled "请指定要保存的坐标文件" "e:\\" "txt" 1)) (if (setq ssa (ssget '((0 . "LWPOLYLINE")))) (progn (setq fff (open wjm "w") n (sslength ssa)...

答：你想要怎么个批量法，是一次性将该图中的所有合围的面积全部查出来，然后，结果你想放在哪里呢，是否需要求总和呢？ 或者是你想要一个一个的用鼠标指定一个区域查一个呢？

答：可以首先把这几个线框做成面域，然后用面域合并命令合并面域。然后总面积就出来了。不用lisp就可以实现了。

答：你是要统计多段线总长度还是要统计标注？ 如果是统计多段线长度，直接用area命令，o参数，选中多段线就可以得到长度了

答：上个DWG文件，，试一试，

答：在lisp的command命令中 ''相当于 pause

答：方案一：直接读取dwg格式文件有点难度，估计高手会做 方案二：若是文件有很多要做的话，可以用C#，C++，VB通过COM去开发，用COM方式依次打开dwg图档，然后遍历图元来进行你的要求来运算 方案三：若是文件有很多要做的话，也可以用AutoLisp来做，...

答：电脑系统【卸载或更改程序】，点击AutoCAD，添加功能【Express Tools】。 (setq ss1 (acet-geom-intersectwith ent1 ent2 0));取得两个对象交点集合，如果没有交点nil。

答：你是要根据点坐标自动生成闭合多段线吗？

答：(defun C:tes ( / #k2 #kw) (setvar "cmdecho" 0) (setvar "blipmode" 0) (if (setq #kw (setq #kw (ssget (list '(0 . "LWPOLYLINE") '(70 . 0)))));选择不封闭的多段线 (progn (initget "V C S E") (setq #k2 (getkword "\n选择多段线或[移动(...

答：这个是大型的程序，需要分析对象。 一般情况下，文字与多段线是编组的，如果不是编组，又是另外的情况。 所以需要dwg文件来测试程序是否有效。

答：能说明输入什么样的参数 输出什么样的图形？ 变色希望是什么效果的？ (setq cs (getvar "osmode")) (setvar "osmode" 0 ) (setq n1 (getint "\n个数:")) (setq d1 (getint "\n间距:")) (setq ent1 (car (entsel "\n选取图元:"))) (setq p1 (getp...

更多精彩内容推荐：