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

smallfai

Autolisp-快速注標线段或兩點之間的長度、方位角
5 f2 V: {' p3 @# T, C; T0 Q- y使用方法oad入之後在对話窓鍵入db,選擇线段(S)或兩點(T).
- B  R+ V9 V6 v/ l3 s8 s) e1,若選擇线段(直綫),輸入文字風格(TEXT STYLE),若鍵入空白金(space),會選用現行的風格(current).之後選擇线段(直綫),輸入文字高度,最後選擇文字的位置.
2 s1 h2 Q' N- B- R2,若選擇兩點,選擇起點後選擇終點(舉例若想知由A点至B点的方位角,先選擇A點後選擇B點),輸入文字風格(TEXT STYLE),若鍵入空白金(space),會選用現行的風格(current),輸入文字高度,最後選擇文字的位置.
0 \/ y' Y. _) R' N. A! W9 A% [
( _  J. u, s. Q& X9 Q2 \P.S.-此程式是在WCS進行,i.e.開始程式後系統會由UCS自動轉為WCS(若你工作的圖是在UCS進行),但完成後會自動轉回UCS.若途中中止(escape),系統會停放在WCS.

% I6 Q, b5 r5 B' v9 t這是小弟的另一拙作,希望幫到大家.

phimon

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