ynhh 发表于 2024-8-3 23:19:01

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 发表于 2025-4-3 15:09:34

(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) (zbname2) "")
);;;--liujunchao北京2025
页: 1 [2]
查看完整版本: 知道两平面上三点，如何求得两个面交线上的两个点。