关于LISP的问题

烛光

（defun c:A3()(command "-insert" A3 pause 1 1 0))
如果我想多想按回车键才结束命令的话，是不是要用“while"但是我不知道这个函数怎么用
哪位大哥能否教小第一招。

xyh

(defun c:a3(/ blk pt)
(setq blk "A3");块名设为"A3"
(setq pt (getpoint "\nInsert Point"))
(while pt
  (command "insert" blk pt 1 1 "0")
  (setq pt (getpoint "\nInsert Point<enter to End>:"))
)
)

烛光

后来我回去看了帮助文件后修改了一下:
(defun C:A3()
(command "-insert" A3 pause 1 1 0)
(while (/= pause nil)
(command "-insert" a3 pause 1 1 0))
解决了可以重复插入的问题,但是要用ESC键才能取消命令.如果我想用回车键取消命令的话应该怎么做?

龙龙仔

(defun C:A3 (/ HOLDECHO SP)
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (while (setq SP (getpoint "\n插入點: "))
    (command "_.insert" "A3" SP 1 1 0)
  )
  (setvar "cmdecho" HOLDECHO)
  (princ)
)

烛光

多谢龙哥哥,我一定会努力学习.不过有时候一个人老是碰壁.

烛光

我回去载入程序后CAD提示说“语法错误”

龙龙仔