| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | NVIDIA Run:ai RTX PRO Server Promotion, eine Pressemitteilung
|
|
Autor
|
Thema: Linie über gesamten Bildschirm (1299 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: 13533
Registriert: 30.11.2003 .
|
erstellt am: 22. Jun. 2012 20:14 <-- editieren / zitieren --> Unities abgeben: Nur für reltro 
|
| | Anzeige: | Infos zum Werbeplatz >> | isuCAD CAD APP für Tiefbau, Umwelt Since 1985, AnkiSOFT Software developes software to design infrastructure projects.
isuCAD has been developed for Water Supply Network Design. It is for Drawing / Modelling / Planning / Design / Analyze / Simulation the water supply network.
The software works under AutoCAD or ZWCAD.
|
|
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 |
Foren auf CAD.de
| 
- 
