版主帮忙啊

blue123

假如要重复,而只输一次pa值,也就是有多个点.在程式中怎么加(c:ce)啊

(defun c:ce()
(setvar "cmdecho" 0)
(command "undo" "be")
(setq pa (getpoint "Point:"))  ;;;;点多个点只输一个pa值
(setq aa (sqrt 2))
(setq bb (* ww aa))
(setq mp1 (polar pa 0 bb))
(setq mp2 (polar pa (/ pi 2) bb))
(command "circle" "2p" mp1 mp2 "")
(command "undo" "e")
(setvar "cmdecho" 1)
(prin1)
)

blue123

不好意思搞错了,应该是这个程式,是只输一个aa

(defun c:ce()
(setvar "cmdecho" 0)
(command "undo" "be")
(setq aa (getreal "dim"));;;;点多个点只输一次aa值
(setq pa (getpoint "Point:")) 
(setq aa (sqrt 2))
(setq bb (* ww aa))
(setq mp1 (polar pa 0 bb))
(setq mp2 (polar pa (/ pi 2) bb))
(command "circle" "2p" mp1 mp2 "")
(command "undo" "e")
(setvar "cmdecho" 1)
(prin1)
)

torcky

不明白你的意思﹗

(setq bb (* ww aa))这句中的ww之前未赋值

meflying

还有这里:

(setq aa (getreal "dim"));;;;点多个点只输一次aa值
(setq pa (getpoint "Point:")) 
(setq aa (sqrt 2))

输入的aa有什么用?不管你输入什么,最后aa都等于(sqrt 2)=1.414...

先把你的问题整理清楚了再问吧