再说 带关键字的ssget

自贡黄明儒

;|下面看格式刷
'_matchprop
Select source object:
Select destination object(s) or [Settings]:
最后一行时，我们可以直接选取目标，也可以输入"S"来进行设置，这就是特别之处。ll_j为我指点了一下，

说飞诗的[带关键字的ssget]http://bbs.mjtd.com/thread-71545-1-1.html是他见过的最好的。昨天静心研

读了一下，希望站在巨人的肩上看得更远,结果未如愿,看下面的程序Myssget，比较接近matchprop的用法了

。Myssget可以输入一次S来进行设置，而matchprop可以任何时候输入S进行设置

initget之后，只有entsel起作用，ssget不起作用，飞诗还是开始打的entsel的主意
.各位有没有更好的办法呢？

|;

2. 
   
3. ;;带关键字的ssget
   
4. ;;(sslength(Myssget "\n 选择目标对象或 [设置(S)]:" "S " '((0 . "line"))))
   
5. (defun Myssget (Msg Kwd Fil)
   
6.   ;;带过滤器的entsel
   
7.   (defun MyEntsel (msg fil / ENP)
   
8.     (princ "\n")
   
9.     (setq enp (entsel msg))
   
10.     (cond ((equal (type enp) 'STR) (DoSth enp))
    
11.           (T (and enp (ssget (cadr enp) fil)))
    
12.     )
    
13.     enp
    
14.   )
    
15.   ;;initget时do
    
16.   (defun DoSth (enp)
    
17.     (princ enp)
    
18.   )
    
19.   ;;点化字串
    
20.   (defun Pt2Str        (pt)
    
21.     (strcat (rtos (car pt) 2 3)
    
22.             ","
    
23.             (rtos (cadr pt) 2 3)
    
24.             ","
    
25.             (rtos (caddr pt) 2 3)
    
26.             "\n"
    
27.     )
    
28.   )
    
29. 
    
30.   (or *DOC*
    
31.       (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))
    
32.   )
    
33.   (cond        ((cadr (ssgetfirst)) (ssget "_P" fil))
    
34.         (t
    
35.          (initget Kwd)                                            ;随后调用entsel时
    
36.          (cond ((and (listp (MyEntsel Msg Fil))
    
37.                      (/= 52 (getvar "errno"))
    
38.                 )
    
39.                 (vla-sendcommand *doc* (Pt2Str (cadr (grread t))))
    
40.                 (ssget Fil)
    
41.                )
    
42.                (T (ssget Fil))
    
43.          )
    
44.         )
    
45.   )
    
46. )
    

<br /> ;;带关键字的ssget<br /> ;;(sslength(Myssget "\n 选择目标对象或 [设置(S)]:" "S " '((0 . "line"))))<br /> (defun Myssget (Msg Kwd Fil)<br />   ;;带过滤器的entsel<br />   (defun MyEntsel (msg fil / ENP)<br />     (princ "\n")<br />     (setq enp (entsel msg))<br />     (cond ((equal (type enp) 'STR) (DoSth enp))<br />           (T (and enp (ssget (cadr enp) fil)))<br />     )<br />     enp<br />   )<br />   ;;initget时do<br />   (defun DoSth (enp)<br />     (princ enp)<br />   )<br />   ;;点化字串<br />   (defun Pt2Str        (pt)<br />     (strcat (rtos (car pt) 2 3)<br />             ","<br />             (rtos (cadr pt) 2 3)<br />             ","<br />             (rtos (caddr pt) 2 3)<br />             "\n"<br />     )<br />   )<br /> <br />   (or *DOC*<br />       (setq *DOC* (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   )<br />   (cond        ((cadr (ssgetfirst)) (ssget "_P" fil))<br />         (t<br />          (initget Kwd)                                            ;随后调用entsel时<br />          (cond ((and (listp (MyEntsel Msg Fil))<br />                      (/= 52 (getvar "errno"))<br />                 )<br />                 (vla-sendcommand *doc* (Pt2Str (cadr (grread t))))<br />                 (ssget Fil)<br />                )<br />                (T (ssget Fil))<br />          )<br />         )<br />   )<br /> )<br />

2. 
   
3. ;;调用系统格式刷，主要是显示那把刷子，do nothing
   
4. (defun C:test (/ E)
   
5.   (setq e (car (entsel)))
   
6.   (COMMAND "MATCHPROP" E)
   
7.   (sslength
   
8.     (Myssget "\n 选择目标对象或 [设置(S)]:" "S " '((0 . "line")))
   
9.   )
   
10.   (while (not (equal (getvar "cmdnames") "")) (command nil))
    
11. )
    

<br /> ;;调用系统格式刷，主要是显示那把刷子，do nothing<br /> (defun C:test (/ E)<br />   (setq e (car (entsel)))<br />   (COMMAND "MATCHPROP" E)<br />   (sslength<br />     (Myssget "\n 选择目标对象或 [设置(S)]:" "S " '((0 . "line")))<br />   )<br />   (while (not (equal (getvar "cmdnames") "")) (command nil))<br /> )<br />

dcl1214

支持shift反选最好！！

qyming

带关键字的ssget