xj6019 发表于 2019-11-20 22:12:27

谢谢分享   先留下以后用   非常不错

xj6019 发表于 2019-11-20 22:26:10

点取点的位置不能自动添加一条线吗    不要构造线   弄个线段最好   线段长点就好 比如说L=100000

tianbeiyuan 发表于 2019-11-24 10:52:31


谢谢楼主分享。。。。

czb203 发表于 2020-9-4 07:53:54

感谢楼主分享 下载试试

999999 发表于 2020-9-12 10:06:20

顶起来，这个好用，谢谢楼主

chenry676 发表于 2020-12-4 18:02:03

能否选取两点改为直接选择线段或者PL线。

love_cq 发表于 2020-12-11 13:04:53

支持个，学习并下载备用。

sunwei2009 发表于 2022-2-24 16:57:32

谢谢分享,学习并下载备用

ajunseo 发表于 2022-3-29 09:15:49

谢谢分享   先留下以后用   非常不错

xiangganglv 发表于 2022-8-2 08:50:10

(defun c:de( / n p1 p2 ang1 p0 m)

(setq p1 (getpoint "\n点取第一点："))

(setq p2 (getpoint p1 "\n点取第二点："))

(setq ang1 (angle p1 p2))

(setq n (getint "\n输入等分数："))

(if (null n)(setq n 2))

(setq p0 (polar p1 ang1 (/ (distance p1 p2) n)))

(setq m 0)

(repeat (- n 1)

(entmake (list '(0 . "POINT") (cons 10 p0)))

(setq m (+ m 1))

(setq p0 (polar p0 ang1 (/ (distance p1 p2) n)))

)

)我常用的是点，随手改的。
页: 1 [2] 3 4
查看完整版本: 等分辅助线，构造线