(defun *ERROR* (st)

(menucmd "s=s")

(command "osnap" "none")

(command "layer" "s" cl "")

(setvar "regenmode" 1)

(princ st)

(terpri)

)

(defun qs （）

(setq fc (* 5.0 *bl))

(menucmd "s=s")

(initget "Y N")

(if (not *yffl) (setq *yffl "N"))

(princ "\n有否法兰: [ Y/N ]< ")

(princ *yffl)

(setq fl (getkword " >"))

(if (not fl) (setq fl *yffl) (setq *yffl fl))

) (defun dfw ( )

(command "OSNAP" "NEAR")

(setq e1 (entsel "\n阀心位置:"))

(command "osnap" "none")

(defun gy（）

(setq zx (cadr e1)

e2 (entget (car e1))

p01 (cdr (assoc 10 e2))

p02 (cdr (assoc 11 e2))

zj (+ (* (/ 1.0 2.0) pi) (angle p01 p02))

l1 (/ fc 1.732)

l2 (/ l1 1.0)

p1 (polar zx (+ zj (* (/ 2.0 3.0) pi)) l2)

p2 (polar zx (+ zj (* (/ 1.0 3.0) pi)) l2)

p3 (polar zx (+ zj (* (/ 4.0 3.0) pi)) l2)

p4 (polar zx (+ zj (* (/ 5.0 3.0) pi)) l2)

p11 (polar zx (+ zj (* (/ 1.0 2.0) pi)) (* 0.867 l2))

p21 (polar zx (+ zj (* (/ 2.0 3.0) pi)) (* 0.48 l1))

p22 (polar zx (+ zj (* (/ 1.0 3.0) pi)) (* 0.48 l1))

p23 (polar zx (+ zj (* (/ 4.0 3.0) pi)) (* 0.48 l1))

p24 (polar zx (+ zj (* (/ 5.0 3.0) pi)) (* 0.48 l1)))；setq

(flsz)

(command "break" p32 p33 )