664571221 发表于 2018-12-17 11:16:08

大神门看下这个选择，矩形的要怎么写

(defun c:GX (/ EN ENT GET SEL SS)
    (vl-load-com)
    (initget " C F")
    (setq ent (getkword "\n请输入选项 [圆(C)/方(F)] 默认<颜色或图层>:"))   
    (cond      

      ((= ent "C") (setq en '(0 . "*CIRCLE") ss "\n过滤选择圆"))
      ((= ent "F") (setq en '(0 . "RECTANG") ss "\n过滤选择方"))
      (t
(and (setq sel (entsel "\n选择参照对象 <退出>:"))
       (setq en (vla-get-Color (vlax-ename->vla-object (car sel))))
       (if (= en 256)
         (setq en(cons 8 (vla-get-Layer (vlax-ename->vla-object (car sel))))
         ss"\n过滤选择图层")
         (setq en(cons 62 en)
         ss"\n过滤选择颜色")
       );if
);and
      )
   );cond
       (and en
      (princ ss)
      (setq get (ssget (list en)))
      (sssetfirst nil get)
       )
(princ)
)

start4444 发表于 2018-12-17 11:49:28

http://bbs.mjtd.com/thread-175395-2-1.html
参考这里的矩形过滤写法

664571221 发表于 2018-12-17 13:17:15

start4444 发表于 2018-12-17 11:49
http://bbs.mjtd.com/thread-175395-2-1.html
参考这里的矩形过滤写法

你好可以帮忙改下吗，我改起来不行

fangmin723 发表于 2018-12-18 08:17:30

(defun c:GX (/ EN ENT GET SEL SS)
        (vl-load-com)
        (initget " C F")
        (setq ent (getkword "\n请输入选项 [圆(C)/方(F)] 默认<颜色或图层>:"))   
        (cond
                ((= ent "C") (setq en '((0 . "*CIRCLE")) ss "\n过滤选择圆"))
                ((= ent "F") (setq en '((0 . "LWPOLYLINE") (90 . 4) (70 . 1)) ss "\n过滤选择方"))
                (t
                        (and
                                (setq sel (entsel "\n选择参照对象 <退出>:"))
                                (setq en (vla-get-Color (vlax-ename->vla-object (car sel))))
                                (if (= en 256)
                                        (setq en (cons 8 (vla-get-Layer (vlax-ename->vla-object (car sel)))) ss "\n过滤选择图层")
                                        (setq en (list (cons 62 en)) ss "\n过滤选择颜色")
                                );if
                        );and
                )
        );cond
        (and en
                (princ ss)
                (setq get (ssget en))
                (sssetfirst nil get)
        )
(princ)
)

894560869 发表于 2019-1-25 21:07:04

历害我的哥

664571221 发表于 2019-1-26 13:30:31

894560869 发表于 2019-1-25 21:07
历害我的哥

什么？？？
页: [1]
查看完整版本: 大神门看下这个选择，矩形的要怎么写