|
Autocad VBA : Anzahl Bemaßungen bestimmen --> VBA?
startrek am 20.12.2004 um 11:50 Uhr (0)
Hi Oli, nimm mal ne neue/leere Zeichnung, zeichne Dir zwei Linien, bemaß nen Winkel und ne Länge. Dann einfach zB: Code: sub x() dim o as object set o=thisdrawing.modelspace debug.print irgendwas end sub Setz dir auf debug.print nen Haltepunkt, F5 und dann einfach mal nen Blick ins Lokalfenster riskieren ... ;-) Was Du suchst findest Du in den [4] Items unter o, also: IAcadDimRotated / IAcadDimAngular sowie TextOverride für evtl. Überschreibungen. Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Programmoptimierung
Dirk.B am 03.02.2006 um 16:39 Uhr (0)
Hallo Zusammen!OK.Wenn ich das Programm nun einmal gestartet habe funktioniert auch alles. Das Programm wird ja nach dem einfügen eines Blocks ausgeblendet aber nicht wirklich entladen / beendet. Ruf ich das Programm erneut auf, werden die letzten Einstellungen übernommen und angezeigt;- auch gut -.Öffne ich aber in der Zwischenzeit eine neue Zeichnung bricht das Programm bei der Ausführung ab.Wie kann ich dieses abfangen?GrußDirk
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block und Objektfarben
türringer am 19.03.2009 um 14:08 Uhr (0)
Hallo,sorry wenn ich mich hier rein hänge. Der Code ist klasse. Was müste man ergänzen , wenn man nicht die ganze Zeichnung sondern nur gezielte Blöcke bzw. gezielte Objekte eines Blockes bearbeiten möchte? Leider werden auch keine Attribute berücksichtigt.Ich hoffe das sprengt jetzt nicht die Hilfsbereitschaft. DankeTürringer[Diese Nachricht wurde von türringer am 19. Mrz. 2009 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Datei schließen & öffnen ; crosspost.Lisp
OlliBaer am 15.08.2003 um 16:49 Uhr (0)
Hallo, ich würde es so machen: Sub ButtonNeu() Dim ZGesamt As String ZGesamt = ThisDrawing.FullName If ThisDrawing.FullName Then ThisDrawing.Close (False) Documents.Open ZGesamt Else MsgBox ThisDrawing.Name & wurde noch nicht gespeichert! End If End Sub wenn es eine ungespeicherte Zeichnung ist, bekommt man sonst eine unschöne fehlermeldung ;-) bis dann Olli
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Projekt oder Bibl. nicht gefunden
jusi am 01.12.2010 um 13:28 Uhr (0)
...soviel schon mal vorab,hatte 2 Projekte also dvbs, soweit ich weiß kann man immer nur Einepro Zeichnung oder Sitzung nutzen.Habe mir die Datei mit der "Fehlermeldung"als DVB abgespeichert und alle anderen Userform und Module aus der alten DVB importiert.Dann die alte DVB entladen, die "Neue" geladen und in "Anwendungen laden/entfernen in die Startgruppe gelegt.hat jetzt auf die schnelle funktioniert, hoffe es bleibt so.GrußUwe
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Textbreite von AcadText ändern
ThomDD am 24.09.2007 um 14:47 Uhr (0)
Hallo, ich habe in einer Zeichnung einen normalen Text, es handelt sich um ein AcadText-Objekt.Ich vermisse die Eigenschaft Width wie beim MText. Wenn ich ohne VBA das AutoCAD-Eigenschaftsfenster von diesem Text anzeigen lasse, dann sehe ich die Eigenschaft Breitenfaktor, dessen Wert ich ändern kann. Es gibt also so eine Eigenschaft. Aber wie schaffe ich das mit VBA? ThomDD
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : noch mal die Frage nach dem Layereigenschaften-Filter
CADOpa am 05.11.2005 um 22:57 Uhr (0)
noch was...Dein Vorschlag ist nur dann anwendbar, wenn man "nur seine eigenen" Inhalte sehen will. Wenn ich aber die Wände, die der Architekt gezeichnet hat in der Zeichnung brauche, kann ich deren Layer nicht ausschalten oder einfrieren - ich muss sie nur für die Steuerung unsichtbar (über Namenskonvention) machen. Im Anhang eine bebilderte Beschreibung....------------------Die Zukunft ist nicht mehr was sie einmal war - was ein Glück - gibt es uns
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : ThisDrawing.Blocks
egug am 13.06.2008 um 18:26 Uhr (0)
schönen guten Abend an alle Nichtfussballfans :-)habe folgende VBA Routine die in einer Zeichnung den Block mit dem Namen LOGO suchen soll und die enthaltenen Attribute anzeigen soll.Private Sub CommandButton19_Click() Set allblocks = ThisDrawing.Blocks For Each blk In allblocks If blk.Name = "LOGO " Then MsgBox (blk.Name) Block Attribute auslesen End If NextEnd SubBesten Dank für Eure Hilfe
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Mittels Access einen Block aus einer .dwg (Bibliothek) in eine andere .dwg einfügen
otm am 07.10.2009 um 11:06 Uhr (0)
Hi Manuel,wenn ich Dich richtig verstehe, möchtes Du Die Blöcke Deiner Blockbibliothek über einen Button in Deine Aktuelle Zeichnung einfügen.Ich habe den Weg gewählt alle Blöcke einzeln in ein Verzeichnis zu speichern (als DWG) und füge diese über Blöcke einfügen, bzw. über ein Icon, bei dem dieser Behfehl hinterlegt ist, ein.------------------Christian
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : drunter und drüber
BloodyMess am 03.02.2004 um 13:28 Uhr (0)
Hallo Holger, das ist alles garnet so einfach ... Mit getboundingbox das klappt ja alles ganz gut, wenn der Text in irgendeinerweise exakt horizontal oder vertikal liegt, aber das ist in meiner Zeichnung nicht der Fall. Die Polylinien der Box ergeben dann ein Wirrwarr, was ich nicht wirklich verstehe. Muß ich das Koordinatensystem noch drehen? Wenn ja, wie kann ich es am Textfuß ausrichten, da ich von der Boundingbox ja nur eine Diagonale hab, das würde ja nicht passen. Gruß TP
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Liegt eine Blockref an diesem Punkt?
alfred neswadba am 30.06.2009 um 09:22 Uhr (0)
Hi,1) sorry, hab nicht nach oben geguckt und nachdems sogar von mir ist, gehe ich mal so aus, dass es passt 2) Da ist ein Denkfehler, wenn Du Format(InsertPoint(0), "#.000") hinschreibst, dann liefert Dir das einen String, und kein Double (da wäre die VB-Funktion ROUND angebracht)! Und der Key ist eigentlich so ausgelegt, dass der Einfügepunkt geprüft wird, wenn Du einmal in der Collection den Key mit Einfügepunkt rechnest und dann den Key mit Einfügepunt PLUS Modulbr, dann wirds mit finden nix (ausser ic ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Datei blockattr.xls/dwg funktioniert nicht
TS84W am 20.11.2008 um 12:58 Uhr (0)
Hallo AlfredBesten Dank für die prompte Antwort!zu a) die Zeichnung in der Anlage war die Originalzeichnung, die mit der xls-Tabelle so runtergeladen wurdezu b) xls97, siehe Profil (...der Anfänger lernt im Forum...)So wie ich (laienhaft) einiges aus dem Code zu verstehen glaube, könnte es tatsächlich dort liegen. Was jetzt gefragt wäre, ist ein Lösungsansatz für x attribute (können bis 30 Stk. sein) bzw. Spalten in xls bis keine Attribute mehr vorhanden sind und immer in "D" beginnen.Besten DankGruss Thom ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Abfrage in AutoCAD als neue datenbank speichern
Dexta am 09.03.2005 um 15:54 Uhr (0)
Und noch eine Frage, ich weiss, dass ist schon die dritte hintereinander, aber du hast mich mit deinem Vorschlag wirklich sehr angeregt. wie kann ich die Abfrage formulieren? Alle Objekt, die in AutoCAD in einer gewissen Zeichnung eine Verknüpfung haben, was ist das Kriterium??? Kann man eigentlich überhaupt irgendwie mit der verknüpfung in autocad als Abfragekriterium arbeiten? und wie?
|
| In das Form Autocad VBA wechseln |
