(defun c:hhh(/ bzz e1 e10 e11 e12 e13 e14 e15 e2 e3 e4 e5 e6 e7 e8 e9 h1 id kst mk point point_1 point_10 point_11 point_12 point_13 point_14 point_15 point_16 point_17 point_18 point_19 point_2 point_20 point_21 point_22 point_23 point_24 point_25 point_26 point_27 point_28 point_29 point_3 point_30 point_31 point_32 point_33 point_34 point_35 point_36 point_37 point_38 point_39 point_4 point_40 point_41 point_42 point_43 point_44 point_45 point_46 point_47 point_48 point_49 point_5 point_50 point_51 point_52 point_53 point_54 point_55 point_6 point_7 point_8 point_9 r1 r2 r3 r5 r6 r7 rj w1 w2 w3 w4 z1 z10 z11 z12 z13 z14 z2 z3 z4 z5 z6 z7 z8 z9)
(command "ucs" "w");设置为世界坐标系
(setvar "LWDISPLAY" 1);打开线宽显示
(setq bzz(getvar "osmode"));获取程序运行前的对象捕捉设置
(setvar "osmode" 0);把对象捕捉设置为0
(setvar "cmdecho" 0);取消命令回显
(command "ltscale" 6);设置全局线型比例因子
(setvar "DIMDEC" 3);标注小数设置
(command "layer" "m" "细线图层" "c" 7 "细线图层" "l" "continuous" "细线图层" "lw" 0.18 "细线图层" "");新建图层
(command "layer" "m" "粗线图层" "c" 7 "粗线图层" "l" "continuous" "粗线图层" "lw" 0.28 "粗线图层" "")
(command "layer" "m" "DIM" "c" 3 "DIM" "l" "continuous" "DIM" "lw" 0.18 "DIM" "")
(command "layer" "m" "中心线图层""c" 1 "中心线图层" "l" "center" "中心线图层" "lw" 0.18 "中心线图层" "")
(setq kst '(0.1 0.12 0.15 0.2 0.25 0.3 0.4 0.5 0.6 0.8 1 1.25 1.5 2 2.5 3 4 5 6 8 10 12 16 20 25 32 40 50));对话框上模数的集合
(setq id (load_dialog "直齿轮对话框.DCL"));在路径文件夹下搜索“齿轮对话框.”文件，找到id变量大于0，找不到小于0
(if (< id 0)(exit))
(if(not (new_dialog "xccl" id))(exit));在“圆柱齿轮对话框.”文件里寻找xccl程序
(tup);插入幻灯片子程序
(action_tile "accept" "(skk) (done_dialog 1)");确定按钮，点击运行（skk）子程序，并done_dialog为 1
(action_tile "cancel" "(done_dialog -1)");取消按钮，点击 并done_dialog为 -1
(setq mk (start_dialog))
(if(= mk 1);如果mk=1 运行以下程序
(progn
(setq
point(getPoint "\n请点击图形放置点")
r1(* 0.5 (* m (+ z 2)))
r2(* 0.5 (* m z))
r3(* 0.5 (- (* 2 r2) (* 2.5 m)))
point_1(polar point pi (* 0.5 h))
point_2(polar point 0 (* 0.5 h))
point_3(polar point_2 (* 0.5 pi) r1)
point_4(polar point_1 (* 0.5 pi) r1)
point_5(polar point_1 (* 0.5 pi) r2)
point_6(polar point_2 (* 0.5 pi) r2)
point_7(polar point_1 (* 0.5 pi) r3)
point_8(polar point_2 (* 0.5 pi) r3)
r5(fix(* 0.6 r1))
r6(fix(* 0.5 r1))
r7(fix(* 0.6 r6))
rj(* 0.1 h)
point_9(polar point_1 (* 0.5 pi) (- r5 (* 0.5 r6)))
point_10(polar point_9 (* 1.5 pi) c)
point_11(polar point_9 0 c)
point_12(polar point_11 (* 0.5 pi) r6)
point_13(polar point_9 (* 0.5 pi) (+ r6 c))
h1(* 0.2 h)
point_14(polar point_9 0 (* 0.5 (- h h1)))
point_15(polar point_14 (* 0.5 pi) r6)
point_16(polar point (* 0.5 pi) r5)
point_17(polar point_14 (* 0.5 pi) (* 0.5(- r6 r7)))
point_18(polar point_17 0 h1)
point_19(polar point_17 (* 0.5 pi) r7)
point_20(polar point_19 0 h1)
point_21(polar point_1 (* 0.5 pi) (* 0.5 l2))
point_22(polar point_1 (* 1.5 pi) (* 0.5 l2))
point_23(polar point_22 0 h)
point_24(polar point_21 0 h)
point_25(polar point_21 0 c)
point_26(polar point_24 pi c)
point_27(polar point_26 (* 0.5 pi) (* 0.5(- (* 2 r8) l2)))
point_28(polar point_25 (* 0.5 pi) (* 0.5(- (* 2 r8) l2)))
point_29(polar point_1 (* 0.5 pi) (+ c (* 0.5 (* 2 r8))))
point_30(polar point_2 (* 0.5 pi) (+ c (* 0.5 (* 2 r8))))
point_31(polar point_16 (* 1.5 pi) r7)
point_32(polar point_16 (* 0.5 pi) r7)
point_33(polar point (* 1.5 pi) r5)
point_34(polar point_33 0 (* 0.5 h1))
point_35(polar point_33 pi (* 0.5 h1))
z1 (polar point 0 (* 2 r1))
point_36(polar point_1 (* 1.5 pi) r1)
point_37(polar point_1 (* 1.5 pi) r2)
point_38(polar point_1 (* 1.5 pi) r3)
point_39(polar point_29 (* 1.5 pi) (* 2 r8))
point_40(polar point_12 0 (- h (* 2 c)))
point_43(polar point_11 0 (- h (* 2 c)))
point_42(polar point_43 (* 1.5 pi) (- (* 2 r5) r6))
point_41(polar point_40 (* 1.5 pi) (+ r6 (* 2 r5)))
point_44(polar point_16 0 (* 0.5 h1))
point_45(polar point_39 (* 1.5 pi)(* 0.2 h))
point_46(polar point_45 0 h)
point_47(polar point_45 (* 0.1 pi) (* 0.3 h))
point_48(polar point_46 (* 0.9 pi) (* 0.3 h))
point_49(polar point_45 0 (* 0.5 h))
point_50(polar point_49 (* 0.5 pi) (* 0.1 h))
)
(command "zoom" point_36 point_3)
(setvar "clayer" "粗线图层")
(command "pline" point_1 point_4 point_3 point_2 "")
(setq e1(entlast))
(command "_CHAMFER" "d" c "")
(command "_CHAMFER" "P" e1 )
(command "pline" point_10 point_11 point_12 point_13 "")
(setq e2(entlast))
(command "pline" point_11 point_14 point_15 point_12 "")
(setq e3(entlast))
(command "_fillet" "r" rj)
(command "_fillet" "p" e3 )
(command "line" point_17 point_18 "")
(setq e4(entlast))
(command "line" point_19 point_20 "")
(setq e5(entlast))
(command "line" point_7 point_8 "")
(setq e6(entlast))
(command "MIRROR" e2 "" point point_16 "")
(setq e7(entlast))
(command "MIRROR" e3 "" point point_16 "")
(setq e8(entlast))
(command "line" point_21 point_24 "")
(setq e9(entlast))
(command "line" point_25 point_28 "")
(setq e10(entlast))
(command "line" point_26 point_27 "")
(setq e11(entlast))
(command "pline" point_29 point_28 point_27 point_30 "")
(setq e12(entlast))
(command "spline" point_45 point_47 point_49 point_48 point_46 "" "" "")
(setvar "clayer" "细线图层")
(command "bhatch" "p" "u" 45 po "n" "b" point_31 point_32 "")
(setq e13(entlast))
(command "MIRROR" e1 e9 e10 e11 e12 "" point_1 point_2 "")
(setvar "clayer" "中心线图层")
(command "line" (polar point_5 pi (* 0.1 h)) (polar point_6 0 (* 0.1 h)) "")
(setq e14(entlast))
(command "line" (polar point_1 pi (* 0.1 h)) (polar point_2 0 (* 0.1 h)) "")
(command "line" (polar point_16 pi h1) (polar point_16 0 h1) "")
(command "line" (polar point_33 0 h) (polar point_33 pi h) "")
(setq e15(entlast))
(command "MIRROR" e14 "" point_1 point_2 "")
(setvar "clayer" "细线图层")
(command "bhatch" "p" "u" 45 po "n" "b" point_50 "")
(setvar "clayer" "粗线图层")
;右视图
(setq
z2(polar z1 (* 0.5 pi) (* 0.5 l2))
z3(polar z1 (* 1.5 pi) (* 0.5 l2))
z4(polar z2 pi l1)
z5(polar z3 pi l1)
)
(setvar "clayer" "粗线图层")
(command "CIRCLE" z1 r8)
(setq w1(entlast))
(command "line" z2 z4 "")
(setq w2(entlast))
(command "line" z3 z5 "")
(setq w3(entlast))
(setq z6(vlax-safearray->list(vlax-variant-value(vla-IntersectWith (vlax-ename->vla-object w1) (vlax-ename->vla-object w2) acExtendNone))))
(setq z7(vlax-safearray->list(vlax-variant-value(vla-IntersectWith (vlax-ename->vla-object w1) (vlax-ename->vla-object w3) acExtendNone))))
(command "ERASE" w1 w2 w3 "")
(setq
z8(polar z6 pi c)
z9(polar z7 pi c)
z10(polar z1 pi (- l1 r8))
z11(polar z10 (* 0.5 pi) (* 0.5 l2))
z12(polar z10 (* 1.5 pi) (* 0.5 l2))
z13(polar z1 (* 0.5 pi) r5)
z14(polar z1 0 r8)
)
(entmake (list '(0 . "ARC") (cons 10 z1) (cons 40 r8) (cons 51 (angle z1 z6)) (cons 50 (angle z1 z7))))
(entmake (list '(0 . "ARC") (cons 10 z1) (cons 40 (+ c r8)) (cons 51 (angle z1 z8)) (cons 50 (angle z1 z9))))
(command "pline" z6 z11 z12 z7 "")
(command "CIRCLE" z1 (- r5 (* 0.5 r6)))
(command "CIRCLE" z1 (+ r5 (* 0.5 r6)))
(command "CIRCLE" z1 r3)
(command "CIRCLE" z1 r1)
(command "CIRCLE" z13 (* 0.5 r7))
(setq w4(entlast))
(command "_ARRAY" w4 "" "p" z1 6 360 "y")
(setvar "clayer" "中心线图层")
(zxx z1 (* 1.1 r1))
(command "CIRCLE" z1 r5)
(command "CIRCLE" z1 r2)
(setvar "clayer" "DIM")
(bzzj point_4 point_36 30 pi)
(bzzj point_5 point_37 20 pi)
(bzzj point_19 point_17 10 pi)
(bzzj point_40 point_41 30 0)
(bzzj point_44 (polar point_33 0 h) (+ 5 (* 0.5 (- h h1))) 0)
(biaoz point_17 point_18 5 (* 0.5 pi))
(biaoz point_4 point_3 10 (* 0.5 pi))
(biaoz z14 z10 (+ r8 10) (* 1.5 pi))
(biaoz z11 z12 10 pi)
))
(setvar "osmode" bzz)
(princ)
)