Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
2 replies to this topic

#1 dinhvantrang

dinhvantrang

    biết lệnh copy

  • Members
  • PipPipPip
  • 117 Bài viết
Điểm đánh giá: 26 (tàm tạm)

Đã gửi 28 May 2012 - 10:39 AM

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!
  • 0

Thanks and Best Regards

Skype : dinhvantrang73


#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 28 May 2012 - 04:31 PM

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

  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 dinhvantrang

dinhvantrang

    biết lệnh copy

  • Members
  • PipPipPip
  • 117 Bài viết
Điểm đánh giá: 26 (tàm tạm)

Đã gửi 03 July 2012 - 03:29 PM

thanks Ketxu rất nhiều!
  • 0

Thanks and Best Regards

Skype : dinhvantrang73