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

半听可乐

下面是论坛里“开心版主”写过的一个图块插入程序
(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 14:46
太好了，就是这个效果！怎么设置右键退出呢？谢谢

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

1. (setvar "cmdecho" 0)

复制代码

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

woaishuijia

1. (defun c:cy()
   
2. (setvar "cmdecho" 0)
   
3. (while t
   
4. (command "insert" "_a_frequent" pause "1" "" "0")
   
5. (command "EXPLODE" (entlast)))
   
6. (princ)
   
7. )

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

半听可乐

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

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

半听可乐

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

那太遗憾了~~~

cjjh8301

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