关于LISP的问题

烛光 · 发表于 2002-7-10 20:50:00

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

xyh · 发表于 2002-7-10 23:27:00

(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:"))
)
)

烛光 · 发表于 2002-7-11 19:38:00

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

龙龙仔 · 发表于 2002-7-12 08:25:00

(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)
)

烛光 · 发表于 2002-7-13 19:41:00

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

烛光 · 发表于 2002-7-15 19:51:00

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

关于LISP的问题

发表回复

精选推荐