|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
Arol am 14.02.2009 um 09:22 Uhr (0)
On Error Resume Next habe ich rausgenommen.Wenn ich das Programm in einer leeren Zeichnung, die noch keine Blöcke hat, starte, Zeigt er ein Fehler bei oder besser gesagt markiert er mir:Set Block = ThisDrawing.Blocks.Item(blockname)
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
Arol am 13.02.2009 um 20:52 Uhr (0)
Ja KlaK,das ist bei mir im Quelltext dabei, ich habe versucht nur die relevanten Sachen einzufügen und habe diese eine Zeile vergessen.ich muss noch vielleicht dazu sagen, dass das Programm ohne: Set Block = ThisDrawing.Blocks.Item(blockname)If (Block Is Nothing) ThenEnd Ifproblemlos läuft.
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
Arol am 14.02.2009 um 14:01 Uhr (0)
Ich habe nochmal den 1. Vorschlag von Alfred angeguckt und herumexperementiert. Nun klappt es.So sieht es jetzt aus:blockname = "Langloch " + Replace(laenge, ",", ".") + "x" + Replace(breite, ",", ".") + "_r" + Replace(radius, ",", ".") Blockname automatisch erstellenSet Block = ThisDrawing.Blocks.Item(blockname)If (Block Is Nothing) ThenBpkt(0) = laenge / 2: Bpkt(1) = breite / 2: Bpkt(2) = 0Set Block = ThisDrawing.Blocks.Add(Bpkt, blockname)...Quellcode fürs Langloch...End ifMe.Hidetext1 = vbCrLf & "Einfü ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
Arol am 13.02.2009 um 20:25 Uhr (0)
Alfred,Danke für die sehr schnelle Antwort.Die Funktion replace funktioniert wunderbar. Ich verstehe aber nicht, wieso du sie doppelt einsezt. so funktioniert es bei mir auch:blockname = "Langloch " + Replace(laenge, ",", ".") + "x" + Replace(breite, ",", ".") + "_r" + Replace(radius, ",", ".")zu Punkt 2. mein Quellcode sieht in Moment so aus:Dim Block As AcadBlockDim blockname As StringDim BlockRef As AcadBlockReferenceDim text1 As String Dim IPoint As Variant ...blockname = "Langloch " + Replace(laenge, ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
Arol am 13.02.2009 um 16:54 Uhr (0)
Hallo,ich habe ein kleines VBA-Programm geschrieben, das nach Vorgabe (Länge, Breite und Radius) ein Langloch zeichnet und als Block in die Zeichnung einfügt. Der Name von diesem Block wird automatisch erstellt.Nun habe ich 2 kleine Probleme, die ich bis jetzt mit der Suchfunktion und google nicht lösen konnte.1. Das automatische Erstellen des Blocknamens habe ich wie folgt gelöst:blockname = "Langloch " + laenge + "x" + breite + "_r" + radius Set Block = ThisDrawing.Blocks.Add(Bpkt, blockname)Das funktion ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block im aktivem Layout und-color: #FFFF99'>suchen
Arol am 30.04.2009 um 12:13 Uhr (0)
1a Danke!!!
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block im aktivem Layout und-color: #FFFF99'>suchen
Arol am 28.04.2009 um 22:06 Uhr (0)
Hallo Zusammen,ich habe im Layoutbereich einen Zeichnungsrahmen, der als Block abgespeichert ist und hat z.B. den Namen "A1-HOCH". In einem Layoutbereich darf immer nur ein Zeichnungsrahmen sein aber mehrere andere Blöcke, z.B. Schriftkopf, Schnittsymbol...Nun möchte ich ein VBA Programm schreiben, das den aktiven Layout nach Blocknamen durchsucht. Durch eine CASE Abfrage würde ich je nach Resultat bestimmte Ploteinstellungen zuweisen/festlegen.Mein Problem ist: ich habe einen Blocknamen und möchte wissen, ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
