[求助]

龙龙仔

(defun C:DH ()
  (command "DIM" "HOR" PAUSE PAUSE PAUSE "" "EXIT")
  (princ)
)
(princ)

陈伯雄

5）虽然在 (VL-CmdF) 和 (Command) 函数内部，都可以使用输入函数或者用 Pause 等待用户的输入。但是要慎重，因为对于用户的所有输入，应当进行分析识别，确认正确，才能送给命令行使用，绝不应当放任自流，使程序处于不可控制的危险之中。因此这种方法极不常用。
摘自《Visual LISP程序设计——技巧与范例》

您这样写程序，用户可以轻易地把您的程序搞崩溃，反过来说您的程序错。
这无疑是伸着脖子然人家砍...

ll_j

(defun C:DH()(command "dim1""horiz"))
(defun C:Da()(command "dim1""ang"))
(defun C:DV()(command "dim1""vertical"))
(defun C:DI()(command "dim1""ali"))
(defun C:DR()(command "dim1""RAD"))
(defun C:DG()(command "dim1""dia"))
(defun C:DU()(command "dim1""upd"))
(defun C:DTR()(command "dim1""trotate"))
(defun c:do()(command "dim1" "oblique"))
(defun C:DT()(command "dim1""tedit"))
(defun c:dc()(command "dim1" "con"))
(defun c:nt()(command "dim1" "newtext"))

如果在其他程序中使用标注，交互输入应在(command...）之前。

ctower

与我心切切焉！

ctower

这个问题困扰了我很长时间，这下终于解决了。谢谢！

ctower

谢谢陈老师的教诲！以后还的多多打扰。