这个命令怎样执行？求助高手

jingtianwd

我得到一个编译过的命令，命令行：输入q，再输入层名a1，就可以把a1置为当前层。
                                      在菜单栏：^c^c;q;a1     可以置为a1置为当前层。
                                                        ^c^c;q;a2     可以置为a2置为当前层。
现在的问题是再写一个lsp:    (command "c:q" "a1")这样不行，(c:q)这样可以，但层名a1怎么输入？

Gu_xl

(defun c:tt()
  (command "layer" "m" pause "" "")
  )

jingtianwd

我不用这样，必须用嵌套的q命令。谢谢版主。

jingtianwd

(command "q"  pause)不能用

只能用(c:q) ,因为q是自定义lsp

但接下来怎样输入a1?

caoyin

(vla-sendcommand
  (vla-get-ActiveDocument (vlax-get-acad-object))
  "q a1 "
)

jingtianwd

caoyin 发表于 2012-3-16 17:46
(vla-sendcommand
  (vla-get-ActiveDocument (vlax-get-acad-object))
  "q a1 "

再请教，a1处能用变量吗？

Andyhon

试试 (StrCat "q " a1 " ")

caoyin

jingtianwd 发表于 2012-3-19 09:33
再请教，a1处能用变量吗？

(vla-sendcommand
  (vla-get-ActiveDocument (vlax-get-acad-object))
  "q !name "
)