|
|
1)b_sprocket.lsp
(cond
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.
( (not (findfile "ai_utils.lsp")) ; find it
(ai_abort "DDMODIFY"
(strcat "Can't locate file AI_UTILS.LSP."
"\n Check support directory.")))
( (eq "failed" (load "ai_utils" "failed")) ; load it
(ai_abort "DDMODIFY" "Can't load file AI_UTILS.LSP"))
)
(defun B_SPROCKET_HILITE;重点显示选中图象项
(
B_sprocket_tile
/
)
(if (/= B_sprocket_last_slide B_sprocket_tile)
(progn
(mode_tile B_sprocket_tile 4)
(if (/= B_sprocket_last_slide nil)
(mode_tile B_sprocket_last_slide 4)
);end-if
);end-progn
);end-if
(setq B_sprocket_last_slide B_sprocket_tile)
);end-B_SPROCKET_HILITE
(defun B_SPROCKET_SLIDE_STAR;启动幻灯片
(
B_sprocket_slide
B_sprocket_slide_slb
B_sprocket_slide_dcl
/
)
(start_image B_sprocket_slide_dcl);开始建立图象
(fill_image 0 0 (dimx_tile B_sprocket_slide_dcl) (dimy_tile B_sprocket_slide_dcl) -2
);以图形背景色填充
(slide_image 0 0 (dimx_tile B_sprocket_slide_dcl) (dimy_tile B_sprocket_slide_dcl) (strcat B_sprocket_slide_slb "(" B_sprocket_slide ")")
);end-silde_image从幻灯片库中调入幻灯片
(end_image);结束当前激活图象的建立
);end-B_SPROCKET_SLIDE_STAR
(defun B_SPROCKET_CHAIN_SET;设置链轮DCL数据表
(
/
)
(start_list "B_SPROCKET_CHAIN_S_DCL")
(mapcar 'add_list B_sprocket_chain_dat_list)
(end_list)
);end-B_SPROCKET_CHAIN_SET
(defun B_SPROCKET_NOTEETH_LIST_BEGIN;建立链轮齿数数据表
(
/
)
(setq B_sprocket_noteeth_list
'(7 8 9 10 11 12 13 14 15 16 17 18 19 20
21 22 23 24 25 26 27 28 29 30 31 32 33
34 35 36 37 38 39 40 41 42 43 44 45 46
47 48 49 50 51 52 53 54 55 56 57 58 59
60 61 62 63 64 65 66 67 68 69 70 71 72
)
)
);end-B_SPROCKET_NOTEETH_LIST_BEGIN
(defun B_SPROCKET_NOTEETH_LIST_SET;设置链轮齿数DCL数据表
(
/
)
(start_list "B_SPROCKET_NOTEETH_S_DCL")
(mapcar 'add_list (mapcar 'rtos B_sprocket_noteeth_list))
(end_list)
);end-B_SPROCKET_NOTEETH_LIST_SET
(defun B_SPROCKET_SLIDE_CHANGE;改变视图选择
(
/
)
(if (= B_sprocket_view 10401)
(progn
(B_SPROCKET_SLIDE_STAR "B_SPROCKET_FLANK" "B_SPROCKET" "B_SPROCKET_VIEW_DCL")
(set_tile "B_SPROCKET_VIEW_S_DCL" "1")
(setq B_sprocket_view 10402)
(mode_tile "B_SPROCKET_ANGLE_DCL" 0)
(mode_tile "B_SPROCKET_ANGLE_S_DCL" 0)
);end-progn
(progn
(B_SPROCKET_SLIDE_STAR "B_SPROCKET_FACE" "B_SPROCKET" "B_SPROCKET_VIEW_DCL")
(set_tile "B_SPROCKET_VIEW_S_DCL" "0")
(setq B_sprocket_view 10401)
(mode_tile "B_SPROCKET_ANGLE_DCL" 1)
(mode_tile "B_SPROCKET_ANGLE_S_DCL" 1)
);end-progn
);end-if
);end-B_SPROCKET_SLIDE_CHANGE
;;读入输入的链轮所用链的型号,和链的型号(国标)比较，如国标中有则设为使用链号，否则显示错误的输入。
;;把链的节距(p)、滚子直径(d1)、、内节内宽(b1)、链条通道高度(h1)、排居(pt)、单排抗拉载荷(kn)读出。
(defun B_SPROCKET_CHAIN_INPUT
(
/
B_sprocket_chain_count
)
(setq B_sprocket_chain_size (get_tile "B_SPROCKET_CHAIN_DCL"))
(setq B_sprocket_chain_count 0)
(if (null B_NO_LIST) (load "B_NO_LIST"))
(setq B_sprocket_chain_count (B_NO_LIST B_sprocket_chain_size B_sprocket_chain_dat_list))
(if (/= B_sprocket_chain_count (length B_sprocket_chain_dat_list))
(progn
(set_tile "error" "")
(set_tile "B_SPROCKET_CHAIN_DCL" B_sprocket_chain_size)
(set_tile "B_SPROCKET_CHAIN_S_DCL" (itoa B_sprocket_chain_count))
(if (null B_DATE_LIST_NO) (load "B_DATE_LIST_NO"))
(setq B_sprocket_chain_size_line (B_DATE_LIST_NO B_sprocket_chain_date_file B_sprocket_chain_count))
(setq B_sprocket_chain_data_n B_sprocket_chain_count)
);end-progn
(progn
(set_tile "error" "输入的数据无效或无此链的数据")
(mode_tile "B_SPROCKET_CHAIN_DCL" 2)
);end-progn
);end-if
(setq B_sprocket_chain_p (atof (nth 1 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_d1 (atof (nth 2 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_b1 (atof (nth 3 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_h1 (atof (nth 4 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_pt (atof (nth 5 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_kn (atof (nth 6 B_sprocket_chain_size_line)))
);end-B_SPROCKET_CHAIN_INPUT
;;读入选择的链轮所用链的型号。
;;把链的节距(p)、滚子直径(d1)、、内节内宽(b1)、链条通道高度(h1)、排居(pt)、单排抗拉载荷(kn)读出。
(defun B_SPROCKET_CHAIN_SELECTION
(
/
)
(setq B_sprocket_chain_data_n (atoi (get_tile "B_SPROCKET_CHAIN_S_DCL")))
(if (null B_DATE_LIST_NO) (load "B_DATE_LIST_NO"))
(setq B_sprocket_chain_size_line (B_DATE_LIST_NO B_sprocket_chain_date_file B_sprocket_chain_data_n))
(setq B_sprocket_chain_size (car B_sprocket_chain_size_line))
(set_tile "B_SPROCKET_CHAIN_DCL" B_sprocket_chain_size)
(setq B_sprocket_chain_p (atof (nth 1 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_d1 (atof (nth 2 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_b1 (atof (nth 3 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_h1 (atof (nth 4 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_pt (atof (nth 5 B_sprocket_chain_size_line)))
(setq B_sprocket_chain_kn (atof (nth 6 B_sprocket_chain_size_line)))
);end-B_SPROCKET_CHAIN_SELECTION
;;读入输入的链轮齿数,和链的可用齿数比较，如有则设为使用齿数，否则显示错误的输入。
(defun B_SPROCKET_NOTEETH_INPUT
(
/
B_sprocket_noteeth_count
)
(setq B_sprocket_noteeth (atoi (get_tile "B_SPROCKET_NOTEETH_DCL")))
(setq B_sprocket_noteeth_count 0)
(if (null B_NO_LIST) (load "B_NO_LIST"))
(setq B_sprocket_noteeth_count (B_NO_LIST B_sprocket_noteeth B_sprocket_noteeth_list))
(if (/= B_sprocket_noteeth_count (length B_sprocket_noteeth_list))
(progn
(set_tile "error" "")
(set_tile "B_SPROCKET_NOTEETH_DCL" (itoa B_sprocket_noteeth))
(set_tile "B_SPROCKET_NOTEETH_S_DCL" (itoa B_sprocket_noteeth_count))
);end-progn
(progn
(set_tile "error" "输入的数据无效或无此齿数的数据")
(mode_tile "B_SPROCKET_NOTEETH_DCL" 2)
);end-progn
);end-if
);end-B_SPROCKET_NOTEETH_INPUT
;;读入选择的链轮齿数。
(defun B_SPROCKET_NOTEETH_SELECTION
(
/
B_sprocket_noteeth_count
)
(setq B_sprocket_noteeth_count (atoi (get_tile "B_SPROCKET_NOTEETH_S_DCL")))
(setq B_sprocket_noteeth (nth B_sprocket_noteeth_count B_sprocket_noteeth_list))
(set_tile "B_SPROCKET_NOTEETH_DCL" (rtos B_sprocket_noteeth))
);end-B_SPROCKET_NOTEETH_SELECTION
;;读入选择的链轮插入点坐标。
(defun B_SPROCKET_CENTER_INPUT
(
/
)
(setq B_sprocket_center_x (atof (get_tile "B_SPROCKET_CENTER_X_DCL")))
(setq B_sprocket_center_y (atof (get_tile "B_SPROCKET_CENTER_Y_DCL")))
(setq B_sprocket_center_z (atof (get_tile "B_SPROCKET_CENTER_Z_DCL")))
(setq B_sprocket_center (list B_sprocket_center_x B_sprocket_center_y B_sprocket_center_z))
);end-B_SPROCKET_CENTER_INPUT
;;读入选择的链轮插入角度值。
(defun B_SPROCKET_ANGLE_INPUT
(
/
)
(setq B_sprocket_angle (* 0.017453292 (atof (get_tile "B_SPROCKET_ANGLE_DCL"))))
);end-B_SPROCKET_ANGLE_INPUT
;;读入已选择或缺省的链轮视图。
(defun B_SPROCKET_DCL_DEFAULT_VIEW
(
/
)
(if (= B_sprocket_view 10401)
(progn
(B_SPROCKET_SLIDE_STAR "B_SPROCKET_FACE" "B_SPROCKET" "B_SPROCKET_VIEW_DCL")
(set_tile "B_SPROCKET_VIEW_S_DCL" "0")
(mode_tile "B_SPROCKET_ANGLE_DCL" 1)
(mode_tile "B_SPROCKET_ANGLE_S_DCL" 1)
);end-progn
(progn
(B_SPROCKET_SLIDE_STAR "B_SPROCKET_FLANK" "B_SPROCKET" "B_SPROCKET_VIEW_DCL")
(set_tile "B_SPROCKET_VIEW_S_DCL" "1")
(mode_tile "B_SPROCKET_ANGLE_DCL" 0)
(mode_tile "B_SPROCKET_ANGLE_S_DCL" 0)
);end-progn
);end-if
);end-B_SPROCKET_DCL_DEFAULT_VIEW
;;读入已选择或缺省的链轮所用链型号。
(defun B_SPROCKET_DCL_DEFAULT_CHAIN
(
/
)
(set_tile "B_SPROCKET_CHAIN_DCL" B_sprocket_chain_size)
(if (null B_NO_LIST) (load "B_NO_LIST"))
(set_tile "B_SPROCKET_CHAIN_S_DCL" (itoa (B_NO_LIST B_sprocket_chain_size B_sprocket_chain_dat_list)))
);end-B_SPROCKET_DCL_DEFAULT_CHAIN
;;读入已选择或缺省的链轮齿数。
(defun B_SPROCKET_DCL_DEFAULT_NOTEETH
(
/
)
(princ)
(set_tile "B_SPROCKET_NOTEETH_DCL" (itoa B_sprocket_noteeth))
(if (null B_NO_LIST) (load "B_NO_LIST"))
(set_tile "B_SPROCKET_NOTEETH_S_DCL" (itoa (B_NO_LIST B_sprocket_noteeth B_sprocket_noteeth_list)))
);end-B_SPROCKET_DCL_DEFAULT_NOTEETH
(defun B_SPROCKET_MAKE_LAYER
(
/
B_sprocket_layer
B_lay_exist
)
(cond
((= B_sprocket_shaft_view 10411)
(setq B_sprocket_layer (strcat "L_SPROCKET-" B_sprocket_chain_size "_" (itoa (fix B_sprocket_noteeth)) "_" (itoa (fix B_sprocket_width)) "-DRIVER"))
);end-10411
((= B_sprocket_shaft_view 10412)
(setq B_sprocket_layer (strcat "L_SPROCKET-" B_sprocket_chain_size "_" (itoa (fix B_sprocket_noteeth)) "_" (itoa (fix B_sprocket_width)) "-BEARTWO"))
);end-10412
((= B_sprocket_shaft_view 10413)
(setq B_sprocket_layer (strcat "L_SPROCKET-" B_sprocket_chain_size "_" (itoa (fix B_sprocket_noteeth)) "_" (itoa (fix B_sprocket_width)) "-BEARONE"))
);end-10413
);end-cond
(setq B_lay_exist (tblsearch "layer" B_sprocket_layer))
(if (/= B_lay_exist nil)
(setvar "CLAYER" B_sprocket_layer)
(command "layer" "M" B_sprocket_layer "C" "190" "" "")
);end-if
(princ)
);end-B_SPROCKET_MAKE_LAYER(defun B_SPROCKET_SET_BEGIN
(
/
)
(setq B_sprocket_view 10401)
(setq B_sprocket_shaft_view 10411)
(setq B_sprocket_what_shaft_driver 10450)
(setq B_sprocket_what_shaft_beartwo 10460)
(setq B_sprocket_what_shaft_bearone 10470)
(setq B_sprocket_center '(0.0 0.0 0.0))
(setq B_sprocket_center_x 0.0)
(setq B_sprocket_center_y 0.0)
(setq B_sprocket_center_z 0.0)
(setq B_sprocket_chain_size "08B")
(if (null B_NO_LIST) (load "B_NO_LIST"))
(setq B_sprocket_chain_data_n (B_NO_LIST B_sprocket_chain_size B_sprocket_chain_dat_list))
(setq B_sprocket_chain_p 12.7)
(setq B_sprocket_chain_d1 8.51)
(setq B_sprocket_chain_b1 7.75)
(setq B_sprocket_chain_h1 12.07)
(setq B_sprocket_chain_pt 13.92)
(setq B_sprocket_chain_kn 17.8)
(setq B_sprocket_noteeth 11)
(setq B_sprocket_angle 0.0)
(setq B_sprocket_width 0.0)
(setq B_sprocket_outdia 0.0)
(setq B_sprocket_shaft_bearing_two_dy 0.0)
(setq B_sprocket_shaft_bearing_two_dw 0.0)
(setq B_sprocket_shaft_bearing_two_dl 0.0)
(setq B_sprocket_shaft_bearing_one_dy 0.0)
(setq B_sprocket_shaft_bearing_one_dw 0.0)
(setq B_sprocket_shaft_bearing_one_dl 0.0)
(setq B_sprocket_shaft_driver_d 0.0)
(B_SPROCKET_COUNT)
);end-B_SPROCKET_SET_BEGIN
(defun B_SPROCKET_SHAFT_DCL_DEFAULT_VIEW
(
/
)
(B_SPROCKET_SLIDE_STAR "B_SPROCKET_SHAFT_DRIVER" "B_SPROCKET_SHAFT" "B_SPROCKET_SHAFT_DRIVER_DCL")
(B_SPROCKET_SLIDE_STAR "B_SPROCKET_SHAFT_BEARING_TWO" "B_SPROCKET_SHAFT" "B_SPROCKET_SHAFT_BEARING_TWO_DCL")
(B_SPROCKET_SLIDE_STAR "B_SPROCKET_SHAFT_BEARING_ONE" "B_SPROCKET_SHAFT" "B_SPROCKET_SHAFT_BEARING_ONE_DCL")
(cond
((= B_sprocket_shaft_view 10411)
(B_SPROCKET_HILITE B_SPROCKET_SHAFT_DRIVER_DCL)
);end-10411
((= B_sprocket_shaft_view 10412)
(B_SPROCKET_HILITE B_SPROCKET_SHAFT_BEARING_TWO_DCL)
);end-10412
((= B_sprocket_shaft_view 10413)
(B_SPROCKET_HILITE B_SPROCKET_SHAFT_BEARING_ONE_DCL)
);end-10413
);end-cond
);end-B_SPROCKET_SHAFT_DCL_DEFAULT_VIEW
(defun B_SPROCKET_DCL_DEFAULT
(
/
)
(B_SPROCKET_CHAIN_SET)
(B_SPROCKET_NOTEETH_LIST_SET)
(if B_sprocket_view
(B_SPROCKET_DCL_DEFAULT_VIEW)
);end-if
(if B_sprocket_shaft_view
(B_SPROCKET_SHAFT_DCL_DEFAULT_VIEW)
);end-if
(if B_sprocket_center
(progn
(set_tile "B_SPROCKET_CENTER_X_DCL" (rtos B_sprocket_center_x))
(set_tile "B_SPROCKET_CENTER_Y_DCL" (rtos B_sprocket_center_y))
(set_tile "B_SPROCKET_CENTER_Z_DCL" (rtos B_sprocket_center_z))
);end-cond
);end-if
(if B_sprocket_angle
(set_tile "B_SPROCKET_ANGLE_DCL" (rtos (* 57.29577951 B_sprocket_angle)))
);end-if
(if B_sprocket_chain_size
(B_SPROCKET_DCL_DEFAULT_CHAIN)
);end-if
(if B_sprocket_noteeth
(B_SPROCKET_DCL_DEFAULT_NOTEETH)
);end-if
(if B_sprocket_width
(set_tile "B_SPROCKET_WIDTH_DCL" (rtos B_sprocket_width))
);end-if
(if B_sprocket_outdia
(set_tile "B_SPROCKET_OUTDIA_DCL" (rtos B_sprocket_outdia))
);end-if
);end-B_SPROCKET_DCL_DEFAULT
(defun B_SPROCKET_SHAFT_DRIVER_DCL_DEFAULT
(
/
)
(if B_sprocket_shaft_driver_d
(set_tile "B_SPROCKET_SHAFT_DRIVER_D_DCL" (rtos B_sprocket_shaft_driver_d))
);end-if
);end-B_SPROCKET_SHAFT_DRIVER_DCL_DEFAULT
(defun B_SPROCKET_SHAFT_BEARING_TWO_DCL_DEFAULT
(
/
)
(if B_sprocket_shaft_bearing_two_dy
(set_tile "B_SPROCKET_SHAFT_BEARING_TWO_DY_DCL" (rtos B_sprocket_shaft_bearing_two_dy))
);end-if
(if B_sprocket_shaft_bearing_two_dw
(set_tile "B_SPROCKET_SHAFT_BEARING_TWO_DW_DCL" (rtos B_sprocket_shaft_bearing_two_dw))
);end-if
(if B_sprocket_shaft_bearing_two_dl
(set_tile "B_SPROCKET_SHAFT_BEARING_TWO_DL_DCL" (rtos B_sprocket_shaft_bearing_two_dl))
);end-if
);end-B_SPROCKET_SHAFT_BEARING_TWO_DCL_DEFAULT
(defun B_SPROCKET_SHAFT_BEARING_ONE_DCL_DEFAULT
(
/
)
(if B_sprocket_shaft_bearing_two_dy
(set_tile "B_SPROCKET_SHAFT_BEARING_ONE_DY_DCL" (rtos B_sprocket_shaft_bearing_one_dy))
);end-if
(if B_sprocket_shaft_bearing_two_dw
(set_tile "B_SPROCKET_SHAFT_BEARING_ONE_DW_DCL" (rtos B_sprocket_shaft_bearing_one_dw))
);end-if
(if B_sprocket_shaft_bearing_two_dl
(set_tile "B_SPROCKET_SHAFT_BEARING_ONE_DL_DCL" (rtos B_sprocket_shaft_bearing_one_dl))
);end-if
);end-B_SPROCKET_SHAFT_BEARING_ONE_DCL_DEFAULT
(defun B_SPROCKET_ACCEPT
(
/
)
(cond
((and (= B_sprocket_what_shaft_driver 10450) (= B_sprocket_what_shaft_beartwo 10460) (= B_sprocket_what_shaft_bearone 10470))
(mode_tile "B_SPROCKET_SHAFT_DRIVER_DCL" 2)
(set_tile "error" "请输入轴心数据")
);end-0
(( B_sprocket_what 2)
(if (not (new_dialog "B_SPROCKET" B_sprocket_id))
(exit)
);end-if
(B_SPROCKET_DCL_DEFAULT)
(action_tile "B_SPROCKET_VIEW_DCL" "(B_SPROCKET_SLIDE_CHANGE) (B_SPROCKET_HILITE B_SPROCKET_VIEW_DCL)")
(action_tile "B_SPROCKET_VIEW_S_DCL" "(B_SPROCKET_SLIDE_CHANGE) (B_SPROCKET_HILITE B_SPROCKET_VIEW_DCL)")
(action_tile "B_SPROCKET_CHAIN_DCL" "(B_SPROCKET_CHAIN_INPUT) (B_SPROCKET_COUNT)")
(action_tile "B_SPROCKET_CHAIN_S_DCL" "(B_SPROCKET_CHAIN_SELECTION) (B_SPROCKET_COUNT)")
(action_tile "B_SPROCKET_NOTEETH_DCL" "(B_SPROCKET_NOTEETH_INPUT) (B_SPROCKET_COUNT)")
(action_tile "B_SPROCKET_NOTEETH_S_DCL" "(B_SPROCKET_NOTEETH_SELECTION) (B_SPROCKET_COUNT)")
(action_tile "B_SPROCKET_WIDTH_DCL" "(setq B_sprocket_width (atof (get_tile $key)))")
(action_tile "B_SPROCKET_OUTDIA_DCL" "(setq B_sprocket_outdia (atof (get_tile $key)))")
(action_tile "B_SPROCKET_GROOVE_DCL" "(B_SPROCKET_GROOVE_INPUT)")
(action_tile "B_SPROCKET_FIGURE_DCL" "(B_SPROCKET_FIGURE_INPUT)")
(action_tile "B_SPROCKET_NUMBERAITON_DCL" "(B_SPROCKET_NUMBERAITON)")
(action_tile "B_SPROCKET_SHAFT_DRIVER_DCL" "(B_SPROCKET_HILITE B_SPROCKET_SHAFT_DRIVER_DCL) (setq B_sprocket_shaft_view 10411) (B_SPROCKET_SHAFT_DRIVER)")
(action_tile "B_SPROCKET_SHAFT_BEARING_TWO_DCL" "(B_SPROCKET_HILITE B_SPROCKET_SHAFT_BEARING_TWO_DCL) (setq B_sprocket_shaft_view 10412) (B_SPROCKET_SHAFT_BEARING_TWO)")
(action_tile "B_SPROCKET_SHAFT_BEARING_ONE_DCL" "(B_SPROCKET_HILITE B_SPROCKET_SHAFT_BEARING_ONE_DCL) (setq B_sprocket_shaft_view 10413) (B_SPROCKET_SHAFT_BEARING_ONE)")
(action_tile "B_SPROCKET_CENTER_DCL" "(done_dialog 4)")
(action_tile "B_SPROCKET_CENTER_X_DCL" "(B_SPROCKET_CENTER_INPUT)")
(action_tile "B_SPROCKET_CENTER_Y_DCL" "(B_SPROCKET_CENTER_INPUT)")
(action_tile "B_SPROCKET_CENTER_Z_DCL" "(B_SPROCKET_CENTER_INPUT)")
(action_tile "B_SPROCKET_ANGLE_S_DCL" "(done_dialog 3)")
(action_tile "B_SPROCKET_ANGLE_DCL" "(B_SPROCKET_ANGLE_INPUT)")
(action_tile "cancel" "(done_dialog 0)")
(action_tile "accept" "(B_SPROCKET_ACCEPT)")
(setq B_sprocket_what (start_dialog))
(cond
((= B_sprocket_what 4)
(initget 1)
(setq B_sprocket_center (getpoint "\n插入点: ")
B_sprocket_center_x (car B_sprocket_center)
B_sprocket_center_y (cadr B_sprocket_center)
B_sprocket_center_z (caddr B_sprocket_center)
)
);end-4
((= B_sprocket_what 3)
(setq B_sprocket_angle (getorient "请输入插入角度: "))
);end-3
);end-cond
);end-while
);end-B_SPROCKET_ACTION_TILE
(defun B_SPROCKET
(
/
B_sprocket_old_cmd;保存系统变量CMDECHO用
B_sprocket_filletrad;保存系统变量FILLETRAD用
B_current_layer;保存当前层变量
B_sprocket_id;数据文件标号
B_sprocket_chain_date_file;数据文件名变量
B_sprocket_center;插入点变量
B_sprocket_center_x;插入点X坐标变量
B_sprocket_center_y;插入点Y坐标变量
B_sprocket_center_z;插入点Z坐标变量
B_sprocket_angle;角度变量
B_sprocket_chain_dat_list;返回链型号数据表
B_sprocket_chain_size_line;返回选中链型号的参数表
B_sprocket_chain_size;返回选中链型号
B_sprocket_chain_data_n;返回选中链型号-表中
B_sprocket_chain_p;返回选中链节距
B_sprocket_chain_d1;返回选中链滚子直径
B_sprocket_chain_b1;返回选中链内节内宽
B_sprocket_chain_h1;返回选中链条通道高度
B_sprocket_chain_pt;返回选中链排距
B_sprocket_chain_kn;返回选中链抗拉载荷
B_sprocket_noteeth;链轮齿数变量
B_sprocket_noteeth_list;链轮齿数表变量
B_sprocket_width;链轮宽度变量
B_sprocket_outdia;链轮齿侧凸弦直径变量
B_sprocket_numberation_p;返回选中链节距
B_sprocket_numberation_d;返回链轮分度圆直径
B_sprocket_numberation_da;返回链轮齿顶圆直径
B_sprocket_numberation_damax;返回链轮齿顶圆直径最大值
B_sprocket_numberation_damin;返回链轮齿顶圆直径最小值
B_sprocket_numberation_df;返回链轮齿根圆直径
B_sprocket_numberation_ha;返回链轮分度圆齿弦高
B_sprocket_numberation_hamax;返回链轮分度圆齿弦高最大值
B_sprocket_numberation_hamin;返回链轮分度圆齿弦高最小值
B_sprocket_numberation_dg;返回链轮齿侧凸缘直径
B_sprocket_numberation_mr;返回链轮量柱测量距
B_sprocket_groove_r1;返回链轮齿沟圆弧半径
B_sprocket_groove_a2;返回链轮齿沟半角
B_sprocket_groove_m;返回链轮工作段圆弧中心坐标-X
B_sprocket_groove_t;返回链轮工作段圆弧中心坐标-Y
B_sprocket_groove_r2;返回链轮工作段圆弧半径
B_sprocket_groove_beita;返回链轮工作段圆弧中心角
B_sprocket_groove_w;返回链轮齿顶圆弧中心坐标-X
B_sprocket_groove_v;返回链轮齿顶圆弧中心坐标-Y
B_sprocket_groove_gama;返回链轮齿形半角
B_sprocket_groove_r3;返回链轮齿顶圆弧半径
B_sprocket_groove_bc;返回链轮工作段直线部分长度
B_sprocket_groove_h;返回链轮e点至齿沟圆弧中心料攥的距离
B_sprocket_figure_bf1;返回链轮齿宽
B_sprocket_figure_ba;返回链轮齿侧倒角
B_sprocket_figure_rx;返回链轮齿侧半径
B_sprocket_figure_h
B_sprocket_figure_ra
B_sprocket_what;窗口循环变量
B_sprocket_last_slide;中间变量
B_sprocket_tile;中间变量
B_sprocket_view;视图选择变量，主视图:10401,侧视图:10402
B_sprocket_shaft_view;心轴式样选择变量 ,驱动:10411,双轴承:10412,单轴承:10413
B_sprocket_what_groove;齿槽形状判断变量,已设：10421，未设：10420
B_sprocket_what_figure;轴向齿廓判断变量,已设：10431，未设：10430
B_sprocket_what_numberaition;计算参数判断变量,已设：10441，未设：10440
B_sprocket_what_shaft_driver;轴心判断变量1 ,已设：10451，未设：10450
B_sprocket_what_shaft_beartwo;轴心判断变量2 ,已设：10461，未设：10460
B_sprocket_shaft_bearing_two_dy;双轴承轴心轴承外径变量
B_sprocket_shaft_bearing_two_dw;双轴承轴心轴承宽度变量
B_sprocket_shaft_bearing_two_dl;双轴承轴心轴承通径变量
B_sprocket_what_shaft_bearone;轴心判断变量3 ,已设：10461，未设：10470
B_sprocket_shaft_bearing_one_dy;单轴承轴心轴承外径变量
B_sprocket_shaft_bearing_one_dw;单轴承轴心轴承宽度变量
B_sprocket_shaft_bearing_one_dl;单轴承轴心轴承通径变量
)
(setq B_sprocket_old_cmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq B_sprocket_id (load_dialog "B_SPROCKET"));装入B_DRAWING.DCL
(setq B_sprocket_chain_date_file "B_SPROCKET_CHAIN.DAT")
(if (null B_DATE_LIST_ONE) (load "B_DATE_LIST_ONE"))
(setq B_sprocket_chain_dat_list (B_DATE_LIST_ONE B_sprocket_chain_date_file));装入链轮链型号表
(B_SPROCKET_NOTEETH_LIST_BEGIN);装入链轮齿数表
(B_SPROCKET_ACTION_TILE)
(if (= B_sprocket_what 1)
(progn
(setq B_current_layer (getvar "CLAYER"));保存当前图层
(setq B_sprocket_filletrad (getvar "FILLETRAD"))
(B_SPROCKET_MAKE_LAYER);创建链轮图层
(cond
((= B_sprocket_view 10401);画主视图
(B_SPROCKET_DRAW_FACE_CHAIN)
(B_SPROCKET_DRAW_FACE_CENTER)
(B_SPROCKET_DRAW_FACE_SHAFT)
(princ)
);cond-10401
((= B_sprocket_view 10402);画侧视图
(B_SPROCKET_DRAW_FLANK_CHAIN)
(B_SPROCKET_DRAW_FLANK_CENTER)
(B_SPROCKET_DRAW_FLANK_SHAFT)
(princ)
);cond-10402
);end-cond
(setvar "FILLETRAD" B_sprocket_filletrad)
(setvar "CLAYER" B_current_layer);返回当前图层
);end-progn
);end-if
(unload_dialog B_sprocket_id)
(setvar "CMDECHO" B_sprocket_old_cmd)
(princ)
);end-B_SPROCKET |
|
置顶卡
