我們歡迎您!! …為服務大台北地區技師朋友,省公會台北辦公室成立了,開辦帶案技師各項業務掛件審查等服務,可在辦公室前臨時停車掛件,或通知會務至門口取件,交通便捷,請多加利用。台北辦公室位於台北市復興南路2段160巷8號1樓,近『科技大樓捷運站』,步行約 3 分鐘。…

如無法檢視此頁面,請點選我

電子報 第 328 期 技師電子報於2000年9月21日創刊

本期編撰:徐適康
本期出刊:96年06月19日

臺灣省土木技師公會 發行

編者的話

三年任期即將告一段落,期間向各位先進學習收穫良多,藉由電子報傳遞一些使用小程式來協助工作上的一些方法,也得到一些技師朋友、同學的不吝指教,希望新的資訊委員會還能繼續參與,能在繁雜的工作當中,有個充電時空,相互研究,共同成長。

技術交流

除在EXCEL中使用VBA來簡化工作上可程式化之作業外,目前常使用於工程製圖之Autocad 亦可以autolisp 或 vba 纂寫程式來,並執行這一些小程式來處理循環作業,以提高作業效率。

以下為一座標自動標示程式,於Autocad 載入後,執行 s1 即可協助標示座標,程式很小,也滿簡單的,但對座標摽示,提供了協助,而無須去執行如DCA等大型程式,提供各先進參考。

(defun c:s1(/ pt0 pt1)

 (setq pt0 (osnap (getpoint "select intersection point of LEFT DOWN: ")"int")) (terpri)

 (setq pt1 (osnap (getpoint "select intersection point of RIGHT UP: ")"int"))  (terpri)

 (setq incr (getint "Enter increment: ")) (terpri)

 (setq xx1 (car pt1))

 (setq yy1 (cadr pt1))

 (setq sx0 (car pt0))

 (setq sy0 (cadr pt0))

 (setq nbx (fix (/ (- (+ xx1 incr 1) sx0) incr)))

 (setq nby (fix (/ (- (+ yy1 incr 1) sy0) incr)))

 (setq sy1 (+ sy0 0.5))

 (setq i 0)

 (repeat nbx

 (setq sx1 (+ (* i incr) (- sx0 0.1)))

 (setq ptx (list sx1 sy1))

 (setq sx (+ (* i incr) sx0))

 (setq txt (rtos sx 2 0))

 (command "text" ptx 90 txt)

 (setq i (+ 1 i))

 )

 (setq sx0 (car pt0))

 (setq sy0 (cadr pt0))

 (setq sx1 (+ sx0 0.5))

 (setq i 0)

 (repeat nby

 (setq sy1 (+ (* i incr) (+ sy0 0.1)))

 (setq pty (list sx1 sy1))

 (setq sy (+ (* i incr) sy0))

 (setq txt (rtos sy 2 0))

 (command "text" pty 0 txt)

 (setq i (+ 1 i))

 )

)

技師投稿
回頁首▲
 

版權所有,未經確認授權,請勿轉貼節錄

    Top   Back