Tìm basepoint của 1 block để chèn 1 block khác

[longtdh1 0]

Mình muốn chèn 1 block vào 1 block khác theo tọa độ basepoint của block đó. Có bạn nào biết cách tìm basepoint của 1 block bằng VBA không giúp mình với. Thanks.

[gia_bach 1.548]

Mình muốn chèn 1 block vào 1 block khác theo tọa độ basepoint của block đó. Có bạn nào biết cách tìm basepoint của 1 block bằng VBA không giúp mình với. Thanks.

Cách tìm basepoint của 1 block :

Sub BlockInsertPoint()
   On Error Resume Next

   Dim Point As Variant
   Dim Ent As AcadEntity

   ThisDrawing.Utility.GetEntity Ent, Point, "Chon Block:"

   If TypeOf Ent Is AcadBlockReference Then
       Point = Ent.InsertionPoint
       MsgBox "Insertion Point : " & Chr(10) _
           & " X = " & Point(0) & Chr(10) _
           & " Y = " & Point(1) & Chr(10) _
           & " Z = " & Point(2)
   Else
       MsgBox "Khong phai Block."
   End If

End Sub

[longtdh1 0]

Cách tìm basepoint của 1 block :

Sub BlockInsertPoint()
   On Error Resume Next

   Dim Point As Variant
   Dim Ent As AcadEntity

   ThisDrawing.Utility.GetEntity Ent, Point, "Chon Block:"

   If TypeOf Ent Is AcadBlockReference Then
       Point = Ent.InsertionPoint
       MsgBox "Insertion Point : " & Chr(10) _
           & " X = " & Point(0) & Chr(10) _
           & " Y = " & Point(1) & Chr(10) _
           & " Z = " & Point(2)
   Else
       MsgBox "Khong phai Block."
   End If

End Sub

Cám ơn bạn nhiều. Tiện thể cho mình hỏi sao đoạn code này của mình lại không ra được kết quả:

 

Sub basepoint()

On Error Resume Next

Dim blockObj As AcadBlock

Dim insertionPnt(0 To 2) As Double

Dim bpoint As Variant

 

Set blockObj = ThisDrawing.Blocks.Item("AAA")

bpoint = blockObj.InsertionPoint

insertionPnt(0) = bpoint(0)

insertionPnt(1) = bpoint(1)

insertionPnt(2) = bpoint(2)

 

MsgBox "Block: " & blockObj.Name & " Basepoint:" & vbCrLf & insertionPnt(0) & ", " & insertionPnt(1) & ", " & insertionPnt(2)

 

End Sub

[longtdh1 0]

Cách tìm basepoint của 1 block :

Sub BlockInsertPoint()
   On Error Resume Next

   Dim Point As Variant
   Dim Ent As AcadEntity

   ThisDrawing.Utility.GetEntity Ent, Point, "Chon Block:"

   If TypeOf Ent Is AcadBlockReference Then
       Point = Ent.InsertionPoint
       MsgBox "Insertion Point : " & Chr(10) _
           & " X = " & Point(0) & Chr(10) _
           & " Y = " & Point(1) & Chr(10) _
           & " Z = " & Point(2)
   Else
       MsgBox "Khong phai Block."
   End If

End Sub

Cám ơn bạn nhiều. Tiện thể cho mình hỏi sao đoạn code này của mình lại không ra được kết quả:

 

Sub basepoint()

On Error Resume Next

Dim blockObj As AcadBlock

Dim insertionPnt(0 To 2) As Double

Dim bpoint As Variant

 

Set blockObj = ThisDrawing.Blocks.Item("AAA")

bpoint = blockObj.InsertionPoint

insertionPnt(0) = bpoint(0)

insertionPnt(1) = bpoint(1)

insertionPnt(2) = bpoint(2)

 

MsgBox "Block: " & blockObj.Name & " Basepoint:" & vbCrLf & insertionPnt(0) & ", " & insertionPnt(1) & ", " & insertionPnt(2)

 

End Sub

[phamngoctukts 714]

Các bác cho em hoi để lấy toạ độ của 1 point object thì làm thế nào. Em mò mẫm mãi không được nên hỏi các Bác....

[gia_bach 1.548]

Các bác cho em hoi để lấy toạ độ của 1 point object thì làm thế nào. Em mò mẫm mãi không được nên hỏi các Bác....

Sử dụng Sub BlockInsertPoint() ở trên, tại dòng : If TypeOf Ent Is AcadBlockReference Then

