关于LISP的问题

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

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

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

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

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

后来我回去看了帮助文件后修改了一下:
(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

(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

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

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

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

龙龙仔 · 发表于 2002-7-16 07:54

账号		自动登录	找回密码
密码			注册

关于LISP的问题

回复：关于LISP的问题

关于LISP的问题

这样.........

thank you

（龙哥哥）程序好象不，，，，，

块名设为"A3"