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

[已解決]有關座標標示X座標要2倍的寫法

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

[已解決]有關座標標示X座標要2倍的寫法

發表 由 chengejay 于 2014-01-23, 03:27

小弟上網爬文好久,找到這座標標示的LISP,以下字串是
 
;DE command will dimension the xy coords of the endpoint of any line
; or arc with leader, with text automatic and inserted as X 0.3426 , Y 6.4356
(defun c:de ()
    (setvar "cmdecho" 0)
    (command "osnap" "end")
    (setq p1 (getpoint "Select line near endpoint"))
    (setq p2 (getpoint p1 "Select cen of Leader"))
    (setq px (rtos (nth 0 p1 ) 2 4))
    (setq py (rtos (nth 1 p1 ) 2 4))
    (setq txt (strcat "x " px " , " "y " py))
    (command "dim1" "leader" p1 p2 "" txt)
    (setvar "cmdecho" 1)
)
 
在座標標示,假設標示是 X 10 Y 10   但是我希望 X10 標示可以幫我運算 乘2  ,  變成顯示 X20 Y10
請問要怎麼改,麻煩有哪位前輩可以指導一下,謝謝

■LSP下載: https://app.box.com/s/w35zlrj5okgog6mkfs92


chengejay 在 2014-01-23, 07:06 作了第 1 次修改
avatar
chengejay
一般會員
一般會員

文章總數 : 7
年齡 : 33
來自 : 台北
職業 : CNC
愛好 : 上網
個性 : 樂觀,執著
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1336
威望值 : 0
注冊日期 : 2014-01-22
男 水瓶座 鼠

回頂端 向下

回復: [已解決]有關座標標示X座標要2倍的寫法

發表 由 Tiger&蘋果爸 于 2014-01-23, 04:26

請找到這行 (nth 0 p1 )
代碼:
(setq px (rtos (nth 0 p1 ) 2 4))

改為 (* (nth 0 p1 ) 2) 即可
代碼:
(setq px (rtos (* (nth 0 p1 ) 2) 2 4))
 竊喜

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17061
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 63854
威望值 : 12639
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回復: [已解決]有關座標標示X座標要2倍的寫法

發表 由 chengejay 于 2014-01-23, 07:05

弄了好久,看來要學習的還很多,感謝蘋果爸了
avatar
chengejay
一般會員
一般會員

文章總數 : 7
年齡 : 33
來自 : 台北
職業 : CNC
愛好 : 上網
個性 : 樂觀,執著
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 1336
威望值 : 0
注冊日期 : 2014-01-22
男 水瓶座 鼠

回頂端 向下

回復: [已解決]有關座標標示X座標要2倍的寫法

發表 由 Tiger&蘋果爸 于 2014-01-23, 07:15

chengejay 寫到:弄了好久,看來要學習的還很多,感謝蘋果爸了
別客氣~只要不是太難的我還可以幫忙!
 竊喜 

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17061
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 63854
威望值 : 12639
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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


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