いつもお世話になっております。
以下のようなスクリプトを書いて、
Illustratorの図形の面積を求めようと思っています。
レイヤごとに、中にあるパスアイテムの面積を総計したものを、
エクセルのシートに書き出すスクリプトです。
一応、動作はするのですが、以下の2点について、
よくわからない挙動をします。
1. 面積が約2倍になってでてくる。
テストで、10 mm × 10 mm の四角形を作り、
その面積を測ったのですが、約200になりました。
何故か、約2倍になってしまいます。
2. 多角形の面積がマイナスで出てくる。
面積を測りたい実際の図形が多角形です。
スクリプティング・ガイドは読んだのですが、
PathItem の Area の「四角形～」というのがよくわかりません。
上の、2点について、回答頂けますよう、
よろしくお願い致します。
Sub レイヤごとのパスアイテムの面積_作成中()
Dim illApp As New Illustrator.Application
Dim myDoc As Illustrator.Document
Dim mm As Single, areaVal As Single
Dim i As Integer
Dim p As PathItem
Dim l As Layer
Set myDoc = illApp.ActiveDocument
mm = 2.834645
i = 1
For Each l In myDoc.Layers
areaVal = 0
If l.PathItems.Count <> 0 Then
For Each p In l.PathItems
areaVal = areaVal + p.Area
Next p
Range("A" & i).Value = l.Name
Range("B" & i).Value = areaVal / mm / mm
i = i + 1
End If
Next l
End Sub
