连续模设计相关技术及AutoCAD二次开发lisp

希望大家提出自己比较关心的功能好集中讨论
//
//      AUTOCAD 菜單檔 - D:\DIE-DES\menu\des.mnu
//      V1.4  2005-12-07  CHENJIAN
//      V1.3  2005-11-25  CHENJIAN
//      V1.2  2005-10-07  CHENJIAN
//      V1.1  2005-08     CHENJIAN   請不要修改!
//***MENUGROUP=輔助設計
***MENUGROUP=DESMENU

***POP15
ID_MyDES     [連續模設計(&A)]
ID_MyK       [拷貝到...(&K)]^C^C_K
ID_MyAC      [捕捉角度調整(&A)]^C^C_AC
ID_MySetGAP  [設置過孔間隙(&B)]^C^C_SETHOLEGAP
              [--]
ID_MySetall  [總體設定(&S)]^C^C_SETALL   
ID_MyZK      [展開計算(&Z)]^C^C_ZK
ID_MyZKL     [展開縣繪製(&D)]^C^C_ZKL
ID_MyLAYOUT  [排樣參考(&E)]^C^C_VIEWREFLAYOUT
ID_MyUSERX   [利用率計算(&U)]^C^C_USERx
              [--]
ID_Mylay     [建立圖層(&G)]^C^C_READLAY
ID_MyAUTOPLN [->模板外形生成(&H)]
ID_MyAUTOPLN1 [第一組(&A)]^C^C_PLANT1
ID_MyAUTOPLN2 [<-第二組(&B)]^C^C_PLANT2
ID_MyAUTOWX  [鑲件外形生成(&I)]^C^C_WX
              [--]
ID_MyCUTM    [->依板制做剪口孔(&L)]
ID_MyCUT1    [制做剪口01-01<可偏移>(&A)]^C^C_CUT1
ID_MyCUT2    [制做剪口01-02<可偏移>(&B)]^C^C_CUT2
ID_MyXCUT1   [制做剪口01-01<不可偏移>(&C)]^C^C_XCUT1
ID_MyXCUT2   [制做剪口01-02<不可偏移>(&D)]^C^C_XCUT2  
ID_MyXCUT    [<-切邊剪口<0層>(&E)]^C^C_CUTSIDE
ID_MyPGwx    [PG沖頭外形(&M)]^C^C_PGwx
ID_MySShape  [->成形孔佈置(&N)]
ID_MyShapeU1 [向下成形>07-05-1上模(&A)]^C^C_ShapeU1
ID_MyShapeU2 [<-向下成形>07-05-2上模(&B)]^C^C_ShapeU2
               [--]
ID_Mybend90  [90度折彎(&X)]^C^C_90
              [--]
ID_MyQJ      [快速串接(&J)]^C^C_J
ID_MyDESEO   [復縣偏單邊(&O)]^C^C_EO
ID_MyPUNCHKW [沖頭加扣位(&P)]^C^C_KW
ID_Mygg      [掛勾(扣位)沉頭(&Q)]^C^C_GG
ID_MyQx      [端點處垂線toPG(&R)]^C^C_QX
ID_MyAutocs  [統計圓數量(&C)]^C^C_CS
ID_Mycam     [鑽孔程式生成(&T)]^C^C_CAM
ID_MyGo      [運動模擬(&F)]^C^C_GO
              [--]
