|
AutoCAD VBA : Koord auslesen und sortieren
alfred neswadba am 14.03.2010 um 20:32 Uhr (0)
Hi,probier mal, was würde dann helfen, wenn hier nochmals eine Anleitung gemacht wird, die schon tausendfach im Internet existiert? aber wie kann ich dann die ganze zeile in ihre einzelnen komponenten zerlegen?SPLIT könnte hier helfen, nur kommt da zu wenig Info. Der Begriff Komponenten verrät nichts über Deinen Zeilenaufbau, wie soll man/Frau Dir helfen?- alfred -------------------www.hollaus.at
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ACAD2009 / ActiveX
alfred neswadba am 11.04.2009 um 21:25 Uhr (0)
Hi Günter, Zitat:Wo finde ich die von Dir angegeben Verweis?in der Projektübersicht auf Projektname == rechte Maustaste == Verweis hinzufügen == (in diesem Dialog) auf Karte COM == und hier findest Du die Liste der COM-Komponenten zum auswählen, dann OK.Alternativ kannst Du auch in den Projekteigenschaften Verweise hinzufügen/löschen: In Projektübersicht auf Projektname == rechte Maustaste == Eigenschaften == (in diesem Bereich) auf Karte Verweise == Button Hinzufügen.Du musst auch unterscheiden, was NameS ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahl auf 0,0 verschieben
alfred neswadba am 10.06.2009 um 14:59 Uhr (0)
Hi, blind geschrieben, also Tipfehler möglich (und kostenlos mitgeliefert )Code:Dim tEnt as AcadEntitydim tAllMin(2) as Double:tAllMin(0) = 99999999.9:tAllMin(1) = 99999999.9:tAllMin(2) = 99999999.9zuerst sammeln wir die Min-Extents aller Elemente im SelectionSetfor each tEnt in sset Dim tEntMin as Variant Dim tEntMax as Variant Call tEnt.GetBoundingBox(tEntMin,tEntMax) if tEntMin(0) tAllMin(0) then tAllMin(0) = tEntMin(0) if tEntMin(1) tAllMin(1) then tAllMin(1) = tEntMin(1) if tEntMin(2) tAllMi ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahl auf 0,0 verschieben
alfred neswadba am 10.06.2009 um 14:16 Uhr (0)
Hi Bernhard,bitte nochmals um Beschreibung, denn Dein Code schiebt alles mögliche (wobei mir auch nicht klar ist, woher acSSet kommt (in Deiner inneren Schleife)).Möchtest Du jedes einzelne Element Deines SelectionSets nach 0,0 (der Extents) verschieben?Oder soll zuerst Extents des gesamten SelectionSets gebildet werden und dann der linke untere Punkt zu 0,0 werden?Und ist die Ermittlung über Extents überhaupt richtig? Denn z.B. ein Text, der Mitte-Zentriert eingesetzt ist, wird dann so geschoben dass der ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Installation 2000i+VBA
alfred neswadba am 18.11.2008 um 23:26 Uhr (0)
Hi,wenn Du sowieso neu am Installieren bist, dann eventuell folgende Variante:VMWare und Windows2000 (Leistung von VMWare für Acad2000i sollte reichen; gleichzeitig auch der Vorteil, dass Du der VMWare-Session nur einen Prozessor gibst).... denn ich könnte mir gut vorstellen, dass bestehende VBA-Varianten, die auf dem bestehenden Rechner schon drauf sind (Office, ev. aktuellere AutoCAD-Versionen) evenutell bei der Installation von alten ActiveX-Komponenten sich ein bisschen wehren.Bleibts bei XP, dann alle ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Auswahl auf 0,0 verschieben
alfred neswadba am 10.06.2009 um 15:46 Uhr (0)
Hi,kleine Bemerkung sei mir erlaubt:Wenn mehrere BlockReferenzen mit dem Namen RA1 existieren, dann geht Dein Makro aber nur wenn der erste gefundene Block den X-Wert der Extents-Min 0.0 hat. Ist der vom ersten gefundenen Block der Extents-Min-X-Wert = 0, fliegt er aus der Sub raus.Und das zweite ist auch schon mitgesagt, es wird nur der X-Wert überprüft, nicht Y und nicht Z.- alfred -------------------www.hollaus.at
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layer konvertieren
alfred neswadba am 25.07.2010 um 21:20 Uhr (0)
Hi,guck zuerst mal hier hin, denn einfach so Elemente auf andere Layer verschieben klingt leicht, dazu gehören dann aber auch die Inhalte von Blockdefinitionen umbauen, Bemaßungsstile umbauen, ....Das zu programmieren macht dann natürlich mehr Sinn, mit ManagedDLLs abzuarbeiten als mit VB.NET von einer umgebenden EXE, wo die Kommunikation der beiden EXEs dann nicht im gleichen Speicherrahmen abläuft. Als solches gehört dann deutlich mehr dazu als mit SendCommand. .... das soll keine Drohung sein, aber warn ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
