 - (defun c:tes ( / &k1 &kw1)
- (vl-load-com)
- (if (setq &kw1 (ssget '((0 . "CIRCLE,*POLYLINE,SPLINE,ELLIPSE"))));圆,多段线,样条曲线,椭圆
- (progn
- (while (setq &k1 (ssname &kw1 0))
- (setq &kw1 (ssdel &k1 &kw1))
- (if (vlax-curve-isClosed &k1) (vla-put-color (vlax-ename->vla-object &k1) 1) );闭合的变红色
- );while
- )
- )
- (princ)
- )
|