434939575 发表于 2014-5-4 23:03:44

二次过滤选择集练习

(defun c:tt ();二次过滤选择集
(setq ss (ssget '((8 . "layer7") (0 . "LWPOLYLINE"))))
(setq ii 0)
(repeat (sslength ss)
    (setq ss0 (ssname ss ii)
    ii(1+ ii)
    )
    (setq ptlist (Hx-pl-list ss0))
    (setq ss++ (ssget "cp" ptlist))
    (setq ss++ (ssdel ss0 ss++))   
    (setq i 0)
(repeat (sslength ss++)
      (setq ss0++ (ssname ss++ i)
      i    (1+ i)
      )
      (setq Obj (vlax-ename->vla-object ss0++))
      (vla-offset Obj -5)
    );repeat-第二个      
);repeat-第一个      
)
(defun Hx-pl-list (SS0 / e elist ptlist) ;端点列表
(setq elist (entget SS0))
(foreach n elist
    (if(= 10 (car n))
      (setq ptlist (cons (cdr n) ptlist))
    )
)
(reverse ptlist)

)

风树 发表于 2014-7-6 20:00:36

好资料……支持下…

434939575 发表于 2014-7-6 22:00:02

过奖了！

风树 发表于 2014-7-6 22:01:38

434939575 发表于 2014-7-6 22:00 static/image/common/back.gif
过奖了！

顶顶更健康

cnsply 发表于 2018-3-20 09:11:21

加油啊！！！！顶哦!!!!!
页: [1]
查看完整版本: 二次过滤选择集练习