lisp的一个小编程

taiyangbei

写了一个一段直线做一定距离的垂线，求垂线端点的坐标，但是有问题，不知道问题出在什么地方？请大家帮助看看，谢谢！

程序如下：

(defun c: cx()
     (setq p1 (getpoint"\请输入第一个点:"))
     (setq p2 (getpoint"\请输入第二个点:"))
     (setq ang1 (angle p1 p2))
     (setq ang2 (+ ang1 (/ pi 2)))
     (setq dis1 (getreal "请输入距离:"))
     (setq dis2 (getreal "请输入偏移量:"))
     (setq p3 (polar p1 ang1 dis1))
     (setq p4 (polar p3 ang2 dis2))
     (print p4)
 )

Andyhon

(defun c: cx()
==>
(defun c:cx()
其余未测

taiyangbei

谢谢！

taiyangbei

还有以下几个问题麻烦一下：

1、怎么将dis1，dis2，p4输出至一个txt,excel文件中？

2、怎么才能确定p4的小数点的位数？

3、如果不是直线（p1，p2）而是曲线怎么处理？