Bạn thay AcadBlockReference bằng AcadPoint là đuợc.

 

tưong tự cho Text, MText là AcadText, AcadMText.

[phamngoctukts 714]

Sử dụng Sub BlockInsertPoint() ở trên, tại dòng : If TypeOf Ent Is AcadBlockReference Then

Bạn thay AcadBlockReference bằng AcadPoint là đuợc.

 

tưong tự cho Text, MText là AcadText, AcadMText.

Cám ơn bác. Đêm qua nghiên cứu mãi cùng ketxu thì dùng ent.coordinates cũng được Bác ạ. Để em dùng thử theo cách của Bác xem.

[gia_bach 1.548]

Cám ơn bác. Đêm qua nghiên cứu mãi cùng ketxu thì dùng ent.coordinates cũng được Bác ạ. Để em dùng thử theo cách của Bác xem.

Sorry! Anh nhầm. :)

(vì thử với Ent.InsertionPoint Cad vẫn cho kết quả (không báo lỗi) nhưng là giá trị của tọa độ điểm pick.)

 

Với AcadPoint chính xác phải là Ent.Coordinates.

[NguyenNgocSon 43]

Để tạo ta 1 block nguồn trong 1 bản vẽ.Ví dụ: C:\thu vien.dwg

Sau do mình mở bản vẽ khác ra mà muốn lấy block XX của bản vẽ thư viện bằng VBA thì làm thế nào ?

[NguyenNgocSon 43]

Các bạn cho hỏi tại sao?

Lấy tọa độ Block bằng thuộc tính: InsertionPoint (Dùng VBA)

Cho ra tọa độ khác với tọa độ Pick trên bản vẽ

Cám ơn!

[gia_bach 1.548]

Các bạn cho hỏi tại sao?

Lấy tọa độ Block bằng thuộc tính: InsertionPoint (Dùng VBA)

Cho ra tọa độ khác với tọa độ Pick trên bản vẽ

Cám ơn!

Vì hệ tọa độ hiện hành không phải là WCS.

 

InsertionPoint trả về giá trị theo hệ tọa độ WCS.

 

 

Command: ucs

Current ucs name: *NO NAME*

Specify origin of UCS or [Face/NAmed/OBject/Previous/View/World/X/Y/Z/ZAxis] <World>: w

[rongcuoimay 3]

mọi người cho tôi hỏi: khi dùng lệnh insert để chèn 1 block thì pick điểm chèn 1 đằng nó lại xuất hiện 1 nẻo...rất xa? làm sao để nó insert đúng vị trí mình chọn vậy?

[Doan Van Ha 3.180]

mọi người cho tôi hỏi: khi dùng lệnh insert để chèn 1 block thì pick điểm chèn 1 đằng nó lại xuất hiện 1 nẻo...rất xa? làm sao để nó insert đúng vị trí mình chọn vậy?

Đấy là do khi tạo block bạn không lấy đúng điểm chuẩn là điểm (0 0).

[rongcuoimay 3]

Đấy là do khi tạo block bạn không lấy đúng điểm chuẩn là điểm (0 0).

lấy đúng điểm chuẩn (0,0) là sao bạn? mình tạo 1 hình vẽ bất kì trên bản vẽ rồi gom lại 1 block....ko lẽ phải đưa block đó về tọa độ (0,0) rồi mới gom lại thành block hả bạn?

[Doan Van Ha 3.180]

lấy đúng điểm chuẩn (0,0) là sao bạn? mình tạo 1 hình vẽ bất kì trên bản vẽ rồi gom lại 1 block....ko lẽ phải đưa block đó về tọa độ (0,0) rồi mới gom lại thành block hả bạn?

Bạn xem lại dialog của lệnh tạo block, trong đó có chọn điểm chuẩn.

[rongcuoimay 3]

Bạn xem lại dialog của lệnh tạo block, trong đó có chọn điểm chuẩn.

có phải bạn nói dialog là hộp thoại của lệnh block, là hình này

 

[Doan Van Ha 3.180]

Vâng, hình đó. Khi tạo block nếu bạn "Pick point" vào điểm nào trên bản vẽ thì điểm đó là điểm chuẩn. Ví dụ điểm A(xa,yb).

Đến khi insert, giả dụ bạn chọn điểm chèn là B(xb,yb), thì điểm khi đó điểm A sẽ ở vị trí điểm B. Thế thôi.

[rongcuoimay 3]

được rồi, thanks bạn rất nhiều