visul lisp怎么两条线的焦点
答案:1 悬赏:10 手机版
解决时间 2021-11-10 16:19
- 提问者网友：玫瑰园
- 2021-11-09 15:56
visul lisp怎么两条线的焦点
最佳答案
- 五星知识达人网友：污到你湿
- 2021-11-09 16:34
(defun c:tt1()
(setq en1 (entget (car (entsel "\n请选择第一条直线:"))))
(setq en2 (entget (car (entsel "\n请选择第二条直线:"))))
(setq po1 (cdr (assoc 10 en1)) po2 (cdr (assoc 11 en1)) po3 (cdr (assoc 10 en2)) po4 (cdr (assoc 11 en2)))
(setq interspoint (inters po1 po2 po3 po4 nil))
)
(setq en1 (entget (car (entsel "\n请选择第一条直线:"))))
(setq en2 (entget (car (entsel "\n请选择第二条直线:"))))
(setq po1 (cdr (assoc 10 en1)) po2 (cdr (assoc 11 en1)) po3 (cdr (assoc 10 en2)) po4 (cdr (assoc 11 en2)))
(setq interspoint (inters po1 po2 po3 po4 nil))
)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