阻止添加Lisp？请帮忙

cbr shadow · 发表于 2022-7-6 08:55:31

我有几个不同的块，我想能够通过键入命令调用。例如，我有几种类型的门，我经常使用，并希望能够键入“RFD60”，门块可以放置我的鼠标。我知道有块托盘，我可以用来做这件事，但我想使用快速命令来提出这些。有人能帮我吗？如果有人能提供一个lsp例程与这个功能，我可以添加或修改我会非常感激。我最近才开始Lisp程序。
谢谢
赖安

Lee Mac · 发表于 2022-7-6 10:24:06

可能使用子功能，例如：

copy

(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)
)

然后用不同的块名调用此子函数，例如：

copy


(defun c:RFD60 nil (InsertBlock "RFD60"))
(defun c:RFD70 nil (InsertBlock "RFD70"))
...

[编程交流] 阻止添加Lisp？请帮忙

发表回复

精选推荐