CObject調用Autocad簡單例子 VFB

yjgyjgg 10月前 6979

Dim cad as CObject創建一個CObject實現
cad.CreateObject("autocad.application")'創建CAD對象
cad.Put "visible" ,1 ,vbTrue'設置CAD程序可見
dim ModelSpace As CObject = cad.get("ActiveDocument").Get("ModelSpace")'獲得活動文檔的ModelSpace空間
dim a(2) as Double = {1,2,0}'創建點a
dim b(2) as Double ={1000,1000,0}
ModelSpace.Run("AddLine",cobject(a()),cobject(b()))'畫線

因國家互聯網安全管理要求,關閉回帖功能。大家需要留言,請使用【勇芳軟件客服】即時聯系勇芳點此打開->>勇芳軟件客服
返回
聯系勇芳
一个人看的www视频播放中文_2012中文字幕电影_亚洲国产成人高清在线观看_中文字幕天堂最新版在线网