|
AutoLisp : ansichtsfenster koordianten
gmk am 19.02.2003 um 14:14 Uhr (0)
Hi Axel! Bei Reini Urban habe ich folgende lisp gefunden. Wie schon vermutet und von Dir auch angesprochen befinden sich die Transformations-parameter im EED-Bereich des viewports. Bis zu ca. 5 Vorkommastellen funktioniert das ganze ohne Probleme. Ab 6-7 Vorkommastellen wird das Ergebnis jedoch sehr unscharf. (arbeite hauptsächlich mit Gauss-Krüger-Koordinaten, 7 Vorkommast. siehe auch Anhang) Kennst Du das Probl.? Wie kann ich die Genauigkeit in diesem Bereich erhöhen? (DEFUN C:ele () ; (defun #VPT_BOX ( ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Erzeugen von Regeloberflächen
joern bosse am 02.02.2008 um 12:16 Uhr (0)
Hallo Werner,Du übergibts an den Command-Aufruf nicht nur die Objekte, sondern Listen wie sie z.B. entsel zurückgeben (OBJ pkt)Wie Du dann aber Anfangs- oder Endpunkt bestimmts mußt Du Dir selber überlegen.Code:(command "Regelob" (list Obj_1 (cdr(assoc 10 (entget obj_1))));;;oder 11 Endpunkt (list Obj_2 (polar (cdr(assoc 10 (entget Obj_2))) (cdr(assoc 50 (entget Obj_2)));;;oder 51 für Winkel am Endpunkt (cdr(assoc 40 (entget Obj_2))))))------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Schnittpunkt ermitteln
cadplayer am 18.04.2012 um 17:24 Uhr (0)
Wie muss ich vorgehen, wenn ich Anfang und Ende vom gewählten Segment an der Polylinie abfragen möchte.Weil dann könnte ich zur Ermittlung des Abstandes so vorgehenCode:;Rechnet den Abstand zwischen zwei gewählten Linien(if (not c:cal)(arxload "geomcal"))(setq obj (entget (car (entsel "
Wähle Linie1"))))(setq p1 (cdr (assoc 10 obj)))(setq p2 (cdr (assoc 11 obj)))(setq p3 (cadr (entsel "
Wähle Linie2")));Rechnet den Winkel der 1. Linie und addiert 90grad dazu für die Lotrechte(setq lwi (+ (* (cal "ang (p1,p ...
|
| In das Form Lisp wechseln |
|
Lisp : Geometrie von Polylinien vergleichen
Andreas Kraus am 27.09.2007 um 13:12 Uhr (0)
Hallo Maustreiber,wenn du auch gedrehte Polylinien vergleichen möchtest, schnappst du dir die Objektdaten und richtest alle Kontrollpunkte neu aus daß z.B. der erste Kontrollpunktauf 0,0 liegt und der zweite auf einer Linie im Winkel von 0°. Dann ein wenig mit "polar" rumgespielt um die anderen Kontrollpunkte um den Startpunkt zu drehen. Damit starten ALLE Polylinien ersmal in Richtung 0°. Das Ganze natürlich nur als Daten, blos nicht entmod verwenden. Diese Datenlisten kann man jetzt gut vergleichen.Schwi ...
|
| In das Form Lisp wechseln |
|
Lisp : Linienwinkel ermitteln
spider_dd am 15.06.2022 um 13:41 Uhr (1)
Zitat:Original erstellt von stk:Danke für die Antwort.Ich möchte die Schräge der gewählten Linie ermitteln, damit die neu gezeichnete Linie dann im 90 Grad Winkel zur gewählten Linie steht.(+ (angle anf end) (/ pi 2.)) oder auch(- (angle anf end) (/ pi 2.)) in die andere Richtungliefert Dir die Richtung(en) senkrecht zur Linie.Ausgehend von einem Punkt P1 auf Deiner Linie (z. B. anf, oder end oder ...)liefert(setq p2 (polar p1 (+ (angle anf end) (/ pi 2.))) abstand) einen 2. Punkt im Abstand abstand vo ...
|
| In das Form Lisp wechseln |
|
Lisp : sphärische Punkteingabe
Werner-Maahs.de am 28.02.2008 um 13:41 Uhr (0)
In AutoCAD habe ich die Möglichkeit der sphärischen Punkteingabe - AbstandWinkelWinkel. In Lisp habe ich bisher immer erst das BKS verändert um dann mit der Funktion (polar Punkt Winkel Abstand) ans gewünschte Ziel zu kommen. Dies zieht aber immer den, wie ich finde lästigen Schwanz (trans ..), mit der Koordinatenumwandlung mit sich. Daher hier meine Frage:Kann ich in Lisp eine Punktberechnung (ohne BKS-Änderung) vornehmen, die der sphärischen Punkteingabe in AutoCAD vergleichbar ist?------------------stru ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Befehlabruch bei Eingabe von 0
andi2050 am 14.10.2005 um 21:26 Uhr (0)
Hi Karli !Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaargh !!!!!!!!!!!Sorry für den lauten Schrei, aber Dein Lispprogramm ist ziemlich vermurkst !- läuft es auf meinem Acad (Deutsch) nicht , da nicht alle Befehle und Optionen mit "_" beginnen. Außerdem ist bei den Circle-Befehlen irgendwie der Wurm drin (im Textfenster "unbekannter Befehl _CIRCLE")- keine lokalen Variablen definiert (dafür jede Menge globale Variablen) Wenn Du schon globale Variablen definiertst (z.B. für Vorgabewerte), dann kennzeichne diese z.B ...
|
| In das Form AutoLisp wechseln |
 |
Lisp : tatsächlicher Winkel einer Linie
spider_dd am 16.11.2017 um 09:50 Uhr (15)
Hallo Jörg,da hat es wohl Interpretationsunterschiede zum Begriff "Symmetrielinie" gegeben. Ich hätte es auch wie Thomas (CADmium) interpretiert. Aber zu Deiner Interpretation fällt mir folgendes ein:Den Schnittpunkt Deiner beiden Linien und damit einen Punkt der gesuchten findest Du mit (inters ...)Von diesem Punkt aus ermittels Du mit (angle ...) die Winkel zu jeweils einem Punkt der beiden Linien (egal welcher) und der Mittelwert von beiden gibt Dir den Winkel Deiner gesuchten Linie. Mit (polar ...) kan ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Punkte auf Linie erstellen
Mario Scht am 02.09.2004 um 15:27 Uhr (0)
Hallo, habe das ganze mal etwas erweitert, mit vorheriger Auswahl des zu kopierenden Blockes und der Möglichkeit einzustellen, ob man vom Anfangspunkt der Linie jeweils absolut, oder vom jeweilig letzten Punkt aus die nächste Entfernung abtragen will. Es wäre aber schön, wenn mir jemand die globale Variable *block-name* eliminieren könnten, durch Variablenübergabe. Habe kein Handbuch und in LT gibts da keine spezielle Hilfe, ich weiß nur, dass es gehen muss und dass macht einen dann fix und fertig, wenns l ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Punkte von Linie bzw. Polylinie
Stefan Michel am 06.03.2008 um 15:31 Uhr (0)
Hallo CADmium,na dass ging ja fix.... kurz nachdem ich den Thread aufgemacht habe, habe ich das mitdem ASSOC 11 auch gesehen, ich dachte bei linien sind die beiden punkte beide als gruppencode10 gespeichet.Bei der Lösung für die Polylinien verstehe ich ja nur Bahnhof, ich werds mir aber mal genau anschauen.Wie schauts aus mit dem Mittelpunkt einer Linie. Die theoretische Berechnung ist mir klar, allerdingserscheint mir das extrem aufwendig. ich hätte das jetzt mal so gemacht:(setq kantlinie (entget(car(ent ...
|
| In das Form Lisp wechseln |
|
Lisp : Stiegenlauf programmieren
Geos am 08.01.2013 um 14:46 Uhr (0)
ErstmalCode:(command "_.LINE" pause pause "")bewirkt, dass das Programm auf eine Eingabe wartet, das aber nicht sagt.Besser:Mit (getpoint) arbeiten - zB.Code:(commnad "_.LINE" (getpoint "
Erster Punkt: ") (getpoint "
Zweiter Punkt: ") "")Und so wie für Punkte gibt’s auch (getreal) um Gleitkommazahlen abzufragen:Code:(setq strecke1 (getreal "
Strecke1 eingeben: "))Und so, wie Du die Polylinie zeichnest, kannst Du auch weitere Linien zeichnen (mit Koord.Differenzen kannst Du ja umgehen )Und falls Du mal "sc ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Obejkte auf Layer legen
Walter Zettlitzer am 01.10.2003 um 16:54 Uhr (0)
Ok, dass mein Lisp nicht mehr funktioniert, liegt daran, dass mal die Texthöhe abgefragt wird, mal nicht. @Georg: Dasselbe wird wohl für sinngemäß auch für Dein Lisp gelten, welches in Deiner dwg funktioniert, nicht aber mit der Höhe 0. Warum hast Du die Befehle umprogrammiert (Ich sehe da z.B. (SETQ pkt (polar pkt (/ (* pi 3) 2) (* as 1.3)))... )?? Interessiert mich, insbeonders, da Dein File klappt und meins nicht ;-) Das kann doch nicht an der Texthöhe liegen und wird sicher mit Höhe 0 auch zum La ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Text trimmen
cadplayer am 31.05.2012 um 13:33 Uhr (0)
Servus Georg!Ich bin gerade darauf gekommen, wenn ich mit command den Text erzeuge, dann muss ich vorher den command _style ausführenCode:(defun c:ttrim (/ obj ; gewähltes Textobjekt s ; Inhalt der Testzeile "1 2 3 4" n ; umgewandelte Textzeile "1" "2" "3" "4" txa ; Textwinkel txp ; Einfügepunkt vom Textobjekt txh ; Texthöhe txs ; Textstyle txw ; Das jeweilige Wort aus der Textzeile txl ; die Länge des jeweiligen Wortes ) (princ "
Trimmt einen Text an den Leerzeichen") (defun co ...
|
| In das Form Lisp wechseln |
