如何在LISP中实现角度替换

董堃

如何在LISP中实现角度替换

danxingpen

pi=180度
弧度到角度的变化?直接上面计算下就可以了~

dinosaurhxe

是指angtos和angtof吗？

董堃

我是想在画线的时候能输入<n来做一个角度线！

比如command "line" pt1 <45 ""就会报错

我不知道该如何解决在COMMand调用了角度替换后的等待问题

caoyin

用下面的方法模仿

2. (defun c:tt (/ pt2)
3.   (setq pt1 (getpoint "\n指定第一点: ")
4.         pt2 (polar pt1 (/ pi 4) 1)
5.   )
6.   (command "_.LINE" pt1 pt2 "")
7.   (command "_.LENGTHEN" "_dy" (list (entlast) pt2) "\")
8. )

(defun c:tt (/ pt2)   (setq pt1 (getpoint "\n指定第一点: ")         pt2 (polar pt1 (/ pi 4) 1)   )   (command "_.LINE" pt1 pt2 "")   (command "_.LENGTHEN" "_dy" (list (entlast) pt2) "\") )

董堃

谢谢caoyin，我又学了一招！！