 - ;;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))
- )
|