如何修改lsp程序，使执行后会重复执行命令

haibinpro

菜单命令可以在命令名前加“×”表示重复命令。
如果想重复使用lsp的某命令，将之内嵌到lsp中，如何实现。

目前我是一个一个地打命令
(DEFUN C:fd ()(COMMAND "amjoin" PAUSE PAUSE "amjoin" PAUSE PAUSE "amjoin" PAUSE PAUSE "amjoin" PAUSE PAUSE "amjoin" PAUSE PAUSE ))

amjoin就是join命令了。

原贴发在直线关联移动程序（源代码）帖子后，怕没人看到，开个主题发。

Underway

(Defun C:Mcir ()
  (while (vl-cmdf "Circle" Pause Pause ))
)
;;; 用 ESC 中止

haibinpro

谢谢，修改成

(Defun C:fs ()
(while (vl-cmdf "amjoin" Pause Pause ))
)
后已实现无限制重复join。

谢谢谢谢。解决了一大问题啊。

另，vl-cmdf函数怎么用，在cad2006帮助中搜索不到主题 ，
索引就直接跑到“加载/卸载应用程序”对话框的说明页面去了。