|
Autocad VBA : Rechteck schraffieren
mapcar am 18.10.2004 um 09:17 Uhr (0)
Dim outerLoop( 0 To 0 ) As AcadEntity Das sieht erstmal reichlich merkwürdig aus... Kann eigentlich nur (wenn Option Base == 0) eine Boundary mit 1 Stützpunkt werden. Wenn ich Acad wäre, würde ich die auch zurückweisen;-) Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Rechteck schraffieren
mapcar am 20.10.2004 um 00:21 Uhr (0)
Hmmmm, ich will ja auch nicht, dass das VBA-Forum zu irgendwas Zauberhaftem oder einem A-Corner wird. Aber wirklich off-topic war s ja doch nicht, eher eine etwas persönliche Antwort auf die Frage Was bedeutet Option Base ? . Aber im Ernst: Muss denn immer alles so ernst sein? Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fo ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Rechteck schraffieren
mapcar am 18.10.2004 um 11:52 Uhr (0)
Na ja, das ist doch keine Profi-Mathematik: Wenn dein Boundary 4 Stützpunkte haben soll, dann muss das Array auch 4 Elemente haben. Du definierst das Array aber mit einem Element, und dann überschreibst du dieses Element dreimal, sodass letztendlich nur der letzte (vierte) Punkt drinsteht. Das kann doch nix werden;-) Also: Code: Option Base 0 ... Dim MyArray (0 To 3) As Irgendwas MyArray(0) = ... MyArray(1) = ... MyArray(2) = ... MyArray(3) = ... Gruß, Axel Strube-Zettler ------------------ (defun ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Rechteck schraffieren
mapcar am 18.10.2004 um 14:02 Uhr (0)
Ich will dir ja nicht auf den Schlips treten, aber wenn du Arrays nicht indizieren kannst, bist du von super programmieren noch ziemlich weit entfernt. Dazu gehört auch die Base-Option, das ist eigentlich ein Klacks, da mal einen Blick in die Hilfe zu werfen. Das Ganze war doch auch gar kein AutoCAD-Problem, sondern ein VB-internes, das hättest du genauso in einem Excel-Programm haben können. Auch dein letztes Problem mit dem Durchreichen des Basispunktes ist überhaupt nicht AutoCAD-spezifisch. Das ist e ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Rechteck schraffieren
mapcar am 18.10.2004 um 23:56 Uhr (0)
Ich habe zufällig im September eine Kurzgeschichte mit dem Titel Option Base 0 geschrieben, anlässlich einigen Ärgers, den ich mit meinem neuen Scanner hatte. Die will ich euch doch nicht vorenthalten - ich hoffe, der Moderator dieses Forums haut mich nicht gleich;-) Option Base 0 Schön, elegant, schwarz und silber, so ziert er jetzt meinen Schreibtisch, der neue Scanner. Er hat einen Haufen Geld gekostet - na ja, nicht so viel wie mein erster, aber das war vor 10 Jahren. Die Preise sind inzwischen gef ...
| | In das Form Autocad VBA wechseln |
|
AutoLisp : 2006 - der zweitbeste Wackelpudding nach 13
mapcar am 15.09.2005 um 00:23 Uhr (0)
Ich zerbreche mir grad den Kopp über das hier - ein Original-Mitschnitt der Kommandozeile.Code:Command: !*base-bottom-left*(200 0 200)Command: lineSpecify first point: !*base-bottom-left*Invalid point.Specify first point: *Cancel*Command: (setq *start* *base-bottom-left*)(200 0 200)Command: lineSpecify first point: !*start*(200 0 200)Specify next point or [Undo]: 1000,0,0Specify next point or [Undo]: Ich verstehe das nicht. Versteht das irgend jemand hier?Gruß, Axel Strube-Zettler------------------Meine Au ...
| | In das Form AutoLisp wechseln |
|
Autocad VBA : IntersectWith Methode
mapcar am 22.08.2004 um 21:26 Uhr (0)
Hi Stefan, du machst da im Prinzip wohl nichts falsch, es ist nur so, dass sich 3DSolids einfach jeglicher Bearbeitung entziehen (ausser Verschieben usw.) Die 3DSolids erben zwar von ihrer Base Class die Methode IntersectWith, aber wirklich implementiert ist die Methode nicht. Das Fehlschlagen ist also kein Fehler, sondern so programmiert. Abgesehen davon kann man das Ergebnis auch gar nicht mit Punkten erfassen: SchnittPUNKTE gibt es nur bei geraden und krummen Kurvenobjekten. Gruß, Axel Strube-Zettler ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Überschneidungen feststellen
mapcar am 07.05.2004 um 22:42 Uhr (0)
Mir kam eben noch eine Idee: Habe spaßeshalber mal einen Block gemacht, der nur zwei Punkte enthält (lower left und upper right des Umgebungsrechtecks). Da kann eigentlich kein Schnittpunkt entstehen, wenn nicht zwei Referenzen deckungsgleich eingefügt werden. Es ist genau so, wie ich vermutet habe: Es wird nur das Umgebungsrechteck getestet, du musst also nach dem KO-Prinzip alle Unterentities testen. Noch ein Hinweis zu deinem Code: Wäre nett, wenn du Option Explicit / Option Base verwenden und angeben w ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Block - Attribute
mapcar am 31.03.2004 um 21:34 Uhr (0)
Keine Ahnung, was du da machst - es ist völlig egal, wie der Block zustande gekommen ist. Ich vermute, du verwechselst irgendwo was (z.B. de Unterschied zwischen einem Block (der niemals Attribute haben kann!) und einem Insert (= Blockreferenz). Es ist völlig unerheblich, ob die Block-Definition in einer Zeichnung erzeugt wurde oder aus einer Datei stammt, denn der Block spielt bei Attributen nur in dem Augenblick eine Rolle, in dem das Insert erzeugt wird. Später kann die Blockdefinition verändert werden, ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Suchen/Ersetzen via RegExp
mapcar am 18.09.2004 um 00:24 Uhr (0)
Hi Nancy, ich hab mal versucht Bernd s [bst] RegexReplace Wer ist Bernd? Und was hat der damit zu tun? Fehlt da vielleicht ein Link? Verweis auf Microsoft VBScript Regular Expressions 5.5 setzen Öh, wo ist denn der Verweis? sollte in letzter Zeit ein recht monologlastiger Eindruck entstanden sein Geht mir manchmal auch so - die wirklich interessanten Dinge interessieren oft kein Schwein;-) RegEx ist ein sehr interessantes Thema. In Lisp gibt es nur das verschissene WCMATCH zum suchen - das tau ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
