怎么让图块插入带预览？要比较清晰的

半听可乐 · 发表于 2012-8-25 08:56:58

下面是论坛里“开心版主”写过的一个图块插入程序
(defun c:cy()
(setvar "cmdecho" 0)
(WHILE(setq p1 (getpoint "\n插入点: "))
(command "insert" "_a_frequent" p1 "1" "" "0")
(command "EXPLODE" (entlast)))
(princ)
)

我一直在用，因为感觉很简洁也很快，但最近发现有些块的插入需要带预览功能才好（用于块中的图元与图中图元对比，不一定要插入），希望有哪位大侠帮我改一下上面这个程序，提供一个新的也行，谢谢了！

woaishuijia · 发表于 2012-8-30 15:43:02

本帖最后由 woaishuijia 于 2012-8-30 15:44 编辑

半听可乐发表于 2012-8-30 14:46
太好了，就是这个效果！怎么设置右键退出呢？谢谢

鱼与熊掌不可兼得.

,想要这个效果就不能右键直接退出.
可以按键盘左上角"ESC"键退出,或把代码中这一行

(setvar "cmdecho" 0)

复制代码

去掉,在右键菜单上点"取消"退出.如果不去掉这一行,就要右键再次才能出菜单(第一次出命令回显).

woaishuijia · 发表于 2012-8-30 14:26:24

本帖最后由 woaishuijia 于 2012-8-30 14:35 编辑

(defun c:cy()
(setvar "cmdecho" 0)
(while t
(command "insert" "_a_frequent" pause "1" "" "0")
(command "EXPLODE" (entlast)))
(princ)
)

半听可乐 · 发表于 2012-8-30 14:46:10

woaishuijia 发表于 2012-8-30 14:26

太好了，就是这个效果！怎么设置右键退出呢？谢谢

半听可乐 · 发表于 2012-8-30 15:52:48

woaishuijia 发表于 2012-8-30 15:43
鱼与熊掌不可兼得.,想要这个效果就不能右键直接退出.
可以按键盘左上角"ESC"键退出,或把代码中这 ...

那太遗憾了~~~

cjjh8301 · 发表于 2021-1-25 16:01:27

请教，为什么我用这个插件，插入的块总是离插入点老远？

账号		自动登录	找回密码
密码			注册

[提问] 怎么让图块插入带预览？要比较清晰的

相关帖子