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 - 頁 2 Io15011 [分享]英文文字大小寫轉換Lisp - 頁 2 2020-310 [分享]英文文字大小寫轉換Lisp - 頁 2 Oiu15010 [分享]英文文字大小寫轉換Lisp - 頁 2 2020-211 [分享]英文文字大小寫轉換Lisp - 頁 2 Oo-2-110 [分享]英文文字大小寫轉換Lisp - 頁 2 BPl3tjj

[分享]英文文字大小寫轉換Lisp

2頁(共2頁) 上一頁  1, 2

向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty [分享]英文文字大小寫轉換Lisp

發表 由 Tiger&蘋果爸 2017-11-29, 16:58

主題回顧 :

[分享]英文文字大小寫轉換Lisp - 頁 2 036010
關於圖面中的英文文字大小寫轉換,請問你會怎麼做? 疑問

▼以下影片操作分享,分為「預設」及「LISP程式」二種方式:


▼有需要程式的朋友可以下載(*下載網址回覆可見*)


____________________________________________________________________________________
[分享]英文文字大小寫轉換Lisp - 頁 2 Oo-2-110 [分享]英文文字大小寫轉換Lisp - 頁 2 Ia15010 [分享]英文文字大小寫轉換Lisp - 頁 2 Ziao1510 [分享]英文文字大小寫轉換Lisp - 頁 2 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19702
年齡 : 45
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2021
經驗值 : 78879
威望值 : 15154
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

tcm3144 likes this post

回頂端 向下


