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

smallfai

Autolisp-快速注標线段或兩點之間的長度、方位角
1 d) N- e+ W6 a9 ?使用方法oad入之後在对話窓鍵入db,選擇线段(S)或兩點(T).
5 M' E, V9 B8 w. n! N1,若選擇线段(直綫),輸入文字風格(TEXT STYLE),若鍵入空白金(space),會選用現行的風格(current).之後選擇线段(直綫),輸入文字高度,最後選擇文字的位置.
# G  O  u* _5 W4 d2 E4 y2,若選擇兩點,選擇起點後選擇終點(舉例若想知由A点至B点的方位角,先選擇A點後選擇B點),輸入文字風格(TEXT STYLE),若鍵入空白金(space),會選用現行的風格(current),輸入文字高度,最後選擇文字的位置.

P.S.-此程式是在WCS進行,i.e.開始程式後系統會由UCS自動轉為WCS(若你工作的圖是在UCS進行),但完成後會自動轉回UCS.若途中中止(escape),系統會停放在WCS.
. `; r' f- \& L! O& F* {# Y) B; v
這是小弟的另一拙作,希望幫到大家.

phimon

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