shirker 发表于 2024-2-29 21:40:06

求两条直线的虚拟交点

本帖最后由 shirker 于 2024-2-29 21:49 编辑

之前在明经帖子找到一个两直线虚拟交点绘制圆的源码，我想恳请前辈们能否帮我改成虚拟交点绘制十字中心线（图层名为defpoints）当然0层也没事，还有如果可以框选的更好，另这个源码发现cad启动后自动运行的，是否可以命令后再执行的，在此先谢谢了。

(defun c:tt()
(setq en1 (entget (car (entsel "\n请选择第一条直线:"))))
(setq en2 (entget (car (entsel "\n请选择第二条直线:"))))
(setq a (cdr (assoc 10 en1)) b (cdr (assoc 11 en1)) c (cdr (assoc 10 en2)) d (cdr (assoc 11 en2)))
(setq zb (inters a b c d nil))
(setq zbb (append (list 10) zb))
(entmake (list (cons 0"CIRCLE") zbb (cons 40 20)))
)

ssyfeng 发表于 2024-2-29 21:40:07

应该是这样吧。




shirker 发表于 2024-3-1 09:54:33

ssyfeng 发表于 2024-3-1 09:04
应该是这样吧。

对的，非常感谢前辈！谢谢

shirker 发表于 2024-3-1 09:57:01

悬赏那里怎么确认已解决的，点击不了。

yerenyi 发表于 2024-6-10 23:52:23

感谢楼主无私奉献

abc282163330 发表于 2024-6-18 09:54:15

ssyfeng 发表于 2024-2-29 21:40
应该是这样吧。


想问下这个能拾取参照线生成嘛
页: [1]
查看完整版本: 求两条直线的虚拟交点