|
|
发表于 2003-5-23 09:42:00
|
显示全部楼层
Public sub ChangHatchPatternSpace()
Dim hatchObj AS Acadhatch
Dim PatternName AS String
Dim PatternType AS Long
Dim bAssociativity AS Boolean
PatternName="ANSI31"
PatternType=0
bAssociativity=true
Set hatchObj=ThisDrawing.ModelSpace.Addhatch (patternName,PatternType,bAssociativity)
Dim outerloop AS AcadEntity
Dim center(0 To 2) AS Double
Dim radius AS Double
center(0)=5
center(1)=3
center(2)=0
radius=5
Set outerloop=ThisDrawing.ModelSpace.AddCircle(center,radius)
hatchObj.appendouterloop(outerloop)
hatchObj.evaluate
End Sub
就这段吧！
但好像不是代码的问题啊！！！我上午时还运行的好好的，但下午就不行了，cad在启动时就出错了，之后代码就无法正常运行了，不知该怎么办？？？？
请老师帮帮忙啊！！！ |
|
置顶卡
