---

Beschriftung.jpg

Wie kann ich eine Beschriftung (siehe Anhang) per VB6 Makro auf eine Zeichnung bringen ?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

was genau möchtest Du denn eigentlich erreichen?

An Elemente anhängen, frei am Blatt platzieren, etc.?

------------------
mfg

Wolfgang Hackl
CAD/CAM - Consult
http://www.cadcam-consult.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wolfgang,

ich habe beide Fälle:
-Frei auf dem Blatt plazieren
-An den Endpunkt einer Linie hängen

Gruß Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo caeman,

was ich jetzt noch verstanden habe, welche Erleichterung bei der Arbeit soll der Makro bringen? Das platzieren des Symbols ist ja nun nicht der Aufwand.

------------------
Gruß
Markus Gras
Unitec Informationssysteme GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

eben, das wäre auch meine Frage?
Warum automatisieren?

Wenn Du uns das sagst, dann können wir unter Umständen noch bessere Antworten liefern.

------------------
mfg

Wolfgang Hackl
CAD/CAM - Consult
http://www.cadcam-consult.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

schriftkopf.jpg

Wir haben unsere interne Zeichungsnorm geändert und in der Draft-Vorlage dieses Symbol immer mit drauf. In der Anlage findet ihr unseren aktuellen Standardkopf.

Geht nun aus Kapagründen eine komplette Werkzeugkonstruktion zu einem externen Konstrukteur bekommt dieser, falls vorhanden, einen Referenzwerkzeugsatz von uns. Zur Erstellung des Referenzwerkzeugsatzes habe ich vor Jahren ein Modul geschrieben, das alle Solid Edge Dateien (Draft, Assembly und Part) vom Dateinamen anpasst, die Links in Draft und Assembly korrigiert und in allen Schriftköpfen den Kundennamen, Zeichnungsnummer, Benennung usw. ändert. Es handelt sich pro Werkzeugsatz um ca. 700 Draft, Part und Assy.
Das Modul spart pro Werkzeugsatz ca. 2 Tage Arbeit.

Nun soll bei der Aufbereitung eines Referenzwerkzeugsatzes (aus einem alten Werkzeugsatz) auch dieses Symbol ergänzt werden.

Ich brauche keine Grundschulung in Makroprogrammierung. Ein Tipp in die richtige Richtung reicht schon.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ein Teil des Codes könnte ungefähr so aussehen:

        Set oPunkt = oBlock.DefaultView.Points2d.Add(xP, yP)
        Set oKante0 = oBlock.DefaultView.CornerAnnotations.AddByTerminator(oPunkt, 0, 0, 0, True)

        With oKante0
            .UseISODIN2000CornerAnnot = True
            .Style.Height = oKante1.Style.Height
            '.Style.LineWidth = oKante1.Style.LineWidth
            '.Style.LeaderLineLength = oKante1.Style.LeaderLineLength
            '.Style.TerminatorType = igDimStyleTermBlank
            .Style.DrivenColor = oKante1.Style.DrivenColor
            .AddVertex xP + dy, yP + dy, 0
           
            .UpperToleranceForEnhancedSymbol = flgOZ.TextMatrix(iZ, 1)
            .LowerToleranceForEnhancedSymbol = flgOZ.TextMatrix(iZ, 2)
            .Direction1Tolerance = wert3
            .Direction2Tolerance = wert4
            oBlock.DefaultView.Points2d.Item(oBlock.DefaultView.Points2d.Count).Delete
           
            .Layer = strKanten
        End With

Hoffe das hilft!

------------------
mfg

Wolfgang Hackl
CAD/CAM - Consult
http://www.cadcam-consult.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

habe vergessen zu sagen, dass Du Dir für das Kantenobjekt einfach die Props anschaust und entsprechend deines Bedarfs setzt.
In meinem Code habe ich hier einige Referenzen in Verwendung, die für Dich natürlich nicht passen.

------------------
mfg

Wolfgang Hackl
CAD/CAM - Consult
http://www.cadcam-consult.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

corneranno.jpg

Danke für den Tipp, es funktioniert (fast).
Die Zahl konnte ich allerdings nur an die richtige Stelle setzen indem ich zwei Leerzeichen davor gemacht habe. Ich habe keine Möglichkeit gefunden die Zahl exakt per Koordinaten an die richtige Stelle zu setzen. Sieht nicht ganz so schön aus wie manuell erzeugt.

Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheet As SolidEdgeDraft.Sheet
Dim objPoints As SolidEdgeFrameworkSupport.Points2d
Dim objPoint As SolidEdgeFrameworkSupport.Point2d
Dim oCornerAnnos As SolidEdgeFrameworkSupport.CornerAnnotations
Dim oCornerAnno As SolidEdgeFrameworkSupport.CornerAnnotation

Set objApp = GetObject(, "SolidEdge.Application")
Set objDoc = objApp.ActiveDocument
Set objSheet = objDoc.ActiveSheet

Set objPoints = objSheet.Points2d
Set objPoint = objPoints.Add(x:=0, y:=0)  'Position Pfeilspitze

Set oCornerAnnos = objSheet.CornerAnnotations
Set oCornerAnno = oCornerAnnos.AddByTerminator(objPoint, 0, 0, 0, True)

With oCornerAnno
  .UseISODIN2000CornerAnnot = True
  .Style.TerminatorType = igDimStyleTermFilled
  .LowerToleranceForEnhancedSymbol = "  -0.5"
  .BreakLine = True
  .BreakLineDirection = 0 'nach rechts entlang X
  .BreakLineDistance = 0.008 'Länge der breakline
  .AddVertex 0.005, 0.005, 0 'Position vom Knickpunkt
End With

objSheet.Points2d.Item(objSheet.Points2d.Count).Delete 'Zuletzt gespeicherten Punkt löschen

Set objApp = Nothing
Set objDoc = Nothing
Set objSheet = Nothing
Set objPoints = Nothing
Set objPoint = Nothing
Set oCornerAnnos = Nothing
Set oCornerAnno = Nothing

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

20140723_1022.GIF

Hallo,

also, da kann ich Dir jetzt nur schwer etwas dazu sagen.
Aber wenn ich das mit meinem Code teste, dann sieht das Ergebnis Makro ident aus mit manuell - siehe Bild!

Rosa ist manuell, blau ist durch Makro.

Achtung, ev. sind die Textparameter nicht ident.

------------------
mfg

Wolfgang Hackl
CAD/CAM - Consult
http://www.cadcam-consult.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Passt schon.
Vielen Dank für die schnelle Hilfe.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP