[求助]：请教ssget ......

jjxiao

(DEFUN C:tk() (COMMAND "transparency" (ssget)
"" "on")
(princ "透明已打开")
(princ)
)


我想实现的是输入一个命令tk后,选择图片就自动设置为通明,为什么在autocadr14里面出现:

kk error: AutoCAD rejected function
(SSGET)
(COMMAND "transparency" (SSGET) "" "on")
(C:KK)

Select objects: *Cancel*

命令无法完成,小弟实在是不解......求教

ll_j

R14中用户输入函数不能直接在command函数中使用，见附图（R14联机帮助）。最好的方法是先使用ssget构造选择集，然后在使用command函数调用命令。代码如下：

2. 
   
3. (defun C:tk(/ aa)
   
4.   (setq aa (ssget))
   
5.   (if aa (command "transparency" aa "" "on"))
   
6.   (princ)
   
7. )

<br /> (defun C:tk(/ aa)<br />   (setq aa (ssget))<br />   (if aa (command "transparency" aa "" "on"))<br />   (princ)<br /> )

如果特殊情况一定需要在command函数中交互输入，可以使用以下方法试试：

2. 
   
3. (defun C:ck()
   
4.   (command "transparency")
   
5.   (command  (SSGET))
   
6.   (command  "" "on")
   
7. )

<br /> (defun C:ck()<br />   (command "transparency")<br />   (command  (SSGET))<br />   (command  "" "on")<br /> )