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

主題回顧 :


關於圖面中的英文文字大小寫轉換，請問你會怎麼做？

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


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

工作上比較少用到，先來嘗試看看，備而不用。

試用看看,感謝分享

太棒了
正好用

謝謝蘋果爸的分享~~好實用的程式~

感謝分享,很實用的小程式!!

感謝蘋果爸 非常實用的LISP

感謝分享，真是太方便了。

感謝, 在平常的文字處理, 太有用了

感謝蘋果爸的分享！

感謝蘋果爸的分享,非常受用

感謝分享

感謝無私的分享！

感謝分享，這樣可以一次轉換文字大小寫

剛好有用到來查詢~
果真有人分享
謝謝蘋果爸

感謝蘋果爸熱心分享~~很實用來試試看~~

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

很實用的程式, 感謝!!

感謝分享

感謝分享...!

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

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

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

感謝分享

有這個LISP,可方便多,謝謝.

剛好要用到, 感謝~~

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)