阻止添加Lisp？请帮忙
我有几个不同的块，我想能够通过键入命令调用。例如，我有几种类型的门，我经常使用，并希望能够键入“RFD60”，门块可以放置我的鼠标。我知道有块托盘，我可以用来做这件事，但我想使用快速命令来提出这些。有人能帮我吗？如果有人能提供一个lsp例程与这个功能，我可以添加或修改我会非常感激。我最近才开始Lisp程序。谢谢
赖安 可能使用子功能，例如：
(defun InsertBlock ( name )
(if
(or
(tblsearch "BLOCK" name)
(setq name (findfile (strcat name ".dwg")))
)
(command "_.-insert" name "_S" 1.0 "_R" 0.0 pause)
(princ "\nBlock not found.")
)
(princ)
)
然后用不同的块名调用此子函数，例如：
(defun c:RFD60 nil (InsertBlock "RFD60"))
(defun c:RFD70 nil (InsertBlock "RFD70"))
...
页:
[1]