[求助]第一天学习LISP遇到的初级问题，大家帮帮忙

gz-yzy

程序如下

(defun c:ctt (/ pa pb pc pd pe ww)
(setvar "cmdecho" 0)
(setq pa (getpoint "\n 输入圆心："))
(setq ww (getdist pa "\n 半径：" ))
(command "circle" pa ww)
(setq pb (polar pa (* pi 1.5) ww))
(setq pc (polar pa 0 ww))
(setq pd (polar pa (/ pi 2) ww))
(setq pe (polar pa pi ww))
(command "line" pb pd "")
(command "line" pc pe "")
(prin1)
)

jh1005

试了一下，好像没什么问题。你关闭对象捕捉试试。

yucpp

添加代码，把绘图的时候把对象关掉就可以了。

(defun c:ctt (/ pa pb pc pd pe ww)
(setvar "cmdecho" 0)
(setq oldos (getvar "osmode"));获取原对象捕捉设置
(setq pa (getpoint "\n 输入圆心："))
(setq ww (getdist pa "\n 半径：" ))
(setvar "osmode" 0);关闭对象捕捉
(command "circle" pa ww)
(setq pb (polar pa (* pi 1.5) ww))
(setq pc (polar pa 0 ww))
(setq pd (polar pa (/ pi 2) ww))
(setq pe (polar pa pi ww))
(command "line" pb pd "")
(command "line" pc pe "")
(setvar "osmode" oldos);恢复对象捕作设置
(prin1)
)

我在测试的时候一个很奇怪的问题就是，输入数字时有时候顺序会乱。比如，我想输入32，虽然先输的是3，但是输2的时候2还是跑到了3的前面，结果程序获取的数值就是23。求高人解决！

5061220

yucpp发表于2009-8-28 16:04:00我在测试的时候一个很奇怪的问题就是，输入数字时有时候顺序会乱。比如，我想输入32，虽然先输的是3，但是输2的时候2还是跑到了3的前面，结果程序获取的数值就是23。求高人解决！

gz-yzy

yucpp发表于2009-8-28 16:04:00添加代码，把绘图的时候把对象关掉就可以了。(defun c:ctt (/ pa pb pc pd pe ww)(setvar \"cmdecho\" 0)(setq oldos (getvar \"osmode\"));获取原对象捕捉设置(setq pa (getpoint \"\n 输入圆

非常谢谢你了

phoenixdjq

那是因为冒号不是英文状态下的冒号，就会出现这样的问题

yucpp

又学了一招。谢谢phoenixdjq！