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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Ioaoe110 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  2020-310 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Oiu15010 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  2020-211 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Ia15010 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aizyao10 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Uos15010 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  BPl3tjj [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Ziao1510
 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Oo-2-110 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Zuoiy_10 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aizyao11 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Iyb_1510 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aoe1-111 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Uos15011 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aoe2da10 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aoe2da11 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aoe10

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

2 posters

向下

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

發表 由 rickey0228 2012-08-31, 20: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)
)
rickey0228
rickey0228
一般會員
一般會員

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

回頂端 向下

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

發表 由 adslwang 2012-09-01, 11:43

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


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



adslwang
adslwang
高級會員
高級會員

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Ioaoe110 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  2020-310 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Oiu15010 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  2020-211 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Ia15010 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aizyao10 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Uos15010 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  BPl3tjj [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Ziao1510
 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Oo-2-110 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Zuoiy_10 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aizyao11 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Iyb_1510 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aoe1-111 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Uos15011 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aoe2da10 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aoe2da11 [討論]求助各位大大幫修改LISP計算長度後換算後顯示台尺數據  Aoe10