wangxf888 发表于 2020-7-5 15:30:18

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

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

tryhi 发表于 2020-7-5 15:30:19

本帖最后由 tryhi 于 2020-7-5 17:48 编辑

(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 发表于 2020-7-7 22:32:20

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

999999 发表于 2020-9-4 12:36:08

谢谢各位大神的源码，好好学习一下
页: [1]
查看完整版本: 请教大家一个关于两点之间画直线的问题，恳请出手相助！