| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Konstruktionslinien im BKS (1088 mal gelesen)
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 21. Mai. 2014 08:18 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich hab mal wieder ein Problem. Hab mir ein Lisp mit Teilen hier aus dem Forum "zusammengebastelt" das im BKS einfach nicht funktionieren will. Im WKS funktioniert es wunderbar. Bitte um eure Hilfe! lg. Martin ;Code: (Defun c:xlvertikal (/ edate Punktliste ename Auswahlsatz i1) (defun GetPlineVertexPoints (ename / edate Punktliste) (setq edate (entget ename)) (cond ;neue Polylinie ((= (cdr (assoc 0 edate)) "LWPOLYLINE") (foreach n1 edate (if (= (car n1) 10) (setq Punktliste (cons (cdr n1) Punktliste)) ) ) ) ; alte Polylinie ((= (cdr (assoc 0 edate)) "POLYLINE") (while (and (setq ename (entnext ename)) (setq edate (entget ename)) (= (cdr (assoc 0 edate)) "VERTEX") ) (setq Punktliste (cons (cdr (assoc 10 edate)) Punktliste)) ) ) ) (if Punktliste (reverse Punktliste) nil ) ) ;code (setq Auswahlsatz (ssget '((0 . "LWPOLYLINE,POLYLINE")))) (setq i1 0) (repeat (sslength Auswahlsatz) (setq ename (ssname Auswahlsatz i1)) (setq PunktListe (GetPlineVertexPoints ename)) ; mach irgendwas mit der Punktliste gespeichert in der Variable Punktliste (command "_xline" "v") (mapcar 'command Punktliste) (command "") (setq i1 (1+ i1)) ) (Princ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6050 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 21. Mai. 2014 08:33 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
Da fehlt erst mal noch eine schließende Klammer. Und dann wäre bei der Problembeschreibung hilfreich wenn Du uns mitteiltest, was das Programm machen soll und was nicht funktioniert. (kann man zwar alles austüfteln, aber ...) Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 21. Mai. 2014 08:37 <-- editieren / zitieren --> Unities abgeben:
Hallo Jürgen! Danke für deine Antwort. Ja hab beim reinkopieren die letze Klammer vergessen. Sorry. Das Programm soll im BKS auf allen Stützpunkten der ausgewählten Polylinie vertikale Konstruktionslinien einfügen. Im WKS funktioniert es ja sehr gut. lg. Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6050 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 21. Mai. 2014 09:00 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
Guck Dir mal die LISP-Funktion (trans ...) an. Hab's auf die Schnelle gerade nicht hinbekommen und muß jetzt leider erst mal weg. Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 21. Mai. 2014 09:01 <-- editieren / zitieren --> Unities abgeben: Nur für MARTINLE
|
MARTINLE Mitglied Tischler
Beiträge: 485 Registriert: 18.10.2007 AUTOCAD 2016, MS Windows7, 64-bit
|
erstellt am: 21. Mai. 2014 09:26 <-- editieren / zitieren --> Unities abgeben:
Hallo @ Jürgen, danke mit trans hab ich schon versucht aber leider nicht hinbekommen. @ Thomas, danke für deine Hilfe. Allein hätte ich das niiie hinbekommen.Jetzt funktioniert es wunderbar. lg. Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |