|
AutoLisp : Koordinateneingabe bei (command "_offset")...
fuchsi am 12.12.2003 um 12:13 Uhr (0)
bögen sind ja noch leichter, da du den mittelpunkt radius und startwinkel hast. (polar MP startwinkel (+ radius 50)) (polar MP startwinkel (- radius 50)) ------------------
|
| In das Form AutoLisp wechseln |
|
Lisp : Probleme mit TRANS
neurosis am 21.04.2011 um 15:05 Uhr (0)
hallo joern,isses das hierang ... winkel des blocks (50 . 1.40088)nv ... normalenvektor des blocks (210 -0.707107 -0.5 0.5)ucsxdir:Code:(trans (polar (0 0 0) ang 1.0) nv (0 0 1))ucsydir:Code:(trans (polar (0 0 0) (+ ang (/ pi 2.0)) 1.0) nv (0 0 1))grussmarco------------------Marco Heuer www.arc-aachen.de Airport Office
|
| In das Form Lisp wechseln |
|
AutoLisp : Block erstellung
Nano am 06.03.2006 um 11:25 Uhr (0)
Hallo zusammenMöchte gerne das Rechteck als Block einfügen.Blocknamen ist die Variable "blname".Ziel ist durch den Blocknamen, die nichts anderes ist als die Masse des Rechtseck zu ändern und neu Zeichnen, mit neue Werte.(defun c:recht2 () (setq p1 (getpoint "
Einfügepunkt: ")) (setq laenge (getdist p1 "
Länge: ")) (setq breite (getdist p1 "
Breite: ")) (setq w (getangle p1 "
Einfügewinkel: ")) (setq blname (strcat (rtos laenge) "-" (rtos breite) "-" (rtos w))) (setq p2 (polar p1 w laenge)) (setq p3 (polar ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Rechteck als Block einfügen
CAD-Huebner am 06.03.2006 um 13:56 Uhr (0)
Code:(defun c:recht2 ( / p1 p2 p3 p4 laenge breite w blname) (setq p1 (getpoint "
Einfügepunkt: ")) (setq laenge (getdist p1 "
Länge: ")) (setq breite (getdist p1 "
Breite: ")) (setq w (getangle p1 "
Einfügewinkel: ")) (setq blname (strcat (rtos laenge) "-" (rtos breite) "-" (angtos w))) (setq p2 (polar p1 w laenge)) (setq p3 (polar p2 (+(/ pi 2)w) breite)) (setq p4 (polar p3 (+ pi w) laenge)) (command "_pline" p1 "b" "0" "0" p2 p3 p4 "s") ; erzeuge Block mit dem Namen, der in blname gespeichert ist (com ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Rechteck als Block einfügen
Nano am 06.03.2006 um 12:45 Uhr (0)
Hallo zusammenMöchte gerne das Rechteck als Block einfügen.Blockname ist die Variable "blname".Ziel Rechteck als Block einfügen mit Blockname (Variable "blname").(defun c:recht2 () (setq p1 (getpoint "
Einfügepunkt: ")) (setq laenge (getdist p1 "
Länge: ")) (setq breite (getdist p1 "
Breite: ")) (setq w (getangle p1 "
Einfügewinkel: ")) (setq blname (strcat (rtos laenge) "-" (rtos breite) "-" (rtos w))) (setq p2 (polar p1 w laenge)) (setq p3 (polar p2 (+(/ pi 2)w) breite)) (setq p4 (polar p3 (+ pi w) laeng ...
|
| In das Form AutoLisp wechseln |
|
Lisp : IF-Schleife / Exit-Anweisung
joern bosse am 03.11.2009 um 07:59 Uhr (0)
Hallo Stefan,folgender Vorschlag: Definiere eine lokale Variable "done" und wenn die Pedit-Anweisung fertig ist kommt nicht die Funktion (exit), sondern Du setzt die Variable (= done T).Dann kannst Du zum Schluß abfragen, ob die Routine erfolgreich war oder nicht.Code:(defun c lc ( / done)(setq auswahl (car(entsel "
Polylinie/Linie/Bogen w?hlen: ")))(if (=(cdr(assoc 0(entget auswahl))) "LWPOLYLINE") (progn (command "_offset" pause auswahl pause "") (setq versobj (entlast)) (command "_line" (cd ...
|
| In das Form Lisp wechseln |
|
Lisp : OT: Funktion polar in C++
Bernd10 am 18.10.2010 um 13:45 Uhr (0)
Hallo,zunächst schon mal Entschuldigung für meine Frage, aber ich weiß im Moment nicht mehr weiter bei meinem Problem.Ich brauche die Funktionalität der Lisp-Funktion polar in C++, d.h. ich habe einen Punkt, eine Länge und einen Winkel. Ich möchte vom bekannten Punkt aus entsprechend der Länge und dem Winkel den neuen Punkt berechnen.Wie muss ich das in C++ machen?Danke im Voraus und viele GrüßeBernd
|
| In das Form Lisp wechseln |
|
AutoLisp : LINIE in eine Richtung
Geos am 22.09.2004 um 08:19 Uhr (0)
Hi Mario Man könnte den Vorschlag von Udo noch erweitern und mit (polar) den nächsten Punkt rechnen (dann gehts nicht nur mit 45 Grad): winkkorr = Winkel eingeben winkel = (+ (angle startpkt endpkt) winkkorr) strecke = (getdist) neupunkt = (polar endpkt winkel strecke) (command _line endpkt neupkt ) Nur ein Denkanstoss, da ich nicht weiß, welche (Winkel)Einheiten Du verwendest. ------------------ Gruß, Ernst
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinateneingabe bei (command "_offset")...
fuchsi am 12.12.2003 um 10:40 Uhr (0)
das liegt nicht daran dass er 0,-1 nicht akzeptiert aber du gibst die punkte absolut ein, und die absoluten 0,1 und 0,-1 werden halt beide auf einer seite der linie liegen du musst vom startpunkt der lineie nach links unf rechts rechnen (setq dn 50) (setq en (car (entsel))) (setq ed (entget en)) (setq p1 (cdr (assoc 10 ed))) (setq p2 (cdr (assoc 11 ed))) (setq wi (angle p1 p2)) (command _offset (/ DN 2.0) en (polar p1 (+ wi (/ pi 2.)) dn) ) (command _offset (/ DN 2.0) en (polar p1 ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Radius über drei Punkte berechnen
cadwomen am 07.11.2016 um 13:43 Uhr (1)
Hy Bernd ,ich persönlich kann dir da nicht helfen ... hab da aber was , vielleicht bringt es dich weiter;; 3-Point Circle - Lee Mac;; Returns the Center and Radius of the Circle defined;; by three supplied points.(defun LM:3PCircle ( p1 p2 p3 / cn m1 m2 ) (setq m1 (mid p1 p2) m2 (mid p2 p3) ) (if (setq cn (inters m1 (polar m1 (+ (angle p1 p2) (/ pi 2.)) 1.0) m2 (polar m2 (+ (angle p2 p3) (/ pi 2.)) 1.0) nil ) ) (list cn (distance cn p1))cu cw------------------ ...
|
| In das Form Lisp wechseln |
|
Lisp : Radius über drei Punkte berechnen
Bernd10 am 07.11.2016 um 13:58 Uhr (1)
Hallo cadwomen,danke für Deine Antwort. Mit diesem Programmcode erhalte ich das erwartete Ergebnis:(defun test1 ( / cn m1 m2 ) (setq p1 (list -2.0 4.0 0.0)) (setq p2 (list 1.0 -3.0 0.0)) (setq p3 (list 5.0 7.0 0.0)) (setq m1 (mid p1 p2) m2 (mid p2 p3) ) (if (setq cn (inters m1 (polar m1 (+ (angle p1 p2) (/ pi 2.)) 1.0) m2 (polar m2 (+ (angle p2 p3) (/ pi 2.)) 1.0) nil ) ) (list cn (distance cn p1)) ) ; if) ; defun(defun mid ( a b ) (mapcar (function (lambd ...
|
| In das Form Lisp wechseln |
|
Lisp : Probleme mit (polar ... )
Oberpeilsteiner Florian am 22.06.2011 um 13:46 Uhr (0)
Hallo,das ist mein erster Beitrag auf CAD.DE - ich hoffe ich mache keine (all zu großen) Fehler bei der Fragestellung:In meinem LISP-Programm wird eine Liste von Anweisungen in die Gruppencodes 10 und 42 einer Polylinie umgewandelt. Für die Ermittlung des Mittelpunktes eines Kreisbogens verwende ich den Anfangs- und Endpunkt der letzten Linie und den Endpunkt des Kreisbogens. In den meisten Fällen funktioniert der folgende Code.Code:(setq line (list "LINIE" 800 0 0 0 0)) ;aktueller Punkt(setq l ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 18.02.2013 um 14:02 Uhr (0)
Ich hab das ganze jetzt mal mit einer GeradenschnittMethode umgesetzt. Es läuft noch nicht so wie es soll. Dennoch will ich es hier mal zum Testen reinstellen. Es ist auf den ersten Blick ein Wirrwar von Variablen - verbessungswürdig, desweiteren müsste eigentlich gesagt werden, wie das Attribut von seiner Ursprungsposition verschoben wurde.Vielleicht kennt einer einen besseren Weg das auszumerzen.Code:(defun _selectAtt (InsObj / ) (if (setq InsObj (entsel "Insert wählen: ")) (setq InsObj (entget (car Ins ...
|
| In das Form Lisp wechseln |
