|
Lisp : Text versetzt einfügen
cadffm am 16.08.2013 um 11:07 Uhr (1)
Die Quintessenz von den vielen Zeilen ist ja aber die passende Antwort gewesen:statt mit Mapcar würde man einfach mit Polar arbeiten: (polar Pkt (* rot (/ pi 180)) 0.25)Das bringt dann auch den einen oder anderen Mitleser weniger durcheinander ------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
| | In das Form Lisp wechseln |
|
Lisp : Abbruch bei (Command _trim....)
cadffm am 25.01.2012 um 10:08 Uhr (0)
Code:(defun c:TEST () (Command "_polygon" "6" p "_I" (polar p ri 0.30)) (setq losch (entlast)) (Command "_Line" p p2 "") (Command "_Trim" losch "" p "" "_Erase" losch ""))Bitte vervollständige das mal um die Definition von p2 und von ri, zudem wüßte ichgerne was gestutzt werden soll, die hier erzeugte Linie oder eine andere ?Sieht für mich derzeit etwas überflüssig aus das ganze Polygon erstellen, daherbeschreibe es mir doch etwas und ergänze den Code.------------------CAD.de System-Angaben - CAD on deman ...
| | In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadffm am 15.02.2013 um 21:38 Uhr (0)
0 0 1 bedeutet: Das OCS ist parallel zum WKS,aber das ist offenbar (NOCH) nicht dein Problem Oben wurde es bereits geschrieben: POLAR ANGLE DISTANCE sind wohl die Funktionen die benötigt werdenum erst mal den Anfang zu finden.Einfachstes Testszenario zum Anfang: keine Drehung, Skalierung=1, alles im WKS:Insert Koordinate 5,7Attrib Koordinate 5,2Ermittle den Abstand und den Winkel vom InsertBP zum AttribBP.Abstand 5.0Winkel 270° - Aber HIER wird wohl bereits deine erste Aufgabe sein denn DXF kennt keine 2 ...
| | In das Form Lisp wechseln |
|
Lisp : Probleme mit (polar ... )
cadffm am 22.06.2011 um 15:08 Uhr (0)
Servus,ich habe mir jetzt nicht alles angesehen sondern nur das INTERS samt Ergebnis, jetzt muß ich erst mal sagen das ich INTERS keinen Fehler nachsagen kann, zumindestwenn ich berücksichtige mit wieviel Nachkommastellen gerechnet werden kann. Zudemkonnte ich mit deinem folgenden Satz nichts anfangen kann:"Obwohl ich beim Prüfen des letzten Punktes der "inters" Funtkion nur eine "Leere Eingabe" erhalte, wird das Ergebnis richtig errechnet."Was bekommt du wo ------------------CAD.de System-Angaben - CAD o ...
| | In das Form Lisp wechseln |
|
Lisp : Probleme mit (polar ... )
cadffm am 22.06.2011 um 16:19 Uhr (0)
Also wenn ich mich wirklich nur auf den Codeschnipsel beziehe, vor den man sich dann noch (setq line (list "LINIE" 800 0 0 0 0)) ;aktueller Punkt(setq lastline (list "BOGEN" 800 -800 0 0 0)) ;letzter Punkt(setq lastlastline (list "PLBLOCK" 0 -800 0 0 27))oder(setq line (list "LINIE" -400 0 0 0 0))(setq lastline (list "BOGEN" 400 0 0 0 180))(setq lastlastline (list "PLBLOCK" 400 0 0 0 27))denken muß, dann kann ich deine Aussage nicht bestätigen.Wenn ich den Schnipsel Prüfen lasse d ...
| | In das Form Lisp wechseln |
|
Lisp : Polylinien abhängig vom Startpunkt versetzen
cadffm am 28.08.2015 um 14:59 Uhr (1)
Ui,dann lassen wir mal Koordinatensysteme weg und gehen auf deine Vorstellung ein:Das Linienobjekt wird nicht benötigt, mit der Lispfunktion POLAR kommt man auch zu dem Punkt und erspart sich erstellen und löschen des unnötigen Objektes.(alerdings wirst du schnell sehen das in Acad die Winkel nicht in Dezimalgrad hinterlegt und verarbeitet werden)Immer um 1Grad drehen, dann ist es immer LINKS in Polylinienrichtung, aber nicht unbdingt, denn es kommt ja darauf an wo sich die anderen Punkte befinden, dein so ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
