[討論]LISP文字放大問題

我想做一個 把文字1放大N倍後 用(STRCAT)+入到文字2的前面 但文字2的字沒有變大
文字１：Ａ　　文字２：Ｂ
A→AB
如果用下面lisp改的話 文字AB會一起變大 或是有辦法可以只讓B變大?
(defun c:BIG()
(setvar "cmdecho" 0)
(setq en (entsel "1文字"))
(setq en_data (entget (car en)))
(setq en_txt (cdr (assoc 1 en_data)))
(setq oldt (assoc 1 en_data))
(setq en2 (entsel "2文字"))
(setq en2_data (entget (car en2)))
(setq en2_txt (cdr (assoc 1 en2_data)))
(setq newt (cons 1 en2_txt))
(setq en2_data (subst oldt newt en2_data))
(entmod en2_data)
(setq en_rad (cdr (assoc 40 en_data)))
(setq oldr (assoc 40 en_data))
(setq newr (cdr (assoc 40 en2_data)))
(setq newrr (cons 40 newr))
(setq en4_data (subst oldr newrr en2_data))
(entmod en4_data)
)
(prin1)


LISP 新手 請各位大大幫幫忙 給個提示 小弟自己寫看看

把2個選到的文字靠在一起..不要用STRCAT
移動其中一個..對齊到令一個文字後面或前面.

原來還可以這麼做,
shenhung大大,變一下就通了,真有你的.

雖然跟我要的有點不太一樣XD但是感謝大大分享
我試試看

一般TEXT沒辦法2個字大小不一樣.!!
如果你要2個文字結合..可以改用MTEXT 試試
A 和 B 分別為你所選取的文字1和文字2..利用STRCAT 結合成下面文字內容..然後在多行文字內容輸入 A{\\H0.3333X;B}
意思是.以A字高為基準. B字高為A字高的0.3333倍.
(倍數是.文字1字高和文字2.字高相除所得)
A字高變更 B也會一起變更 ..MTEXT 炸開後..為2個獨立文字.
如此.不知道是不是你要的呢?

感謝大大 這是我想要的XD 3Q
順便問個問題@@
(1 . "\\A1;14{\\H0.7x;\\S+0.2^-0.3;}")
如果是像這樣的多行文字 怎把它{\\H0.7x;\\S+0.2^-0.3;} 叫出來做更改?
以LISP方式

(setq txt-val (cdr (assoc 1 (entget (car (entsel))))))
上面的意思是.把選取得文字的值設給txt-val 變數

你想寫的可是公差標註LISP?

恩 是的@@
A{\\H0.3333X;B}
的;
不是會當作是註解嗎@@?
是否有範例之類的 可提示我?

程式分享第4頁.有我寫的尺寸公差編修程式..開放源代碼..
你可以參考看看.建議多爬文.或許可以找到意想不到的資料.

令外就你提問的方式.良心給你建議.!! 你可以一開始就把你想寫程式的功能和目的說明清楚..你想做什麼樣的程式.比方你在這的目的是想寫個公差標註的程式.!! 讓別人很快了解你的目的.這樣也可以比較快幫到你的忙.你可以節省很多時間喔..或者其他人有撰寫的經驗也可以提供給你!!祝你學習愉快~

感謝shenhung大大的無私分享,小弟也去下載來觀摩學習了.

感謝shenhung大大的分享與建議 3Q>"<
可惜的是現在還無權利進去分享區Orz

我已發短信將載點給你.

3Q 感謝大大熱心幫忙以及分享^^