| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Linie über gesamten Bildschirm (1185 mal gelesen)
|
reltro Mitglied student
Beiträge: 125 Registriert: 08.11.2009 Acad 2012 - VBA,Lisp Revit 2012 3dsMax 2012 Rhino 5 - GH,Pyhton 3,rhino.Common<P>Win 7 - i7 4x3.2GHz - 8Gb DDR3
|
erstellt am: 22. Jun. 2012 20:02 <-- editieren / zitieren --> Unities abgeben:
Hallo liebe Lispler, Ich glaube da hab ich ein relativ einfaches Problem zu lösen, nur fehlt mir der Ausgangspunkt. Ich möchte mit Grrvecs eine horizontale Linie über den gesamten momentan sichtbaren Bildschirmausschnitt zeichnen. Irgendeine Idee wie ich die EckPunkte des Bilfschirms im KoordinatenSystem der Zeichnung bekomme? Hoffend auf Unterstützung lg Reltro Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Jun. 2012 20:14 <-- editieren / zitieren --> Unities abgeben: Nur für reltro
|
reltro Mitglied student
Beiträge: 125 Registriert: 08.11.2009 Acad 2012 - VBA,Lisp Revit 2012 3dsMax 2012 Rhino 5 - GH,Pyhton 3,rhino.Common<P>Win 7 - i7 4x3.2GHz - 8Gb DDR3
|
erstellt am: 22. Jun. 2012 21:07 <-- editieren / zitieren --> Unities abgeben:
Hi Cadmium, Danke für die schnelle Antwort Die SysVar "VIEWCTR" hat mir gefehlt... U's 4 u Horizontale "Linie" gezeichnet mit (grvecs (-1 (...)(...))) am Punkt <Pkt>
Code:
( (lambda (P / ) (redraw) (grvecs (cons -1 (mapcar '(lambda (LL_UR / ) (list (car LL_UR) (cadr P) (caddr LL_UR) ) ) ( (lambda (HEIGHT SIZE MIDDLE / WIDTH) (setq WIDTH (*(/ HEIGHT (cadr SIZE))(car SIZE))) (list (mapcar '- MIDDLE (list (* 0.5 WIDTH) (* 0.5 HEIGHT) 0)) ;LowerLeft (mapcar '+ MIDDLE (list (* 0.5 WIDTH) (* 0.5 HEIGHT) 0)) ;UpperRight ) ) (getvar "VIEWSIZE") (getvar "SCREENSIZE") (getvar "VIEWCTR") ) ) ) ) ) Pkt )
merci, schönsten Abend Reltro
[Diese Nachricht wurde von reltro am 22. Jun. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |