[已解決]請教關於距離方位角LSP

由於工作的關係需要用到距離方位角,但是電腦作業平台已經用Windows7,舊版的R14已經無法在Windows7上使用,但是新CAD如果沒有LSP來輔助,只能在格式\單位\修改角度類型改為0d00'00",順時鐘打勾,方向改為指北
\再由清單讀取距離方位角,請問有大大會寫這方面的LSP嗎?只要點選標註端點就可以在線段中點顯示[距離]及[方位角],圖面中雲行線框起來就是現況的樁位距離方位角數據

k172924 寫到:由於工作的關係需要用到距離方位角,但是電腦作業平台已經用Windows7,舊版的R14已經無法在Windows7上使用,但是新CAD如果沒有LSP來輔助,只能在格式\單位\修改角度類型改為0d00'00",順時鐘打勾,方向改為指北
\再由清單讀取距離方位角,請問有大大會寫這方面的LSP嗎?只要點選標註端點就可以在線段中點顯示[距離]及[方位角]

看不懂你要的需求

抱歉 因為昨晚忘記附上圖 所以大家才不知道我在講的是甚麼

to k172924
不知是否是您要的土地測量單位
文字輸入部份讓您當功課
;求距離及方位角
(defun c:angdls()
(setvar "cmdecho" 1)
(setvar "aunits" 4);設定單位角度為土地測量單位
(setq do1(getpoint "\n請點選測量起始點:"))
(setq do2(getpoint do1 "\n請點選測量終點:"))
(setq ds1(rtos(distance do1 do2) 2 2));測量距離
(command "line" do1 do2 "");繪線
(setq ang1(angtos (getvar "lastangle") 4 2));取出方位角值
(setq ls1(strcat "距離=>>" ds1 "&" "方位角=>>" ang1));結合字串
(alert ls1);螢幕列示弧長及半徑
(setvar "aunits" 0);設定單位角度為十進位
(setvar "cmdecho" 0)
(princ)
)

您要順時鐘方向指北我現在才看到 明天有空在改一下

加上順時針及北向
;求距離及方位角
(defun c:angdls()
(setvar "cmdecho" 1)
(setvar "angbase" 1.570795);北
(setvar "aunits" 1);設定單位角度為度分秒
(setvar "angdir" 1);順時針
(setvar "auprec" 3);精度
(setq do1(getpoint "\n請點選測量起始點:"))
(setq do2(getpoint do1 "\n請點選測量終點:"))
(setq ds1(rtos(distance do1 do2) 2 2));測量距離
(command "line" do1 do2 "");繪線
(setq ang1(angtos (getvar "lastangle") 1 4));取出方位角值
(setq ls1(strcat "距離=>>" ds1 "&" "方位角=>>" ang1));結合字串
(alert ls1);螢幕列示距離及方位角
(setvar "aunits" 0);設定單位角度為十進位
(setvar "angdir" 0);逆時針
(setvar "angbase" 0);東
(setvar "auprec" 0);精度
(setvar "cmdecho" 0)
(princ)
)

謝謝您,我再把這些匯入到CAD試試看,感謝大大喔

k172924 寫到:謝謝您,我再把這些匯入到CAD試試看,感謝大大喔

您要的角度單位是度分秒還是土地測量單位呀還是其它的

土地測量的

看您的附圖是138d23'12"是度分秒
如果用土地測量會不同
程式我已改為度分秒
----------------
另外距離辰的為M
那圖上1單位=mm or cm or m
距離計算值需乘或除10 or 100
程式需修改

tarpon兄~你提供的程式還不錯,
但需注意的是...
如果在畫線當中不小心按下 Esc 鍵或
因未知因素而導致程式無法順利結束時,
CAD將會產生角度系統錯亂.
本人建議該程式還需再加個錯誤處理,
才算完整.

加上文字

代碼:

;求距離及方位角
(defun c:angdls(/ do1 do2 do3 do4 do5 do6 ang1 ang2 ds1 th1 ls1)
  (setvar "cmdecho" 1)
  (setvar "angbase" 1.570796327);北
  (setvar "aunits" 1);設定單位角度為度分秒
  (setvar "angdir" 1);順時針
  (setvar "auprec" 3);精度
  (setq do1(getpoint "\n請點選測量起始點:"))
  (setq do2(getpoint do1 "\n請點選測量終點:"))
  (setq ang2(angle do1 do2));測量起點到終點角度
  (setq ds1(rtos(/ (distance do1 do2) 100.0) 2 2));測量距離若圖上1單位等於1cm則除以100等於1M
  (setq ds1(strcat ds1 "M"));距離加上M
  (command "line" do1 do2 "");繪線
  (setq ang1(angtos (getvar "lastangle") 1 4));取出方位角值
  (setq th1(getvar "textsize"));取出現有字高
  (setq do3(polar do1 (+ ang2 (/ pi 2.0)) (* th1 1.5)))
  (setq do4(polar do3 ang2 (/ (distance do1 do2) 2.0)));距離文字位置
  (setq do5(polar do1 (- ang2 (/ pi 2.0)) (* th1 1.5)))
  (setq do6(polar do5 ang2 (/ (distance do1 do2) 2.0)));方位角文字位置
  (command "text" "m" do4 th1 (angtos ang2 0 2) ds1 "");寫入距離
  (command "text" "m" do6 th1 (angtos ang2 0 2) ang1 "");寫入方位角
  ;(setq ls1(strcat "距離=>>" ds1 "&" "方位角=>>" ang1));結合字串
  ;(alert ls1);螢幕列示距離及方位角
  (setvar "aunits" 0);設定單位角度為十進位
  (setvar "angdir" 0);逆時針
  (setvar "angbase" 0);東
  (setvar "auprec" 0);精度
  (setvar "cmdecho" 0)
  (princ)
)

--------------------------
非常感謝pizg的建議
以前都沒想到錯誤中斷處置

---

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

謝謝蘋果爸的html語法記下來了感謝呢

謝謝pizg老師 tarpon問題已經解決了 謝謝各位論壇的老師及前輩