|
Autocad VBA : Rechteck schraffieren
fuchsi am 19.10.2004 um 09:59 Uhr (0)
@mapcar geniale Kurzgeschichte, darf ich mir die rauskopieren ? sogar die neuen VL-Befehle in Lisp halten sich an das Option Base 0 (vl-position c (list a b c d e )) - 2 genauso wie die alten, sollte man Autodesk gar nicht zutrauen :-) (nth 0 (list a b c d e )) - a ------------------ WWW.FFZELL.AT.TC
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Rechteck schraffieren
startrek am 21.10.2004 um 13:05 Uhr (0)
huch, ähm Axel meinst Du wegen des dim bla(1 to 5) as sonstwas? Das war nur so dahergeschrieben hätt auch bla(1 to 17) lauten können, mir gings mehr um das ( 1 to n), damit muss ich ja nicht extra Base auf 1 setzen, wenn das 0 te Element nicht erwünscht sein sollte. ;-) lg Nancy
|
| In das Form Autocad VBA wechseln |
|
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
startrek am 18.10.2004 um 21:39 Uhr (0)
Nunja, geb ich mal auch noch meinen Senf dazu ;-) Ist nich viel, jedenfalls nur soviel: hab ja auch unter Excel begonnen und bin auch nicht grad der ACAD-Hirsch, so einiges habe ich mir unter xl auch selbst angeeignet, aber IMHO so ganz ohne Foren & Bücher - eher nicht ... ehrlichgesagt - auch schwer vorstellbar. Zurück zum Thema, auch ich hatte anfangs Probleme mit meinen Excel-Kenntnissen & Arrays, da diese wohl eher nur zB. mit Sheets oder Shapes vom Recorder aufgezeichnet werden. Bei reinen Range Ob ...
|
| 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
The VIP am 18.10.2004 um 12:53 Uhr (0)
Glaubt mir, bevor ich hier poste mach ich auch immer alle Varianten durch. ich habe mir Visual Basic im EXCEL (!) komplett selber beigebracht. Keine Bücher kein Forum, nix. Nur ein paar Hilfedateien und selber rumprobieren. Heute kann ich super programmieren. Bei AutoCAD VBA hatte ich Probleme mit dem Einstieg und manchmal auch heute noch, weil die Befehle anders sind und die Programmbefehle komplexer aufgebaut sind. Auch bei der Schraffur hab ich zunächst in die Hilfe geschaut und versucht aus dem Kreis d ...
|
| 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 |
|
AutoCAD VBA : X-Y Kooridnaten in bestimmten Abstand einer Linie ermitteln
Carsten1210 am 29.08.2007 um 11:59 Uhr (0)
Hallo Jörg,Schau dir mal die PolarPoint-Methode an.Hier mal das Beispiel aus der Hilfe:Code:Sub Example_PolarPoint() This example finds the coordinate of a point that is a given distance and angle from a base point. Dim polarPnt As Variant Dim basePnt(0 To 2) As Double Dim angle As Double Dim distance As Double basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0# angle = 0.1744444 45 degrees distance = 5 polarPnt = ThisDrawing.Utility.PolarPoint(basePnt, angle, distance) Create a line fr ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : 4 Linien zu einer "Gruppe" bilden
harryk am 17.01.2004 um 12:18 Uhr (0)
das Group Objekt unterstützt drehen leider nicht (jedenfalls 2k2). Aber vielleicht hilft Dir das erstmal: Sub Test4Linie() Dim LineObj(0 To 3) As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double Dim RotationAngle As Double Dim BasePoint(0 To 2) As Double With ThisDrawing.ModelSpace startPoint(0) = 0#: startPoint(1) = 0#: startPoint(2) = 0# endPoint(0) = 500#: endPoint(1) = 0#: endPoint(2) = 0# Set LineObj(0) = .AddLine(startPoint, endPoint) startPoint(0) = 500#: ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : GetCorner Bereich begrenzen
autogis am 14.01.2013 um 14:09 Uhr (0)
Hallo zusammen,mitCode: With ThisDrawing.Utility selectBase = .GetPoint(, vbCr & "Erste Ecke:") .Prompt vbCr & selectBase(0) & "," & selectBase(1) selectPunkt = .GetCorner(selectBase, vbLf & "Zweiter Punkt:") .Prompt vbCr & selectPunkt(0) & "," & selectPunkt(1) End Withdiesem Codeschnipsel frage ich einen zu selektierenden Bereich ab.Hat jemand eine Idee, wie ich in VBA die Größe des Bereichs begrenze? Gemeint ist, der User darf nicht mehr als 500 m in X und Y vom Base-Punkt weg gehen.Danke i ...
|
| In das Form AutoCAD VBA 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 |
