|
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 |
|
Rund um Autocad : seqend
joern bosse am 22.06.2005 um 17:32 Uhr (0)
Hallo, man kann ja dem Objekt SEQEND auch bewußt Eigenschaften mit auf dem Weg geben, im folgenden Beispiel habe ich eine Polylinie mit entmake erzeugt, das Objekt SEQEND bekommt unsinnigerweise die Eigenschaft des Layers TESTLAYER-SEQEND . (defun c:test ( / ) (entmake ((0 . POLYLINE ) ; Object type (8 . TESTLAYER ) (62 . 5) ; Color (66 . 1) ; Vertices follow ) ) (entmake ((0 . VERTEX ) ; Object type (10 1.0 1.0 0.0) ; Start po ...
|
| In das Form Rund um Autocad 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 |
|
Rund um AutoCAD : AutoCAD 2010 CUI-Einstellungen bleiben nicht erhalten
joern bosse am 19.05.2010 um 14:25 Uhr (0)
Hallo,ein Bekannter von mir hat folgendes Problem:Er nutzt CIVIL 2010 auf Windows 7.Wenn er in der "Benutzeroberfläche anpassen" für einen Arbeitsbereich z.B. die Menüleiste ändert (hinzufügen aus partieller CUI-Datei), dann bleibt das während der aktuelle AutoCAD-Sitzung erhalten, wenn er aber dann AutoCAD beendet und neu startet, dann bleiben die Änderungen nicht erhalten.Außerdem hat er noch das Problem, wenn er AutoCAD startet, dann erscheint als erstes der Begrüßungsbildschirm mit Tutorials und was is ...
|
| In das Form Rund um AutoCAD 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 |
|
Rund um Autocad : CUI - Unternehmensanpassungsdatei
joern bosse am 28.02.2007 um 12:44 Uhr (0)
Hallo,ich habe eine Unternehmensanpassungsdatei erstellt und für jeden User eine leere Hauptanpassungsdatei.In den Supportpfaden werden diese an jedem Rechner entprechend zugewiesen, dann ist die Unternehmensanpassungsdatei schreibgeschütz, und das ist ja auch gut so.Wenn ich jetzt die Unternehmensanpassungsdatei erweitern oder ändern möchte, weiß ich mir nicht anders zu helfen, als in den Supportpfaden die Unternehmensanpassungsdatei dem Pfad für die Hauptanpassungsdatei zuzuordnen. Dann erfolgt die Änder ...
|
| In das Form Rund um Autocad 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 |
