创建示例LISP以插入b

soan · 发表于 2022-7-5 18:07:25

你好

我搜索Lisp以更快地插入块。

例：如果在键盘上写“1”，我可以在我的绘图中插入“块1”。我可以插入“block 1”，直到Lisp程序为止

如果在键盘上写“2”，我可以在绘图中插入“块2”。我可以插入“block 2”，直到LISP停止

我所有的区块都在同一张图纸中。

谢谢

ReMark · 发表于 2022-7-5 18:17:01

你真的认为使用数字作为调用lisp例程插入块的方法是一个好主意吗？加载并运行lisp例程1后会发生什么。lsp第一次实际需要使用图形中的数字“1”作为实际数字？

RobDraw · 发表于 2022-7-5 18:25:12

由于所有插入块的方法都可用，几乎不需要LISP。

您是否希望在不需要使用COPY命令的情况下多次插入同一块？

Cad64 · 发表于 2022-7-5 18:27:49

插入多个块：https://knowledge.autodesk.com/support/autocad/troubleshooting/caas/sfdcarticles/sfdcarticles/Insert-multiple-blocks-s.html

BIGAL · 发表于 2022-7-5 18:39:23

备注（defun c:39（）（setvar“osmode”39））

线拾取点拖动鼠标，在类型39上具有正交，无probs线为39长。

但是，是的，插入块调色板，幻灯片，菜单等多种方式。

hanhphuc · 发表于 2022-7-5 18:46:51

使用defun c:39只需要一个步骤，只需调用命令39即可

可供替代的
如果图形中存在块，我更喜欢使用initget和getkword进行简单的defun
仅setq bn（例如：块名为39）等。。
（命令“insert”bn pt 1）

但这需要两个步骤，调用命令，然后执行39

Cad64 · 发表于 2022-7-5 18:49:23

我已将此问题转移到Autolisp部分：http://www.cadtutor.net/forum/forumdisplay.php?21-AutoLISP Visual LISP amp DCL

BIGAL · 发表于 2022-7-5 18:54:15

B29 B43 B56可以做到看看这个http://www.cadtutor.net/forum/showthread.php?93661-Lisp表示圆角半径/第3页只需添加一个“B”选项。

hanhphuc · 发表于 2022-7-5 19:02:29

这是反应堆的好主意
我相信很多选秀人都喜欢这个！！

我见过很多使用数字defun的草稿（c:30 c:40等等）如斯纳邦等。。
可能发生冲突？因为defun是全局变量

BIGAL · 发表于 2022-7-5 19:10:12

我可以加上“B”选项，这个周末可能会下雨。只要块名没有空格，它就可以工作。这就是“B”、“C”、“O”和“F”的用法，还有其他的想法吗。

[编程交流] 创建示例LISP以插入b