|
Autocad VBA : Skalierfaktor auslesen
TomiProg am 27.05.2004 um 11:25 Uhr (0)
Hallo Heiko. Nur den Namen des Blocks zu kennen reicht nicht aus, da mehrere Blöcke dieses Namens in einer Zeichnung existieren und unterschiedliche Skalierfaktoren haben können. Den Skalierfaktor bekommst du über die BlockReference und den Block mußt du auf dem Bildschirm auswählen. Versuche mal diese Zeilen. Du mußt evtl. ThisDrawing änderen, damit es bei dir läuft. Dim Objekt As Object, Punkt(2) As Double Dim BlockRef As AcadBlockReference Dim XScale As Double, YScale As Double ThisDrawing.Ut ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektzuweisung über Handle funzt nicht
TomiProg am 23.12.2004 um 14:57 Uhr (0)
Zitat: Original erstellt von mapcar: Geht schon musst sie nur in zeichnung.dwg.txt umbenennen. Aber lesen kann sie doch wohl trotzdem keiner, ist doch R14:-( Setz erstmal deinen Code hier rein, ich glaube, das bringt uns sowieso weiter. Gruß, Axel Strube-Zettler Tja, irgendwie funktioniert der upload trotzdem nicht. Meine Datei Namens Handletest.zip.txt läßt sich nicht uploaden. Nach der Meldung D A T E I ( E N ) G E S P E I C H E R T Die Datei ist in der Anhang-Liste gespeichert (Protokoll ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektzuweisung über Handle funzt nicht
TomiProg am 15.12.2004 um 15:49 Uhr (0)
Habe mal wieder ein Problem mit Acad14 und VBA. Ich möchte mit dem Befehl Set Obj = ThisDrawing.HandleToObject( 7e67 ) ein Objekt zuweisen, welches auch tatsächlich (hier 7e67 ) in meiner Zeichnung vorhanden ist, zuweisen. Doch leider wird nur Nothing zurück gegeben. Die Variable Obj ist als Object definiert, so, wie es in der Hilfe zum Befehl HandleToObject beschrieben ist. Der Sysntax lautet: RetVal = Objekt.HandleToObject(Referenz) wobei Referenz ein String sein muß. Im BeispielCode zu diesem Befehl is ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Auswahlsatz mit Filtern wird nicht korrekt erzeugt
TomiProg am 24.02.2005 um 14:12 Uhr (0)
Hallo hendersson. Probiere mal folgende geänderte Zeilen: ----------------------------------------------- Dim acsAuswahlsatz As AcadSelectionSet Auswahlsatz für die Darstellung Dim intAuswahl As Long Laufindex der Objekte im Auswahlsatz Löscht eventuell vorhandene Auswahlsätze If ThisDrawing.SelectionSets.count 0 Then For intAuswahl = 0 To ThisDrawing.SelectionSets.count - 1 ThisDrawing.SelectionSets.Item(intAuswahl).Delete Next intAu ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektzuweisung über Handle funzt nicht
TomiProg am 17.12.2004 um 13:53 Uhr (0)
@mapcar Habe dein Beispiel ausprobiert und das Ergebnis ist WAHR. Was aber, wie fuchsi schreibt, nicht des Puddels Kern ist. Es ist tatsächlich so, daß ein Zusatzprogramm (hier ist es PitCad 4.2) in XDaten jeweils Handles zum nächstlogischen Objekt mit XDaten hinterlegt hat. Und genau diese Handle in XDaten-Form will ich auslesen und zum Objekt machen. Klingt kompliziert, aber so ist das nunmal. Zur Erläuterung, warum ich das anstrebe: Wir arbeiten mit unterschiedlichen Gewerken. Die Architektur ist meist ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
