AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

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

上一篇主題 下一篇主題 向下

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

發表 由 k172924 于 2011-04-28, 16:50

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




k172924 在 2011-05-26, 12:47 作了第 3 次修改
avatar
k172924
一般會員
一般會員

文章總數 : 41
年齡 : 38
來自 : 台灣 台北
職業 : 土地測量
愛好 : 電腦
個性 : 勇於嘗試 喜愛冒險
使用年資 : 7
使用版本 : R14 2010 2012 MAC 2014
經驗值 : 2960
威望值 : 12
注冊日期 : 2009-12-18
男 獅子座 羊

回頂端 向下

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

發表 由 阿希 于 2011-04-29, 05:18

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

看不懂你要的需求
愛哭 愛哭

阿希
高級會員
高級會員

文章總數 : 335
年齡 : 36
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 4079
威望值 : 196
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

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

發表 由 k172924 于 2011-04-29, 05:51

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

文章總數 : 41
年齡 : 38
來自 : 台灣 台北
職業 : 土地測量
愛好 : 電腦
個性 : 勇於嘗試 喜愛冒險
使用年資 : 7
使用版本 : R14 2010 2012 MAC 2014
經驗值 : 2960
威望值 : 12
注冊日期 : 2009-12-18
男 獅子座 羊

回頂端 向下

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

發表 由 tarpon 于 2011-05-05, 14:12

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)
)

您要順時鐘方向指北我現在才看到 三條線 明天有空在改一下
avatar
tarpon
中級會員
中級會員

文章總數 : 201
年齡 : 27
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 3529
威望值 : 238
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

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

發表 由 tarpon 于 2011-05-05, 15:27

加上順時針及北向
;求距離及方位角
(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)
)


tarpon 在 2011-05-05, 18:11 作了第 1 次修改
avatar
tarpon
中級會員
中級會員

文章總數 : 201
年齡 : 27
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 3529
威望值 : 238
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

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

發表 由 k172924 于 2011-05-05, 18:08

謝謝您,我再把這些匯入到CAD試試看,感謝大大喔
avatar
k172924
一般會員
一般會員

文章總數 : 41
年齡 : 38
來自 : 台灣 台北
職業 : 土地測量
愛好 : 電腦
個性 : 勇於嘗試 喜愛冒險
使用年資 : 7
使用版本 : R14 2010 2012 MAC 2014
經驗值 : 2960
威望值 : 12
注冊日期 : 2009-12-18
男 獅子座 羊

回頂端 向下

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

發表 由 tarpon 于 2011-05-05, 18:15

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

您要的角度單位是度分秒還是土地測量單位呀還是其它的
avatar
tarpon
中級會員
中級會員

文章總數 : 201
年齡 : 27
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 3529
威望值 : 238
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

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

發表 由 k172924 于 2011-05-05, 18:24

土地測量的
avatar
k172924
一般會員
一般會員

文章總數 : 41
年齡 : 38
來自 : 台灣 台北
職業 : 土地測量
愛好 : 電腦
個性 : 勇於嘗試 喜愛冒險
使用年資 : 7
使用版本 : R14 2010 2012 MAC 2014
經驗值 : 2960
威望值 : 12
注冊日期 : 2009-12-18
男 獅子座 羊

回頂端 向下

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

發表 由 tarpon 于 2011-05-05, 19:16

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

文章總數 : 201
年齡 : 27
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 3529
威望值 : 238
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

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

發表 由 pizg 于 2011-05-06, 05:50

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

文章總數 : 253
年齡 : 52
來自 : 桃園縣
職業 : 建築設計;程式設計
愛好 : 音樂;攝影;繪畫;棋奕;電腦
個性 : 隨和
使用年資 : 20↑
使用版本 : 2010
積分 : 10
經驗值 : 4023
威望值 : 320
發帖精華 : 1
注冊日期 : 2010-04-16
串連貼紙成功 男 摩羯座 龍

回頂端 向下

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

發表 由 tarpon 于 2011-05-06, 07:43

加上文字
代碼:
;求距離及方位角
(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>
[公告]關於團隊成員的回文及貢獻


Tiger&蘋果爸 在 2011-05-06, 08:16 作了第 1 次修改 (原因 : 太酷啦~)
avatar
tarpon
中級會員
中級會員

文章總數 : 201
年齡 : 27
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 3529
威望值 : 238
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

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

發表 由 tarpon 于 2011-05-06, 15:18

謝謝蘋果爸的html語法記下來了感謝呢 熱情
avatar
tarpon
中級會員
中級會員

文章總數 : 201
年齡 : 27
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 3529
威望值 : 238
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

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

發表 由 k172924 于 2011-05-26, 12:48

謝謝pizg老師 tarpon問題已經解決了 謝謝各位論壇的老師及前輩
avatar
k172924
一般會員
一般會員

文章總數 : 41
年齡 : 38
來自 : 台灣 台北
職業 : 土地測量
愛好 : 電腦
個性 : 勇於嘗試 喜愛冒險
使用年資 : 7
使用版本 : R14 2010 2012 MAC 2014
經驗值 : 2960
威望值 : 12
注冊日期 : 2009-12-18
男 獅子座 羊

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章