请教大家一个关于两点之间画直线的问题，恳请出手相助！

wangxf888

  我现在需要一个画直线的程序，大概意思是这样：在图上指定一点P1 指定另一点P2  在P1和P2之间画条直线，长度为指定长度D,（长度D可能大于或小于P1和p2之间的距离，但要保证以p1为起点）   生成的直线在指定层S-DIM,颜色为251，加While函数能连续执行，恳请大佬出手相助！（最后是生成line，pline也可以） 谢谢！

tryhi

(defun c:tt (/ ang d p1 p2 p3)
        (while (setq p1(getpoint "\nP1"))
                (setq
                        p2(getpoint"\nP2" p1)
                        d(getdist"\n距离")
                        ang(angle p1 p2)
                        p3(polar p1 ang d)
                )               
                (command "line""non"p1"non"p3"")
                (command "CHANGE"(entlast)"" "P" "C"  251 "la" "S-DIM""")
        )
)

wangxf888

  谢谢 大佬   是我想要的效果 再次感谢！

999999

谢谢各位大神的源码，好好学习一下