[LISP程序]：弹出式列表框自动列出零件现有尺寸系列表

lsjjm

弹出式列表框自动列出零件现有尺寸系列表
参数绘图中，多用对话框列出零件种类和尺寸系列让用户选择。
这里对话框的功能是提取零件种类的名称和尺寸大小的 ”字符串“， 程序还需要判断该种尺寸的零件是否存在， 如果不存在， 程序提示警告框。。。
下面的程序在对话框未关闭前即自动显示数据库所有现存的尺寸零件。
（本例的数据为S10043 ，S10078的LISP表数据）
[PHP]
(defun c:test  ()
  (setq elist (list "S10043" "S10026" "S10046" "S10048" "S10049"
                    "S10070" "S10071" "S10073" "S10078"))
  (eval (read (strcat "(" (car elist) ")")))
  (setq slist (mapcar '(lambda (i)(itoa (car i))) dlist))
  (if (findfile "dial.dcl")(setq index (load_dialog (findfile "dial.dcl"))))  
  (if (not (new_dialog "dend" index))(exit))
  (start_list "etype")
  (mapcar 'add_list elist)                                       
  (end_list)
  (start_list "size")
  (mapcar 'add_list slist)
  (end_list)
  (action_tile "etype"
                   "(setq estyle (nth (atoi (get_tile \"etype\")) elist))
                    (eval (read (strcat \"(\" estyle \")\")))
                    (setq slist (mapcar '(lambda (i)(itoa (car i))) dlist))
                    (start_list \"size\")
                    (mapcar 'add_list slist)
                    (end_list)")
  (action_tile "accept"
   "(setq estyle (nth (atoi (get_tile \"etype\")) elist)
             size (nth (atoi (get_tile \"size\")) slist))
      (done_dialog 1)")
  (action_tile "cancel" "(exit)")
  (start_dialog)
  (unload_dialog index)
)
(defun s10043 ()
  (setq dlist
    '((3 (0.45 0.845 0.68 0.585 0.68 0.585 0.755 0.625)
         (0.8 0.15 0.073 0.045 0.273 0.022 0.1754)
         (0 0.25 0.06 0.03 0.02 0.026 0.026 0 0.02 0.02)
         (30 3 20 3 20) "" 3 "64639 A")
      (6 (0.665 1.104 0.906 0.753 0.982 0.835 1.006 0.835 0.866 0 0.947 1.035)
         (1.295 0.15 0.07 0.055 0.36 0.026 0.189 0.11)
         (0 0.25 0.12 0.03 0.02 0.02 0.02 0 0.02 0.02 0.02 0.06)
         (30 3 20 3 20 30 30) "tap1" 4 "68270 X")
      (8 (0.785 1.23 1.02 0.873 1.107 0.961 1.13 0.961 0.961 0.99 1.059)
         (1.516 0.15 0.07 0.055 0.37 0.026 0.19 0.146)
         (0 0.25 0.125 0.03 0.02 0.02 0.02 0 0.02 0.02 0.02 0.06 0.02)
         (30 3 20 3 20 30 30) "tap1" 5 "68270 V")))
         ...
)
;
LISP数据文件：
(defun s10078 ()               
  (setq dlist
    '((12 (1.13 1.715 1.465 1.305 1.535 1.345 1.57 1.365 1.385 1.425 1.555)
          (2.2 0.15 0.1305 0.545 0.065 0.031 0.33)
          (0.02 0.25 0.06 0.03 0.02 0.02 0.02 0.015 0.02 0.02 0.02)
          (20 3 20) "" 5 "67466 R")
      (16 (1.375 2.061 1.836 1.612 1.859 1.612 1.883 1.643 1.663 1.693)
          (2.38 0.22 0.1525 0.62 0.037 0.046 0.36)
          (0.015 0.38 0.06 0.03 0.02 0.02 0.02 0.015 0.02 0.02 0.02)
          (17 3 20) "" 5 "67466 U")
      (32 (2.51 3.495 3.056 2.74 3.235 2.925 3.235 2.975 3.025 3.045 3.275)
          (3.41 0.31 0.228 0.908 0.136 0.06 0.5)
          (0.015 0.5 0.12 0.03 0.02 0.12 0.02 0.015 0.02 0.02 0.015)
          (30 3 20) "" 5 "67241 N")))
  (setq pro "ex10078")
)
;
对话框程序文件：
dend : dialog {key= "et";               
  : image { key="i"; width=10;  color=0;}
  : row {
    : text { label="Endstyle:"; key="es";}
    : popup_list { key="etype"; edit_width = 10;}
  }
  : popup_list { label="Size:"; key ="size"; edit_width = 4;}
  : edit_box {label = "Orientation:"; key = "angle"; value="0"; edit_width = 3; }
  spacer;
  : toggle {label = "Full Dimension"; key = "fu"; is_enabled= false;}
  ok_cancel;
  : row {
    : image { key = "im" ; width = 4; fixed_width= true;}
    : paragraph {
      : text_part { label = "Designed and Created"; alignment=right;}
      : text_part { label = "by Richard Liang"; alignment=right;}
    }
  }
}
[/PHP]

梦断江南

不懂机械，不过想看看效果，有没有演示？做一个吧

lsjjm

最初由 梦断江南 发布
[B]不懂机械，不过想看看效果，有没有演示？做一个吧 [/B]

LISP程序，数据，DCL对话框文件都贴出来啦，加载运行即可。