[求助]：怎么获得一条已知线段的端点?

tsml

比如说用已知一点为起点,用line 命令画一条100长,33度的线段,怎么获得它的末端点?
谁能用程序表达这个例子?谢谢啦!!!

wkai

起点(cdr (assoc 10 (entget e)))
终点(cdr (assoc 11 (entget e)))

limingqian

应当使用相对坐标输入格式为：@100<30

zml84

楼主的意思好像是说由一已知点得到另一点；
二楼的给出的是查看群组码的方法；三楼是利用相对极坐标进行绘制的方法。
<br>
利用polar函数才是正道。楼主不妨试一试下面这个：
[PHP]
(if (setq pt0 (getpoint "\n第一点:"))
    (progn
                (setq pt1 (polar pt0 (angtof "30") 100))
                (command "_line" pt0 pt1 "")
    )
)
[/PHP]