Hiển thị các đối tượng(Layer, Block...) có trong bản vẽ ACad thông qua hộp thoại UserForm

[ks_chang 2]

Các bạn cho mình hỏi khi mình sử dụng hộp thoại UserForm, mình muốn thông qua Combobox để hiển thị tên các Block (hoặc Layer...) có trong bản vẽ đang thực hiện thì phải viết code như thế nào nhỉ?

(Đại khái nó hiện danh sách Name các block giống như khi dùng lệnh INSERT trong Cad). Cảm ơn rất nhiều và mong được giúp đỡ!

[ks_chang 2]

Mình đã mò ra rồi, các bạn xem coi còn cách nào nữa ko nhé:

 

Dim ent As AcadBlock
Dim i As Double
Dim n As Double
n = ThisDrawing.Blocks.Count
ReDim BlockNames(1 To n) As String
i = 0
For Each ent In ThisDrawing.Blocks
i = i + 1
BlockNames(i) = ent.Name
With ComboBox1
.AddItem BlockNames(i)
End With
Next

[ks_chang 2]

Mình đã mò ra rồi, các bạn xem coi còn cách nào nữa ko nhé?

 

Dim ent As AcadBlock
Dim i As Double
Dim n As Double
n = ThisDrawing.Blocks.Count
ReDim BlockNames(1 To n) As String
i = 0
For Each ent In ThisDrawing.Blocks
i = i + 1
BlockNames(i) = ent.Name
With ComboBox1
.AddItem BlockNames(i)
End With
Next

[gia_bach 1.549]

Mình đã mò ra rồi, các bạn xem coi còn cách nào nữa ko nhé?

 

Dim ent As AcadBlock
Dim i As Double
Dim n As Double
n = ThisDrawing.Blocks.Count
ReDim BlockNames(1 To n) As String
i = 0
For Each ent In ThisDrawing.Blocks
i = i + 1
BlockNames(i) = ent.Name
With ComboBox1
.AddItem BlockNames(i)
End With
Next

thử cách này xem :

    Dim blk As AcadBlock
   For Each blk In ThisDrawing.Blocks
       If Left(blk.Name, 1) <> "*" Then
           ComboBox1.AddItem blk.Name
       End If
   Next

[ks_chang 2]

thử cách này xem :

    Dim blk As AcadBlock
   For Each blk In ThisDrawing.Blocks
       If Left(blk.Name, 1) <> "*" Then
           ComboBox1.AddItem blk.Name
       End If
   Next

Cảm on gia_bach, code của bạn ngắn gọn quá, mình làm theo đc rồi :( . Ko biết có cách nào cho tên 1 block (bất kỳ) hiển thị trên ComboBox1 trước khi click vào mũi tên để chọn các block trong userForm ko nhỉ?

[gia_bach 1.549]

Cảm on gia_bach, code của bạn ngắn gọn quá, mình làm theo đc rồi :( . Ko biết có cách nào cho tên 1 block (bất kỳ) hiển thị trên ComboBox1 trước khi click vào mũi tên để chọn các block trong userForm ko nhỉ?

Hiển thị tên block đầu tiên trên ComboBox1 trước khi click vào mũi tên:

   Dim blk As AcadBlock
   For Each blk In ThisDrawing.Blocks
       If Left(blk.Name, 1) <> "*" Then
           ComboBox1.AddItem blk.Name
       End If
   Next

   If ComboBox1.ListCount > 0 Then
       ComboBox1.ListIndex = 0
   End If

[ks_chang 2]

Thankyou gia_bach, cho mình hòi thêm một vấn đề nữa là:

Trong các hộp thoại Textbox, mình muốn hiển thị 1 giá trị mạc định ban đầu (giá trị này có thể edit) và màu của nó hiển thị trong hộp thoại userForm hơi nhạt 1 chút (màu số 8 chẳng hạn) thì mình phải viết code như thế nào nhỉ?

[gia_bach 1.549]

Thankyou gia_bach, cho mình hòi thêm một vấn đề nữa là:

Trong các hộp thoại Textbox, mình muốn hiển thị 1 giá trị mạc định ban đầu (giá trị này có thể edit) và màu của nó hiển thị trong hộp thoại userForm hơi nhạt 1 chút (màu số 8 chẳng hạn) thì mình phải viết code như thế nào nhỉ?

Đặt thuộc tính ForeColor cho Textbox.

VD :

- TextBox1.ForeColor = RGB(128, 128, 128) 'màu xám

- TextBox2.ForeColor = RGB(255, 0, 0) ' màu đỏ

[thanhduan2407 272]

Bác Gia_Bach ơi.

Bác có thể cho em phương thức xóa tất cả các line trong bản vẽ ko? Code VBA đó bác. Cảm ơn bác nhiều lắm

[nvson 5]

Bác Gia_Bach ơi.

Bác có thể cho em phương thức xóa tất cả các line trong bản vẽ ko? Code VBA đó bác. Cảm ơn bác nhiều lắm

 

Code xóa tất cả các LINE trong bản vẽ như sau:

 

Public Sub Line_Delete()

Dim ssLine As AcadSelectionSet
Dim ent As AcadEntity

Dim FilterType(0) As Integer
Dim FilterData(0) As Variant

Set ssLine = ThisDrawing.SelectionSets.Add("Line")
FilterType(0) = 0
FilterData(0) = "Line"
ssLine.Select acSelectionSetAll, , , FilterType, FilterData

For Each ent In ssLine
	ent.Delete
Next

ssLine.Delete

End Sub

[thanhduan2407 272]

Code xóa tất cả các LINE trong bản vẽ như sau:

 

Public Sub Line_Delete()

Dim ssLine As AcadSelectionSet
Dim ent As AcadEntity

Dim FilterType(0) As Integer
Dim FilterData(0) As Variant

Set ssLine = ThisDrawing.SelectionSets.Add("Line")
FilterType(0) = 0
FilterData(0) = "Line"
ssLine.Select acSelectionSetAll, , , FilterType, FilterData

For Each ent In ssLine
	ent.Delete
Next

ssLine.Delete

End Sub

Cảm ơn bác nhiều. Rất mong sau này bác giúp em chút ạ.

[huyhoangute 0]

cho em hỏi có cách nào hiển thị block của bản vẽ khác (bản vẽ không hiện hành) ko? ví dụ em đặt file chứa block trong ổ C:\block.dwg

thanks!