知道两平面上三点，如何求得两个面交线上的两个点。

ynhh

ljcgq 发表于 2024-7-12 16:44
命令: (setq pp(command "cal" "ilp(p1,p2,p3,p4,p5)"))
cal >> 表达式: ilp(p1,p2,p3,p4,p5) 1,1,1
命 ...

在命令行中可行
命令: CAL >> 表达式: ilp(p1,p2,p3,p4,p5)
3006.58976,314.044185,1162.43929
但搞成LSP程序好象不行

ljcgq

(defun jiaodian( p1 p2 p3 p4 p5)     (or c:cal (command "cal" nil))    (c:cal "ilp(p1,p2,p3,p4,p5)" ) )

(defun zb( name)  (cdr (assoc 10  (entget name))) )
(defun line(name1 name2)
(command "3dpoly" (zb name1) (zb  name2) "")
);;;--liujunchao北京2025