【回帖精華】請問lisp要如何寫引線文字

請問各位大大
當我在程式中 給予各參數值後
例如
(setq aa 10.5) (setq bb 21.8)
(setq cc (+ aa bb))
我想要寫出
引線文字
文字內容為 10.5+21.8=32.3
我是用qleader
但是我想要將文字置於引線上方
請各位大大指導方向
謝謝

請參考，有更好的方法的朋友也請補充一下~

(atof 字串) 將字串轉成實數值，然後才能運算(相加)。

(rtos 數值 模式 [精度]) 將實數轉成字串，然後把字串抓出來給引線文字使用!!

感謝蘋果爸
我的意思是說
我的程式中
(command "qleader" p1 p2 -------)
在p2後面之後 我要怎麼寫 文字才會在線上

由於功力不夠，僅提供＂leader＂的指令來輔助。
將下列分隔線中的文字複製貼上到 *.lsp 的檔案內，在指令列中鍵入＂qer＂指令就可以了，順帶一提，除了沒有辦法像＂qleader＂指令那樣，可以有折線的方式表現，但是這個指令在各個方向都可以正常的標註，也請放心使用。

;--------分隔線--------
(Defun C:qer(/ P1 P2)
(Setvar "cmdecho" 0)
(Setvar "blipmode" 0)
(Setq P1 (Getpoint "\nQER ★請指定標示點："))
(Setq P2 (Getpoint P1 "\n ☆第二點："))
(Command "leader" P1 P2 "" "10.5+21.8=32.3" "" "")
(princ"\n完成『快速引線標註』")
(princ)
)
;--------分隔線--------

雖然判斷大大應該會載入 *.lsp 檔案，但是我還是在以下，作載入的說明：
1. 存好檔後，請執行＂appload＂指令後。
2. 到＂載入/釋放應用程式＂對話框中的，＂啟動套件＂欄內按下＂內容(O)...＂，在啟動套件對話框中按下＂加入(A)...＂，點選剛剛儲存的 *.lsp 檔案，再按下加入，確定在啟動套件對話框中的＂應用程式列示:＂清單內，出現點選的 *.lsp 檔案，按下關閉。
3. 接著在載入/釋放應用程式對話框中，也是點選一下剛剛儲存的 *.lsp 檔案，按下載入，再按下關閉。

以上為完成的畫面～

使用QLEADER指令你必須先至"設定"功能中設定好連結多行文字的模式,在"貼附"頁面-->核取底行文字加底線,接著執行以下這段程式即可,如須經常使用建議你先設定在樣板檔中,程式中你可以標註前輸入兩個數值,程式就會幫你運算並寫出運算式及結果
程式中不需設定第二點 P2 這樣你標註時就看不到引線的預視,所以第二點只須給暫停即可.

代碼:

(DEFUN C:QLE (/ OSM TX1 TX2 TX3 TXT P1 SL)
  (SETVAR "CMDECHO" 0)
  (SETVAR "BLIPMODE" 0)
  (SETQ OSM (GETVAR "OSMODE"))
  (INITGET "A S M D")
  (PRINC "\n選擇運算方式 加法(A)/減法(S)/乘法(M)/除法(D) <A>：")
  (SETQ SL (GETKWORD))
  (IF (NULL SL) (SETQ SL "A"))
  (SETQ TX1 (GETREAL "\n輸入第一個值："))
  (IF (= TX1 nil) (EXIT))
  (SETQ TX2 (GETREAL "\n輸入第二個值："))
  (IF (= TX2 nil) (EXIT))
  (COND ((= SL "A") (SETQ TX3 (RTOS (+ TX1 TX2)))
                    (SETQ TXT (STRCAT (RTOS TX1) "+" (RTOS TX2) "=" TX3))
 )
 ((= SL "S") (SETQ TX3 (RTOS (- TX1 TX2)))
                    (SETQ TXT (STRCAT (RTOS TX1) "-" (RTOS TX2) "=" TX3))
 )
 ((= SL "M") (SETQ TX3 (RTOS (* TX1 TX2)))
                    (SETQ TXT (STRCAT (RTOS TX1) "x" (RTOS TX2) "=" TX3))
 )
 ((= SL "D") (SETQ TX3 (RTOS (/ TX1 TX2)))
                    (SETQ TXT (STRCAT (RTOS TX1) "/" (RTOS TX2) "=" TX3))
 )
  );COND
  (SETVAR "OSMODE" 513)
  (SETQ P1 (GETPOINT "\n指定引線的起點："))
  (PRINC "\n指定下一點:\：")
  (COMMAND "QLEADER" P1 PAUSE "" "" TXT "")
  (SETVAR "OSMODE" OSM)
  (SETVAR "CMDECHO" 1)
  (SETVAR "BLIPMODE" 1)
  (PRINC)
)  

---

恭喜您的回覆獲選為回帖精華文章！ < 積分+1、威望+3 >

[公告]關於論壇的文章價值

▼20160719補充下載QLE.LSP檔▼

感覺好精華阿XD

