lisp点转为vla_怎样用AUTOLISP把选择的点连成多段线？求代码

www.mh456.com防采集。

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

答：由于块不能够坐标归零，所以这个程序除块以外可以Z坐标归零。命令：Z0

(setq obj (vlax-ename->vla-object ent)) ;obj对象 (vla-GetBoundingBox obj '&p1 '&p2) ;得到包围框 (setq &p1 (vlax-safearray->list &p1)) ;转换为坐标点 &p1为左下角的坐标，&p2为右上角的坐标，根据坐标定位来排列多段线可以实现你程序。

在cad里面每个对象都有图层。 使用autolisp程序获取图层信息代码如下： (defun c:tes ( / ent obj) (setvar "cmdecho" 0) (setvar "blipmode" 0) (if (null vlax-dump-object) (vl-load-com) );加载vlax函数 (while (setq ent (entsel "\n请选择

答：怎样用AUTOLISP把选择的点连成多段线?求代码 100 如题如图,顺序的话我感觉应该是按照xy坐标绝对值的乘积递增,请高手帮帮忙... 如题如图,顺序的话我感觉应该...

;量取直线、多段线、样条曲线、圆虎圆、椭圆的长度 (defun c:cdcl() (setq cm (getvar "cmdecho")) (setvar "cmdecho" 0) (while (setq ent (car (entsel "\n选取多段线: