求两条直线的虚拟交点

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
应该是这样吧。

想问下这个能拾取参照线生成嘛

账号		自动登录	找回密码
密码			注册

求两条直线的虚拟交点

最佳答案

评分

本帖子中包含更多资源

评分