柱哥 发表于 2015-2-2 16:46:25

快速选择怎么写



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

自贡黄明儒 发表于 2015-2-2 19:41:46

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

lidaxiu 发表于 2015-2-2 19:50:31

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

newbuser 发表于 2015-2-3 09:59:51

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

柱哥 发表于 2015-2-4 10:22:23

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

(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" "")
)
页: [1]
查看完整版本: 快速选择怎么写