|
Autocad VBA : Selectionset
autogis am 24.06.2005 um 11:44 Uhr (0)
Block und-color: #FFFF99'>suchen Hallo VBA-Gemeinde, mal wieder eine einfache Frage zum Thema Selektion. Die Aufgabe besteht darin, an einem Punkt eine Blockreferenz zu selektieren. Das Problem liegt darin, daß der Block-Einfügepunkt neben der eigentlichen Geometrie liegt. Folgende Verfahren hab ich ausprobiert. SelectAtPoint ... schön und gut, findet aber nur das zuletzt gezeichnete Element acSelectionSetCrossing ... findet die Blockreferenz nicht, es seie denn, man stellt die Eckpunkte so groß ein, daß auch benachbarte Blö ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Aufruf Dateieigenschaften in VBA
Huebi am 27.03.2006 um 14:47 Uhr (0)
Servus Willi,benutz doch mal ein starkes Deo - ich kanns ja förmlich riechen, wie Du schwitzt.Schön, dass es doch klappt , aber ein bischen musst Du schon noch selber und-color: #FFFF99'>suchen (und auch finden)"call" war der falsche Aufruf. Ein Formular startet man natüüürlich mit ".show"Also: Nemen wir mal an, Dein Formular hat den wunderschönen Namen: "Saveas_dwg" dann rufst Du das Formular mit dem Befehl "Saveas_dwg.Show" auf.Falls es allerdings nur schnöde "UserForm1" heißt, sollte es mit "UserForm1.Show" klappen.Die Ei ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Layer nach variable benennen
adblue am 05.09.2009 um 18:57 Uhr (0)
hi nochmalnoch eine kleine frage:ich frage über eine for each -schleife alle layer ab ob ein layer dabei der einen bestimmten namen hat. wenn es gefunden wurde soll auf diesem layer ein punkt gezeichnet werden.die programmcode für das und-color: #FFFF99'>suchen und punkt setzten sind mir bekannt. nur ein problem habe ich. wenn ich den richtigen layer gefunden habe, weiß ich nicht wie sein "object" heißt.wenn ich layer über vba erstelle würde ich das so lösen:Dim NewLayer As AcadLayerSet NewLayer = ThisDrawing.Layers.Add("Laye ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA Makro mit AUTOCAD verheiraten
startrek am 12.12.2011 um 20:20 Uhr (0)
Hi Andre,zwei Werte abfragen kannst Du auch in Acad selbst,zB mit einer kleinen Userform und zwei Textboxen oder mit einer 0815 Inputbox.Das funktioniert in Acad genauso wie in Excel.Dritte Möglichkeit wäre über die Acad-Befehlszeile zB so ähnlich:Code:Sub x() Dim s1$, s2$, s3 With ThisDrawing.Utility s1 = .GetString(0, "erster Wert: ") s2 = .GetString(0, "zweiter Wert: ") s3 = CDbl(s1) + CDbl(s2) .Prompt "Ergebnis = " & CStr(s3) End WithEnd SubSetz hierzu auch mal ein F1 auf GetStri ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zeichnungsvariablen in Eigenschaftssätzen
joeycool am 05.08.2009 um 09:55 Uhr (0)
Moin Alfred,also ich formuliere mal:Ich definiere in den Zeichnungseigenschaften (wie im Autocad) eine zeichnungsspezifische Variable, diese könnte ich jetzt z.B. in Schriftfeldern auswerten bzw. weiterverarbeiten.Die Eigenschaftssätze von ACA sind erweiterte Eigenschaften (entweder manuell erzeugt, oder aus dem Objekt ausgelesen [z.B. Länge] oder aus Formlen berechnet), die man den Objekten zuordnen kann. In Civil gibt es bestimmt was Vergleichbares.In diesem Formeleditor kann ich jetzt vb scriptcode verw ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Durchund-color: #FFFF99'>suchen von Selectionset
Silvan01 am 13.05.2009 um 16:38 Uhr (0)
Hi,1)Der Befehl SuperHatch kommt schon ziemlich gut an das gesuchte.Das Problem dabei ist, dass es nur eine ich sag mal "grafische"-Lösung ist.Ich würde es gerne so lösen, dass ich so wenige wie mögliche Fliesen (in meinem Beispiel Felder) zerschneiden muss und die zerschnittenen auch nicht anzeigen will.Außerdem will ich mit den einzelnen Fliesen noch umgehen können und nicht alle als Gruppe haben. (Hab auch Hier gelesen, das es möglich ist aber bei mir klappt des trotzdem nicht.2)Zu dem Zoom habe ich um ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Abstand zwischen Polylinien
mapcar am 28.07.2005 um 13:49 Uhr (0)
Na ja, die Frage ist viel zu ungenau gestellt. Da müsste man wissen, ob die Intervalle gleich sein sollen, z.B. "alle 5 ZE einmal messen", das bricht dann immer bei der kürzeren Polylinie ab, oder ob die Intervalle jeweils einen Prozentanteil der Gesamtlänge betragen sollen, also "alle 10% der jeweiligen Länge messen". Wie dem auch sei: Wenn man nicht über die Stützpunkte gehen will, ist man mit VBA schnell am Ende, denn die ganzen vlax-curve-...-Funktionen (wie vla-curve-getPointAtDist), mit denen das in ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ObjectDBX
Stelli1 am 08.09.2005 um 10:52 Uhr (0)
Hallo Florian,stimmt leider das es hier kein selectionset gibt.und-color: #FFFF99'>Suchen könnte man so:Code:Private Sub CommandButton1_Click() Ist unter Verweisen eingebunden Dim axDoc As New AxDbDocument axDoc.Open "D:Daten_PZPZ_AW_DIN.DWG" Dim Entity As AcadEntity Dim BlockRef As AcadBlockReference Dim TestPunkt(0 To 2) As Double Dim InsPunkt As Variant TestPunkt(0) = 0: TestPunkt(1) = 0: TestPunkt(2) = 0 For Each Entity In axDoc.ModelSpace If Entity.EntityType = acBlockReference Then Set BlockRef ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Datei blockattr.xls/dwg funktioniert nicht
TS84W am 19.11.2008 um 21:01 Uhr (0)
Guten Tag VBA-ProfisAuf der Suche nach einer Funktion, aus x 100 Blöcken Attribute auszulesen, zu ergänzen und wieder in die selbe Blockreferenz zurück zu schreiben, bin ich nach einigem und-color: #FFFF99'>Suchen auf die Datei blockattr.xls/dwg gestossen. Leider finde ich den entsprechenden Beitrag im Forum nicht mehr..... Das tool ist eigentlich genau, nach was ich gesucht habe. Das Problem ist, dass wenn der Block mehr als 10 Attribute aufweist, die Übergabe an Excel nicht richtig funktioniert, d.h. es werden nur ein Teil ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Formular zum ausfüllen meines Zeichnungskopfes
RoSiNiNo am 20.11.2003 um 09:57 Uhr (0)
Jetzt stllt sich auch noch die Frage, ist dein Block schon in der Zeichnung eingesetzt oder nicht? Wenn er schon in der Zeichnung ist, dann musst du nach der jeweiligen Blockreferenz und-color: #FFFF99'>suchen. Wenn du aber den Block erst einfügen musst, dann ist das noch leichter, du kennst ja dann die Blockreferenz schon. Dann stellt sich noch die Frage, gibt es den Block öffter in der Zeichnung, gibt es mehrere Layouts mit je einem Kopf, sollen alle Blöcke geändert werden oder nur der im aktuellen Layout,....? Du solltest ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Alle Objekte die auf dem Bildschirm sichtbar sind
alfred neswadba am 24.02.2011 um 15:21 Uhr (0)
Hi,nee, ich hätte da mehr Topologie (GIS) -artig gedacht.Lese die Linien/Polylinien/Bögen ein.Sammle die Start- und Endpunkte der Elemente in einer Collection von benutzerdefinierten Objekten, solch ein Objekt kann so aussehen:Code:ID as LongGeoLoc as String und dieser String (GeographicLocation) baust Du Dir aus X und Y (und bei Bedarf C) zusammenEntList as CollectionPnt as Double(2)Und diese Collection von Punkten baust Du Dir beim Einlesen der Elemente auf, mit dem Key = GeoLoc, damit Du schnell suc ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Aufruf Dateieigenschaften in VBA
wwwilli am 27.03.2006 um 11:32 Uhr (0)
Hallo,mein Makro soll bei Bedarf die Standard-Anweisung "Speichern Unter" ersetzen. Es soll erst die Dateieigenschaften abfragen, daraus, wenn möglich Rückschlüsse ziehen, in welchen Ordner das neue Bild gehören könnte und einen Vorschlag machen, wie es (nach vorgegebener Systematik) heißen könnte. Dann Speichern Unter ausführen (mit dennoch freier Wahl von Namen und Ordner). Und dann aus Dateiinfos und Namen und Pfad einen Eintrag in eine Übersichtsdatei für jeden Ordner absetzen.In Word, XL und PP habe i ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : 4 Linien zu einer "Gruppe" bilden
The VIP am 19.01.2004 um 16:24 Uhr (0)
ok, also ich hab mal beides angeschaut und ein wenig rumprobiert. Ich habe mich entschieden die Block-Funktion zu verwenden. Ich zeichne die vier Linien, mache einen Block daraus und dieser wird dann gedreht oder kopiert oder wie auch immer. Ich habe mal versucht zu diesem Block einen vorhandenen Block zu ergänzen und habe mal ganz naiv folgendes geschrieben: Code: Dim blockObj As AcadBlock ... Set Block6 = blockObj .InsertBlockEx(Point3D(2000, 0), IIf(BlockInDrawing(BlName06), BlName06, BlName06 & . ...
|
| In das Form Autocad VBA wechseln |