ID_MyEE      [->專家系統(&V)]
ID_MyEE01    [內六角螺絲參數(&A)]^C^C_EE01
ID_MyEE02    [翻孔設計標準(&B)]^C^C_EE02   
ID_MyEE03    [專業英語(&C)]^C^C_EE03   
ID_MyEE04    [衝壓模具技術魚骨圖(&D)]^C^C_EE04
ID_MyEE05    [衝壓模具設計檢查表(&E)]^C^C_EE05
ID_MyEE06    [<-參考資料1(&F)]^C^C_EE06
***POP14
ID_accessory [組件(&B)]
ID_MyLock    [->螺絲(&A)]
ID_MyDM4     [D-BM4(&A)]^C^C_D-BM4
ID_MyDM5     [D-BM5(&B)]^C^C_D-BM5
ID_MyL0      [01-M4(&C)]^C^C_01-M4
ID_MyL1      [01→03M8(&D)]^C^C_01-03M8
ID_MyL2      [02→01M5(&E)]^C^C_02-01M5
ID_MyL3      [06→05M5(&F)]^C^C_06-05M5
ID_MyL4      [06→05M6(&G)]^C^C_06-05M6
ID_MyL5      [07→M5(&H)]^C^C_07-M5
ID_MyL6      [08→07M5(&J)]^C^C_08-07M5
ID_MyL7      [09→07M8(&K)]^C^C_09-07M8   
ID_MyL8      [09→05M6(&L)]^C^C_09-05M6
ID_MyL9      [<-09→05M8(&M)]^C^C_09-05M8
ID_MyPin     [->定位銷(&B)]
ID_MyD1      [D-BC4(&A)]^C^C_D-BC4
ID_MyD2      [D-BC5(&B)]^C^C_D-BC5
ID_MyP1      [01→03φ8(&C)]^C^C_01-03D8
ID_MyP2      [01→03φ10(&D)]^C^C_01-03D10
ID_MyP3      [06→05φ5(&E)]^C^C_06-05D5
ID_MyP4      [09→07φ8(&F)]^C^C_09-07D8
ID_MyP5      [<-09→07φ10(&G)]^C^C_09-07D10
ID_MyPost    [->導柱(&C)]
ID_MyPost13  [輔助導柱SGPHφ13(&A)]^C^C_09-01C13
ID_MyPost16  [輔助導柱SGPNφ16(&B)]^C^C_09-01C16
              [--]
ID_MyPost25  [主導柱TRP25(&C)]^C^C_09-03C25GMS
ID_MyPost28  [主導柱TRP28(&D)]^C^C_09-03C28GMS
ID_MyPost32  [主導柱TRP32(&E)]^C^C_09-03C32GMS
ID_MyPost38  [主導柱TRP38(&F)]^C^C_09-03C38GMS
ID_MyPost45  [主導柱TRP45(&G)]^C^C_09-03C45GMS
ID_MyPost50  [<-主導柱TRP50(&H)]^C^C_09-03C50GMS
              [--]
ID_MyGuideP  [導料板(&D)]^C^C_GUIDEPLATE
ID_MyGLP     [->導位升降杆(&E)]
ID_MyGLP6    [φ6(&A)]^C^C_03-05GLP6
ID_MyGLP8    [φ8(&B)]^C^C_03-05GLP8
ID_MyGLP10   [φ10(&C)]^C^C_03-05GLP10
ID_MyGLB8    [<-GLB8(&D)]^C^C_03-05GLB8      
ID_MyLIF     [->頂出銷(&F)]
ID_MyLIF3    [φ3(&A)]^C^C_03-LIFTER-M5-C3
ID_MyLIF4    [φ4(&B)]^C^C_03-LIFTER-M8-C4
ID_MyLIF6    [φ6(&C)]^C^C_03-LIFTER-M10-C6
ID_MyLIF8    [φ8(&D)]^C^C_03-LIFTER-M12-C8
ID_MyLIF10   [<-φ10(&E)]^C^C_03-LIFTER-M16-C10
ID_MyLIF10   [誤送檢知器(&G)]^C^C_CHKPIN
ID_MyLIF12   [下死點檢知器(&H)]^C^C_CHKDOWN
              [--]
ID_MyFK      [->浮塊(&J)]
ID_MyFKM3    [鎖浮塊M3(&A)]^C^C_03-FK-M3
ID_MyFKFM5   [鎖浮塊M5(&B)]^C^C_03-FK-M5
              [--]
ID_MyJK      [<-鎖夾塊M4(&C)]^C^C_JK-02-M4
              [--]
