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

smallfai

Autolisp-快速注標线段或兩點之間的長度、方位角
  p3 ^9 q. P# ]' o! F7 F4 ~使用方法oad入之後在对話窓鍵入db,選擇线段(S)或兩點(T).
1,若選擇线段(直綫),輸入文字風格(TEXT STYLE),若鍵入空白金(space),會選用現行的風格(current).之後選擇线段(直綫),輸入文字高度,最後選擇文字的位置.
2,若選擇兩點,選擇起點後選擇終點(舉例若想知由A点至B点的方位角,先選擇A點後選擇B點),輸入文字風格(TEXT STYLE),若鍵入空白金(space),會選用現行的風格(current),輸入文字高度,最後選擇文字的位置.
! y/ r) x: e1 c- \* X9 j
P.S.-此程式是在WCS進行,i.e.開始程式後系統會由UCS自動轉為WCS(若你工作的圖是在UCS進行),但完成後會自動轉回UCS.若途中中止(escape),系統會停放在WCS.

這是小弟的另一拙作,希望幫到大家.

phimon

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