|
AutoCAD VBA : Text (Beschriftung) in Layout ausrichten
otm am 29.10.2009 um 22:27 Uhr (0)
Hallo zusammen,ich habe einen Text, an einem Punkt x1, y1 in den Modelbereich eingefügt mit folgenden Eigenschaften.Ausrichtung = Mitte zentriertDrehung = 0Text an Layout ausrichten = JaWenn ich diesen Text im Layout ansehe, wird er ausgerichtet, aber der Drehpunkt ist nicht identisch mit dem Punkt der Ausrichtung sondern ist der Griff links vom Text.Ist der Text lang steht der Text im Layout an einer ganz anderen, falschen Stelle.Ich möchte den Text gerne um den Punkt "Mitte zentriert" drehen, wenn er im ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Text (Beschriftung) in Layout ausrichten
otm am 31.10.2009 um 20:52 Uhr (0)
Danke, hab gut geschlafen. ------------------Christian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahlsatz, Filter für selectionsets
otm am 12.10.2009 um 13:17 Uhr (0)
Hat geklappt,hier nochmal der fertige Filter:Code:FilterType(0) = 8 Filter Layer FilterData(0) = aktLayer.Name Layername als String FilterType(1) = 410 Filter ob Modell oder Layout FilterData(1) = "Model" 0=Model; 1=Papierbereich FilterType(2) = -4 Objekttyp als Filter FilterData(2) = "OR" Objektname als String FilterType(3) = 0 Objekttyp als Filter FilterData(3) = "LWPOLYLINE" Objektname als String "LWPolyline","Circle" FilterType(4) = ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Text (Beschriftung) in Layout ausrichten
otm am 29.10.2009 um 23:05 Uhr (0)
Hi,hab auch kein ACAD daheim ------------------Christian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Text (Beschriftung) in Layout ausrichten
otm am 29.10.2009 um 22:51 Uhr (0)
Hi alfred,wird das Attribut dann um den Blockeinfügepunkt gedreht?------------------Christian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Text (Beschriftung) in Layout ausrichten
otm am 29.10.2009 um 22:58 Uhr (0)
Hi alfred,hab zu Hause kein Civil.Kann ich also erst wieder morgen probieren Werd ich tun. Eine gute Nacht Dir.------------------Christian
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahlsatz, Filter für selectionsets
otm am 08.10.2009 um 13:50 Uhr (0)
Hallo zusammen,ich versuche seit geraumer Zeit einen funktionierenden Filter für einen Auswahlsatz herzustellen.Filter:Objekt muss haben- Layername xy- im Modellbereich liegen- entweder - eine Polylinie- oder ein Kreis seinNehme ich nur die erste Bedingung sind Objekte im Auswahlsatz.Nehme ich die anderen Bedingungen dazu ist kein Objekt im Auswahlsatz.Sicher ist: Auf dem gesuchten Layer gibt es im Modellbereich eine geschlossene PL und einen Kreis.Hier mein letzter Versuch:Code: Dim ssFarbe As AcadSe ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahlsatz von Layern mit Filter Teil des Layernamens
otm am 07.10.2009 um 10:57 Uhr (0)
Hallo zusammen,ich versuche eine Layergruppe in einen Auswahlsatz zu bringen.Sollte nicht so schwer sein, geht aber nicht.Bis jetzt hab ich Folgendes:Code:Löscht alle eventuell vorhandenen Auswahlsätze If ThisDrawing.SelectionSets.Count 0 Then MsgBox "Vorhandene Auswahlsätze: " & ThisDrawing.SelectionSets.Count, , "Löschen" Dim intAuswahl As Long For intAuswahl = 0 To ThisDrawing.SelectionSets.Count - 1 ThisDrawing.SelectionSets.Item(intAuswahl).Delete Next intAuswahl End If Auswahlsatz n ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahlsatz, Filter für selectionsets
otm am 09.10.2009 um 09:15 Uhr (0)
@CADmiumDanke, hab ich geändert.Funktioniert aber trotzdem nicht.Es werden immer 0 Objekte im Auswahlsatz ausgeworfen.Hier nochmal der gesamte Code:Code:For Each aktLayer In ThisDrawing.Layers If UCase(aktLayer.Name) Like Gruppe Then Nur Layer bei denen der filternde Textstring Gruppe im Layernamen vorkommt bearbeiten Auswahlsatz mit allen Objekten bilden, die den Filterkriterien entsprechen und diese zählen Löscht nur den einen benötigten Auswahlsatz, falls vorhanden. Fehlerabfang, ...
|
| In das Form AutoCAD VBA wechseln |