//ID_MyHole  [->標準孔(&K)]
ID_MyHole01  [->導針孔(&K)]
ID_MyHole03  [1.2 (&A)]^C^C_P1D2
ID_MyHole05  [1.5 (&B)]^C^C_P1D5
ID_MyHole07  [2.0 (&C)]^C^C_P2D0
ID_MyHole09  [2.5 (&D)]^C^C_P2D5
ID_MyHole11  [3.0 (&E)]^C^C_P3D0
ID_MyHole13  [<-5.0 (&F)]^C^C_P5D0
ID_MyHole15  [->吹氣銷孔(&L)]
ID_MyHole17  [吹氣銷φ4(&A)]^C^C_AIR-C4
ID_MyHole19  [<-吹氣銷φ5(&B)]^C^C_AIR-C5
ID_MyHole21  [敲擊孔(&M)]^C^C_QJK
ID_MyHole23  [->作動銷(&N)]
ID_MyHole25  [φ2(&A)]^C^C_COUNPIN2
ID_MyHole27  [φ3(&B)]^C^C_COUNPIN3
ID_MyHole29  [<-φ5(&C)]^C^C_COUNPIN5
ID_MyHole31  [->擊落銷(&P)]
ID_MyHole33  [φ1.5(&A)]^C^C_EJH1D5
ID_MyHole35  [φ2.0(&B)]^C^C_EJH2
ID_MyHole37  [<-φ3.0(&C)]^C^C_EJH3
ID_MyHole39  [->穿線孔(&Q)]^C^C
ID_MyHole41  [圖塊穿線孔φ2.1(&A)]^C^C_WH
ID_MyHole43  [虛中點穿線孔φ2.1(&B)]^C^C_ZDD
ID_MyHole45  [虛中點穿線孔φ1.1(&C)]^C^C_ZDX
ID_MyHole47  [<-智能中點穿線孔φ2.1(&D)]^C^C_AWH
              [--]           
ID_MyFixPart [標件位置圓整(&R)]^C^C_FixPart
              [--]
ID_MyPlate   [->標準模板(&S)]
ID_MyPlate01 [100x100(&A)]^C^C_100x100
ID_MyPlate02 [120x100(&B)]^C^C_120x100
ID_MyPlate03 [120x120(&C)]^C^C_120x120
ID_MyPlate04 [150x120(&D)]^C^C_150x120
ID_MyPlate05 [150x150(&E)]^C^C_150x150
ID_MyPlate21 [180x120(&F)]^C^C_180x120
ID_MyPlate06 [180x150(&G)]^C^C_180x150
ID_MyPlate07 [200x150(&H)]^C^C_200x150
ID_MyPlate08 [220x150(&I)]^C^C_220x150
ID_MyPlate09 [250x150(&J)]^C^C_250x150
ID_MyPlate10 [280x150(&K)]^C^C_280x150
ID_MyPlate11 [300x150(&L)]^C^C_300x150
ID_MyPlate12 [320x150(&M)]^C^C_320x150
ID_MyPlate13 [350x150(&N)]^C^C_350x150
ID_MyPlate14 [350x250(&O)]^C^C_350x250
ID_MyPlate15 [380x150(&P)]^C^C_380x150
ID_MyPlate16 [400x150(&Q)]^C^C_400x150
ID_MyPlate17 [420x150(&R)]^C^C_420x150
ID_MyPlate18 [450x150(&S)]^C^C_450x150
ID_MyPlate22 [450x180(&T)]^C^C_450x180
ID_MyPlate19 [450x250(&U)]^C^C_450x150
ID_MyPlate20 [<-480x150(&V)]^C^C_480x150
***POP13
ID_MyPart    [輔助(&C)]
ID_Myword      [常用語(&E)]^C^C_WORD
ID_UcsOrigin1 [設置新原點(&U)]^C^C_UCS _N
ID_UcsOrigin  [*智能設置新原點(&N)]^C^C_AUTOSETUCS
ID_PLATERPT   [*取得當前模板大小]^C^C_GetPlateRightPt
ID_Myad3ptX   [*指定孔表放置點.橫排]^C^C_SETAD3PTX
ID_Myad3ptY   [*指定孔表放置點.豎排]^C^C_SETAD3PTY
ID_MyAUTODIM  [->模板自動標注(&D)]
ID_MyAUTODIM1 [座標標注1(&A)]^C^C_AD
ID_MyAUTODIM3 [座標對齊標注2(&B)]^C^C_AD1
ID_MyAUTODIM5 [模板旁注1(&C)]^C^C_AD2
ID_MyAUTODIM7 [模板自動旁注2(&D)]^C^C_AD3
ID_MyAUTODIM9 [標注牙孔(&E)]^C^C_DM
ID_MyAUTODIM11 [<-標注沉頭孔(&F)]^C^C_DCT
ID_MyORDER    [->模板加工說明(&O)]
ID_MyOutL01   [引線說明(&C)]^C^C_CSS
ID_MyORDER13  [用于φ13導柱(&A)]^C^C_ORDER13
ID_MyORDER16  [<-用于φ16導柱(&B)]^C^C_ORDER16
              [--]
