插入图块问题

helingyun198

请问大家我现在要直接插入一个图块，就是一点菜单名称，例如圆，对应的图块就可以插入当前图中，不需要通过原来浏览文件再插入块。 谢谢大家帮忙一下，万分感谢。

Saging

2. (defun insertblock()
3.   (setq your_dwg_file_or_blockname "temp")
4.   (setq point (getpoint))
5.   (command "-insert" your_dwg_file_or_blockname point "" "" "")
6.   )

(defun insertblock()   (setq your_dwg_file_or_blockname "temp")   (setq point (getpoint))   (command "-insert" your_dwg_file_or_blockname point "" "" "")   )

你可以自己先设置好要插入的块名或文件路径再用"-insert"命令来插入块，
至于菜单里要怎么做就自己添加代码，我没搞过，不知道怎么搞。

helingyun198

上面的兄弟帮了我大忙，不知怎么感谢，我先试试，这个是用vba的代码吧

helingyun198

上面的大哥能否讲的详细点，小弟是初学者。。或者其他朋友帮帮忙解释下，我还有不明白，怎么通过菜单，调用lisp这段程序