[求助]一个cad命令的问题

shaobaohai · 发表于 2007-1-25 21:51:00

请教以下:
我在中自定义一个按钮,其中代码为:^c^ccopy;\;m;
此命令能够实现连续拷贝.
但是我想在acad2004doc.lsp中写入一个新命令以实现上面的功能,我虽多次努力,也没有做到.
请版主指教.
谢谢!

zzhjxyx · 发表于 2007-1-25 23:38:00

可以用lsp定义一个命令，如命令为cc
(defun c:cc ()
  (princ "选择对象:")
  (setq aa (ssget))
  (command "copy")
  (command aa)
  (command "")
  (command "m")
)