10框式施工架配置规划及电脑辅助系统软体制作.pdfVIP

10.框式施工架配置規劃及電腦輔助 系統軟體製作 目的與作法 為提昇施工架施工安全品質 、有效降低職場災害與損失(如結構不穩)，達到 為提昇施工架施工安全品質 、有效降低職場災害與損失(如結構不穩)，達到 如期如質的施工 目標 ，需因應建築物空間配置的多樣化改變 ，而適時透過電腦 如期如質的施工 目標 ，需因應建築物空間配置的多樣化改變 ，而適時透過電腦 C A D 系統開發的結合 ，進行工作架配置分析與顯示 ，以及應力析等 ，以迅速 、 C A D 系統開發的結合 ，進行工作架配置分析與顯示 ，以及應力析等 ，以迅速 、 有效地將工作架分析成果提供給工程參與者進行後續作業 。 有效地將工作架分析成果提供給工程參與者進行後續作業 。 輸入建築外框與建築物的相關資訊(例如高度 、風力係數..等)與框式施工架 的種類 ，系統會透過 AutoLisp所撰寫的演算法來計算並繪出旋工架的配置(包含 位置及數量) 1 l 部份程式碼(AutoLisp) (defun C:ReportData() (setq entset (entsel)) ;挑選圖元 (if (/= entset nil) (progn (setq entsetdata (entget(car entset))) (setq strlayername (cdr (assoc 8 entsetdata)));所選取物件的圖層名稱 (setq LengthOfLayername (strlen strlayername)) (setq layernamenumber (substr strlayername 1 (- LengthOfLayername 12))) (setq tempLayerName1 (strcat layernamenumber _TempLayer_1)) (setq tempLayerName2 (strcat layernamenumber _TempLayer_2)) (setq tempLayerName3 (strcat layernamenumber _TempLayer_3)) (setq tempLayerName4 (strcat layernamenumber _TempLayer_4)) (setq tempLayerName5 (strcat layernamenumber _TempLayer_5)) (setq tempLayerName6 (strcat layerna menumber _TempLayer_6)) (setq layernamenumber (atoi layernamenumber)) (setq ProjectNameData (assoc layernamenumber ListProjectNameData)) (setq ProjecName (cdr ProjectNameData)) (setq scaffordkindData (assoc layernamenumber Listscaffordkind)) (setq scaffordkind (cdr scaffordkindData)) (setq scaffordstyleData (assoc layernamenumber Listscaffordstyle)) (setq scaffordstyle (cdr scaffordstyleData)) (setq cradleKind Data (assoc layernamenumber ListcradleKind)) (setq cradleKind (cdr