为什么不会出现对话框

熊哥哥

(defun c:w()
(command "wblock")(prin1))

七夜

这个虾米命令啊··？？····

wblock

 

米试过··？·好像不会出对话框······

ll_j

熊哥哥发表于2005-9-28 23:05:00回复：（熊哥哥）为什么不会出现对话框 (defun c:w() (command \"wblock\")(prin1))

与command命令相比，可以理解为Lisp程序是退到后台执行，执行完成后“统一”输出结果，所以不是强制交互的地方一般是不中断的，对一些有命令行方式（原始方式）的命令，都是使用命令行方式，只有在强制对话框的命令才会使用对话框（如命令：find）。所以一般类似的单步“命令缩写”在Acad.pgp中完成，在Acad.pgp中不能完成的多步缩写再在Lisp中完成。

龙龙仔

Forces the display of the next command's dialog box

(initdia [dialogflag])

Currently, the following commands make use of the initdia function: ATTDEF, ATTEXT, BHATCH, BLOCK,WBLOCK, COLOR, IMAGE, IMAGEADJUST, INSERT, LAYER, LINETYPE, MTEXT, PLOT, RENAME, STYLE, TOOLBAR, and VIEW.

(defun C:W ()
  (initdia)
  (command "wblock")
  (prin1)
)