hongtvtk 2 Báo cáo bài đăng Đã đăng Tháng 11 4, 2010 Các bác viết hộ em 1 sub trong đó đọc được tên(ObjectName) của các đối tượng trong 1 block với. Ví dụ trong 1 bock gồm có 1 đường thẳng và 1 chữ thì sẽ đọc được ra tên của chúng là AcDbLine và AcDbText Xin cảm ơn! Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
gia_bach 1.549 Báo cáo bài đăng Đã đăng Tháng 11 4, 2010 Các bác viết hộ em 1 sub trong đó đọc được tên(ObjectName) của các đối tượng trong 1 block với.Ví dụ trong 1 bock gồm có 1 đường thẳng và 1 chữ thì sẽ đọc được ra tên của chúng là AcDbLine và AcDbText Xin cảm ơn! Lấy tên của các Entity trong Block Sub SubEntity() Dim oBlock As AcadBlock Dim Ent As AcadEntity Dim V, BlockEnt As AcadEntity Dim str As String ThisDrawing.Utility.GetEntity Ent, V, "Chon block:" If TypeOf Ent Is AcadBlockReference Then Set oBlock = ThisDrawing.Blocks(Ent.Name) For Each BlockEnt In oBlock str = str & BlockEnt.ObjectName & vbCr Next BlockEnt If str <> "" Then MsgBox str End If Else MsgBox "Khong phai block." End If End Sub 2 Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
hongtvtk 2 Báo cáo bài đăng Đã đăng Tháng 11 4, 2010 Oa! Cảm ơn bác Gia_Bach! Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác