[讨论]问题在那里？

xjjy

定角度划线： 问题在哪里？ (defun C:anL(/ e1 pt ang)
(setq ang (getangle "\n:请输入角度值:"))
(setq pt (getpoint "\nPick start point: "))
(command "line" pt "<"ang)
)

meflying

"<"ang 这样的结果是假设输入20度) Command: line
Specify first point:
Specify next point or [Undo]: <
Point or option keyword required.
Specify next point or [Undo]: 20
Specify next point or [Undo]: 你必须这样: (defun C:anL(/ e1 pt ang)
(setq ang (getangle "\n:请输入角度值:"))
(setq pt (getpoint "\nPick start point: "))
(command "line" pt (strcat "<" (angtos ang)) ...);后面还得给一点或距离,再回车才算完整
)

zhang007

注意LINE后的参数,如果是相对坐标,要用相对坐标的格式,最后还要加双引号.

f5612140

替楼主完善一下 (defun C:anL(/ e1 pt ang)
(setvar "orthomode" 0)
(setq ang (getangle "\n:输入角度值:"))
(setq pt (getpoint "\nPick start point: "))
(setq dst (getdist pt "\n:输入长度值:"))
(command "line" pt (strcat "@" (rtos dst) "<" (angtos ang)) "")
)

meflying

好象不需要关掉正交吧

f5612140

meflying发表于2004-9-27 17:22:00好象不需要关掉正交吧

哈哈,的确是"多此一举"

xjjy

谢谢！


受益匪浅