ID_Myassdie  [組立圖(&Y)]^C^C_3DDIE
ID_MyBOM     [BOM(&B)]^C^C_BOM
ID_MyINSTK   [插入圖框(&G)]^C^C_INSERTTK
              [--]
ID_MyPart02  [->圓沖(&C)]
ID_MyPart04  [φ4x1.52(&A)]^C^C_4D152
ID_MyPart06  [φ4x2.02(&B)]^C^C_4D202
ID_MyPart08  [φ5x1.52(&C)]^C^C_5D152
ID_MyPart10  [φ5x2.02(&D)]^C^C_5D202
ID_MyPart12  [<-φ5x3.02(&E)]^C^C_5D302
ID_MyPart16  [->小浮塊(&F)]
ID_MyPart18  [小浮塊M4(&A)]^C^C_XFKM4
ID_MyPart20  [<-小浮塊M5(&B)]^C^C_XFKM5
              [--]
ID_MyPart36  [側視圖生成(&T)]^C^C_TT
ID_Mypartno1  [零件序號]^C^C_PARTNO1
ID_Mypartno2  [零件編號(&X)]^C^C_PARTNO2
ID_Myda      [標尺寸序號(&H)]^C^C_DA
ID_Myaltext  [文字編號對齊(&A)]^C^C_ALTEXT
ID_MyFJ      [平鋪模板(&P)]^C^C_FJ
              [--]
ID_MyPart00   [材料說明(&M)]^C^C_ORDERMATL
ID_MyPart14  [沖頭加工說明(&7)]^C^C_ORDERPUNCH
ID_MyPart24  [押板塊加工說明(&5)]^C^C_ORDERSTR
ID_MyPart30  [入子加工說明(&1)]^C^C_ORDERINS
ID_MyORDERTC [縣割加工說明(&W)]^C^C_ORDERTC
ID_Myzzc     [算周長面積forTC(&I)]^C^C_ZZC
ID_MyEditMenu [編輯菜單文件]^C^C_EDITMENU
ID_MyLOADMenu [重新加載/更新菜單(&L)]^C^C_MENULOADD
ID_MyAbout    [關於本軟件]^C^C_ABOUTDIEDES
***POP501
**CMDEFAULT
               [預設模式的上下文功能表]
ID_CMNonLast   [重複%s(&R)]^C^C;
               [--]
ID_UcsOrigin1  [設置新原點]^C^C_UCS _N
ID_UcsOrigin   [*智能新原點(&A)]^C^C_AUTOSETUCS
ID_PLATERPT    [*取得當前模板大小]^C^C_GetPlateRightPt
ID_Myad3ptX    [*指定孔表放置點.橫排]^C^C_SETAD3PTX
ID_Myad3ptY    [*指定孔表放置點.豎排]^C^C_SETAD3PTY
ID_MyAUTODIM3  [模板自動旁注(&C)]^C^C_AD3
ID_MyAUTODIM4  [標注牙孔(&D)]^C^C_DM
ID_MyAUTODIM5  [標注沉頭孔(&E)]^C^C_DCT
               [--]
//ID_Cutclip     [剪下(&T)]^C^C_cutclip
//ID_Copyclip    [複製(&C)]^C^C_copyclip
//ID_Copybase    [以基準點複製(&B)]^C^C_copybase
//ID_Pasteclip   [貼上(&P)]^C^C_pasteclip
//ID_Pastebloc   [貼上為圖塊(&K)]^C^C_pasteblock
//ID_Pasteorig   [貼到原始座標(&D)]^C^C_pasteorig
//               [--]
[3D環轉]'_3dorbit
ID_Filter      [快速選取(&Q)...]^C^C_qselect
ID_TextFind    [尋找(&F)...]^C^C_find
ID_Preferenc   [環境選項(&O)...]^C^C_options

***HELPSTRINGS
。。。。。。

[ 本帖最后由 chenjian1 于 2006-1-22 11:16 编辑 ]

1.1.1        (JIS G 3141) 冷輾壓低碳鋼板料及片料
Cold rolled carbon steel sheets and strips
1. 品質分類
品質標記        功能類別        制造用途
SPCC        一般應用品質        文具用品,門鎖,汽車用品,電器支架,家具配件,一般雜項等.
SPCD        壓延、成形用品質        電腦機箱,錄影機殼,,音響喇巴,電器箱,托盤,銀碟……等.
SPCE        深壓延拉伸品質        電芯殼,手電筒,摩打殼,通心雞眼,鈕扣,油壼容器……等.
備 注：
1.        標準回火處理的SPCC品質經采購者要求證明它可達到某拉力測試數值會在標記後加上’T’成為SPCCT.
2.        標準回火及退火處理的SPCE品質經采購者要求證明它具有無時放作用會在標記後加上’N’成為SPCEN.

2. 相對其他國家的對照
國家規格        標   記
JIS        SPCC        SPCD        SPCE
ASTM        A109M-91A366/A366M-91        A619/A619M-92        A620/A620M-91
BS        EN10130:91        EN10131:92        --------
DIN        1624-87EN10130:91        EN10131:92        --------
ISO        --------        --------        --------

3. 化學成份
品質標記        碳  C        錳  Mn        磷  P        硫  S
SPCC        0.12 最大        0.50  最大        0.040  最大        0.045  最大
SPCD        0.10 最大        0.45  最大        0.035  最大        0.035  最大
SPCE        0.08 最大        0.40  最大        0.030  最大        0.030  最大
          4. 片材厚度公差(級別B)            單位:mm
寬度厚度(t)        160以下        160或以下至不包括250        250或以上至不包括400        400或以上至不包括630
t<0.10        ±0.010        ±0.020        ------        ------
0.10≦t<0.16        ±0.015        ±0.020        ------        ------
0.16≦t<0.25        ±0.020        ±0.025        ±0.030        ±0.030
0.25≦t<0.40        ±0.025        ±0.030        ±0.035        ±0.035
0.40≦t<0.60        ±0.035        ±0.040        ±0.040        ±0.040
0.60≦t<0.80        ±0.040        ±0.045        ±0.045        ±0.045
0.80≦t<1.00        ±0.04        ±0.05        ±0.05        ±0.05
1.00≦t<1.25        ±0.05        ±0.05        ±0.05        ±0.06
1.25≦t<1.60        ±0.05        ±0.06        ±0.06        ±0.06
1.60≦t<2.00        ±0.06        ±0.07        ±0.08        ±0.08
2.00≦t<2.50        ±0.07        ±0.08        ±0.08        ±0.09
2.50≦t<3.15        ±0.08        ±0.09        ±0.09        ±0.10
3.15或以上        ±0.09        ±0.10        ±0.10        ±0.11

