Request
Quote
Buy now
Register
Product
Remote
Support

Support

As evidenced by over 30 years of development history, trust-worthy Korean CAD, CADian!

FAQ · 2013.12.11
CADian VBA Sample Code - 28 [ Select Layer ]
CADian VBA Sample code - 28 [ Layer Selection ]

Dim objLayer As IntelliCAD.Layer
Dim strLayerName As String

strLayerName = TextBox1.Text
If Trim(strLayerName) = "" Then Exit Sub

Set objLayer = IntelliCAD.ActiveDocument.Layers(strLayerName)
If objLayer Is Nothing Then
Else
IntelliCAD.ActiveDocument.ActiveLayer = objLayer
End If
If Err.Number <> 0 Then
Err.Clear
End If
Previous Article
There are no previous articles.
Next Article
CADian VBA Sample Code - 27 [ Angle(Text) -> Real ] ..
Return to List

Added to cart.

VIEW CART

Please sign in first.

JOIN