| |
| 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 |