C : VBA　　July 06, 2005

●図形の選択1

図形選択の方法

図面全体（データベース）から
取得する方法と対話しながらの選択とがある。

 

モデル空間にある全ての図形にアクセスする
（データ量が多いと結構時間が掛かる）
__________________________________________

Sub Example_Select1()

Dim acMS As AcadModelSpace 'Model空間
Dim acadObj As AcadObject 'AutoCAD図形

Set acMS = ThisDrawing.ModelSpace
'ThisDrawing : 現在開いているアクティブなファイル

For Each acadObj In acMS

    'この中で色々な繰返し処理をさせる
    Debug.Print acadObj.ObjectName
   'イミディエイト・ウィンドウに表示される
Next

End Sub
__________________________________________

Posted by m_eguchi at July 6, 2005 06:04 PM
トラックバックURL

このエントリーのトラックバックURL:
http://www.kkkxcec.com/supportwlog/mt-tb.cgi/26