CAD Forum discussion (EN) : VBA Coding https://www.cadforum.cz/forum_en/ Sun, 31 May 2026 18:15:12 +0000 Fri, 31 Aug 2007 11:03:38 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=56 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[VBA Coding : Thanks Vladimir working cool. ...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=173&title=vba-coding#173 Author: GaryM
Subject: 56
Posted: 31.Aug.2007 at 11:03

Big%20smileThanks Vladimir working cool.]]> Fri, 31 Aug 2007 11:03:38 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=173&title=vba-coding#173 <![CDATA[VBA Coding : The code would be quite complex...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=142&title=vba-coding#142 Author: Vladimir Michl
Subject: 56
Posted: 28.Aug.2007 at 14:28

The code would be quite complex - it would need to go through nested blocks, xrefs, etc.
 
Try to use LAYDEL - with all following options on the commandline - e.g.:
-LAYDEL Name mylayer
]]> Tue, 28 Aug 2007 14:28:57 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=142&title=vba-coding#142 <![CDATA[VBA Coding : How would i write the code to...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=141&title=vba-coding#141 Author: GaryM
Subject: 56
Posted: 28.Aug.2007 at 14:16

How would i write the code to remove all possible references.

And the Sendcommand "LAYDEL" just activates the command does not actually delete the layer,  you still l need to do the normal steps after the laydel command is entered.

I want to delete from my delete layer form after selecting the layer from the combo box and clicking ok.
]]> Tue, 28 Aug 2007 14:16:36 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=141&title=vba-coding#141 <![CDATA[VBA Coding : You can either write the code...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=140&title=vba-coding#140 Author: Vladimir Michl
Subject: 56
Posted: 28.Aug.2007 at 13:47

You can either write the code to remove all possible references to this layer or you can run LAYDEL from VBA (through SendCommand).]]> Tue, 28 Aug 2007 13:47:15 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=140&title=vba-coding#140 <![CDATA[VBA Coding : cool you are quite right.Autocad...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=138&title=vba-coding#138 Author: GaryM
Subject: 56
Posted: 28.Aug.2007 at 13:39

Smile cool you are quite right.

Autocad gives you the LAYDEL command where you can delete layers with all entities etc. Is there anything similar i could do with vba?

]]> Tue, 28 Aug 2007 13:39:06 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=138&title=vba-coding#138 <![CDATA[VBA Coding : The layer your are trying to delete...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=136&title=vba-coding#136 Author: Vladimir Michl
Subject: 56
Posted: 28.Aug.2007 at 13:27

The layer your are trying to delete is probably not empty (contains entities, is referenced from a block, etc.). You can only delete empty layers in this way.]]> Tue, 28 Aug 2007 13:27:05 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=136&title=vba-coding#136 <![CDATA[VBA Coding : HINow i&#039;m struggling to delete...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=135&title=vba-coding#135 Author: GaryM
Subject: 56
Posted: 28.Aug.2007 at 13:21

HI

Now i'm struggling to delete a layer. How would i go about this...
Here is the code i'm using. What i'm actually trying to do is that i want to select from the combo box a layer to delete.

Here is the code i'm using;

Private Sub cmdOk_Click()
On Error Resume Next
  Dim strLayerName As String
  Dim objLayer As AcadLayer
 
  strLayerName = frmDelLayer.cboLayerName.Text
 
  Set objLayer = ThisDrawing.Layers(strLayerName)
    If objLayer Is Nothing Then
      MsgBox "Layer " & strLayerName & " not found"
      Exit Sub
    End If
 
  objLayer.Delete
    If Err Then
      MsgBox "Unable to delete layer: " & vbCr & Err.Description
    Else
      MsgBox "Layer '" & strLayerName & "' deleted"
    End If
  End Sub

Giving me a error: "Object is referenced by other object(s)"

Any ideas on what i'm doing wrong.
]]> Tue, 28 Aug 2007 13:21:02 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=135&title=vba-coding#135 <![CDATA[VBA Coding : Yes, this is the ThisDrawing.Layers...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=134&title=vba-coding#134 Author: Vladimir Michl
Subject: 56
Posted: 28.Aug.2007 at 12:07

Yes, this is the ThisDrawing.Layers iteration :-)]]> Tue, 28 Aug 2007 12:07:20 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=134&title=vba-coding#134 <![CDATA[VBA Coding : Thanks for the suggestion, but...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=133&title=vba-coding#133 Author: GaryM
Subject: 56
Posted: 28.Aug.2007 at 10:33

Thanks for the suggestion, but came right doing it another way... check it out!

Private Sub UserForm_Activate()

  Dim objLayers As AcadLayers
  Dim objLayer As AcadLayer
 
'search for layers in current drawing and add to combo box
For Each objLayer In ThisDrawing.Layers
  frmDelLayer.cboLayerName.AddItem (objLayer.Name)
  Next
End Sub



]]> Tue, 28 Aug 2007 10:33:26 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=133&title=vba-coding#133 <![CDATA[VBA Coding : You can look at the ThisDrawing.Layers...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=125&title=vba-coding#125 Author: Vladimir Michl
Subject: 56
Posted: 24.Aug.2007 at 22:21

You can look at the ThisDrawing.Layers collection and iterate through it.]]> Fri, 24 Aug 2007 22:21:33 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=56&PID=125&title=vba-coding#125