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

[討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據

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

[討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據

發表 由 rickey0228 于 2012-08-31, 13:25

跪求各路英雄好漢高手們 幫小弟修改一下 假設圖面單位是cm 換算線長後直接顯示台尺數據於圖面上 (因自己試了好久還是不行...畢竟自己還是外行,)並且將字高設定拿掉.直接配合圖面字高..感謝 萬事拜託...謝謝

代碼:
(defun c:EB1()

(setvar "cmdecho" 0)

(setq en (entsel "\n選取圓、線、弧、聚合線計算長度: "))

(while en

(setq en (car en))

(command "lengthen" en "")

(setq dd (getvar "perimeter"))

(princ (strcat "\n長度=" (rtos dd 2)"cm"))

(setq pt (getpoint "\n文字插入點: "))

(setq old_hh (getvar "textsize"))

(setq str_hh (strcat "\n文字高度 <" (rtos old_hh 2) ">: "))

(setq hh (getdist pt str_hh))

(if (null hh) (setq hh old_hh))

(command "text" pt hh 0 (strcat "" (rtos dd 2)""))

(setq en (entsel "\n選取圓、線、弧、聚合線計算長度: "))
)
(prin1)
)
avatar
rickey0228
一般會員
一般會員

文章總數 : 19
年齡 : 44
來自 : 桃園
職業 : 室內裝潢設計及機械
愛好 : 爬山玩電腦
個性 : 大而化之由繁而簡
使用年資 : 6個月
使用版本 : 2012
經驗值 : 2494
威望值 : 12
注冊日期 : 2011-05-15
藍鵲143號
男 獅子座 牛

回頂端 向下

回復: [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據

發表 由 adslwang 于 2012-09-01, 04:43

不錯歐 把範例一字不差的全部貼上來 只差改成EB1 屌! 讚啦!!


改單位比較簡單順手改了一下,把這一行換掉就可以了
把原有的公分/30.3就是台尺了........
(command "text" pt hh 0 (strcat "" (rtos (/ dd 30.3) 2) "(台尺)"))



avatar
adslwang
高級會員
高級會員

文章總數 : 372
年齡 : 39
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 4657
威望值 : 355
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

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


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