[LISP函数]：请问下面一段程序有什么问题

tcy200489 · 发表于 2006-12-29 18:19:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问下面一段程序有什么问题
(defun c:pf ()
(setvar "osmode" 0);关闭对象捕捉
(setvar "cmdecho" 0)
(setq n (getint "\n 请输入个数")
(setq i 0)
(while (< i n)
(setq p1 (getpoint "\n请选择起点:"))
(setq n (getint "\n 请输入个数")
(initget "A B C")
(setq f (getkword "n\ 请输入剖面符号:"))
(command "text" "M" p1 5 0 f)
(setq i (1 + i))
)
(setvar "osmode" 1)
)
(princ)

phoenixdjq · 发表于 2006-12-29 19:32:35

有两个地方少了括号，循环里面的(setq n (getint "\n 请输入个数")没有用

(defun c:pf()
(setvar "osmode" 0);关闭对象捕捉
(setvar "cmdecho" 0)
(setq n (getint "\n 请输入个数"))
(setq i 0)
(while (< i n)
(setq p1 (getpoint "\n请选择起点:"))

(initget "A B C")
(setq f (getkword "n\ 请输入剖面符号:"))
(command "text" "M" p1 5 0 f)
(setq i (1+ i))
)
(setvar "osmode" 1)
)
(princ)

tcy200489 · 发表于 2006-12-29 21:21:36

谢谢二楼楼主,问题已解决

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

[LISP函数]：请问下面一段程序有什么问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子