ssget 自定义提示

依然低调

ssget在使用时只是提示选择对象，能不能自定义提示内容呢？

比如："\n指定需要更改的文字范围"
写了段：大家给点意见

2. (defun SSGET-PT ()
   
3.   (setq  ss1 (ssadd)
   
4.   pt1 t
   
5.   )
   
6.   (while PT1
   
7.     (setq SS (ssget "w"
   
8.         (setq pt1 (getpoint "\n指定范围"))
   
9.         (getcorner pt1 "\n指定第二点")
   
10.         '((0 . "TEXT,MTEXT"))
    
11.        )
    
12.     )
    
13.     (vl-cmdf "._Select" ss1 "a" ss "")
    
14.   )
    
15.   (setq ss1 (ssget "_p"))
    
16. )

(defun SSGET-PT ()<br />   (setq  ss1 (ssadd)<br />   pt1 t<br />   )<br />   (while PT1<br />     (setq SS (ssget "w"<br />         (setq pt1 (getpoint "\n指定范围"))<br />         (getcorner pt1 "\n指定第二点")<br />         '((0 . "TEXT,MTEXT"))<br />        )<br />     )<br />     (vl-cmdf "._Select" ss1 "a" ss "")<br />   )<br />   (setq ss1 (ssget "_p"))<br /> )

xxxl1233064

http://bbs.mjtd.com/thread-71545-1-1.html
你可以看看

自贡黄明儒

变量"nomutt"开关

ysq101

自贡黄明儒 发表于 2014-6-21 11:35
变量"nomutt"开关

变量可以控制ssget??

ysq101

自贡黄明儒 发表于 2014-6-21 11:35
变量"nomutt"开关

前面加一句PRINC吗？？？还有更好的办法吗？

longcashman

2. (ssget(progn (princ "\n选择文本")'((0 . "TEXT"))))

(ssget(progn (princ "\n选择文本")'((0 . "TEXT"))))

依然低调

longcashman 发表于 2014-6-21 20:21

这样做只是在命令行显示自定义提示，并不能在十字光标附近显示命令提示

依然低调

xxxl1233064 发表于 2014-6-21 10:44
http://bbs.mjtd.com/thread-71545-1-1.html
你可以看看

非常感谢。代码写的太牛了。好好的研究下。