Dim acadcircle1 As acadcircle
Dim ahatch As AcadHatch
Dim outerloop(0 To 2) As Object
Dim pt1(2) As Double
pt1(0) = 0： pt1(1) = 0
Set acadcircle1 = Acaddoc.ModelSpace.AddCircle(pt1, 50)
Set outerloop(0) = acadcircle1
Set ahatch = Acaddoc.ModelSpace.AddHatch(1, "ANSI31", True)
ahatch.AppendouterLoop outerloop
运行到最后一句显示"对象appendouterloop的Icadhatch方法失败"？请高手指教。
用vb怎么在CAD里填充图形？
答案:2 悬赏:70
解决时间 2021-12-13 20:42
- 提问者网友：千城墨白
- 2021-12-13 13:29
最佳答案
- 二级知识专家网友：修女的自白
- 2021-12-13 15:09
1111111111111111111111111
全部回答
- 1楼网友：woshuo
- 2021-12-13 15:45
类似thisdrawing.utility.getreal这样的东西,我怎么看都不像vb
你自己定义的类型?
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| • 手机登qq时，显示手机磁盘不足，清理后重新登 |
| • 刺客的套装怎么选啊？ |