5. 回火等級記號
回火等級        記 號        硬  度
                HRB        HV
退火        A        57 (最大)        105 (最大)
標準級回火        S        65 (最大)        115 (最大)
八分之一硬        8        50-71        95-130
四分之一硬        4        65-80        115-150
二分[之一硬        2        74-89        135-185
全硬        1        85 (最小)        170 (最小)

6. 表面效果
表 面 效 果        記 號        註  解
陰暗表面        D        幼微粒輾延表面(俗稱單光)
光亮表面        B        极光滑輾延表面(俗你雙光)



7. 包裝及采購標記法
(例)   JIS-SPCCT--2--D--厚x寬x長--數量
                                                                                           訂購數量(張數或重量)
                                                                      尺寸規格(厚,寬,長實數)
                                                      表面效果(陰暗面,單光)
                                             回火等級(二分之一硬度)
                                       品質標記(一般應用性質,機械性能經鑑證)








1.1.2  (JIS G3313) 電解鍍鋅鋼板料及捲料
Electrolytic zinc-coated steel sheets and coils

1. 品質分類
品質標記        厚度        應 用
                主要用途        與JIS標準相符基材
SECC        0.4至3.2        一般應用品質,影印機、錄音機等內部零件．        SPCC
SPCD        0.4至3.2        壓延面形用品質,電器箱,門鎖,時鐘外殼等.        SPCD
SPCE        0.4至3.2        深壓延拉伸品質,摩打殼,各種深拉伸容器等.        SPCE
備 注：
1.        標準回火處理的SPCC品質經采購者要求證明它可達到某拉力測試數值會在標記後加上’T’成為SPCCT.
2. 標準回火及退火處理的SPCE品質經采購者要求證明它具有無時放作用會在標記後加上’N’成為SPCEN.



2. 相對其他國的對照
國家規格        標   記
JIS        SPCC        SPCD        SPCE
ASTM        A591/A591M-89        --------        --------
BS        EN10152-94        --------        --------
DIN        EN10152-93        --------        --------
ISO        5002-82        --------        --------

3. 化學成份
品質標記        碳  C        錳  Mn        磷  P        硫  S
SPCC(SECC)        0.12 最大        0.50  最大        0.040  最大        0.045  最大
SPCD(SECD)        0.10 最大        0.45  最大        0.035  最大        0.035  最大
SPCE(SECE)        0.08 最大        0.40  最大        0.030  最大        0.030  最大

          4a. 片材厚度公差 (級別B)          單位: mm
寬度厚度(t)        160以下        160或以下至不包括250        250或以上至不包括400        400或以上至不包括630
0.40≦t<0.60        ±0.035        ±0.040        ±0.040        ±0.040
0.60≦t<0.80        ±0.040        ±0.045        ±0.045        ±0.045
0.80≦t<1.00        ±0.04        ±0.05        ±0.05        ±0.05
1.00≦t<1.25        ±0.05        ±0.05        ±0.05        ±0.06
1.25≦t<1.60        ±0.05        ±0.06        ±0.06        ±0.06
1.60≦t<2.00        ±0.06        ±0.07        ±0.08        ±0.08
2.00≦t<2.50        ±0.07        ±0.08        ±0.08        ±0.09
2.50≦t<3.15        ±0.08        ±0.09        ±0.09        ±0.10
3.15≦t<3.20         ±0.09        ±0.10        ±0.10        ±0.11

                   4b. 相等鍍鋅厚度            單位: mm
單面鍍鋅質量記號        EB        E8        E16        E24        E32        E40
相等鍍鋅厚度(單面)        0        0.001        0.003        0.004        0.005        0.006

5. 回火等級記號
回火等級        記 號        硬  度
                HRB        HV
退火        A        57 (最大)        105 (最大)
標準級回火        S        65 (最大)        115 (最大)
八分之一硬        8        50-71        95-130
四分之一硬        4        65-80        115-150
二分[之一硬        2        74-89        135-185
全硬        1        85 (最小)        170 (最小)

6. 表面處理
表 面 處 理        記 號
無處理        M
鉻化處理        C
磷化處理        P

7. 包裝及采購標記法
(例)   JIS-SECEN--P—E16--厚x寬x長--數量
                                                                                           訂購數量(張數或重量)
                                                                      尺寸規格(厚,寬,長實數)
                                                      鍍鋅厚度(單面0.003mm)
                                             表面處理(磷化處理)
                                       品質標記(深壓延拉伸品質,無時效作用性質已經鑑證)

;;;********************************************************************1
;;;材料使用率计算  Command:Userx
;;;Enter "W" and "P";
;;;2004-01-07     Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun C:userx (/ pt aa ww pp en1 area1 user en1-data en1-type tx)
  (setvar "cmdecho" 0)
  (setq ww (getdist "\n料宽 W: "))
  (if (= nil ww)
    (sub-quit)
  )
  (setq pp (getdist "\n送距 P: "))
  (if (= nil pp)
    (sub-quit)
  )
  (setq area1 (* ww pp))
  (setq pt (getpoint "\n点取产品展开轮廓内点!"))
  (if (= nil pt)
    (sub-quit)
  )
  (command "bpoly" pt "")
  (setq en1 (entlast))
  (setq en1-data (entget en1))
  (setq en1-type (cdr (assoc 0 en1-data))) ;群码0为对象类型
  (if (or (= en1-type "REGION") (= en1-type "LWPOLYLINE"))
    (progn
      (command "change" en1 "" "p" "c" "1" "")
      (command "area" "o" en1)
      (setq aa (getvar "area"))
      (redraw en1 3)
      (setq user (* 100 (/ aa area1)))
      (setq tx (strcat "*料宽W:"
                       (rtos ww 2 2)
                       "   *送距P:"
                       (rtos pp 2 2)
                       "   **材料使用率:"
                       (rtos user 2 3)
                       "%"
               )
      )
      (princ "\n")
      (princ tx)
      (if (> user 100.0)
        (princ "\n------------ 有误! ------------ ")
        (command "text" pt 2.5 0 (strcat "User=" (rtos user 2) "%"))
      )

    )
  )
  (command "regen")
  (prin1)
)

;;;********************************************************************1
;;;制做扣位沉头 command c:GG
;;;2004-05-18     Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun C:gg(/ pt1 pt2 os pt3 pt4 pt5 pt6)
  (setvar "cmdecho" 0)
  (setq pt1
         (getpoint "\nEnter first point:")
        )
  (setq pt2
         (getpoint "\nEnter second point:")
        )
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq pt3 (polar pt1 (+ (angle pt1 pt2) (* pi 0.5)) 2))
       
  (setq pt4 (polar pt2 (+ (angle pt1 pt2) (* pi 0.5)) 2))
  
  (setq pt5 (polar pt1 (- (angle pt1 pt2) (* pi 0.5)) 2))
  
  (setq pt6 (polar pt2 (- (angle pt1 pt2) (* pi 0.5)) 2))

  (command "pline" pt3 pt4 "a" pt6 "l" pt5 "a" "cl")
  (setvar "osmode" os)
  (Princ "\n-----------Bye c:GG 制做扣位沉头------------")
  (prin1)
)

