Pagina 4 di 4 PrimaPrima ... 234
Risultati da 31 a 37 di 37
  1. #31
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    101
    Professione
    Disegnatore
    Regione
    Emilia Romagna
    Software
    cocreate drafting,solid edge

    Predefinito

    La variabile miaquota come va dichiarata?

  2. #32
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    dipende dal contesto, in qualche modo va dichiarata.
    Se ad esempio stai reciclando il mio codice di questo post, allora la tua quota di interesse è dichiarata con l'oggetto: "objItem"
    dentro il costrutto "for each objItem in objSel".
    Si legge tipo così: dato un insieme "objSel" precedentemente dichiarato (set obj.Sel = objdoc.ActiveSelectSet),
    per ogni oggetto, che da ora voglio chiamare "objItem", dell'insieme "objSel" esegui le tali istruzioni.
    esempio: per ogni alunno dell'insieme classe, o per ogni frutto dell'insieme cassetta, per ogni pico_pallo dell'insieme personeSelezionate esegui ....

  3. #33
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    101
    Professione
    Disegnatore
    Regione
    Emilia Romagna
    Software
    cocreate drafting,solid edge

    Predefinito

    purtroppo non riesco a trovare la sintassi giusta per eseguire l'operazione di modifica posizione pedice.

  4. #34
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    prova a postare il codice o una porzione di esso.

    questo l'ho provato ieri funziona se c'è una quota selezionata
    Codice:
    Sub quicktest()
        Set objApp = GetObject(, "SolidEdge.Application")
        Set objSel = objApp.ActiveSelectSet
        miaquota = objSel(1)    ' index elemento della selezione corrente: 0 o 1 ?
        miaquota.SubfixAlignment = 1   ' 1:centrato
    End Sub

  5. #35
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    101
    Professione
    Disegnatore
    Regione
    Emilia Romagna
    Software
    cocreate drafting,solid edge

    Predefinito

    Questa è la parte di codice interessata non funziona...

    objSel = objApp.ActiveSelectSet
    If objSel.Count < 1 Then
    MsgBox("Selezionare almeno una quota.")
    Exit Sub
    Else
    For Each objItem In objSel
    ' Filtra gli oggetti seleziona e restituisci solo le quote
    If objItem.Type = seDimension Then
    quotasel = objSel(1)
    quotasel.SubfixAlignment = 1
    objItem.SubfixString2 = pedice2
    End If
    Next
    End If

  6. #36
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    prova questo:
    Codice:
    objSel = objApp.ActiveSelectSet
    If objSel.Count < 1 Then
     MsgBox("Selezionare almeno una quota.")
     Exit Sub
    Else
     For Each objItem In objSel
      ' Filtra gli oggetti selezionati e processa solo le quote
      If objItem.Type = seDimension Then
       objItem.SubfixString2 = pedice2
       objItem.SubfixAlignment = 1 ' centrato
      End If
     Next
    End If

  7. #37
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    in effetti nella risposta che ti ho dato ieri mattina non ero stato molto chiaro


  • Pagina 4 di 4 PrimaPrima ... 234

    Discussioni Simili

    1. Pulsante "Attiva" parte in Solid Edge ST3
      Di Francesco90 nel forum Solid Edge
      Risposte: 2
      Ultimo Messaggio: 02-04-2013, 19: 13
    2. Risposte: 9
      Ultimo Messaggio: 29-05-2012, 09: 19
    3. Aggiungere "TAG" a sottoscrizioni per trovare post interessanti
      Di reggio nel forum Proposte di modifiche al sito
      Risposte: 9
      Ultimo Messaggio: 27-01-2011, 16: 34
    4. Risposte: 2
      Ultimo Messaggio: 20-11-2009, 15: 45
    5. Pulsante "ok" Solid edge ST
      Di xxxfazioxxx nel forum Solid Edge
      Risposte: 2
      Ultimo Messaggio: 17-12-2008, 15: 05

    Segnalibri

    Segnalibri

    Permessi di Scrittura

    • Tu non puoi inviare nuove discussioni
    • Tu non puoi inviare risposte
    • Tu non puoi inviare allegati
    • Tu non puoi modificare i tuoi messaggi
    •  





    CAD3D.it - la community dei progettisti