请问这样的画线命令用lisp好写吗?
使用:命令: multiplex_1,然后选择一条多义线,将所选多义线解释成下图所示:
(当然参数可以自已设置)
正在看,水平不够。谢了! 2楼,2002好象不行,一选多义线就退出了 选择是PLINE画的线,不是SPLINE画的线 pl画的也退出啊,一点反应都没
能不能改成不管选什么spl,pl,l,a,c线都可以的就好了 ;;2楼程序欠VLAX-MAKEOBJECT,VLAX-MODELSPACE,VLAX-GETVERTEXLIST函数
;;只好猜想功能重写,程序对云形化的pline无效!
(load "acetutil2.fas" NIL)
(vl-load-com)
(defun VLAX-MODELSPACE ()
(vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
)
(defun VLAX-MAKEOBJECT (OB)
(if (= (type OB) 'ENAME)
(vlax-ename->vla-object OB)
OB
)
)
(defun VLAX-GETVERTEXLIST (NA)
(ACET-GEOM-VERTEX-LIST (vlax-vla-object->ename NA))
) <p>程序不能用,不管多段线,还是什么,都退出!</p>
页:
[1]