Lỗi khi Set ActiveLayout ?

[anhcos 196]

Giả sử rằng Layout1 có trong bản vẽ

 

Khi lập trình bằng VBA hoặc VB.NET sử dụng Early binding:

 

Câu lệnh sau chạy rất tốt

Dim lay1 as AcadLayout

lay1 = ThisDrawing.Layouts.Item("Layout1")

ThisDrawing.ActiveLayout = lay1

 

Cũng dùng ngôn ngữ trên mà dùng Late binding thì lại báo lỗi

Dim AcadApp as Object = GetObject(,"AutoCAD.Application")

Dim lay1 as Object

lay1 = AcadApp.ActiveDocument.Layouts.Item("Layout1")

AcadApp.ActiveDocument.ActiveLayout = lay1 '<-- lỗi ở đây

 

Nội dung lỗi là "Member not found"

 

Có ai có thể giúp đỡ tôi về lỗi này không?

[phantuhuong 218]

Giả sử rằng Layout1 có trong bản vẽ

 

Khi lập trình bằng VBA hoặc VB.NET sử dụng Early binding:

 

Câu lệnh sau chạy rất tốt

Dim lay1 as AcadLayout

lay1 = ThisDrawing.Layouts.Item("Layout1")

ThisDrawing.ActiveLayout = lay1

 

Cũng dùng ngôn ngữ trên mà dùng Late binding thì lại báo lỗi

Dim AcadApp as Object = GetObject(,"AutoCAD.Application")

Dim lay1 as Object

lay1 = AcadApp.ActiveDocument.Layouts.Item("Layout1")

AcadApp.ActiveDocument.ActiveLayout = lay1 '<-- lỗi ở đây

 

Nội dung lỗi là "Member not found"

 

Có ai có thể giúp đỡ tôi về lỗi này không?

 

 

Bạn đã test lại bằng VBA chưa? Lỗi này trong VB.NET mà

[anhcos 196]

Mình chưa test với VBA, lỗi này xảy ra với VB.NET.

 

Ngoài ra một số hàm khác cũng xảy ra tương tự.

VD:

hàm RemoveItems của đối tượng SelectionSet và hàm AddRegion của đối tượng MSpace/PSpace

đều không thể truyền tham số vào cho hàm được. Tham số này là một mảng các thực thể CAD.