專利名稱：一種用于幕墻不規則四邊形裝飾板批量展開圖的繪制方法
技術領域：
本發明屬于鈑金技術和計算機繪圖技術領域，特別涉及一種用于幕墻不規則四邊形裝飾板批量展開圖的繪制方法。
背景技術：
目前對于大批量不規則四邊形板的鈑金展開，所使用的方法一般為采用繪圖軟件中的參數驅動功能來實現，所需步驟大至為將原始數復制到繪圖軟件驅動參數表中；將數據與繪圖軟件中驅動尺寸相對應；在同一工程圖中插入多個視圖；將每一個視圖對應零件名稱改成驅動參數表中的零件名稱；將工程圖轉化為CAD格式；編輯驅動參數，將生成的工藝參數從驅動參數中復制出來。這種方法在操作過程中步驟較多，增加了誤操作的可能，在生成圖形較多時耗時較長并且容易出現遺漏。
發明內容
針對現有技術存在的問題，本發明提供一種用于幕墻不規則四邊形裝飾板批量展開圖的繪制方法。該方法包括以下步驟1.定義存放盒板四個頂點數據數組；2.為盒板頂點坐標賦值；3.定義存入盒板四邊偏移量數組；4.把盒板四邊按偏移量數組值向內偏移，偏移后的頂點坐標重新放回盒板頂點數組；5.定義存入翻邊頂點的數組；6.為翻邊各頂點賦值；7.定義鏡像點；8.為鏡像點賦值；9.對翻邊各點按鏡像點執行鏡向操作；10.檢查翻邊點是否有新的極值變量，如果有放入極值點變量；11.定義Y方向的比例變量并賦初值；12.定義X方向的比例變量并賦初值；13.定義全局比例變量并賦初值；14.定義圖形左下角插入點并賦值；15.把翻邊各點坐標移到圖形插入點位置；16.定義存入極值點的變量；17.為極值點變量賦初值；18.定義折彎線四個頂點并把翻邊內側四個頂點坐標賦給該數組；19.把翻邊各點坐標在CAD中以指定線形顏色畫閉合線；20.定義折彎線各邊偏移量并賦值；
21.將現有折彎線坐標偏移到實際位置；22.在CAD中畫出折彎線；23.添加長、寬尺寸標注；24.添加“板背面”文字25.添加A3標準圖框；26.把圖形插入點添加增量，實現圖形依次向上排布；27.定義存入返回參數的變量并賦值；28.將返回值返回；29.退出標準盒板繪圖程序HB。本發明采用計算機Microsoft VBA與LISP語言，在Windows操作系統下CAD2007 版本中運行。其中LISP開發部分主要用于加載VBA模塊與定義CAD命令行命令，VBA開發部分負責完成程序中的其余操作部分。本發明的方法通過直接在EXCEL中引入原始數據， 對應圖形的參數形式為四條邊與一條對角線長、對應板號、圖號，要求數據依次排列，每一行為一條數據，且第一行為參數簽行，本發明的方法采用對話框形式進行參數調整。在參數調整過程中采用在軟件程序的窗口中拖拽的形式，以應對實際使用中成形圖參數名稱不確定的情況，直接在EXCEL中引用數據，在CAD中輸出圖紙，自動生成參數圖及1 1電子圖， 并實現了插入圖框與變換圖框比例并排版的操作(如無圖框對應塊，則不插入圖框)，最后將工藝參數圖對應參數返回到EXCEL中所選數據右側，并附有參數名稱行，最大程度上避免了由成形參數到工藝展開圖轉化過程中可能出現的錯誤。本發明所提供的一種用于幕墻不規則四邊形裝飾板批量展開圖的繪制方法與現有其他方法相比簡化了由成形參數到工藝展開圖轉化過程，在進行操作時大大減少了人工操作的部分，可以相對減少人為失誤所產生的影響，提高了由參數到展開圖的批量轉化效率。
圖1本發明方法流程圖；圖2本發明方法操作流程圖；圖3本發明方法窗口操作流程圖；圖4使用本發明方法的實施例的輸入數據用窗體圖；圖5使用本發明方法的實施例的所生成的展開圖；圖6使用本發明方法的實施例的所生成的工藝參數圖。
具體實施例方式本發明方法使用時將軟件壓縮包直接解壓到計算機D盤根目錄下。在CAD菜單中選擇工具/AutoLisp/加載應用程序，選擇上一步解壓出的“盒板”文件夾中“加載用.Isp “文件加載后退出，在CAD命令行中輸入HB命令后彈出對話框，首先在EXCEL中選擇原始數據，每條數據為一行，數據內容為盒板的板號、圖號、四條邊長與一個對角線長共計7個參數，且第一行為標簽行，選中數據后切換回CAD，在對話框中點擊“加載數據標簽” 按鈕，即將對應數據的標簽名稱加載到列表框中，用鼠標將標簽拖拽到相應的尺寸上，按需要添寫其余內容后點擊“生成”按鈕退出對話框，在CAD命令行中提示“拾取插入點”，拾取點后即在相應位置生成展開圖并依次向上排列。
下面結合附圖對本發明內容作進具體描述。本軟件程序所實現的批量不規則四邊形板的鈑金展開方法主要通過以下四個主要步驟來完成，加載，顯示用戶界面窗口和通過用戶界面窗口完成參數輸入與順序調整并調用標準盒板繪圖程序繪圖，關閉用戶界面窗口并退出。本發明的程序總體流程圖如圖1 所示。步驟一加載。加載“加載用.lsp”文件，通過程序文件中的(vl-vbaload" D :/盒板 / 盒板模塊.dvb ")語句將D /盒板/盒板模塊.dvb模塊加載到當前CAD中。步驟二 顯示用戶界面窗口。通過程序文件中的(defun c =HB ()(vl-vbarun" HB1〃 ))語句定義一個CAD命令“HB”，在該命令中調用已加載模塊中的“HB1”過程。在〃 D /盒板/盒板模塊.dvb"中盒板繪圖函數調用的入口過程為HBl ()，其內容為
SubHBlO
UserForml. Show Unload UserForml End Sub其中heri^orml. Show用于將已加載的對話框顯示出來，Unload UserForml用于操作完成后將對話框卸載。步驟三通過用戶界面窗口 ^erforml完成參數輸入與順序調整并調用標準盒板繪圖程序HB進行繪圖。圖2為用戶窗口操作流程圖。具體操作如下在Excel中選擇數據，數據按行排列，選擇時帶標題行；點“加載數據標簽”按鈕會將Excel中選中數據的標題行數據加載到列表框中；拖放列表框中的數據標簽到圖片中對應的參數標簽上；視成型圖情況選擇鏡向單選按鈕；點擊“生成”按鈕后在 CAD命令行提示選擇圖形插入點，點取后以Excel中的數據為輸入參數調用標準盒板繪圖程序繪圖，在對應位置生成圖形，圖3為標準盒板繪圖程序HB的流程圖；輸入其余工程名稱，半延展，翻邊高，料厚，材料等參數。標準盒板繪圖程序HB的操作流程具體如下1.定義存放盒板四個頂點數據數組Dim Myloopl (1 To 4) As My_Point，其中My_ Point用于存放一個點的X，Y，Z三個座標；2.為步驟1所定義的盒板頂點坐標賦值；3.定義存入盒板四邊偏移量數組Dim Myoffl (1 to 4) As Double。4.把盒板四邊按偏移量將數組值Myloopl向內偏移，偏移后的頂點坐標重新放回盒板頂點數組Myoffl中，調用過程Off_Loop (MyIoopl，Myoff 1)，；5.定義存入翻邊頂點的數組 Dim FanBianl (1 To 12) As My_Point。
5
6.為翻邊各頂點賦值 FanBianl(I) =Myloopl(I)…7.定義鏡像點 Dim Mirr_pl As My_Point。8.為鏡像點賦值 Mirr_pl = My_mid_Point (FanBianl (2)，FanBianl (3))。其中函數My_mid_Point 返回兩點 FanBianl (2)，FanBianl (3)的中點；9.對翻邊各點按鏡像點執行鏡向操作Call mirr_loop (FanBianl,Mirr_pl,Mirr_ p2)。過程mirr_loop用于將代表多邊形的點數組FanBianl延鏡向線Mirr_pl，Mirr_p2點鏡向；10.檢查翻邊點是否有新的極值變量，如果有放入極值點變量，調用過程Call GetMax_min ()，過程GetMaxjnin用于將點數組表示的多邊形myloop ()中具有極值的點放在MyXL中；11.定義Y方向的比例變量并賦初值；12.定義X方向的比例變量并賦初值；13.定義全局比例變量并賦初值；14.定義圖形左下角插入點并賦值；15.把翻邊各點坐標移到圖形插入點位置，調用過程m0V_l00p_VeCt0r。Call mov_loop_vector(FanBianl, MYINSERT_P0ITN1) 此過程用于把點數組 myloop ()中各點座標與向量MYINSERT_P0i i的X、Y、Z座標相加，實現點數組的平移；16.定義存入極值點的變量 Dim L_H_Point As My_Xl_Point ；17.為極值點變量賦初值；18.定義折彎線四個頂點并把翻邊內側四個頂點坐標賦給該數組；19.把翻邊各點坐標在CAD中以指定線形顏色畫閉合線，調用過程line_l00p， Call line_loop (FanBianl，“ continuous" , acGreen，1，True)，此過程將點數組表示的多邊形FanBianl用指定的線型continuous，顏色acGreen，線型比例1畫出來；20.定義折彎線各邊偏移量并賦值；21.將現有折彎線坐標偏移到實際位置；22.在CAD中畫出折彎線；23.添加長、寬尺寸標注，Call My_AddDimRotated用來通過指定點添加轉角標注， 過程 My_AddDimRotated 在點 First_Point 與點 Second_Point 間添加轉角標注，IocationP 為標注文字位置，angle為轉角標注方向角，myfactor為標注比例；24.添加“板背面”文字，通過Call My_AddText在CAD中指定位置添加位置，過程 My_AddText在CAD當前活動文檔中中添加文本，DrawingNo為文本內容，DrawingNo為文字高度，ff_Factor為寬度系數。25.添加A3標準圖框，調用過程My_Add_A3，過程My_Add_A3用于在CAD當前活動文檔中加入A3圖框，MyjnsertPoint為插入點，My_Factor為圖框比例，GCMC為標題欄工程名稱，TM為標題欄圖紙名稱，DrawNo為圖號，BL標題欄添寫的繪圖比例，CAILIA0為標題欄添寫的材料，SHULIAN為標題欄添寫的數量，GJY為標題欄添寫的共內頁，DJY為標題欄添寫的第幾頁；26.把圖形插入點添加增量，實現圖形依次向上排布；27.定義存入返回參數的變量并賦值；
28.將返回值返回HB = My_Xl并退出標準盒板繪圖程序HB。步驟四調用步驟二中的過程HBlO中的Unload herforml命令關閉用戶界面窗口并退出。實施例下面通過舉例對本發明應用一組具體的參數來生成圖形并在EXCEL表中返回工藝參數值，來更加詳細的說明本發明的應用方法。1.在EXCEL表中選擇所要輸入的參數，如表1 ；
權利要求
1. 一種幕墻不規則四邊形裝飾板批量展開圖的繪制方法，其特征在于包括以下步驟(1)定義存放盒板四個頂點數據數組；(2)為盒板頂點坐標賦值；(3)定義存入盒板四邊偏移量數組；(4)把盒板四邊按偏移量數組值向內偏移，偏移后的頂點坐標重新放回盒板頂點數(5)定義存入翻邊頂點的數組；(6)為翻邊各頂點賦值；(7)定義鏡像點；(8)為鏡像點賦值；(9)對翻邊各點按鏡像點執行鏡向操作；(10)檢查翻邊點是否有新的極值變量，如果有放入極值點變量；(11)定義Y方向的比例變量并賦初值； (12 )定義X方向的比例變量并賦初值；(13)定義全局比例變量并賦初值；(14)定義圖形左下角插入點并賦值；(15)把翻邊各點坐標移到圖形插入點位置；(16)定義存入極值點的變量；(17)為極值點變量賦初值；(18)定義折彎線四個頂點并把翻邊內側四個頂點坐標賦給該數組；(19)把翻邊各點坐標在CAD中以指定線形顏色畫閉合線；(20)定義折彎線各邊偏移量并賦值；(21)將現有折彎線坐標偏移到實際位置；(22)在CAD中畫出折彎線；(23)添加長、寬尺寸標注；(24)添加“板背面”文字(25)添加A3標準圖框；(26)把圖形插入點添加增量，實現圖形依次向上排布；(27)定義存入返回參數的變量并賦值；(28)將返回值返回；(29)退出標準盒板繪圖程序HB。
全文摘要
一種用于幕墻不規則四邊形裝飾板批量展開圖的繪制方法，通過直接在EXCEL中引入原始數據，對應圖形的參數形式為四條邊與一條對角線長、對應板號、圖號，要求數據依次排列，每一行為一條數據，且第一行為參數簽行，該方法采用對話框形式進行參數調整。在參數調整過程中采用在軟件程序的窗口中拖拽的形式，直接在EXCEL中引用數據，在CAD中輸出圖紙，自動生成參數圖及1:1電子圖，最后將工藝參數圖對應參數返回到EXCEL中所選數據右側，并附有參數名稱行。本發明與現有其他方法相比簡化了由成形參數到工藝展開圖轉化過程，在進行操作時大大減少了人工操作的部分，可以相對減少人為失誤所產生的影響，提高了由參數到展開圖的批量轉化效率。
文檔編號G06F17/50GK102360395SQ201110295138
公開日2012年2月22日 申請日期2011年9月29日 優先權日2011年9月29日
發明者張世娟, 羅曄, 鄭向陽 申請人:沈陽遠大鋁業工程有限公司