Autolisp-快速注標线段或兩點之間的長度、方位角

smallfai

Autolisp-快速注標线段或兩點之間的長度、方位角
使用方法oad入之後在对話窓鍵入db,選擇线段(S)或兩點(T).
1,若選擇线段(直綫),輸入文字風格(TEXT STYLE),若鍵入空白金(space),會選用現行的風格(current).之後選擇线段(直綫),輸入文字高度,最後選擇文字的位置.
2,若選擇兩點,選擇起點後選擇終點(舉例若想知由A点至B点的方位角,先選擇A點後選擇B點),輸入文字風格(TEXT STYLE),若鍵入空白金(space),會選用現行的風格(current),輸入文字高度,最後選擇文字的位置.

3 t- D  h: h0 @/ jP.S.-此程式是在WCS進行,i.e.開始程式後系統會由UCS自動轉為WCS(若你工作的圖是在UCS進行),但完成後會自動轉回UCS.若途中中止(escape),系統會停放在WCS.
8 ~- {7 y' a. n7 D, E
這是小弟的另一拙作,希望幫到大家.

phimon

这个不错，感谢分享，下来测试。