Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  _pline plus Liste???

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:   _pline plus Liste??? (967 mal gelesen)
THE_ONE
Mitglied
Student, Alter:23


Sehen Sie sich das Profil von THE_ONE an!   Senden Sie eine Private Message an THE_ONE  Schreiben Sie einen Gästebucheintrag für THE_ONE

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Tastenklopfer an!   Senden Sie eine Private Message an Tastenklopfer  Schreiben Sie einen Gästebucheintrag für Tastenklopfer

Beiträge: 44
Registriert: 21.02.2007

HP Z600; W7; ACAD Civ 2013; BricsCAD

erstellt am: 22. Feb. 2007 06:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für THE_ONE 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4136
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools (d-tools.eu)

erstellt am: 22. Feb. 2007 07:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für THE_ONE 10 Unities + Antwort hilfreich

Hallo,

... selbes Prinzip, nur einfacher:

Code:

(defun ge_3dPoly (koordlist /)
    (command "_3Dpoly")
    (mapcar 'command koordlist)
    (command "" )
  )

Bei Fragen ...

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

spider_dd
Mitglied



Sehen Sie sich das Profil von spider_dd an!   Senden Sie eine Private Message an spider_dd  Schreiben Sie einen Gästebucheintrag für spider_dd

Beiträge: 1010
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für THE_ONE 10 Unities + Antwort hilfreich

Hallo THE ONE,

und für den zweiten Teil der Frage:

Zitat:
Wie kann ich diese polylinie gleich darauf spiegeln?

geht dieses:

Code:
(command "_mirror" "_l" "" p1 p2 "")

LG
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

THE_ONE
Mitglied
Student, Alter:23


Sehen Sie sich das Profil von THE_ONE an!   Senden Sie eine Private Message an THE_ONE  Schreiben Sie einen Gästebucheintrag für THE_ONE

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 19657
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 22. Feb. 2007 12:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für THE_ONE 10 Unities + Antwort hilfreich

_L =LAST =LETZTES, ist nicht das zuletzt gewählte Objekte,
sondern das zuletzt erzeugte !

der zuletzt erstellte Auswahlsatz (zB das zuletzt gewählte Objekt)
bekommt man über _P = PAST =VORHER

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2484
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für THE_ONE 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von cadffm:
[b]bekommt man über[b] _P = PAST =VORHER
[/B]

Wieder was gelernt! Und ich dachte immer "_p" kommt von "Previous" 

------------------
Ciao,
Marc
Mein AG sucht u.a. Architekten und Bauzeichner!
Mein alter AG sucht 'nen CADMIN

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 19657
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 22. Feb. 2007 14:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für THE_ONE 10 Unities + Antwort hilfreich

wenn man hier Freunde hat braucht man keine Feinde mehr,
ich geben mich geschlagen und nutze nur noch "V"

[Diese Nachricht wurde von cadffm am 22. Feb. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

THE_ONE
Mitglied
Student, Alter:23


Sehen Sie sich das Profil von THE_ONE an!   Senden Sie eine Private Message an THE_ONE  Schreiben Sie einen Gästebucheintrag für THE_ONE

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13435
Registriert: 30.11.2003

.

erstellt am: 10. Jun. 2009 10:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für THE_ONE 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2020 CAD.de | Impressum | Datenschutz