打开组合框中的dwg文件

fixo · 发表于 2022-7-6 23:30:05

我没有这台电脑的工作，但我使用了第1页上的编码

suwan116 · 发表于 2022-7-6 23:34:16

fixo · 发表于 2022-7-6 23:39:06

After his block was inserted you could be to store its handle, say in Textbox field, that is easiest
in the current program

copy

 Set myBlock = ThisDrawing.PaperSpace.InsertBlock(blockInsert, dwgName, 1, 1, 1, 0)dim handStr as stringhandStr=myBlock.HandleTextBox1.Text=handStr

Then if you need to insert new one instead
you could be able to rich at old block using
HandleToObject method (see Help)

Don't remember exactly maybe something like

copy

 Dim oldObj as AcadObject ' or AcadEntity perhapsSet oldObj=Thisdrawing.HandleToObject(Trim(TextBox1.Text))oldObj.DeleteSet oldObj=Nothing

~'J'~

suwan116 · 发表于 2022-7-6 23:39:36

I used this bit of code to auto show layout1

With ThisDrawing
.ActiveLayout = .Layouts.Item("Layout1")
.Application.Application.GetAcadState
End With

However im struggling with the update code.

haizang · 发表于 2022-7-6 23:47:01

I am new to this and have exactly the same application. Can you show your complete work here, starting with creating your combobox to inserting seletion to the drawing.

Thanks

suwan116 · 发表于 2022-7-6 23:47:21

i dont have the work on this computer, but i used the coding on page 1

[编程交流] 打开组合框中的dwg文件

发表回复

精选推荐