|
Lisp : Polylinien-Stützpunkte entfernen mit entdel
joern bosse am 12.08.2008 um 12:40 Uhr (0)
Hallo Uwe,habe nochmal ein bißchen umgestrickt, probier einfach mal.Code:(defun c:test( / ) (setq obj (car(entsel))) (mapcar (lambda(A) (vla-delete (vlax-ename-vla-object A)))(test:stzpkt obj)) )(defun test:stzpkt (obj / liste) (while (and(setq obj(entnext obj))(/=(cdr(assoc 0 (entget obj)))"SEQEND")) (setq liste (cons obj liste))) (cdr(reverse(cdr liste))))------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : ist die datei xy offen ?
joern bosse am 06.12.2016 um 14:16 Uhr (1)
Hallo,über die Funktion vl-file-rename kann man das prüfen, wenn eine Rückgabe erfolgt, dann konnte die Datei umbenannt werden, wenn NIL zurück kommt dann nicht.Code:(defun JBf_files:Schreibschutz? (path / RetFileName) (not (and (vl-file-rename path (setq RetFileName (strcat (car(fnsplitl path) )"JB_"(cadr(fnsplitl path)) (caddr(fnsplitl path))))) (vl-file-rename RetFileName path))) )(defun c:test ( / PATH) (setq path "c: empMeine.dwg") (if (JBf_files:Schreibschutz? path) (alert "Die Dat ...
|
| In das Form Lisp wechseln |
|
AutoLisp : _wblock
joern bosse am 06.01.2005 um 14:27 Uhr (0)
Hallo, wie frage ich beim verwenden des Command-Befehls "_wblock ab", ob die Zieldatei geöffnet ist oder ein Schreibschutz besteht?? ------------------ viele Grüße Jörn
|
| In das Form AutoLisp wechseln |
|
Lisp : Farbbuch-Einträge aus Layer entfernen?
joern bosse am 06.12.2012 um 08:21 Uhr (0)
Hallo,ich glaube, ich habe heute wieder eine lange Leitung. Ich möchte einen Farbbuch-Eintrag aus einem Layer entfernen und schaffe das irgendwie nicht.folgende Versuche hatte ich gemacht:Code:(defun c:test1( / vla-obj vla-TcObj) (setq vla-obj (vlax-ename-vla-object (tblobjname "LAYER" "0"))) (setq vla-TcObj (vla-get-TrueColor vla-obj)) (vlax-put-Property vla-TcObj BookName "") )Da gibt es einen Typenkonflikt, eigentlich logisch,weil die Eigenschaft BookName ReadOnly ist.Tja, und dann dachte, einfach den G ...
|
| In das Form Lisp wechseln |
|
Lisp : n-tes Element einer Liste entfernen
joern bosse am 28.01.2005 um 09:38 Uhr (0)
da kann ich Holger nur zustimmen.------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
AutoLisp : tabulartor aus string entfernen
joern bosse am 12.07.2005 um 10:16 Uhr (0)
(while (vl-string-search " " string) (setq string (vl-string-subst "" " " string))) so ungefähr ------------------ viele Grüße Jörn
|
| In das Form AutoLisp wechseln |
|
Lisp : Scheitelpunkte aus Polylinie entfernen
joern bosse am 28.01.2014 um 09:24 Uhr (1)
Hallo Thomas,so viel Zeit hatte ich nicht, und außerdem ist es nicht verboten nur den Grundgedanken des Codes zu verwenden um diesen dann zu perfektionieren ------------------viele GrüßeJörnhttp://www.bosse-engineering.comRahmen einfügen YoutubeStammtisch Wolfsburg Februar 2014
|
| In das Form Lisp wechseln |
|
Lisp : n-tes Element einer Liste entfernen
joern bosse am 28.01.2005 um 07:52 Uhr (0)
hallo peter,es gibt bestimmt irgendwas einfaches mit vl- oder so. Falls Du nichts besseres findest probier doch mal folgendes:(defun list_ele_entf (n liste / i liste1) (setq i 0) (mapcar (lambda(A)(if (/= i n) (setq liste1 (append liste1 (list A)))) (setq i (+ i 1)))liste) liste1)------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : n-tes Element einer Liste entfernen
joern bosse am 28.01.2005 um 08:25 Uhr (0)
@CADmiumdas ist ja sehr interessant, also, ich probier jetzt mal den Karton mit Teelichtern unter den Arm zu klemmen anstatt alle Teelichter einzeln zu verteilen (defun list_ele_entf1 (n liste / i liste1) (if (/= n 0) (progn (setq liste1 (list (car liste)) i 1) (mapcar (lambda(A)(if (/= i n) (setq liste1 (cons A liste1))) (setq i (+ i 1)))(cdr liste)) (setq liste1(reverse liste1))) (setq liste1 (cdr liste))) liste1)------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Farbbuch-Einträge aus Layer entfernen?
joern bosse am 06.12.2012 um 09:24 Uhr (0)
@Sabastian:nur eine ACI-Farbe zuordnen hat irgendwie nicht funktioniert, der Eintrag für das Farbbuch blieb bestehen.@Thomas:vielen Dank für Deine Schnipsel, damit komme ich weiter, ich habe es noch nicht ganz durchblickt, aber fast (heute ist leider die Zeit ein wenig knapp, um noch ein bißchen mehr damit zu beschäftigen)------------------viele GrüßeJörnhttp://www.bosse-engineering.comVektorAdd-HD-Youtube
|
| In das Form Lisp wechseln |
|
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 |
