AUTOCADユーザー向け
🎯全角→半角に一括変換できるLISPを公開！
📌 AutoCAD LISP活用記事
AutoCADで作図していると、テキストの全角と半角が混在してしまうこと、ありませんか？
地味に手間なこの作業、たった一発で全て半角にできる方法を紹介します✨
しかも、プログラミング知識ゼロでOK！
ChatGPTで作ったLISPを使えば、誰でもすぐ使えます。
🛠️できること
✅️テキスト（Dtext・Mtext）を一括で半角に変換
✅️記号や英数字も自動で変換対応
✅️マルチテキスト対応・ブロック内文字は非対応⚠️
💡使い方（たった5ステップ）
① 下のコードをコピーしてメモ帳に張り付ける
ToHankaku.lsp
と名前をつけて保存
;; 全角→半角変換関数（英数字・カタカナ・記号）
(defun to-hankaku (s)
(vl-string-translate
;; 全角文字列（英数字＋カタカナ＋記号）
"０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ！＂＃＄％＆＇（）＊＋，－．／：；＜＝＞？＠［￥］＾＿｀｛｜｝～ アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲンー"
;; 対応する半角文字列
"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!\"#$%&'()*+,-./:;<=>?@[¥]^_`{|}~ ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜｦﾝｰ"
s
)
)
;; TEXT, MTEXT, ATTRIB を取得
(setq ss (ssget "_X" '((0 . "TEXT,MTEXT,ATTRIB"))))
(if ss
(progn
(setq i 0)
(while (< i (sslength ss))
(setq ent (ssname ss i)
obj (vlax-ename->vla-object ent))
;; TextString プロパティの取得と変換
(if (vlax-property-available-p obj 'TextString)
(progn
(setq txt (vla-get-TextString obj))
(setq newtxt (to-hankaku txt))
(vla-put-TextString obj newtxt)
)
)
(setq i (1+ i))
)
(princ "\n全角→半角に変換しました。")
)
(princ "\n対象となるテキストが見つかりません。")
)
(princ)
)
② AutoCADを開く → 【管理タブ】→【アプリロード】をクリック
③ 保存したファイルを選び【ロード】
⑤コマンドラインに ToHankaku と入力→Enter
変換されました
⚠️注意点
✅️ファイル名は必ず「ToHankaku.lsp」にして保存してください
✅️使用は自己責任でお願いします🙏
🛠おすすめアイテム
🔑 USBメモリ
¥1,480
大容量128GBながら軽量・USB3.2対応
Kingstonならではの品質・5年保証付き
🔋モバイルバッテリー
¥1,980
22.5W急速10000mAhモデル
Lightning＋USB-Cケーブル内蔵
💳スマートカードケース
¥1,504
RFID NFC スキミング防止の機能が搭載。
高品質アルミニウム製で高級感のあるデザイン。
💻折りたたみPCスタンド
¥1,664
8段階角度調整機能付で首肩の負担を軽減。
折りたたんでコンパクト収納もOK、ノートPC作業に最適。
👓ブルーライトカットメガネ
¥2,980
クリニックで採用されている。
PC作業中の目の疲れをやさしく軽減
🔢 関数計算機
¥5,999
自然表示対応のスタンダード関数電卓
教科書そのまま入力しやすい
日本国内向けの定番、初心者〜中級者まで
🖱ワイヤレスマウス
¥5,300
腕や肩が疲れにくい高機能ワイヤレスマウス
高速スクロールホイール搭載
会社でも家でもこのマウス使ってます
📏三角スケール
¥748
建築・設計書類の現場作業にぴったり、価格もお手頃。
