社区 › Auto Lisp › vba说明帮助

Dante Sparda 发表于 2022-7-6 12:05:03

vba说明帮助

大家好，我正在用vba进行应用，autocad会自动打开，始终以2d wire视觉样式打开，所以我需要用vba将其更改为概念或现实。
在我插入一些块（在0,0,0中）后，它们不是完全可见的，所以我需要全部缩放，也需要使用vba。
最后，我该如何将视点设置为等距的，我不太确定该怎么说，让我们。。。右前等距
 
我真的需要这个，希望有人能帮我
 
提前感谢！！！！

fixo 发表于 2022-7-6 12:43:48

 
没有测试，这里可能有一些错误
部分借用帮助
 

Option Explicit

Sub Test()
Dim blkRef As AcadBlockReference
Dim varPt(0 To 2) As Double
Dim i As Integer

For i = 0 To 2
varPt(i) = 0
Next

Set blkRef = ThisDrawing.ModelSpace.InsertBlock(varPt, "MyBlock", 1, 1, 1, 0)
   

   Dim vdir(0 To 2) As Double
   vdir(0) = -1: vdir(1) = -1: vdir(2) = 1

   ThisDrawing.ActiveViewport.Direction = vdir
   ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
   
   Dim minExt As Variant
   Dim maxExt As Variant
   
   blkRef.GetBoundingBox minExt, maxExt
   ZoomWindow minExt, maxExt
   
   ThisDrawing.Regen acActiveViewport

End Sub

Dante Sparda 发表于 2022-7-6 13:21:02

现在缩放功能已经准备好了
非常感谢你！！
 
现在我需要设置真实的视觉风格，任何人都可以帮助ne？？

查看完整版本: vba说明帮助