請大俠幫我寫一個螺絲繪製的程序!

spring

請大俠幫我寫一個螺絲繪製的程序

;;;______________________
spring:dialog{
:row{
:text{label="螺絲大小";}
:popup_list{list="M8";fixed_width=true;}
:text{label="螺絲長度";}
:popup_list{list="40";fixed_width=true;}
}
:text{}
:row{
: column {
:text{label= "加工模板";}
:popup_list{list="下模板(DIE)";width=15;}
}
: column {
:text{label= "加工孔類型";}
:popup_list{list="頭部通孔";width=15;}
}
: column {
:text{label= "加工孔大小";}
:edit_box{}
}
}
:text{}
ok_cancel;
}

前生

这些都是模具设计上比较成熟的东西了.还这么费劲的写.没什么意思了.让公司里买上一套二套的就可以了!

spring

前生大俠,那你能貼出來嗎!!!
  我的Email有沒有收到,前兩天發的.

spring

經過兩天的努力,終於有了點進展,現在的難題是如何取得對話框的值,現在的
(defun TES ()
  (setq cir_size 4.5)
  (setq cir_size1 7)
  (while
    (setq p1 (getpoint "\nInsert point"))
     (MAKECIR p1 cir_size)
     (MAKECIR p1 cir_size1)
  )
)
是固定了的
;;;____________________________
(DEFUN QQQ ()
  (START_IMAGE "hsc")
  (FILL_IMAGE 0 0 (DIMX_TILE "hsc") (DIMY_TILE "hsc") -2)
  (END_IMAGE)
  (START_IMAGE "hsc")
  (SLIDE_IMAGE 0 0 (DIMX_TILE "hsc") (DIMY_TILE "hsc") "h_sc")
  (END_IMAGE)
)
(defun QQ ()
  (setq fi "pl_list")
  (if (findfile (strcat fi ".dat"))
    (progn
      (setq fil (findfile (strcat fi ".dat")))
      (setq fel (list))
      (setq pe (open fil "r"))
      (setq en T)
      (while (/= en nil)
        (progn (setq en (READ-LINE pe))
               (setq fel (cons en fel))
        )
      )
      (close pe)
      (setq kic (reverse (cdr fel)))
    )
  )
)
(defun QQ1 ()
  (setq fi "ho_list")
  (if (findfile (strcat fi ".dat"))
    (progn
      (setq fil (findfile (strcat fi ".dat")))
      (setq fel (list))
      (setq pe (open fil "r"))
      (setq en T)
      (while (/= en nil)
        (progn (setq en (READ-LINE pe))
               (setq fel (cons en fel))
        )
      )
      (close pe)
      (setq kic1 (reverse (cdr fel)))
    )
  )
)
(defun QQ2 ()
  (setq fi "sc_size")
  (if (findfile (strcat fi ".dat"))
    (progn
      (setq fil (findfile (strcat fi ".dat")))
      (setq fel (list))
      (setq pe (open fil "r"))
      (setq en T)
      (while (/= en nil)
        (progn (setq en (READ-LINE pe))
               (setq fel (cons en fel))
        )
      )
      (close pe)
      (setq kic2 (reverse (cdr fel)))
    )
  )
)
(defun PL_LIS ()
  (start_list "pl_list1" 3)
  (mapcar (quote add_list) kic)
  (end_list)
  (start_list "pl_list2" 3)
  (mapcar (quote add_list) kic)
  (end_list)
  (start_list "pl_list3" 3)
  (mapcar (quote add_list) kic)
  (end_list)
  (start_list "pl_list4" 3)
  (mapcar (quote add_list) kic)
  (end_list)
  (start_list "pl_list5" 3)
  (mapcar (quote add_list) kic)
  (end_list)
)
(defun HO_LIS ()
  (start_list "ho_list1" 3)
  (mapcar (quote add_list) kic1)
  (end_list)
  (start_list "ho_list2" 3)
  (mapcar (quote add_list) kic1)
  (end_list)
  (start_list "ho_list3" 3)
  (mapcar (quote add_list) kic1)
  (end_list)
  (start_list "ho_list4" 3)
  (mapcar (quote add_list) kic1)
  (end_list)
  (start_list "ho_list5" 3)
  (mapcar (quote add_list) kic1)
  (end_list)
)
(defun SC_SIZE ()
  (start_list "sc_size" 3)
  (mapcar (quote add_list) kic2)
  (end_list)
)
(defun MAKECIR (p1 cir_size / eli)
  (setq        eli (list (cons 0 "CIRCLE")
                  (cons 10 p1)
                  (cons 40 cir_size)
            )
  )
  (entmake eli)
)
(defun TES ()
  (setq cir_size 4.5)
  (setq cir_size1 7)
  (while
    (setq p1 (getpoint "\nInsert point"))
     (MAKECIR p1 cir_size)
     (MAKECIR p1 cir_size1)
  )
)
(defun c:h_sc ()
  (QQ)
  (QQ1)
  (QQ2)
  (setq dh (load_dialog "h_sc.dcl"))
  (setq what_next 2)
  (setq cnt 1)
  (while (>= what_next 2)
    (if        (null (new_dialog "h_sc" dh))
      (exit)
    )
    (action_tile "accept" "(done_dialog 4)")
    (action_tile "cancel" "(done_dialog 0)")
    (action_tile "pl_list1" "(setq pl1 $value)")
    (PL_LIS)
    (HO_LIS)
    (SC_SIZE)
    (QQQ)
    (setq what_next (start_dialog))
    (cond
      ((= what_next 4)
       (TES)
      )
      ((= what_next 0)
       (prompt "\n***EXIT***")
      )
    )
  )
  (unload_dialog dh)
  (princ)
)
;;;___________________________________
                                        ;(setq pl1oi (atoi pl1))
                                        ;(if (/= pl1oi nil)
                                        ;(setq pl1o (- 1 pl1oi))
                                        ;)
                                        ;(setq pl1_kic(nth pl1o kic))
