hdlyt11 发表于 2010-4-29 13:52:00

[求助]删除图中0长度线

删除图中0长度线，给文件减肥

Andyhon 发表于 2010-4-29 14:39:00


(Mapcar
'entdel
(mapcar
    (function
      (lambda (e)
      (if
         (zerop (vla-get-length (vlax-ename->vla-object e)))
         e
    ) ) )
    (mapcar 'cadr (ssnamex (ssget '((0 . "LINE")))))      ; 如果数量不多
) )

liminnet 发表于 2010-4-29 18:16:00

页: [1]
查看完整版本: [求助]删除图中0长度线