【原创】AUTOCAD二次开发，顺便说一下模具设计过程

szsyt wrote:
先放一日期LSP，可根据系统日期自动插入。

  
我有一个打印的时候更新日期的，比较实用，可以看到是哪天打印的图！

很感兴趣
  
不知能否提供下载啊

LSP模架的自动是首先设定好模架上各板参数及标准位置，这可能花些时间，一定要考虑周全，然后定义函数绘制各个标准件的平面及切图，要单独定义，将各个视图设定为块，并设定好图层。再绘制模架平面图时用函数插入这些块，位置是根据参数驱动。
;;** define  S.H.C.S. plan view
(defun shcspv (d op name / d name d1 len lt s shcs1 shcsent)
       (cond
      ((= d 4) (setq d1 7 s 3))
      ((= d 5) (setq d1 8.5 s 4))
      ((= d 6) (setq d1 10 s 5))
      ((= d 8) (setq d1 13 s 6))
     ((= d 10) (setq d1 16 s 8))
     ((= d 12) (setq d1 18 s 10))
     ((= d 14) (setq d1 22 s 12))
     ((= d 16) (setq d1 24 s 14))
     ((= d 20) (setq d1 30 s 17))
     ((= d 24) (setq d1 36 s 19)))
     (setq len (strlen name)
      lt (substr name len 1))
       (if (= lt "b")
       (command "LAYER" "SET" "shcs" ""))
       (command "CIRCLE" op "D" d1)
       (setq shcs1 (ssadd)
       shcsent (entlast))
       (if (= lt "b")
       (command "CIRCLE" op "D" d))
       (command "OLYGON" "6" op "C" (/ s 2.0))
       (command "LAYER" "SET" "1" "")  
     (command "LINE" (list (- (car op) (/ (* d1 1.1) 2.0)) (cadr op))
         (list (+ (car op) (/ (* d1 1.1) 2.0)) (cadr op)) "")
     (command "LINE" (list (car op) (- (cadr op) (/ (* d1 1.1) 2.0)))
         (list (car op) (+ (cadr op) (/ (* d1 1.1) 2.0))) "")
   (while (/= shcsent nil)
    (setq shcs1 (ssadd shcsent shcsss1)
    shcsent (entnext shcsent)))
    (command "LAYER" "SET" "shcs" "")
    (command "BLOCK" name op shcs1 ""));* end function
不对之处，还望指正。

cy_sun wrote:
很感兴趣
  
不知能否提供下载啊

既然idesign兄放到上面，当然可以了，
其实我也想下载，:I
idesign兄，不好意思，替你答应别人，你不会让我难堪吧？不过我没关系
到时是使各位仁兄失望就不知是否原谅我了。

模具设计的一般过程，不足之处，望补充。
1.拿到产品图后，先仔细的看完，一定要仔细。然后根据客户的要求及产品的外观功能等要考虑产品的公差表面要求等等。
2.考虑PL面的走向以及前后模的分型，要不影响外观 保证精度 便于加工
产品的去留方向。
3.模具的型腔数及排部，这一步考要虑浇注系统 滑块 镶件等，具体的过程中，要进行必要的调整。
4.侧向分型与抽芯的设计。
5.浇注系统的设计，流道尽量短，进胶平衡，避免融接痕 射纹，胶口的去除等。
6.顶出的设计，顶针 司筒 推板 扁顶针等机械顶出以及油压 气动顶出。
顶出点尽量放在脱模困难处 承受力最大处。
7.冷却的设计，
8.材料的选用，
9.调用idesign兄的标准模架，放产品图到模架（注意mirror产品 scale缩水）再调标准件放上去，就好象搭积木一样，一个一个放上。OK大功告成。idesign兄，审核签字。
（记的加分，敲全拼很累）
  
:I

szsyt wrote:
[quote]cy_sun wrote:
很感兴趣
  
不知能否提供下载啊

既然idesign兄放到上面，当然可以了，
其实我也想下载，:I
idesign兄，不好意思，替你答应别人，你不会让我难堪吧？不过我没关系
到时是使各位仁兄失望就不知是否原谅我了。 [/quote]
  
哈哈，真有你的
期待中……

to: szsyt   
  
分是加了，过程写的还差不多，不过顺序好像不对啊！你最好再整理一次！
  
提供下载估计是不会的了。。。

既然叫大家看了，又不能下载，使我们心痒痒的，这不太好吧，
还是提供下载吧，大家会感激你的，更会努力支持你的网站的。

同意楼上的意见，哈哈

上面已经更新了一些！