[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 amiablekk 2017-12-05, 08:43

工作上比較少用到,先來嘗試看看,備而不用。
amiablekk
amiablekk
新手上路
新手上路

文章總數 : 16
年齡 : 30
來自 : 新北板橋
職業 : 水利工程師
愛好 : 桌遊
個性 : 認真
使用年資 : 2年
使用版本 : 2018
經驗值 : 1393
威望值 : 0
注冊日期 : 2017-11-20
男 巨蟹座 馬

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 d24410 2017-12-05, 11:03

試用看看,感謝分享
d24410
d24410
初級會員
初級會員

文章總數 : 27
年齡 : 45
來自 : 台南市
職業 : 模具繪圖設計
愛好 : 看書
個性 : 內向
使用年資 : 13年
使用版本 : Auto CAD 2013
積分 : 1
經驗值 : 1750
威望值 : 30
注冊日期 : 2017-01-12
男 金牛座 龍

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 DANNY591 2017-12-06, 09:40

太棒了
正好用
DANNY591
DANNY591
一般會員
一般會員

文章總數 : 31
年齡 : 48
來自 : 南投
職業 : 公共工程
愛好 : 愛家
個性 : 平庸
使用年資 : 10
使用版本 : 2005
經驗值 : 3581
威望值 : 24
注冊日期 : 2012-02-15
經典問與答讀者 男 獅子座 鼠

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 stevewai 2017-12-06, 23:12

謝謝蘋果爸的分享~~好實用的程式~
stevewai
stevewai
新手上路
新手上路

文章總數 : 9
年齡 : 25
來自 : 澳門
職業 : 學生
愛好 : 旅行
個性 : 好學
使用年資 : 新手初學
使用版本 : 2015
積分 : 2
經驗值 : 1559
威望值 : 6
注冊日期 : 2017-04-19
男 雙子座 鼠

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 wedjat 2017-12-07, 10:05

感謝分享,很實用的小程式!!
wedjat
wedjat
一般會員
一般會員

文章總數 : 11
年齡 : 42
來自 : 苗栗
職業 : 機構設計
愛好 : 電玩
個性 : 隨和
使用年資 : 4
使用版本 : 2012
經驗值 : 2077
威望值 : 0
注冊日期 : 2015-11-24
男 天蝎座 馬

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 c1140c33 2017-12-07, 13:38

感謝蘋果爸 非常實用的LISP
c1140c33
c1140c33
一般會員
一般會員

文章總數 : 86
年齡 : 39
來自 : 台北
職業 : 工程師
愛好 : 電腦
個性 : 隨和
使用年資 : 5年
使用版本 : 2010
經驗值 : 4382
威望值 : 42
注冊日期 : 2010-06-29
藍鵲29號
男 獅子座 雞

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 babyinlove 2017-12-07, 14:11

感謝分享,真是太方便了。 認同
babyinlove
babyinlove
一般會員
一般會員

文章總數 : 4
年齡 : 36
來自 : 新北市
職業 : 繪圖
愛好 : 旅遊
個性 : 熱於助人
使用年資 : 4
使用版本 : 2015
經驗值 : 3625
威望值 : 0
注冊日期 : 2011-08-06
女 雙魚座 牛

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 SUNYUNG 2017-12-11, 11:24

感謝, 在平常的文字處理, 太有用了
SUNYUNG
SUNYUNG
一般會員
一般會員

文章總數 : 13
年齡 : 44
來自 : HONG KONG
職業 : DRAFTMANS
個性 : 精益求精
經驗值 : 4418
威望值 : 6
注冊日期 : 2009-06-24
男 白羊座 蛇

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 misol 2017-12-19, 22:13

感謝蘋果爸的分享!
misol
misol
初級會員
初級會員

文章總數 : 130
年齡 : 69
來自 : 新竹
職業 : 建築
愛好 : CAD製圖
個性 : 一般
使用年資 : 15
使用版本 : 2011.2012
積分 : 3
經驗值 : 4204
威望值 : 220
注冊日期 : 2012-04-17
經典問與答讀者 藍鵲489號
男 水瓶座 兔

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 christina chc 2017-12-26, 10:52

感謝蘋果爸的分享,非常受用
christina chc
christina chc
新手上路
新手上路

文章總數 : 10
年齡 : 35
來自 : 台北
職業 : 工程
愛好 : 軟體程式
個性 : 外向
使用年資 : 20
使用版本 : autocad2015
經驗值 : 2433
威望值 : 0
注冊日期 : 2014-11-24
女 雙子座 虎

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 daniel0216 2017-12-28, 16:30

感謝分享
daniel0216
daniel0216
新手上路
新手上路

文章總數 : 11
年齡 : 21
來自 : 高雄
職業 : 待業
愛好 : 3C
個性 : 活潑
使用年資 : 新手初學
使用版本 : 初學
經驗值 : 2307
威望值 : 0
注冊日期 : 2015-04-02
女 水瓶座 龍

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 kim910100 2018-01-02, 21:50

感謝無私的分享!
kim910100
kim910100
一般會員
一般會員

文章總數 : 22
年齡 : 36
來自 : Taipei
職業 : Engineer
愛好 : sport
個性 : friendly
使用年資 : 工作需要
使用版本 : 2013
經驗值 : 2434
威望值 : 0
注冊日期 : 2015-01-25
女 射手座 鼠

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 jjming 2018-01-05, 10:45

感謝分享,這樣可以一次轉換文字大小寫
jjming
jjming
新手上路
新手上路

文章總數 : 4
年齡 : 48
來自 : 高雄
職業 : 工程
愛好 : 看電影
個性 : 隨和
使用年資 : 10
使用版本 : 2012
經驗值 : 2628
威望值 : 0
注冊日期 : 2014-04-25
男 處女座 鼠

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 roch2034 2018-01-05, 14:33

剛好有用到來查詢~
果真有人分享
謝謝蘋果爸
roch2034
roch2034
一般會員
一般會員

文章總數 : 15
年齡 : 38
來自 : 高雄
職業 : 系統工程師
愛好 : 程式設計,攝影,旅遊,音樂
個性 : 溫和
經驗值 : 4358
威望值 : 0
注冊日期 : 2009-08-27
男 摩羯座 狗

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 jae.angel 2018-01-07, 19:38

感謝蘋果爸熱心分享~~很實用來試試看~~
jae.angel
jae.angel
一般會員
一般會員

文章總數 : 30
年齡 : 39
來自 : Tainan Taiwan
職業 : 營造內業工程師
愛好 : 聽音樂、攝影
個性 : 內向
使用年資 : 初學
使用版本 : 2010
經驗值 : 2853
威望值 : 0
注冊日期 : 2013-12-25
女 處女座 雞

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 謝謝

發表 由 ufochen 2018-01-20, 08:23

繪制時由最後統一整理大小自問題即可
好用工具 感謝!!
ufochen
ufochen
一般會員
一般會員

文章總數 : 18
年齡 : 41
來自 : taiwan
職業 : 營造水電
愛好 : moive
個性 : no
使用年資 : 10
使用版本 : 2014
經驗值 : 2684
威望值 : 0
注冊日期 : 2014-05-05
男 射手座 羊

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 daniel811 2018-03-01, 10:03

很實用的程式, 感謝!!
daniel811
daniel811
一般會員
一般會員

文章總數 : 4
年齡 : 29
來自 : HK
職業 : 待業
愛好 : 單車
個性 : 開朗
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2039
威望值 : 0
注冊日期 : 2015-12-11
男 獅子座 羊

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 ming1789 2018-04-01, 13:08

感謝分享
ming1789
ming1789
一般會員
一般會員

文章總數 : 26
年齡 : 45
來自 : 彰化
職業 : 機械
愛好 : 上網
個性 : 樂觀
使用年資 : 10
使用版本 : 2014
經驗值 : 1955
威望值 : 0
注冊日期 : 2016-06-18
男 獅子座 兔

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 vision25 2018-04-14, 22:47

感謝分享...!
vision25
vision25
一般會員
一般會員

文章總數 : 59
年齡 : 42
來自 : 新竹線
職業 : 測試
愛好 : 旅遊 攝影
個性 : 沉默寡言
使用年資 : 6
使用版本 : 2011
經驗值 : 4012
威望值 : 0
注冊日期 : 2011-02-01
男 雙子座 羊

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 djh1006 2018-05-22, 19:50

謝謝蘋果爸的分享,最近剛好有一個lisp程式需要用到轉換字母為大寫的功能
djh1006
djh1006
中級會員
中級會員

文章總數 : 173
年齡 : 49
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4859
威望值 : 345
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 djh1006 2018-05-24, 16:53

不好意思,修改了原著的程式,增加一些東西,可以多選並選取多行文字,只不過有個問題沒辦法解決
當多行文字超過二行時,若把多行文字轉換成小寫,僅會顯示一行(好奇怪),可是dxf群碼中的(1 . "sfsdf\\Psdfds\\Psdfds")是對的,但它就是只顯示sfsdf
這個時候再把同樣這個二行的多行文字轉換成大寫,它又會完整顯示二行多行文字
請大家一起來解答,謝謝
還有,我習慣把LISP指令寫成小寫,變數寫成大寫,這樣有利於閱讀和修改程式

修改後的程式已經發給蘋果爸
djh1006
djh1006
中級會員
中級會員

文章總數 : 173
年齡 : 49
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 4859
威望值 : 345
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 李幸笛 2018-08-28, 17:32

感謝分享
李幸笛
李幸笛
一般會員
一般會員

文章總數 : 35
年齡 : 45
來自 : 新北市
職業 : 待業
愛好 : 看書
個性 : 開朗
使用年資 : 4年
使用版本 : cad 2012
經驗值 : 3782
威望值 : 0
注冊日期 : 2011-07-13
女 摩羯座 兔

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 manh1 2018-09-13, 23:56

有這個LISP,可方便多,謝謝.
manh1
manh1
一般會員
一般會員

文章總數 : 13
年齡 : 32
來自 : 九龍
職業 : control
愛好 : 電腦
個性 : 平平
使用年資 : 5年
使用版本 : 2015
經驗值 : 2148
威望值 : 0
注冊日期 : 2015-10-08
男 獅子座 龍

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 rachellee 2021-06-09, 16:43

剛好要用到, 感謝~~
avatar
rachellee
初級會員
初級會員

文章總數 : 38
年齡 : 55
來自 : UIS
職業 : Reading
愛好 : 看韓劇
個性 : 樂觀
使用年資 : 20
使用版本 : acad2007中文版
積分 : 2
經驗值 : 4865
威望值 : 29
注冊日期 : 2008-06-18
女 處女座 蛇

回頂端 向下

[分享]英文文字大小寫轉換Lisp - 頁 2 Empty 回復: [分享]英文文字大小寫轉換Lisp

發表 由 LUCAS_LAI 2021-06-11, 10:42

djh1006 寫到:不好意思,修改了原著的程式,增加一些東西,可以多選並選取多行文字,只不過有個問題沒辦法解決
當多行文字超過二行時,若把多行文字轉換成小寫,僅會顯示一行(好奇怪),可是dxf群碼中的(1 . "sfsdf\\Psdfds\\Psdfds")是對的,但它就是只顯示sfsdf
這個時候再把同樣這個二行的多行文字轉換成大寫,它又會完整顯示二行多行文字
請大家一起來解答,謝謝
還有,我習慣把LISP指令寫成小寫,變數寫成大寫,這樣有利於閱讀和修改程式

修改後的程式已經發給蘋果爸

你把字中"\\P"轉為"\\p"了吧!
那些大小寫是不能改的 竊喜

代碼:

;;Mtext會很多特殊字元和符號(會出錯的)
;;By Lucas_lai(龍龍仔)
(defun C:CHCASES_LAI (/ FLAG SS N TEXT QQ)
 (vl-load-com)

 (defun STR_SUBST (STR OLD NEW / IDX)
   (setq IDX 0)
   (while (setq IDX (vl-string-search OLD STR IDX))
     (setq STR (vl-string-subst NEW OLD STR IDX))
     (setq IDX (+ IDX (strlen NEW)))
   )
   STR
 )
 ;;================================================
 (prompt "\n*文字大小寫轉換* ")
 (setq FLAG (getstring " 大寫(U) / <小寫> :"))
 (if (= (strcase FLAG) "U")
   (progn
     (setq FLAG t)
     (prompt "\n選擇要轉換大寫的文字:")
   )
   (progn
     (setq FLAG NIL)
     (prompt "\n選擇要轉換小寫的文字:")
   )
 )
 (while (not (setq SS (ssget '((0 . "*TEXT"))))))
 (setq N 0)
 (repeat (sslength SS)
   (setq QQ (vlax-ename->vla-object (ssname SS N)))
   (setq TEXT (vla-get-textstring QQ))
   (if FLAG
     (vla-put-textstring QQ (strcase TEXT))
     (progn
(setq TEXT (STR_SUBST (strcase TEXT t) "\\p" "\\P"))
(vla-put-textstring QQ TEXT)
     )
   )
   (setq N (1+ N))
 )
 (princ)
)
(princ "\n*文字大小寫轉換* ")
(princ "\nType CHCASES_LAI By:LUCAS_LAI(龍龍仔)!!")
(princ)
LUCAS_LAI
LUCAS_LAI
一般會員
一般會員

文章總數 : 23
年齡 : 56
來自 : 桃園市
職業 : 工程師
愛好 : 看動漫
個性 : 內向
使用年資 : 25年以上,但最近10年少用
使用版本 : 2011
經驗值 : 182
威望值 : 36
注冊日期 : 2021-05-27
男 摩羯座 龍

http://lucas-lai.ys168.com/

回頂端 向下

2頁(共2頁) 上一頁  1, 2

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]英文文字大小寫轉換Lisp - 頁 2 Uos15010 [分享]英文文字大小寫轉換Lisp - 頁 2 BPl3tjj [分享]英文文字大小寫轉換Lisp - 頁 2 Ziao1510 [分享]英文文字大小寫轉換Lisp - 頁 2 Oo-2-110 [分享]英文文字大小寫轉換Lisp - 頁 2 Oooo-110 [分享]英文文字大小寫轉換Lisp - 頁 2 2020-211