2008年10月アーカイブ

AutoCAD VBAで全角半角変換を作る (1)

■ AutoCAD VBAで全角半角変換を作る (1) -StrConvメソッド-
■ AutoCAD VBAで全角半角変換を作る (2)
■ AutoCAD VBAで全角半角変換を作る (3) -完成編-


仕事でAutoCADを使っていますが、よくやりたいのがダイナミック文字の「全角→半角変換」
自分は英数字は半角が基本(というかSXFの基準もそう)なのですが、人によっては全角で作る人もいます。なので、全角→半角変換は結構必要なんです。

ネットで全角半角変換をググると、検索を利用したマクロが見つかります。検索機能を使って、0123456789A~~Zを一つずつ全角のものを半角に置換していく方法です。

あまりスマートじゃないし時間もかかるので、ここは一丁VBAでマクロ組んでみるかなって考えました。

ところが、AutoCAD VBAが全く分からず(というかExcel VBAも分からない)・・・、何せ素人なもので。

そこで、まずはExcel VBAで全角半角変換プログラムを作ってみました。

 WS000009.JPG

Private Sub CommandButton1_Click()

Dim strZenkaku As String
Dim strHankaku As String

strZenkaku = Worksheets("Sheet1").Range("A2")
strHankaku = StrConv(strZenkaku, 8)
' Worksheets("Sheet1").Cells(2, 3).Value = strHankaku
Worksheets("Sheet1").Range("C2").Value = strHankaku

End Sub

Private Sub CommandButton2_Click()

Worksheets("Sheet1").Range("A2").Value = Null
Worksheets("Sheet1").Range("C2").Value = Null

End Sub

これを基本に、AutoCAD VBAに応用すればいいんだろうな、とは思うんですが、実際にどうやればいいのか・・・。

頭の中では、

acadTextの内容を取得

StrConvで半角に変換

acadTextの内容へ書き戻す

という作業だとは思うんです。実際のやり方がまだどうも・・・ね。

あと、AutoCADが会社にしかないので、会社にいないとプログラムが試せないのも難ですね。仕事の時間はあまり割けないしねぇ。

今、参考にしているWebサイトはここです。

VBAではじめるAutoCADカスタマイズ
http://cgi34.plala.or.jp/~seagate/index.html
ギコでもわかるAutoCAD VBA
http://www.acesekkei.com/programming/vba/index.htm

カスタム検索
Access Counter
Powered by Movable Type 4.22-ja

2016年9月

Sun Mon Tue Wed Thu Fri Sat
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30