jaterfor 寫到:
;--------分隔線--------
(Defun C:qer(/ P1 P2)
(Setvar "cmdecho" 0)
(Setvar "blipmode" 0)
(Setq P1 (Getpoint "\nQER ★請指定標示點："))
(Setq P2 (Getpoint P1 "\n ☆第二點："))
(Command "leader" P1 P2 "" "10.5+21.8=32.3" "" "")
(princ"\n完成『快速引線標註』")
(princ)
)
;--------分隔線--------

張譽璋 寫到:

代碼:

(DEFUN C:QLE (/ OSM TX1 TX2 TX3 TXT P1 SL)
  (SETVAR "CMDECHO" 0)
  (SETVAR "BLIPMODE" 0)
  (SETQ OSM (GETVAR "OSMODE"))
  (INITGET "A S M D")
  (PRINC "\n選擇運算方式 加法(A)/減法(S)/乘法(M)/除法(D) <A>：")
  (SETQ SL (GETKWORD))
  (IF (NULL SL) (SETQ SL "A"))
  (SETQ TX1 (GETREAL "\n輸入第一個值："))
  (IF (= TX1 nil) (EXIT))
  (SETQ TX2 (GETREAL "\n輸入第二個值："))
  (IF (= TX2 nil) (EXIT))
  (COND ((= SL "A") (SETQ TX3 (RTOS ( TX1 TX2)))
                    (SETQ TXT (STRCAT (RTOS TX1) " " (RTOS TX2) "=" TX3))
        )
        ((= SL "S") (SETQ TX3 (RTOS (- TX1 TX2)))
                    (SETQ TXT (STRCAT (RTOS TX1) "-" (RTOS TX2) "=" TX3))
        )
        ((= SL "M") (SETQ TX3 (RTOS (* TX1 TX2)))
                    (SETQ TXT (STRCAT (RTOS TX1) "x" (RTOS TX2) "=" TX3))
        )
        ((= SL "D") (SETQ TX3 (RTOS (/ TX1 TX2)))
                    (SETQ TXT (STRCAT (RTOS TX1) "/" (RTOS TX2) "=" TX3))
        )
  );COND
  (SETVAR "OSMODE" 513)
  (SETQ P1 (GETPOINT "\n指定引線的起點："))
  (PRINC "\n指定下一點：")
  (COMMAND "QLEADER" P1 PAUSE "" "" TXT "")
  (SETVAR "OSMODE" OSM)
  (SETVAR "CMDECHO" 1)
  (SETVAR "BLIPMODE" 1)
  (PRINC)
)

******************************************************
謝謝 jaterfor及張譽璋 熱心回覆~< 積分 +1>

[公告]關於團隊成員的回文及貢獻

swcforest 寫到:感謝蘋果爸
我的意思是說
我的程式中
(command "qleader" p1 p2 -------)
在p2後面之後 我要怎麼寫 文字才會在線上

了解。
寫引線文字使用lisp方式，請問你的需求是為何呢!?

而上面二位的程式也請你試試看!

張譽璋 寫到: (COND ((= SL "A") (SETQ TX3 (RTOS ( TX1 TX2)))
(SETQ TXT (STRCAT (RTOS TX1) " " (RTOS TX2) "=" TX3))

張老師
加法這部份使用後發現無法使用，研判程式中少了 + 號 ，我補了之後即可正常使用。
謝謝~

(COND ((= SL "A") (SETQ TX3 (RTOS (+ TX1 TX2)))
(SETQ TXT (STRCAT (RTOS TX1) "+" (RTOS TX2) "=" TX3))

感謝各位熱心的大大提供方法
因為小弟我自己本身有再寫程式
方便標準圖製作
我想要給參數後
自動劃出各種標準圖 例如三視圖
然後將一些尺寸標註及說明文字 自動建立
這樣以後就可省下很多時間來畫圖
再次感謝各位大大分享
感激不盡

謝謝蘋果爸,貼程式時第一次用代碼功能,改了幾次竟然把程式給漏了符號,謝謝您的訂正.

swcforest 寫到:感謝各位熱心的大大提供方法
因為小弟我自己本身有再寫程式
方便標準圖製作
我想要給參數後
自動劃出各種標準圖 例如三視圖
然後將一些尺寸標註及說明文字 自動建立
這樣以後就可省下很多時間來畫圖
再次感謝各位大大分享
感激不盡

OK~
有問題請再提出來一起討論!!

張譽璋 寫到:謝謝蘋果爸,貼程式時第一次用代碼功能,改了幾次竟然把程式給漏了符號,謝謝您的訂正.

沒有啦!我知道這是筆誤，我也常常會這樣~

還是很感謝您的熱心分享!!

好酷~~~趕緊學起來!!!!
感謝大大分享

請問各位高手,qleader設定值每一項的參數為何?因為我要寫lisp,想把我要的設定值內定在程式中,以免在別台電腦上沒有使用我的樣板檔時,顯示方式會有錯誤
例如貼附項目中,勾不勾選選底行文字加底線,不勾選時,多行文貼附在何處也有好多設定值,請問這些參數各為何?