分享一個自己寫的鈑金沖頭程式

aris63 · 发表于 2007-4-22 12:12:42

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

這個要加在 sha_stamp_functions.lsp 這檔案裡頭
初始目錄位置在安裝OSD程式路徑內,請自行尋找 (我自己的位置完全跟安裝預設位置不一樣,這是可以規劃設定的)

(defun sha-grnd-profile
  (&key
depth
stamp_dir
thickness
resolution
&allow-other-keys
  )
  (let* (
      (tool-wp  (sha-tool-wp))
      )
      (create_workplane :new
                        :name tool-wp
                        :world_origin
      )
      ;********* create Profile **********
      (CIRCLE :CEN_DIA  0,0 10)

      ;******** create Adjustpoints ******
      (C_POINT
         0,0
         (gpnt2d 0 5)
         (gpnt2d 0 -5)
         (gpnt2d 5 5)
         (gpnt2d 5 0)
         (gpnt2d 5 -5)
         (gpnt2d -5 5)
         (gpnt2d -5 0)
         (gpnt2d -5 -5)
      )
      (setq result (sha-profile-of-wp tool-wp))
      (delete_3d (sha-absolute-name tool-wp))
      result
  )
)
(defun sha-grnd-tool
  (&key
depth
stamp_dir
thickness
resolution
&allow-other-keys
  )
  (let ((result nil)
      (tool-part (sha-tool-part))
      (tool-wp (sha-tool-wp))
   )
   (unless (or (< depth resolution))
            (if (equal stamp_dir :DOWN)          ;create a new wp for direction DOWN
                  (create_workplane :new
                                    :name tool-wp
                                    :pt_dir :origin (gpnt3d 0 0 (- thickness))
                                    :normal :neg_z
                                    :u_dir :neg_x
                  )
                  (create_workplane :new          ;create a new wp for direction UP
                                    :name tool-wp
                                    :pt_dir :origin (gpnt3d 0 0 0)
                                    :normal :z
                                    :u_dir :x
                  )
            )
      ;******** create tool part profile******
            (CIRCLE :CEN_DIA  0,0 10)
            (extrude
               :part tool-part
               :direction :-W
   :distance  thickness
            )
            (delete_2d :all_2d)
            (CIRCLE :CEN_DIA  0,0 9)
            (CIRCLE :CEN_DIA  0,0 10)
            (LINE :TWO_POINTS  (gpnt2d -1.2 -3.9 )(gpnt2d 1.2 -3.9 ))
            (LINE :TWO_POINTS  (gpnt2d -1.2 -3.3 )(gpnt2d 1.2 -3.3 ))
            (ARC :3_POS  -1.2,-3.9  -1.2,-3.3  -1.5,-3.6)
            (ARC :3_POS  1.2,-3.9  1.2,-3.3  1.5,-3.6 )
            (LINE :TWO_POINTS  (gpnt2d -2.2 -2.1 )(gpnt2d 2.2 -2.1 ))
            (LINE :TWO_POINTS  (gpnt2d -2.2 -1.5 )(gpnt2d 2.2 -1.5 ))
            (ARC :3_POS  -2.2,-2.1  -2.2,-1.5  -2.5,-1.8)
            (ARC :3_POS  2.2,-2.1  2.2,-1.5  2.5,-1.8 )
            (LINE :TWO_POINTS  (gpnt2d -3.7 -0.3 )(gpnt2d 3.7 -0.3 ))
            (LINE :TWO_POINTS  (gpnt2d -3.7 0.3 )(gpnt2d -0.3 0.3 ))
            (LINE :TWO_POINTS  (gpnt2d 0.3 0.3 )(gpnt2d 3.7 0.3 ))
            (LINE :TWO_POINTS  (gpnt2d -0.3 0.3 )(gpnt2d -0.3 3.5 ))
            (LINE :TWO_POINTS  (gpnt2d 0.3 0.3 )(gpnt2d 0.3 3.5 ))
            (ARC :3_POS  -3.7,-0.3  -3.7,0.3  -4.0,0)
            (ARC :3_POS  3.7,-0.3  3.7,0.3  4.0,0 )
            (ARC :3_POS  -0.3,3.5  0.3,3.5  0,3.8 )
      ;******** create tool part ******
            (mill
   :distance  depth
            )
            (setq result (sha-body-of-tool-part tool-part))
            (delete_3d (sha-absolute-name tool-wp))
            (delete_3d tool-part)
   )
   result
)
)

下面這個要放在 demoshop.lsp 檔案裡頭 stamp tools 之後

(sha-define-shop-table "stamps"
:TABLE-TITLE "Stamp Types"
.
.
("grnd" "接地符號"  ""  ) ;加上這一行
.
.
:KEY (:TOOL_TYPE)
:DISPLAY (:DESCRIPTION1 :DESCRIPTION2 :FACTORY )
:FLAT-TEXT (:TOOL_TYPE)
:HELP "sha_stamps"
:BROWSER-ICON  "icon_stamps"
)

之後下面再接底下這些敘述

;;接地符號工具
(sha-define-shop-table "grnd"
  :TABLE-TITLE "接地符號"
  :COLUMNS
(:DEPTH :STAMP_DIR  :MIN_THICK :MAX_THICK  :TOOL_ID :DESCR :PREFERENCE :ADVICE)
  :COLUMN-NAMES
( "請勿更改" "Stamp Dir" "Min Thick"  "Max Thick" "Tool Id"  "Descr"  "Pref"  "Advice")
  :UNITS
( mm  nil    :mm       :mm    nil       nil    nil    nil)
  :CONTENTS
(
   (0.01 :UP 0.8 1.6 "13404" "6669"  :PREF "-" )
   (0.01 :DOWN 0.8 1.6 "13404" "6669"  :PREF "-" )
   )
:KEY (:DEPTH :STAMP_DIR)
:DISPLAY (:DEPTH :STAMP_DIR :PREFERENCE :ADVICE)
:FLAT-TEXT (:TOOL_ID)
:HELP "sha_grnd"
; unique, not displayable column entries
:PROF_FNC sha-grnd-profile
:TOOL_FNC sha-grnd-tool
)

說明

OSD 鈑金需要用COMMON lisp 來寫 stamp tools 才能避免鈑金厚度問題  punch tools 則可不用

[ 本帖最后由 aris63 于 2007-4-22 12:13 编辑 ]

TEST-STEVEN · 发表于 2007-5-16 11:53:09

不错,2次开发总是让我头疼

gongchangyutian · 发表于 2007-9-15 23:11:11

好!做的不错,谢谢分享!

good

vcmasm2008 · 发表于 2007-9-16 23:15:50

aris63, 有没有二次开发的资料, 共享一下。

william_wang · 发表于 2007-10-15 22:14:39

用了4年此软件，俺还不知有此功能

william99120 · 发表于 2007-10-15 22:55:48

好东东，开了眼界good

chen780404 · 发表于 2010-8-29 11:13:45

好东西啦，下来用用。

		自动登录	找回密码
密码			注册

通知

[分享] 分享一個自己寫的鈑金沖頭程式

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

谢谢分享!