半听可乐 发表于 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 http://bbs.mjtd.com/static/image/common/back.gif
太好了，就是这个效果！怎么设置右键退出呢？谢谢

鱼与熊掌不可兼得.,想要这个效果就不能右键直接退出.
可以按键盘左上角"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 static/image/common/back.gif


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

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

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

那太遗憾了~~~

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

请教，为什么我用这个插件，插入的块总是离插入点老远？
页: [1]
查看完整版本: 怎么让图块插入带预览？要比较清晰的