自设ssget关键字提示函数356版--命令行/屏幕提示两个版本

jun470

wzg356 发表于 2025-5-19 16:43
屏幕提示截去方括号（简单些好），比较完整的更新了  去下载研究

我的程序没写那么规矩，凑活看，这个现在只能在命令行有提示

2. (vl-load-com)
   
3. ;   测试程序
   
4. (defun c:Q( / ss_k)
   
5. 
   
6.   (setq ss_k (ssgetSEL "" nil "提示语3" ))
   
7. 
   
8.   (command "chprop" "p" "" "c" "1" "")(princ))
   
9. 
   
10. ;   ssget关键字提示函数简版
    
11. (defun ssgetSEL(sel fls msg / ss ov)
    
12.   (setq ov (getvar "OSMODE"))
    
13.   (setq ss(vl-catch-all-apply 'ssgetSEL00 (list sel fls msg)))
    
14.   (setvar "OSMODE" ov)(setvar "nomutt" 0)
    
15.   (if(vl-catch-all-error-p ss)(exit)ss)
    
16. )
    
17. (defun ssgetSEL00(sel fls msg / p p2 d ps)
    
18.   (setq sel(if(= 'str(type sel))(strcase sel)sel)
    
19.     msg(cond((and msg(/= "" msg))msg)
    
20.         ((member sel '(":E:S" ":S:E" ":E"))"\n拾取对象<>:")
    
21.         (t "\n拾取或框选对象<>:"))   
    
22.   )  
    
23.   (setvar "OSMODE" 16384)  
    
24.   (cond
    
25.     ((member sel '("L" "X" "P" "A" "I"))(ssget sel fls))
    
26.     ((member sel '(nil "" ":L" ":D" ":N" ":E" ":S" ":E:S" ":S:E"))
    
27.       (setvar "nomutt" 1)(princ msg)
    
28.       (if(member sel '(nil ""))(ssget fls)(ssget sel fls))
    
29.     );无互动/无点表参数的均可加入
    
30.     ;((and (member sel '("F" "WP" "CP"))(listp msg)(>(length msg)))(ssget sel msg fls))
    
31.     ;可利用msg设为点表参数执行的ssget"F" "Wp" "Cp"模式 意义不大
    
32.     ( (setq d(* 0.5(getvar 'pickbox)(/ (getvar 'viewsize)(cadr(getvar 'screensize)))))
    
33.       (initget (strcat (vl-string-right-trim " " sel)"  "))
    
34.       ;自定义关键字最后要双空格
    
35.       (setq p(entsel msg))
    
36.       (cond((and p (listp p))(ssget "_C"
    
37.           (mapcar '- (cadr p)(list d d))(mapcar '+ (cadr p)(list d d))fls
    
38.         ));仿ssget拾取框尺寸
    
39.         ((not p)(setq p(cadr(grread t)))(if
    
40.           (setq p2(getcorner p "\n指定对角点:"));框选
    
41.           (ssget(if(> (car p)(car p2))"_C" "_W") p p2 fls)
    
42.         ))
    
43.         ((and p(/= "" p))p);返回关键字
    
44.       )      
    
45.     )
    
46.   )  
    
47. )

(vl-load-com)<br /> ;   测试程序<br /> (defun c:Q( / ss_k)<br /> <br />   (setq ss_k (ssgetSEL "" nil "提示语3" ))<br /> <br />   (command "chprop" "p" "" "c" "1" "")(princ))<br /> <br /> ;   ssget关键字提示函数简版<br /> (defun ssgetSEL(sel fls msg / ss ov)<br />   (setq ov (getvar "OSMODE"))<br />   (setq ss(vl-catch-all-apply 'ssgetSEL00 (list sel fls msg)))<br />   (setvar "OSMODE" ov)(setvar "nomutt" 0)<br />   (if(vl-catch-all-error-p ss)(exit)ss)<br /> )<br /> (defun ssgetSEL00(sel fls msg / p p2 d ps)<br />   (setq sel(if(= 'str(type sel))(strcase sel)sel)<br />     msg(cond((and msg(/= "" msg))msg)<br />         ((member sel '(":E:S" ":S:E" ":E"))"\n拾取对象<>:")<br />         (t "\n拾取或框选对象<>:"))    <br />   )  <br />   (setvar "OSMODE" 16384)  <br />   (cond<br />     ((member sel '("L" "X" "P" "A" "I"))(ssget sel fls))<br />     ((member sel '(nil "" ":L" ":D" ":N" ":E" ":S" ":E:S" ":S:E"))<br />       (setvar "nomutt" 1)(princ msg)<br />       (if(member sel '(nil ""))(ssget fls)(ssget sel fls))<br />     );无互动/无点表参数的均可加入<br />     ;((and (member sel '("F" "WP" "CP"))(listp msg)(>(length msg)))(ssget sel msg fls))<br />     ;可利用msg设为点表参数执行的ssget"F" "Wp" "Cp"模式 意义不大<br />     ( (setq d(* 0.5(getvar 'pickbox)(/ (getvar 'viewsize)(cadr(getvar 'screensize)))))<br />       (initget (strcat (vl-string-right-trim " " sel)"  "))<br />       ;自定义关键字最后要双空格<br />       (setq p(entsel msg))<br />       (cond((and p (listp p))(ssget "_C" <br />           (mapcar '- (cadr p)(list d d))(mapcar '+ (cadr p)(list d d))fls<br />         ));仿ssget拾取框尺寸<br />         ((not p)(setq p(cadr(grread t)))(if<br />           (setq p2(getcorner p "\n指定对角点:"));框选<br />           (ssget(if(> (car p)(car p2))"_C" "_W") p p2 fls)<br />         ))<br />         ((and p(/= "" p))p);返回关键字<br />       )      <br />     )<br />   )  <br /> )

jun470

你有种再说一遍 发表于 2025-5-19 17:15
别研究了,能用就行了,想要搞复杂还是得去C#或许ARX,
一个简单的ssget关键字回调函数而已,官方直接提供了 ...

论坛高手云集，我是没能力写的出来，只是想看能不能直接应用一下，这个是个很基础的函数，但是使用频率比较高。所以就粗浅试试看