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

[討論]LISP文字放大問題

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

[討論]LISP文字放大問題

發表 由 as920029as 于 2012-06-29, 10:14

我想做一個 把文字1放大N倍後 用(STRCAT)+入到文字2的前面 但文字2的字沒有變大
文字1:A  文字2:B
AAB
如果用下面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 新手 愛哭 請各位大大幫幫忙 給個提示 小弟自己寫看看


as920029as 在 2012-07-03, 05:17 作了第 1 次修改
avatar
as920029as
一般會員
一般會員

文章總數 : 53
年齡 : 26
來自 : 台南市
職業 : 繪圖員
愛好 : 電腦遊戲
個性 : 開朗
使用年資 : 3年
使用版本 : 2010
經驗值 : 2308
威望值 : 31
注冊日期 : 2012-05-05
男 白羊座 羊

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 shenhung 于 2012-06-29, 11:24

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

文章總數 : 238
年齡 : 50
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5003
威望值 : 913
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 ginse0727 于 2012-06-29, 14:12

原來還可以這麼做,
shenhung大大,變一下就通了,真有你的. 讚啦!!
avatar
ginse0727
高級會員
高級會員

文章總數 : 256
年齡 : 43
來自 : 台北巿
職業 : 帷幕牆
愛好 : 電玩,漫畫,網路小說
個性 : 宅男/正直/死腦筋
使用年資 : 退伍後工作迄今,10年以上
使用版本 : 2012
積分 : 14
經驗值 : 4229
威望值 : 492
發帖精華 : 1
注冊日期 : 2010-07-12
經典問與答讀者 藍鵲61號
2011聚會勳章 男 獅子座 虎

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 as920029as 于 2012-06-30, 00:49

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

文章總數 : 53
年齡 : 26
來自 : 台南市
職業 : 繪圖員
愛好 : 電腦遊戲
個性 : 開朗
使用年資 : 3年
使用版本 : 2010
經驗值 : 2308
威望值 : 31
注冊日期 : 2012-05-05
男 白羊座 羊

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 shenhung 于 2012-06-30, 03:24

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

avatar
shenhung
高級會員
高級會員

文章總數 : 238
年齡 : 50
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5003
威望值 : 913
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 as920029as 于 2012-06-30, 05:16

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

文章總數 : 53
年齡 : 26
來自 : 台南市
職業 : 繪圖員
愛好 : 電腦遊戲
個性 : 開朗
使用年資 : 3年
使用版本 : 2010
經驗值 : 2308
威望值 : 31
注冊日期 : 2012-05-05
男 白羊座 羊

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 shenhung 于 2012-06-30, 05:30

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

你想寫的可是公差標註LISP?
avatar
shenhung
高級會員
高級會員

文章總數 : 238
年齡 : 50
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5003
威望值 : 913
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 as920029as 于 2012-07-01, 14:03

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

文章總數 : 53
年齡 : 26
來自 : 台南市
職業 : 繪圖員
愛好 : 電腦遊戲
個性 : 開朗
使用年資 : 3年
使用版本 : 2010
經驗值 : 2308
威望值 : 31
注冊日期 : 2012-05-05
男 白羊座 羊

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 shenhung 于 2012-07-04, 05:35

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

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

文章總數 : 238
年齡 : 50
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5003
威望值 : 913
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 ginse0727 于 2012-07-04, 05:40

感謝shenhung大大的無私分享,小弟也去下載來觀摩學習了. 嘻嘻
avatar
ginse0727
高級會員
高級會員

文章總數 : 256
年齡 : 43
來自 : 台北巿
職業 : 帷幕牆
愛好 : 電玩,漫畫,網路小說
個性 : 宅男/正直/死腦筋
使用年資 : 退伍後工作迄今,10年以上
使用版本 : 2012
積分 : 14
經驗值 : 4229
威望值 : 492
發帖精華 : 1
注冊日期 : 2010-07-12
經典問與答讀者 藍鵲61號
2011聚會勳章 男 獅子座 虎

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 as920029as 于 2012-07-04, 12:28

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

文章總數 : 53
年齡 : 26
來自 : 台南市
職業 : 繪圖員
愛好 : 電腦遊戲
個性 : 開朗
使用年資 : 3年
使用版本 : 2010
經驗值 : 2308
威望值 : 31
注冊日期 : 2012-05-05
男 白羊座 羊

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 shenhung 于 2012-07-04, 13:16

我已發短信將載點給你.
avatar
shenhung
高級會員
高級會員

文章總數 : 238
年齡 : 50
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5003
威望值 : 913
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

回復: [討論]LISP文字放大問題

發表 由 as920029as 于 2012-07-05, 00:48

3Q 感謝大大熱心幫忙以及分享^^
avatar
as920029as
一般會員
一般會員

文章總數 : 53
年齡 : 26
來自 : 台南市
職業 : 繪圖員
愛好 : 電腦遊戲
個性 : 開朗
使用年資 : 3年
使用版本 : 2010
經驗值 : 2308
威望值 : 31
注冊日期 : 2012-05-05
男 白羊座 羊

回頂端 向下

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


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