Hier finden Sie einige Tipps, Tricks und Hinweise zu CoCreate One Space Designer Drafting - ME10

Teileliste (Teilebaum) nach Teilenamen sortieren WUI_SORT_PB_ITEMS ON
Teileliste (Teilebaum) nach dem "eindeutigen Namen" sortieren WUI_SORT_PB_ITEMS OFF

Platzhaltertexte in Zeichnung ausfüllen

Zuerst Platzhaltertext mit der Info 'PlatzhalterName_01' erstellen, dann per Makro denText ausfüllen. Für weitere auszufüllenden Platzhalter neue Infobezeichnung (_02, _03 ...) verwenden.

DEFINE Change_text                  
                                    
PARAMETER AnzeigeText               
  CHANGE_TEXT AnzeigeText           
  SELECT INFOS 'PlatzhalterName_01'
  CONFIRM  END                      
                                    
END_DEFINE
ME10 per DDE mit VBA steuern
DDE_Channel = DDEInitiate("ME10F", "GENERAL")
DDEExecute DDE_Channel , ("EDIT_PART TOP")
DDEExecute DDE_Channel , ("MEIN_MAKRO")
DDETerminate DDE_Channel
2 Hilfslinien parallel zu einer wählbaren Linie mit eingebbarem Abstand
 DEFINE parallele_hilfslinien


  LOCAL eingabe   {Eingabewert}
  LOCAL abstand   {Abstand}
  LOCAL punkt     {Punkt auf Linie}
  LOCAL winkel    {Winkel der gewählten Linie}
  LOCAL p1        {Anfangspunkt der Linie}
  LOCAL p2        {Endpunkt der Linie}
  local hypoten   {Hypotenuse}
  LOCAL flag
 
  FOLLOW OFF
 
  LET flag 0
  LET abstand 0
 
    LOOP
      READ "Abstand zur Mittellinie eingeben oder Mittellinie waehlen:" eingabe
      
      IF ((TYPE eingabe) = NUMBER)      {wenn Eingabe Zahl, Radius berechnen}
        LET abstand eingabe
        
      ELSE_IF ((TYPE eingabe) = PNT)    {wenn Eingabe PNT, Winkel berechnen}
      
        LET punkt eingabe
        
        INQ_ELEM punkt
        
        IF ((INQ 403)= C_LINE)    
          LET winkel (INQ 3)
          LET flag 1
          
        ELSE_IF ((INQ 403)= LINE)
        
          LET p1 (INQ 101)
          LET p2 (INQ 102)
          
          MEASURE_DISTANCE p1 p2
          let hypoten (INQ 3)
          
          LET winkel (ARCSIN (((Y_OF p1) - (Y_OF p2))/hypoten))
          
          IF (((X_OF p1) - (X_OF p2)) < 0)
            LET winkel (180 - winkel)       
          END_IF
          
          LET flag 1
          
        ELSE
          DISPLAY "Kein Element gefunden!"
          LET flag 0
        END_IF
        
      ELSE
        DISPLAY "Fehlerhafte Eingabe, bitte wiederholen!"
        
        LET flag 0
        
      END_IF
      EXIT_IF ((abstand) AND (flag))   {Ende, wenn Punkt und Abstand eingegeben}
    END_LOOP
    
    C_LINE PARALLEL abstand punkt (PNT_XY (X_OF (punkt)+COS (winkel+1)) (Y_OF (punkt)+SIN (winkel +1)))
    C_LINE PARALLEL abstand punkt (PNT_XY (X_OF (punkt)+COS (winkel-1)) (Y_OF (punkt)+SIN (winkel -1)))
    

END_DEFINE