lisp例程

bartdewilde · 发表于 2022-7-6 12:21:35

嗨，谁能告诉我这个程序出了什么问题吗
它不起作用

这是绘制两个不同尺寸的圆形风道连接件的例行程序。例如，将直径为20厘米的风管连接到直径为40厘米的风管。
减速器必须具有特定角度，以防止湍流（典型15°），并且两端有一个5 cm的套环，用于连接te管道。

copy


(defun c:verloop (/ p1 p2 p3 p4 dia1 dia2 r1 r2 c1 c2 c3 c4 verschil rad15 tan15 dy l)
 
 (setq p1 (getpoint "\nStart point :  "))
 (setq dia1 (getdist "\n first diameter :  "))
 (setq r1 (/ dia1 2))
 (setq dia2 (getdist "\n second diameter :  " ))
 (setq r2 (/ dia2 2))
 (command "circle" p1 r1 )
 (setq c1 (entlast))
 
 (setq p2 (list (car p1) (cadr p1) (+ (caddr p1) 5)))
 (command "circle" p2 r1 )
 (setq c2 (entlast))
 
 (setq verschil (abs (- dia1 dia2)))            
 (setq rad15 (/ (* 15 pi) 180))                 
 (setq tan15 (/ (sin rad15) (cos rad15) ) )
 (setq dy(/ verschil 2))                        
 (setq l(/ dy tan15))   
                       
 (setq p3 (list (car p2) (cadr p2) (+ (caddr p2) l))) 
 (command "circle" p3 r2)
 (setq c3 (entlast))
 (setq p4 (list (car p3) (cadr p3) (+ (caddr p3) 5)))
 (command "circle" p4 r2)
 (setq c4 (entlast))
 (command "loft" c1 c2 c3 c4 "" "" r "")
)