明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3307|回复: 4

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

[复制链接]
发表于 2003-7-13 22:47 | 显示全部楼层 |阅读模式
請大俠幫我寫一個螺絲繪製的程序

;;;______________________
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;
}

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2003-7-14 09:19 | 显示全部楼层

都是现成的东西



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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2003-7-14 12:22 | 显示全部楼层

前生大俠,那你能貼出來嗎!!!

前生大俠,那你能貼出來嗎!!!
  我的Email有沒有收到,前兩天發的.
 楼主| 发表于 2003-7-15 18:35 | 显示全部楼层

經過兩天的努力,終於有了點進展.

經過兩天的努力,終於有了點進展,現在的難題是如何取得對話框的值,現在的
(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

 楼主| 发表于 2003-7-15 18:38 | 显示全部楼层

附件

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 13:29 , Processed in 0.271015 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表