问题：Lisp预览功能！！！急！

didini

怎么能实现lisp的预览功能呢？
       举个例子来说，类似于插入块，在选择插入点的时候就能够看到要插入块的样子，但是在lisp语句中，只能实现command命令insert，需要事先选择好点，然后命令就完成了！没有预览的这个过程？我看到有的程序能实现这个，谁能介绍一下？

f5612140

(defun c:iii()
 (setq bkname (getstring "\输入图块名称:"))
 (command "insert" bkname pause "" "" "")
)

ZZXXQQ

这样用：

2. (DEFUN C:TEST ()
3. (SETQ NM (IF NM NM ""))
4. (IF (SETQ NM (GETFILED "请选择文件名" NM "dwg" 2))
5.   (COMMAND "-INSERT" NM PAUSE PAUSE PAUSE PAUSE)
6. )
7. (PRINC)
8. )

复制代码

NetBee

http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=84