| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Intelligenter Workflow von Köln bis Delhi mit SAP PLM - KHD Humboldt Wedag , ein Anwenderbericht
|
|
Autor
|
Thema: pl-delvtx.lsp funkt nicht (522 mal gelesen)
|
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
   Beiträge: 3424
Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 18. Okt. 2002 10:16  <-- editieren / zitieren -->   Unities abgeben:          
|
mapcar
Mitglied
CADmin
Beiträge: 1250
Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 18. Okt. 2002 10:57 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P 
(defun lwpl-delvtx (lwpl point fuzz / edata modd) (setq edata (entget lwpl))
(cond
( (= (cdr (assoc 0 edata)) "LWPOLYLINE")
(setq point (list (car point) (cadr point)))
(while edata
(if (or (/= (caar edata) 10)
(not (equal (cdar edata) point fuzz))
) ;_ end of or
(setq modd (cons (car edata) modd)
edata (cdr edata)
) ;_ end of setq
(princ (setq edata (cddddr edata)))
) ;_ end of if
) ;_ end of while
(entmod (reverse modd))
)
( (= (cdr (assoc 0 edata)) "POLYLINE")
(setq edatan (entget (entnext (cdr (assoc -1 edata)))))
(while (= (cdr (assoc 0 edatan)) "VERTEX")
(if (equal (cdr (assoc 10 edatan)) point fuzz)
(entdel (cdr (assoc -1 edatan)))
;(princ (setq edata (cddddr edata)))
) ;_ end of if
(setq edatan (entget (entnext (cdr (assoc -1 edatan)))))
) ;_ end of while
(setq edata
(entmod edata)
)
)
) ;_ end of cond
) So stimmen die Klammern und es lässt sich laden - sonst hab ich's nicht getestet;-) Gruss, Axel ------------------
http://www.tutorial.autolisp.info
http://www.advanced.autolisp.info
http://www.activex.autolisp.info Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
Beiträge: 3424
Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 18. Okt. 2002 11:20 <-- editieren / zitieren --> Unities abgeben:
|
CADwiesel
Moderator
CAD4FM UG
    
Beiträge: 1989
Registriert: 05.09.2000 AutoCAD, Bricscad
Wir machen das Mögliche unmöglich
|
erstellt am: 18. Okt. 2002 13:58 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
|
Foren auf CAD.de (alle Foren)
| 
