快速选择怎么写

柱哥

快速选择，类似按长度选出多段线加入选择集，
或按面积选出多段线加入选择集 ，
有会写码的帮我写写，谢谢了！  

自贡黄明儒

小菜帮你写了，请搜＜选择易＞

lidaxiu

对呀楼主，小菜选择易或飞诗选择都有这类似的工具，并且做的很完善了，怎么还会提这样的问题？？？

newbuser

看看不死猫的这个帖子，或许对你有很大帮助
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=73386

柱哥

已经搞定了，把码贴上，谢谢群里的朋友指点。

(defun mtl (/ ss n en obj len)
  (progn
    (setq ss (ssget "x" '((0 . "*LINE"))))
    (repeat (setq n (sslength ss))
      (setq en (ssname ss (setq n (1- n))))
      (setq obj (vlax-ename->vla-object en))
      (setq len (vlax-get obj 'Length))
;;;   (setq len (vla-get-Length Obj))
      (if (equal len 1.48 0.01)        (ssdel en ss))
    )
  )
  (command "chprop" ss "" "la" "1" "")
)