|
Lisp : Polylinien-Stützpunkte entfernen mit entdel
joern bosse am 12.08.2008 um 12:21 Uhr (0)
Hallo Uwe,wenn alle Stützpunkte außer Anfangs- und Endpunkte gelöscht werden sollen, dann würde ich doch eine neue Linie von Anfangs- bis Endpunkt zeichnen:Code:(defun c:test( / ) (setq obj (car(entsel))) (command "_.line" (car (setq liste (test:stzpkt obj))) (last liste)""))(defun test:stzpkt (obj / liste) (while (and(setq obj(entnext obj))(/=(cdr(assoc 0 (entget obj)))"SEQEND")) (setq liste (cons (cdr(assoc 10 (entget obj)))liste))) (reverse liste))Der Code gilt nicht für LW-Polylinien------------- ...
| | In das Form Lisp wechseln |
|
Lisp : Prüfform - Bemaßung
joern bosse am 27.07.2011 um 09:57 Uhr (0)
Hallo Proxy,anbei die Aufschlüsselung der Xdaten:((1070 . 396) (1000 . "");;;Textwert Kontrollrate (1070 . 395) (1000 . "");;;Textwert Beschriftung (1070 . 394) (1070 . 4);;;Bitcodierung ;;;(rund =1, eckig = 2, ohne = 4, ;;; Beschriftung = 16, Kontrollrate = 32) (1070 . 393) (1070 . 0);;;Booleab (0/1) Kontrolle / Kontrolle entfernen )Die Reihenfolge kann variieren, Du mußt immer nach dem Code 393, 394, 395 oder 396 suchen und dann den Folgenden 1000er Gruppencode verwenden.Bei der Bitcodierung fehlt die 8, ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |