CAD二次开发设计说明书(6)

赵辉：AutoCAD环境下的液压系统符号开发

)

10. 二位四通换向阀

图形符号如图4-10所示：

图4-10 二位四通换向阀

程序代码如下： (defun c:valve04()

(setq p0(getpoint\确定基点:\ (setq p1(polar p0 (* 0.5 pi) 7)) (setq p2(polar p1 0 14)) (setq p3(polar p2 (-(* 0.5 pi)) 7)) (setq p4(polar p0 0 2)) (setq p5(polar p4 (* 0.5 pi) 5)) (setq p6(polar p5 (* 0.5 pi) 2)) (setq p7(polar p6 (* 0.5 pi) 2)) (setq p8(polar p4 (-(* 0.5 pi)) 2)) (setq p9(polar p1 0 5))

(setq p10(polar p9 (-(* 0.5 pi)) 5)) (setq p11(polar p10 (-(* 0.5 pi)) 2)) (setq p12(polar P11 (-(* 0.5 pi)) 2)) (setq p13(polar p9 (* 0.5 pi) 2)) (setq p14(polar p1 0 7))

(setq p15(polar p14 (-(* 0.5 pi)) 7)) (setq p16(polar p0 0 9))

- 26 -

蚌埠学院本科毕业设计（论文）

(setq p17(polar p16 (atan 1.4) 6.6)) (setq p18(polar p1 0 9))

(setq p19(polar p18 (-(atan 1.4)) 6.6)) (command\ (command\

(command\ (command\ (command\ (command\ (princ) )

11.变量泵

图形符号如图4-11所示：

图4-11 变量泵

程序代码如下： (defun c:pomp02()

(setq p0(getpoint\确定基点:\ (setq p1(polar p0 (* 0.5 pi) 7)) (setq p2(polar p1 (* 0.5 pi) 10)) (setq p3(polar p0 (-(* 0.5 pi)) 7)) (setq p4(polar p3 (-(* 0.5 pi)) 10)) (setq p5(polar p0 (* 0.5 pi) 5)) (setq p6(polar p0 (* 0.25 pi) 10)) (setq p7(polar p0 (* 0.25 pi) 12)) (setq p8(polar p0 (* 1.25 pi) 12))

- 27 -

赵辉：AutoCAD环境下的液压系统符号开发

(command\ (command\ (command\ (command\

(command\ (princ) )

12. 油雾器

图形符号如图4-12所示：

图4-12 油雾器

程序代码如下： (defun c:oil()

(setq p0(getpoint\确定基点\ (setq p1(polar p0(* 0.25 pi) 7)) (setq p2(polar p0 0 9.898)) (setq p3(polar p0(-(* 0.25 pi)) 7)) (setq p4(polar p2 0 4.949)) (setq p5(polar p0 pi 4.949)) (setq p6(polar p0 0 4.949)) (command\ (command\ (command\ (command\ (princ) )

- 28 -

蚌埠学院本科毕业设计（论文）

13. 普通单向阀

图形符号如图4-13所示：

图4-13 普通单向阀

程序代码如下： (defun c:common()

(setq p0(getpoint\确定基点\ (setq p1(polar p0 (* 0.167 pi) 2.5)) (setq p2(polar p0 (-(* 0.167 pi)) 2.5)) (setq p3(polar p0 0 3)) (setq p4(polar p0 0 5)) (setq p5(polar p0 pi 2)) (setq p6(polar p0 pi 0.5)) (setq c1(polar p0 0 2)) (command\ (command\ (command\ (command\ (command\ (princ) )

- 29 -

赵辉：AutoCAD环境下的液压系统符号开发

14. 液控单向阀

图形符号如图4-14所示：

图4-14 液控单向阀

程序代码如下： (defun c:peculiar()

(setq p0(getpoint\确定基点\ (setq p1(polar p0 (* 0.167 pi) 2.5)) (setq p2(polar p0 (-(* 0.167 pi)) 2.5)) (setq p3(polar p0 0 3)) (setq p4(polar p0 0 5)) (setq p5(polar p0 pi 2)) (setq p6(polar p0 pi 0.5)) (setq p7(polar p6 (* 0.5 pi) 2)) (setq p8(polar p7 0 4))

(setq p9(polar p8 (-(* 0.5 pi)) 4)) (setq p10(polar p6 (-(* 0.5 pi)) 2)) (setq c1(polar p0 0 2)) (command\ (command\ (command\ (command\

(command\ p7\ (command\ (princ) )

- 30 -

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库CAD二次开发设计说明书(6)在线全文阅读。