| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PRO.FILE 10: So gelingt der Umstieg, eine Pressemitteilung
|
Autor
|
Thema: Koordinatenbemassung in excel exportieren teil 2 (899 mal gelesen)
|
CadWerner Mitglied Technischer Zeichner
Beiträge: 78 Registriert: 21.02.2005 Acad 2002 ProSteel 16.35 Win XP
|
erstellt am: 05. Okt. 2005 15:45 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, ich habe heute schon einmal einen Beitrag erstellt, in dem mir mit der ersten Antwort schon perfekt geholfen wurde... Danke nochmal an Yvonne. Jetzt habe ich folgendes Problem, ich würde gerne die nachfolgende Lisp genauso benutzen, wie sie ist, da es ja einwandfrei klappt, nur das ich noch zusätzlich zu den x und y Koordinaten und dem Text auch noch die z Koordinate bekomme. Ich bin im Lisp schreiben nur sehr schlecht und kriege das überhaupt nicht auf die Reihe. Mein Chef war total begeistert wie schnell ich die Koordinaten hatte und jetzt soll ich das gleiche in einem 3D Modell machen. (defun c:zkoord (/) (setq dimzinalt (getvar "dimzin")) (setvar "DIMZIN" 0) (princ "\nACHTUNG: Höhentexte müssen auf Layer Höhe liegen!!! ") (setq za 0) (princ "\nHöhentexte wählen (einzeln oder Auswahlfenster) ") (setq auswahl (ssget)) (setq anzahl (sslength auswahl)) (prompt "gewählt: ") (princ) (princ "\nDaten werden in Datei liste.txt geschrieben. ") (setq wa (getint "\nEvtl. exist. Datei überschreiben <0> oder Daten anhängen <1> ? <1> ")) (if (= wa 0) (setq wa1 "w") (setq wa1 "a") ) (setq f (open (strcat (getvar "DWGPREFIX")"liste.txt") wa1)) (while (< za anzahl) (setq liste (entget (ssname auswahl za))) (setq alayer (substr (cdr(assoc 8 liste))1 4)) (setq atext (cdr(assoc 0 liste))) (if (and(= atext "TEXT") (= alayer "Höhe")) (progn (setq auswahl1 (assoc 10 liste)) (setq auswahl2 (cdr(assoc 1 liste))) (setq pktlst1 (rtos (cadr auswahl1)2 3)) (setq pktlst2 (rtos (caddr auswahl1)2 3)) (setq pktlst3 (rtos (atof auswahl2) 2 3)) (setq pktlst (strcat pktlst1 ";" pktlst2 ";" pktlst3 ";")) (princ za) (princ "\nPKTLst: ") (princ pktlst) (write-line pktlst f) ) ) (setq za (+ 1 za)) ) ;end while (close f) (setvar "dimzin" dimzinalt) ) ;end defun Ich danke Euch schon jetzt für Eure Hilfe... Gruß Werner ------------------ gruß aus waldbrunn werner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
charlieBV Ehrenmitglied V.I.P. h.c. Bauzeichnerin
Beiträge: 9319 Registriert: 28.08.2003
|
erstellt am: 05. Okt. 2005 15:48 <-- editieren / zitieren --> Unities abgeben: Nur für CadWerner
|
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 05. Okt. 2005 22:48 <-- editieren / zitieren --> Unities abgeben: Nur für CadWerner
|
CadWerner Mitglied Technischer Zeichner
Beiträge: 78 Registriert: 21.02.2005 Acad 2002 ProSteel 16.35 Win XP
|
erstellt am: 06. Okt. 2005 09:21 <-- editieren / zitieren --> Unities abgeben:
Hallo Georg, ich habe Deine Zeile gegen die andere Zeile ausgetauscht, jetzt bekomme ich aber eine Fehlermeldung, nachdem ich alle Punkte ausgewählt habe und zwar folgende: Fehler: Fehlerhafter Argumenttyp: streamp nil AutoCad erstellt mir zwar eine Liste, aber in der ist dann leider nichts drin. Vielleicht weißt Du oder jemand anderes, an was das liegt. Danke schon mal im vorraus. Ps. Yvonne, tut mir leid, wenn ich irgendwelche crosspostings <-- oder wie die auch immer heißen gemacht habe. Das lag nicht in meiner Absicht. ------------------ gruß aus waldbrunn werner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
charlieBV Ehrenmitglied V.I.P. h.c. Bauzeichnerin
Beiträge: 9319 Registriert: 28.08.2003
|
erstellt am: 06. Okt. 2005 09:31 <-- editieren / zitieren --> Unities abgeben: Nur für CadWerner
|
CadWerner Mitglied Technischer Zeichner
Beiträge: 78 Registriert: 21.02.2005 Acad 2002 ProSteel 16.35 Win XP
|
erstellt am: 06. Okt. 2005 09:51 <-- editieren / zitieren --> Unities abgeben:
Dieses eine Tool verweist genau auf den gleichen Forumsbeitrag. Aber ich habe es jetzt noch an 3 anderen Modellen probiert und jetzt geht es auf einmal. Wenn ich das Modell in dem es nicht funktioniert, in eine neue Zeichnung kopiere, dann geht es auch. Ergo: Ich danke Euch allen für Eure Hilfe, damit ist mein Problem gelöst.
------------------ gruß aus waldbrunn werner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |