| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: _pline plus Liste??? (992 mal gelesen)
|
THE_ONE
Mitglied
Student, Alter:23
   Beiträge: 299
Registriert: 27.04.2005 AMD XP 2000, 512MB-RAM, WIN XP Pro
Readon 9600Pro
VIZ 2005, Autocad 2007,(Mechanical)
|
erstellt am: 22. Feb. 2007 01:32  <-- editieren / zitieren -->   Unities abgeben:          
Kann man bei einer _pline auch eine Liste als Argument angeben. Mit der Angabe einzelner Punkten bekomme ich es hin, nicht aber wenn ich eine Liste angebe. Kann man dem _pline Befehl irgendwie sagen verbinde alle Punkte in der Liste? funktioniert nicht:
(setq spoint (GETPOINT "\nPlease select Startpoint: "))
(setq plist (list spoint (list 0 3 0) (list 1 3 0))) ;geht das irgendwie
(command "_pline" plist "")
funktioniert schon:
(setq spoint (GETPOINT "\nPlease select Startpoint: "))
(command "_pline" spoint (list 0 3 0) (list 1 3 0)"")
Wie kann ich diese polylinie gleich darauf spiegeln?
(command "_mirror" ???? erster_punkt zweiter_punkt "")
Lassen sich die Fragezeichen einfach durch irgendwas ersetzen oder muss ich auf die ActiveX Bibliothek zurück greifen?
MFG THE_ONE
[Diese Nachricht wurde von THE_ONE am 22. Feb. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tastenklopfer
Mitglied
Bergbauingenieur
Beiträge: 44
Registriert: 21.02.2007 HP Z600; W7; ACAD Civ 2013; BricsCAD
|
erstellt am: 22. Feb. 2007 06:26 <-- editieren / zitieren --> Unities abgeben: Nur für THE_ONE 
moin moin,  endlich kann ich als blutiger Anfänger auch mal Hilfestellung geben.
Ich habe das Problem wie folgt gelöst : Code:
(defun ge_3dPoly (koordlist / LV punkt)
;print koordlist)
(setq lv 0)
(command "_3Dpoly" )
(Repeat (length koordlist)
(setq punkt (strcat (RTOS(car (nth LV koordlist))) "," (RTOS(cadr (nth LV koordlist))) "," (Rtos(caddr (nth LV koordlist)))))
(command punkt)
(setq LV (1+ LV))
)
(command "" )
)
Mein AHA Effekt war : "mit Command wird nicht ein kompletter Befehl übertragen, sondern alles hinter command wird an die Komandozeile übergeben.MfG
TK  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke
Moderator
CAD on demand GmbH
    
Beiträge: 4171
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 22. Feb. 2007 07:23 <-- editieren / zitieren --> Unities abgeben: Nur für THE_ONE
|
spider_dd
Mitglied
Beiträge: 1111
Registriert: 27.11.2003 Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018
|
erstellt am: 22. Feb. 2007 08:42 <-- editieren / zitieren --> Unities abgeben: Nur für THE_ONE
|
THE_ONE
Mitglied
Student, Alter:23
Beiträge: 299
Registriert: 27.04.2005 AMD XP 2000, 512MB-RAM, WIN XP Pro
Readon 9600Pro
VIZ 2005, Autocad 2007,(Mechanical)
|
erstellt am: 22. Feb. 2007 12:26 <-- editieren / zitieren --> Unities abgeben:
Hallo! Na mal danke für die Hilfe (für alle 10 Unities)! Für den AHA Effekt gibt es zehn Unities weil da tun sich ja wirklich neue Welten auf, wenn man das mal weiß!! Für die kurze Schreibweise gibt es ebenfalls 10 Unities! Durch denn AHA Effekt von vorher ist es nun auch verständlich das man mapcar anwenden kann, und man sieht auch wie viel Arbeit man sich sparen kann wenn man mit den wichtigen (mächtigen) Befehlen vertraut ist. (mapcar FunktionX list => wendet FunktionX auf alle Elemente der Liste an) Und das mit _l für das zuletzt ausgewählte Objekt hab ich bis heute(ca. 8 Jahre ACAD) nicht gekannt (=> 10 Unities)! => da sieht man, dass man immer noch was dazu lernen kann.
Nochmal herzlichsten Dank an euch alle, und wenn jemand noch so kleine Weisheiten (Tipps,Abkürzungen, Dinge auf die man selber nicht so schnell drauf kommen würde) auf Lager hat, dann nur her damit! MFG THE_ONE
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm
Moderator
良い精神
Beiträge: 21533
Registriert: 03.06.2002 Alles
|
erstellt am: 22. Feb. 2007 12:31 <-- editieren / zitieren --> Unities abgeben: Nur für THE_ONE
|
marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator
Beiträge: 2490
Registriert: 02.11.2001 Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 22. Feb. 2007 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für THE_ONE
|
cadffm
Moderator
良い精神
Beiträge: 21533
Registriert: 03.06.2002 Alles
|
erstellt am: 22. Feb. 2007 14:22 <-- editieren / zitieren --> Unities abgeben: Nur für THE_ONE
|
THE_ONE
Mitglied
Student, Alter:23
Beiträge: 299
Registriert: 27.04.2005 AMD XP 2000, 512MB-RAM, WIN XP Pro
Readon 9600Pro
VIZ 2005, Autocad 2007,(Mechanical)
|
erstellt am: 10. Jun. 2009 10:30 <-- editieren / zitieren --> Unities abgeben:
Zitat:
Original erstellt von Brischke:
Hallo,... selbes Prinzip, nur einfacher:
Code:
(defun ge_3dPoly (koordlist /)
(command "_3Dpoly")
(mapcar 'command koordlist)
(command "" )
)
Statt mapcar kann man auch eine foreach schleife verwenden, mapcar ist aber trotzdem die bessere Variante. Wollte es nur der Vollständigkeit halber anfügen da ich den Thread zufällig gefunden habe. Code:
(defun ge_3dPoly (koordlist /)
(command "_3Dpoly")
(foreach x koordlist
(command x)
)
)
(command "")
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
Beiträge: 13508
Registriert: 30.11.2003 .
|
erstellt am: 10. Jun. 2009 10:40 <-- editieren / zitieren --> Unities abgeben: Nur für THE_ONE
ok ... (while LISTE und (setq P (car LISTE)) (setq LISTE(cdr LISTE)) oder (repeat (length LISTE) geht auch  .. und dann naoch die ganzen Sachen ohne command .... ------------------
 - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
