这有帮助吗?
- (defun c:cls (/ ss)
- (vl-load-com)
- (if (setq ss (ssget (list (cons 0 "*POLYLINE"))))
- (mapcar '(lambda (x) (vla-put-Closed x :vlax-true))
- (mapcar 'vlax-ename->vla-object
- (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
- (princ "\n<!> Nothing Selected <!>"))
- (princ))
|