【转帖】help needed for solidwork macro11

yang686526

help needed for solidwork macro!!
hello all
i was looking for some help on macro in solidworks 2006.

actually, i have two layers on my solid works drawing. one is 'construction layer' and the other one is the 'default'. i was trying to write a macro that if i select a dimension and run the macro it's going to tell me that that certain dimension is on construction layer (or default).
i have tried to write a code as well, but s i am very new to this programming so i dont know what is wrong with it. i hope some one might be able to help me.
cheers
sub main()
    dim swapp                       as sldworks.sldworks
    dim swmodel                     as sldworks.modeldoc2
    dim swdraw                      as sldworks.drawingdoc
    dim swselmgr                    as sldworks.selectionmgr
   
   
    dim swdisplayer                 as sldworks.layermgr
   
   
    dim swdispdim                   as sldworks.displaydimension
    dim swdim                       as sldworks.dimension
    dim swdrawcomp                  as sldworks.drawingcomponent
    dim bret                        as boolean
    dim name                        as variant
    dim swlayermgr                  as sldworks.layermgr
    dim swlayer2                    as sldworks.layer
    dim swlayer                     as sldworks.layer
   
    set swapp = application.sldworks
    set swmodel = swapp.activedoc
    set swlayermgr = swmodel.getlayermanager
   
    set swdraw = swmodel
    set swselmgr = swmodel.selectionmanager
   
    set swlayer2 = swselmgr.getselectedobject6(1, 0)
   
   ' set swlayer = swlayer2.getcurrentlayer
   ' set swdim = swdispdim.getdimension
   ' set swlayer = swdisplayer.name
   
   
    msgbox "  current layer = " & swlayer2.name
   
   end sub
wouldn't it be easier to just change the colour of the construction layer? then whatever is not that colour must be in the default layer.
what do you intend to do with the dimensions once you know which layer they are is on?

hi corblimeylimey
yea i am trying to make a macro when you select a dimension, it should check whether its on construction layer or default layer. suppose if its on construction layer the macro is going to change it to default layer. its a big macro to write so i though i would rahter do it in steps. so, the first step was to write a macro so if i select a dimension on a drawing and than run my macro, it should be able to tell me the name of the layer.
i hope someone can help me here, i have banged my head many times so far on the wall ;)
thanks
what is your ultimate goal?  to ensure all dimensions in a drawing are on the layer named "default"?  does this help you at all?
code
const colorquery as boolean = false
const textlayercolor as long = 10944512
const dimslayercolor as long = 771752142
dim swapp as sldworks.sldworks
dim swdoc as sldworks.modeldoc2
dim swdwg as sldworks.drawingdoc
dim swview as sldworks.view
dim swannot as sldworks.annotation
dim smsg as string
dim swlyrmgr as sldworks.layermgr
dim swlayer as sldworks.layer
sub movedimsandtablestolayers()
set swapp = application.sldworks
set swdoc = swapp.activedoc
if swdoc.gettype <> swdocdrawing then
    msgbox "this macro only works for drawing files."
    exit sub
end if
set swdwg = swdoc
set swlyrmgr = swdoc.getlayermanager
if colorquery then
    set swlayer = swlyrmgr.getlayer(swlyrmgr.getcurrentlayer)
    msgbox "the color of layer " & swlayer.name & " is " & swlayer.color
    exit sub
end if
set swlayer = swlyrmgr.getlayer("text")
swlayer.color = textlayercolor
set swlayer = swlyrmgr.getlayer("dims")
swlayer.color = dimslayercolor
set swview = swdwg.getfirstview
while not (swview is nothing)
    set swannot = swview.getfirstannotation3
    while not swannot is nothing
        if swannot.gettype = swdisplaydimension then
            swannot.layer = "dims"
        elseif swannot.gettype = swnote then
            swannot.layer = "text"
        elseif swannot.gettype = swtableannotation then
            swannot.layer = "text"
        end if
        set swannot = swannot.getnext3
    wend
    set swview = swview.getnextview
wend
set swlayer = nothing
set swlyrmgr = nothing
set swannot = nothing
set swview = nothing
set swdwg = nothing
set swdoc = nothing
set swapp = nothing
end sub
-handleman, cswp (the new, easy test)
hello handleman
sorry i think i havent explained what i am trying to do completely and clearly. actually, i got two layers in my drawing as i said before: construction and default. the construction layer got the dimensions which are just meant to be for the person who drew the drawing. the default layer is the one with the dimensions which are going to appear on the final printout. so the construction layer is going to be hidden most of the time.
suppose during drawing you have a particular dimension on it which you might think should be a construction dimension instead of a default one (or other way round i.e. it should be a default instead of a construction). so the user can click on that particular dimension and run the macro. the macro checks which layer that particular dimension is on and than give you the option of moving it to the other layer.
the code that you have send works well for getting the current layer. but i want a macro where i have to select a dimension first and than run a macro. i dont know how to use the selection manager so i can select a dimension and than use the properties of the layer to get the layer name of that particular dimension.
help!!
thanks
here's a tweak to some code i had already.  you'll have to edit the number of spaces in one of the lines to get your layer names to line up with the buttons in a yes/no/cancel message box.
you don't have to pre-select a dimension.  if one is not selected before you run the macro, the macro will clear selections until you pick a dimension.
code
option explicit
const lyr1 as string = "default"
const lyr2 as string = "construction"
const msg1 as string = "selected dimension is on layer """
const msg2 as string = """" & vbcrlf & "move to layer """
const minselections as long = 1
dim swapp as sldworks.sldworks
dim model as sldworks.modeldoc2
dim mydispdim as sldworks.displaydimension
dim mydim as sldworks.dimension
dim myannot as sldworks.annotation
dim selmgr as sldworks.selectionmgr
dim mydimvalue as variant
dim newval as double
dim resp as long
sub main()
   
    set swapp = application.sldworks
    set model = swapp.activedoc
    set selmgr = model.selectionmanager
   
    if not ((selmgr.getselectedobjectcount2(-1) = 1) and (selmgr.getselectedobjecttype3(1, -1) = swseldimensions)) then
        swapp.sendmsgtouser2 "please select a dimension.", swmbwarning, swmbok
        model.clearselection2 true
    end if
   
    while selmgr.getselectedobjecttype3(1, -1) <> swseldimensions
        
        model.clearselection2 true   'clear all selections
   
        while selmgr.getselectedobjectcount < minselections
            
            doevents   'wait for user selection
               
        wend
        
    wend
        
    set mydispdim = selmgr.getselectedobject6(1, -1)
    set myannot = mydispdim.getannotation
    select case myannot.layer
        case lyr1
            resp = msgbox(msg1 & myannot.layer & msg2 & lyr2 & """?", vbyesno)
            if resp = vbyes then
                myannot.layer = lyr2
                if not myannot.layer = lyr2 then
                    msgbox "could not change layer!"
                end if
            end if
        case lyr2
            resp = msgbox(msg1 & myannot.layer & msg2 & lyr1 & """?", vbyesno)
            if resp = vbyes then
                myannot.layer = lyr1
                if not myannot.layer = lyr1 then
                    msgbox "could not change layer!"
                end if
            end if
        case else
            resp = msgbox(msg1 & myannot.layer & vbcrlf & "choose yes, no or cancel below to " & _
                vbcrlf & "change layer or keep current." & vbcrlf & vbcrlf & _
                lyr1 & "   " & lyr2 & "   " & myannot.layer, vbyesnocancel)
                '******************************************
                '*******'^adjust number of spaces in this line to line up with buttons
                '******************************************
            select case resp
                case vbyes
                    myannot.layer = lyr1
                    if not myannot.layer = lyr1 then
                        msgbox "could not change layer!"
                    end if
                case vbno
                    myannot.layer = lyr2
                    if not myannot.layer = lyr2 then
                        msgbox "could not change layer!"
                    end if
            end select
        end select
end sub
-handleman, cswp (the new, easy test)
hey handleman
this is exactly what i was looking for. thank you very much for your help mate. really appreciate that.
have a nice weekend!!