目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

101 / 277

←次へ　｜　前へ→

【191】Re:IllustratorをVBAで操作するには (応用編_断面図の作図)

ちくたく

- 07/3/9(金) 16:13 -


	引用なし

	パスワード

こんにちは。
IllustratorもCAD的に使えるという例を出してみます。
まぁ、CAD的というか、スクリプトで図形を生成する楽しみみたいなものです。
数式を上手く挟めば、幾何学的な模様も簡単にかけます。

今回は、一例として、測量なんかでやる断面図について、
座標が得られているものから、図形を生成する例です。
データはC列にX軸が、D列にY軸が入っています。

Sub 座標から断面図を描く()
　　Dim illApp As New Illustrator.Application
　　Dim myDoc As Illustrator.Document
　　Dim pt2mm As Single, pos() As Variant
　　Dim i As Integer
　　Dim p As Illustrator.PathItem
　　Dim stNum As Integer, enNum As Integer
　　
　　Set myDoc = illApp.ActiveDocument
　　pt2mm = 2.834645　　'mmに単位の変換
　　stNum = 10　　　　　'データが入っているセルの始まり。
　　enNum = 82　　　　　'データが入っているセルの終わり。
　　
　　'座標を配列に入れ込む。これを元にパスを作成する。
　　For i = stNum To enNum
　　　　ReDim Preserve pos(i - stNum)
　　　　pos(i - stNum) = Array(Range("C" & i).Value * pt2mm, _
　　　　　　　　　　　　　　　 Range("D" & i).Value * pt2mm)
　　Next i
　　
　　Set p = myDoc.PathItems.Add 'パスの生成
　　With p
　　　　.SetEntirePath (pos)　　'座標の投げ込み
　　End With
　　
End Sub

2,423 hits