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

664571221

(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

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

664571221

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

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

fangmin723

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

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

894560869

历害我的哥

664571221

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

什么？？？