多谢楼主!

;;;当我们设计好剪口后就该用它了，预设镶件壁厚为5.0mm,自动取整
;;;镶件外形生成 Command:WX
;;;2005-10-11     Chen Jian
;;;Version 1.1    add (C:GETBOX)
;;;2005-07-01     Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun c:WX (/            pt1           pt2          pt3         pt4        Y1     Y2     midY
             lineY  newY1  newY2  X1         X2        midX   lineX  newX1
             newX2  newpt1 newpt2 newpt3 newpt4
            )
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (C:GETBOX)
  (if (= des-GetBox-OK 1)
    (progn
      (setq pt1 des-GetBox-top-pt1)
      (setq pt2 des-GetBox-bottom-pt2)
      (setq pt3 des-GetBox-left-pt3)
      (setq pt4 des-GetBox-right-pt4)

      (setq Y1 (cadr pt1))
      (setq Y2 (cadr pt2))
      (setq midY (/ (+ Y1 Y2) 2.0))        ;中点Y坐标
      (setq lineY (+ (/ (fix (abs (- Y1 Y2))) 2.0) 5.5))
      (setq newY1 (+ midY lineY))
      (setq newY2 (- midY lineY))

      (setq X1 (car pt3))
      (setq X2 (car pt4))
      (setq midX (/ (+ X1 X2) 2.0))        ;中点X坐标
      (setq lineX (+ (/ (fix (abs (- X2 X1))) 2.0) 5.5))
      (setq newX1 (- midX lineX))
      (setq newX2 (+ midX lineX))

      (setq newpt1 (list newX1 newY1))
      (setq newpt2 (list newX2 newY1))
      (setq newpt3 (list newX2 newY2))
      (setq newpt4 (list newX1 newY2))
      (setq os (getvar "osmode"))
      (setvar "osmode" 0)
      (setq oldcolor (getvar "CECOLOR"))
      (setvar "CECOLOR" "3")
      (command "PLINE" newpt1 newpt2 newpt3 newpt4 "c")
      (setvar "CECOLOR" oldcolor)
      (setvar "osmode" os)
      (command "undo" "e")
    )
    (Princ "\n------无对象?!")
  )
  (Princ "\n-----------Bye c:WX 镶件外形生成------------")
  (prin1)
)
;;;********************************************************************1
;;;取得s最小包围框 Command:GetBox
;;;Return minpoint maxpoint des-GetBox-top-pt1 des-GetBox-bottom-pt2
;;;       des-GetBox-left-pt3 des-GetBox-right-pt4 des-GetBox-midpt
;;;2005-10-11     Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun c:GetBox        (/ des-GetBox-en1    ename-name
                 vlaobject-ename-name
                )
  (setq des-GetBox-en1 nil)
  (setq des-GetBox-OK nil)
  (setq des-GetBox-en1 (entsel "\n选取图形... "))
  (vl-load-com)
  (while des-GetBox-en1
;;;当en1存在时，做以下内容，直到en1不存在为止
    (sub-GetBoundingBox des-GetBox-en1)
    (setq des-GetBox-en1 nil)
  )
  (prin1)
)

(defun sub-GetBoundingBox (des-GetBox-en1)
;;;  (command "ucs" "w")
  (setq ename-name (car des-GetBox-en1))
  (setq        vlaobject-ename-name
         (vlax-ename->vla-object ename-name)
  )
  (vla-GetBoundingBox
    vlaobject-ename-name
    'minpoint
    'maxpoint
  )
  (setq minpoint (vlax-safearray->list minpoint))
  (setq maxpoint (vlax-safearray->list maxpoint))
  (setq minpoint(trans minpoint 0 1))      ;转为ucs点
  (setq maxpoint(trans maxpoint 0 1))      ;转为ucs点
  (setq des-GetBox-top-pt1 maxpoint)
  (setq des-GetBox-bottom-pt2 minpoint)
  (setq des-GetBox-left-pt3 minpoint)
  (setq des-GetBox-right-pt4 maxpoint)
  (setq des-GetBox-midpt (polar minpoint
         (angle minpoint maxpoint)
         (/(distance minpoint maxpoint) 2.0)
         ))
  (setq des-GetBox-OK 1)
  (princ "\nReturn-BoundingBox-ok")
)
;;;DES:ChenJian
;;;E-mail:ChenJianCaiHong@163.com

看来同行不多阿

常用材料标准

;;;当我们设计好剪口后就该用它了，预设镶件壁厚为5.0mm,自动取整
;;;镶件外形生成 Command:WX
这个不是很好用

制做扣位沉头 command c:GG
这个指令应该还可以修该一下,只要点选一点即可