;;;_______________________________________
h_sc:dialog{label="h_sc";
:row{
:text{label="螺絲大小";}
:popup_list{key="sc_size";fixed_width=true;}
:text{label="螺絲長度";}
:popup_list{list="40";fixed_width=true;}
}
:text{}
:row{
: column {
:row{
: column {
:text{label= "加工模板";}
:popup_list{key="pl_list1";width=25;is_default=true;}
:popup_list{key="pl_list2";width=25;is_default=true;}
:popup_list{key="pl_list3";width=25;is_default=true;}
:popup_list{key="pl_list4";width=25;is_default=true;}
:popup_list{key="pl_list5";width=25;is_default=true;}
}
: column {
:text{label= "加工孔類型";}
:popup_list{key="ho_list1";width=25;is_default=true;}
:popup_list{key="ho_list2";width=25;is_default=true;}
:popup_list{key="ho_list3";width=25;is_default=true;}
:popup_list{key="ho_list4";width=25;is_default=true;}
:popup_list{key="ho_list5";width=25;is_default=true;}
}
: column {
:text{label= "加工孔大小";}
:edit_box{key="ho_size1";width=20;is_default=true;}
:edit_box{key="ho_size2";width=20;is_default=true;}
:edit_box{key="ho_size3";width=20;is_default=true;}
:edit_box{key="ho_size4";width=20;is_default=true;}
:edit_box{key="ho_size5";width=20;is_default=true;}
}
}
}
:image  {key="hsc";height = 10;width = 30;color = -2;}
}
:text{}
ok_cancel;
}
;;;_____________________________
頭部通孔
頭部沉頭孔
通孔
螺紋孔


;;;______________________________
M2
M3
M4
M5
M6
M8
M10
M12
M14
M16
M18
M20


spring