How can i do that use vba

[idiszerg]

HI,everyone

my mother language is not English

So,something I writed you will not understand easily.

I want some help,thanks.

those is what i want to do:

 

I need select parts of autocad's drawing to print.

Sometimes it is a tiresome job。

so I wirte a vba to do this

Dim userSelect As AcadSelectionSet
Sub CmdCopy_Click()
    'copy something that user Selected to new drawing
    On Error Resume Next
    Set userSelect = ThisDrawing.SelectionSets.item("userselect")
    If Err Then
        Set userSelect = ThisDrawing.SelectionSets.Add("userselect")
        Err.Clear
    Else
        userSelect.Highlight False
        userSelect.Clear '需要清空，否则会新的选择会添

[idiszerg]

time is 05:58 am ,everyone sleeping.

the area i stay is 14:40pm,

:-)

 

I am waiting for you help,thanks,have a good dream