[Yêu Cầu]Lấy CustomScale của Viewport hiện hành

[dinhvantrang 151]

Mình mới học VBA for CAD,giờ mình muốn lấy CustomScale của Viewport hiện hành (Trong Layout) để gán giá trị này cho giá trị scale của 1 block.anh em có thể giúp mình viết lệnh này dc không?

Cảm ơn anh em rất nhiều!

[ketxu 2.984]

Bạn search code tìm vp hiện hành nhé :

Sub Getscale()
Dim ent As AcadEntity
Dim entvp As AcadPViewport
Dim vpScale As Double
Dim varPickPT As Variant
  On Error GoTo Escape
  Do
 	ThisDrawing.Utility.GetEntity ent, varPickPT, "Select VP : "
 	If ent.ObjectName = "AcDbViewport" Then
       	Set entvp = ent
       	vpScale = entvp.CustomScale
 	End If
 	MsgBox CStr(vpScale)
  Loop
Escape:
End Sub

[dinhvantrang 151]

thanks Ketxu rất nhiều!