[LISP程序]：弯管参数设计及绘图程序实例

lsjjm

弯管参数设计及绘图程序实例:  
利用对话框选择弯管的型号与规格(尺寸)及管子开始端的方位.
标准, 非标准型号弯管设计绘制功能.当弯角=0时即为直管.开始端方向长度.
壁厚, 外径尾端与开始端高差

(defun c:test ()
  (setq index (load_dialog (findfile "dial.dcl")))
  (if (not (new_dialog "dtube" index))(exit))
  (action_tile
    "accept" "(setq d1 (atof (get_tile \"wa\"))
                    d2 (atof (get_tile \"od\"))
                    l1 (atof (get_tile \"x\"))
                    l2 (atof (get_tile \"y\"))
                    r1 (atof (get_tile \"ch\"))
                    r2 (atof (get_tile \"br\"))
                    a1 (angtof (get_tile \"ca\"))
                    a2 (angtof (get_tile \"ba\")))
    (done_dialog)")   
  (action_tile "cancel" "(exit)")
  (start_dialog)
  (unload_dialog index)
  (setq p0 (getpoint "\nPick Start Point: "))
  (vl-cmdf "ucs" "n" p0 "")
  (if (> l2 0)
    (progn
      (setq p2 (list (- l1)(- l2))
            p1 (inters '(0 0) '(1 0) p2 (polar p2 a2 1) nil))
      (vl-cmdf "pline" '(0 0) p1 p2 "")
      (vl-cmdf "fillet" "r" r2 "fillet" "p" (entlast) ""))
    (progn
      (setq p2 (list (- l1) 0) a2 0)
      (vl-cmdf "line" '(0 0) p2 ""))   
  );
  (vl-cmdf "offset" (/ d2 2)(entlast)(polar '(0 0)(/ pi 2) 1) "")
  (vl-cmdf "offset" d2 (entlast)(polar '(0 0)(* 1.5 pi) 1) "")
  (vl-cmdf "offset" d1 (entlast)(polar '(0 0)(/ pi 2) 1) "")
  (vl-cmdf "offset" (- d2 d1 d1)(entlast) (polar '(0 0)(/ pi 2) 1) "")
  (vl-cmdf "lengthen" "de" 0.1 '(0 0) "")
  (vl-cmdf "lengthen" "de" 0.1 p2 "")
  (vl-cmdf "line" '(0 0)(list 0 (/ d2 2)) "" "line" '(0 0)(list 0 (- (/ d2 2))) "")
  (vl-cmdf "line" p2 (polar p2 (+ a2 (/ pi 2))(/ d2 2)) "")
  (vl-cmdf "line" p2 (polar p2 (- a2 (/ pi 2))(/ d2 2)) "")
)

dtube : dialog {label = "Tube-All Dimensions";key="dt";
  : edit_box {label="OD."; key = "od"; value="1.0"; edit_width = 4;}
  : edit_box {label="Wall:"; key = "wa"; value="0.12"; edit_width = 4;}
  : edit_box {label="L1:"; key = "x"; value="1.87"; edit_width = 4;}
  : edit_box {label="L2:"; key = "y";  value="1.87"; edit_width = 4;}
  : edit_box {label="Bang:"; key = "ba"; value="90"; edit_width = 4;}
  : edit_box {label="Rad:"; key = "br"; value="1.5"; edit_width = 4;}
  : edit_box {label="Chm:"; key = "ch"; value="0.04"; edit_width = 4;}
  : edit_box {label="Cang:"; key = "ca"; value="15"; edit_width = 4;}
  spacer;
  ok_only;
}