【DynamicLisp的高级应用】-- 带关键字的SSGET

highflybir

还在为你的ssget不能带关键字烦恼么，那么你现在不必烦恼了。
DynamicLisp的新版本里面提供了带关键字的ssget。
下面是几个函数的用法
=============================================================
可定义提示、关键字的SSGET                                       
-------------------------------------------------------------
(HFB_initGet [prompt]                                          
                       [kword]                                          
                       [kwordCallback]                                   
                       [OtherCallback]                                   
                       [RemovePrompt])                                   
输入:                                                       
        <prompt>                                               
        提示字符串。选择时候的提示字符串。可缺省。               
        <kword>                                                       
        关键字.ARX选择关键字定义和一般的关键字有所不同，下划线前
        定义的是关键字下划线后定义的是输入关键字后返回的字符串。
     例如: XCircle XLine_XCircle XLine。可缺省。            
        <kwordCallback>                                               
        回调函数字符串，如不指定，选择关键字后将中断选择直接返回
        关键字字符串。可缺省。                                 
        <OtherCallback>                                               
        如果输入的非关键字，所进行的回调函数名。可缺省。       
        <RemovePrompt>                                               
        为移除所选的某些物体的提示字符串。可缺省。                
说明:                                                        
        所有参数均为可选，但如果指定关键字就必须指定提示字符串.
        选择集使用完，要使用HFB_ssFree (由于我没定义储存列队，记
        得使用完选择集后用HFB_ssFree 释放选择集，否则超过128个选
        择集后将 无法创建)。                                       
输出:如果成功返回T，否则返回nil.                                 
                                                                
-------------------------------------------------------------
(HFB_ssget [sel-method]                                      
                     [pt1 [pt2]]                                       
                     [pt-list]                                         
                     [filter-list])                                    
参数说明与用法及返回值与SSGET相同.                           
使用前需要用HFB_initGet进行设置。如果不进行设置或者无参数调用
HFB_initGet，则与SSGET一致。如有设置，则有些模式可能无效果。
-------------------------------------------------------------
(HFB_ssFree [sel])                                          
输入: [sel] 为选择集，可缺省。                              
说明: 不带参数调用为释放图中所有选择集，包括命名和未命名的。
      sel如果为pickset类型，则释放这个选择集。如果为命名的选
      择集，则这个参数应为字符串。                           
输出: 如果成功返回T，否则返回nil                             
=============================================================

测试样例：

1. (defun c:test (/ kwordCallback OtherCallback ss)
   
2.   (defun kwordCallback (Kword /)                                ;关键字回调函数
   
3.     (princ (strcat "\n选择了关键字: " kword))
   
4.     (cond
   
5.       ( (= kword "XCircle")
   
6.         (ssget "x" '((0 . "CIRCLE")))
   
7.       )
   
8.       ( (= kword "XLine")
   
9.         (ssget "x" '((0 . "LINE")))
   
10.       )
    
11.       (T (princ "\n错误的关键字。"))
    
12.     )
    
13.   )
    
14.   (defun OtherCallback (Kword /)                                ;非关键字回调函数
    
15.     (princ (strcat "\n选择了非关键字: " kword))
    
16.     kword
    
17.   )
    
18. 
    
19.   (vl-acad-defun 'kwordCallback)                                ;让lisp函数能被arx调用
    
20.   (vl-acad-defun 'OtherCallback)                                ;让lisp函数能被arx调用
    
21. 
    
22.   (sssetfirst nil nil)                                          
    
23.   (HFB_initGet  "选择对象或[全部圆(XC)/所有直线(XL)]: "                ;选择时的提示
    
24.                      "XCircle XLine_XCircle XLine"                        ;关键字       
    
25.                  "kwordCallback"                                ;关键字回调函数名
    
26.                  "OtherCallback"                                ;非关键字回调函数名
    
27.                  "移除物体: "                                        ;移除选择时的提示
    
28.   )
    
29.   (setq        ss (HFB_SSGet))                                                ;开始自定义关键字选择.
    
30.   (cond
    
31.     ( (= (type ss) 'STR)
    
32.       (princ (strcat "\n你输入了关键字: " ss))
    
33.     )       
    
34.     ( (= (type ss) 'PICKSET)
    
35.       (princ "\n你的选择集是：")
    
36.       (princ ss)
    
37.       (princ ", 选择集中图元个数是: ")
    
38.       (princ (sslength ss))
    
39.       (sssetfirst ss ss)
    
40.       (HFB_ssFree ss)                                                ;释放选择集
    
41.     )
    
42.   )
    
43.   (princ)
    
44. )
    

(defun c:test (/ kwordCallback OtherCallback ss)<br />   (defun kwordCallback (Kword /)                                ;关键字回调函数<br />     (princ (strcat "\n选择了关键字: " kword))<br />     (cond<br />       ( (= kword "XCircle")<br />         (ssget "x" '((0 . "CIRCLE")))<br />       )<br />       ( (= kword "XLine")<br />         (ssget "x" '((0 . "LINE")))<br />       )<br />       (T (princ "\n错误的关键字。"))<br />     )<br />   )<br />   (defun OtherCallback (Kword /)                                ;非关键字回调函数<br />     (princ (strcat "\n选择了非关键字: " kword))<br />     kword<br />   )<br /> <br />   (vl-acad-defun 'kwordCallback)                                ;让lisp函数能被arx调用<br />   (vl-acad-defun 'OtherCallback)                                ;让lisp函数能被arx调用<br /> <br />   (sssetfirst nil nil)                                          <br />   (HFB_initGet  "选择对象或[全部圆(XC)/所有直线(XL)]: "                ;选择时的提示<br />                      "XCircle XLine_XCircle XLine"                        ;关键字        <br />                  "kwordCallback"                                ;关键字回调函数名<br />                  "OtherCallback"                                ;非关键字回调函数名<br />                  "移除物体: "                                        ;移除选择时的提示<br />   )<br />   (setq        ss (HFB_SSGet))                                                ;开始自定义关键字选择.<br />   (cond <br />     ( (= (type ss) 'STR)<br />       (princ (strcat "\n你输入了关键字: " ss))<br />     )        <br />     ( (= (type ss) 'PICKSET)<br />       (princ "\n你的选择集是：")<br />       (princ ss)<br />       (princ ", 选择集中图元个数是: ")<br />       (princ (sslength ss))<br />       (sssetfirst ss ss)<br />       (HFB_ssFree ss)                                                ;释放选择集<br />     )<br />   )<br />   (princ)<br /> )<br />

cre8or

让lisp能释放选择集是一件很惬意的事

583775698

这是伪码吧，代码不全，运行不了