lisp 相贯线展开_一个画两管相接相贯线的程序 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

下面的程序也可以画管子的相贯线，输入的参数D为大管直径，d为小管直径(可以等于D)，B为两管的夹角，插入点为小管中心线与大管外壁的交点。该程序在R14上调试通过。

(DEFUN C:XGX ()

(SETQ OLDOS (GETVAR "OSMODE"))

(SETVAR "OSMODE" 0)

(SETVAR "CMDECHO" 0)

(SETQ D (GETDIST "\nDiamter of D= ")

DS (GETDIST "\nDiamter of d= "))

(WHILE (> DS D)

(PROMPT "\nThe d must less than D! ")

(SETQ DS (GETDIST "\nReinter Diamter of d= "))

)

(SETQ B (GETREAL "\nAngle of the pipe (DEG) B= <90> "))

(WHILE (= B 0)

(PROMPT "\nThe angle B must begger than 0")

(SETQ B (GETREAL "\nAngle of the pipe (DEG) B= <90> "))

)

(SETQ B (/ (* (IF (= B nil) 90 0) PI) 180)

ANG (- B PI)

A 0 TA (/ (* 5 PI) 180)

RS (* DS 0.5) R (* D 0.5)

PT (GETPOINT