QUẢNG CÁO ĐẦU TRANG

Collapse

Thông báo

Collapse
No announcement yet.

VBA in CAD! Nhờ giúp đỡ!

Collapse
X
Collapse
 
  • Trang of 1
  • Lọc
  • Giờ
  • Show
Clear All
new posts
Previous template Next
  • #1

    VBA in CAD! Nhờ giúp đỡ!

    Em có 1 cái bình đồ giới hạn trong rec(0,0;aaa,bbb) (trong nó gồm các dtext ghi cao độ).

    Em muốn hỏi các bác là trong VBA có hàm nào có thể giúp em làm 2 việc sau không nhé:

    1. Quét toàn bộ rec để nhặt được các tọa độ của dtext không (x,y)

    2. Nhận đối tượng dtext rồi thì có nhận được giá trị của dtext không (nhặt được cao độ ý mà)

    Em có đọc help rồi nhưng nhiều quá, chưa tìm ra được, Bác nào biết thì cho em biết tên hàm được không?

    Thank các bác trước nhé!
    --
    Best Regards!
    Last edited by nguyenthehungsan; 13-07-2006, 02:21 PM.
    Tags: None
  • #2
    Ðề: VBA in CAD! Nhờ giúp đỡ!

    1. Quét toàn bộ rec để nhặt được các tọa độ của dtext không (x,y)

    2. Nhận đối tượng dtext rồi thì có nhận được giá trị của dtext không (nhặt được cao độ ý mà)
    ...
    1. dtext.InsertionPoint ...
    ...
    2. dtext.TextString...

    Nếu có thể đưa lên đây file autoCad tui giúp gì được Pác chăng???
    "And as ye would that men should do to you, do ye also to them likewise."

    Ghi chú

    • #3
      Ðề: VBA in CAD! Nhờ giúp đỡ!

      Chao minh co mot file nho xem co gip gi dc ko nhe...


      Public Sub TimDText()
      Dim ssetObj As AcadSelectionSet
      Dim entry As AcadEntity
      Dim Text As AcadText
      Dim x As Double, y As Double, z As Double
      Dim Dtext As String
      '===================================================
      Set ssetObj = ThisDrawing.ActiveSelectionSet
      ssetObj.Clear
      ssetObj.SelectOnScreen
      For Each entry In ssetObj
      If entry.ObjectName = "AcDbText" Then
      Set Text = entry
      'Diem chen Dtext
      x = Text.InsertionPoint(0)
      y = Text.InsertionPoint(1)
      z = Text.InsertionPoint(2)
      Dtext = Text.TextString
      End If
      Next entry
      End Sub

      Ghi chú

      • #4
        Ðề: VBA in CAD! Nhờ giúp đỡ!

        Thank JOA và BULONGNEO nhé!

        Chiều nay mình đã làm được rồi. Hoàn toàn như các bạn bảo. VBA thật tuyệt vời nhỉ!

        Ghi chú

        • #5
          Ðề: VBA in CAD! Nhờ giúp đỡ!

          Cách Chèn 1 Bảng Vẽ Cad Khác Vào Bản Vẽ Hiện Thời đang Mở Thì Chúng Ta Viết Như Thế Nào.mà Chèn Tại 1 điểm Của Bản Vẽ Khác

          Ghi chú

          Previous template Next

          Quảng cáo cuối trang

          Collapse
          Working...
          X