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

跪求各路英雄好漢高手們 幫小弟修改一下 假設圖面單位是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)
)


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


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