|
Rund um AutoCAD : bestehende Bemaßung per Lisp ändern
spider_dd am 17.09.2021 um 16:31 Uhr (1)
Hallo Snoop,was fertiges habe ich nicht, aber ich würde folgendermaßen vorgehen:1) Bemaßungsstil mit den gewüschten Einstellungen erstellen2) alle Bemaßungen auswählen (ssget "_X" (0 . "DIMENSION"))3) durch den Auswahlsatz wandern und allen Elementen den neuen Bemaßungsstil zuweisen(subst (cons 2 dein_neuer_bemassungsstil) (assoc 1 elementdatenliste)Oder den gewünschten Beemaßungsstil aktiv setzen und allen Bemaßungen mit Befehl: -bemstil anwendenüberbügeln.HTHGrußThomas[Diese Nachricht wurde von spider_ ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Problem mit Lisp für Bemaßungen
spider_dd am 02.12.2021 um 14:53 Uhr (1)
Hallo Tripl-S,es erscheint ja logisch, dass, wenn Du auf eine Bemaßung den ursprünglichen Bemaßungsstil wieder anwendest, alle an dieser Bemaßung vorgenommenen Änderungen weg sind. Du müsstest also eher nicht über den Bemaßungsstil sondern durch alle Bemaßungsobjekte gehen und dort nur die gewünschten Änderungen machen. Wo dort aber die Farbzuweisungen stecken, habe ich auf die Schnelle nicht gesehen. Da müsste man sich sicher mal in die Tiefen des Objektes mit Unterobjekten und so reinwühlen.Aber vielleic ...
|
| In das Form Lisp wechseln |
 |
Rund um AutoCAD : Xref Pfad per Lisp Ändern
spider_dd am 25.11.2016 um 13:39 Uhr (15)
Hallo fmfm,dass das mit REDIR und command nicht klappt, hatte ich ja schon geschrieben.Weil bald Weihnachten ist, hätte ich Dir fast noch die Eintragungen in den oben geposteten Code geschenkt , aber cadffm hat es ja schon noch mal sehr deutlich aufgezeigt, wass Du da noch machen musst.Natürlich mit der letzten angepassten Zeile(setq newpath (strcat (vl-string-subst "NUK" "APO" (vl-string-right-trim "SBAN" (getvar "dwgprefix"))) ""))GrußThomas[Diese Nachricht wurde von spider_dd am 25. Nov. 2016 editiert ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Lisp in Acad 2015
spider_dd am 17.06.2014 um 15:09 Uhr (1)
Hallo Martin,Zitat:Original erstellt von MARTINLE:... Bis Acad 2014 ging es ohne Mucken. Jetzt bei Acad 2015 hängt es bei:Befehl: bisectSelect first segment:Select first segment:Select second segment: _.lineErsten Punkt angeben: _nonNächsten Punkt angeben oder [Zurück]: 112.5000000000011 Winkel überschreiben: 112.50 --- hier wird ein nächster Punkt angefordert. Sollte es aber nicht. Die Linie sollte selbst erstellt werden.Sicher?? Weil:Zitat:... (vl-cmdf "_.line" "_non" som (strcat "" (angto ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : LISP Linientypfaktor und Farbe ändern
spider_dd am 07.04.2021 um 16:31 Uhr (1)
Zitat:Original erstellt von ReneReichel:... Die Wenn-Prüfung erschient mir überflüssig, da ich der mittleren PL immer einen LTF in Abhängigkeit der Foliendicke zuweisen will ...Zudem passiert nichts, wenn ich Deinen Ansatz probiere. Kann es sein, dass obj_data gar nicht abgerufen wird, weil ich die mittlere Linie ja nicht anklicke...zu 1) Wenn der Linientypfaktor 1 ist und Farbe oder Linientyp "VONLAYER", git es die entsprechenden Gruppen in den Daten nicht. Daher die Prüfung ob die Gruppe vorhanden ist.zu ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Mit Lisp Blöcke auslesen und Teile des Inhalts in Textzeilen abbilden
spider_dd am 26.11.2024 um 08:33 Uhr (1)
Zitat:Original erstellt von 100dpi:...@Andreas: Das genau hab ich versucht, Acad schiebt die Texte dann aber ALLE zum Punkt 0,0 Du musst den GC 11 noch setzen, der wird bei Ausrichtungen anders als links verwendet.Also:(cons 11 (list x y z))bzw.(cons 11 (list x (- y (* text-height 1.5)) z))noch in die entmake Listen nehmen.GrußThomas[Diese Nachricht wurde von spider_dd am 26. Nov. 2024 editiert.]
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Attribute mit Lisp an eine andere Position bewegen
spider_dd am 18.07.2024 um 12:39 Uhr (1)
Hallo 100dpi,der Beitrag wäre im Lisp-Forum besser aufgehoben, aber egal, lass ihn jetzt hier.Im Code sind einige "Kröten" enthalten, hier ein paar Hinweise:die Variable distance nutzt einen Namen, den es so schon als Systemvariabe gibt, ganz schlecht. Nenne alle Vorkommen von distance in z. B. ndistance um.Die neue Position der Attribute ermittels Du nicht aus der Position der Attribute, sondern aus der Blockposition, d. h. alle Attribute erhalten die gleiche Position.Wenn die Ausrictung (GC 72) nicht 0 = ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Text Ändern in Block (Attribut) per Lisp
spider_dd am 05.02.2018 um 08:51 Uhr (1)
Also, so wie die letzte Code-Version bei KlaK steht, reicht ein Aufruf von UPDATE-TITLE-BLOCK ohne Attribute. Dieses startet die mit defun c: UPDATE-Title-Block (ganz unten) definierte Funktion, die wiederum die mit defun (ohne c: ) definierte Funktion UPDATE-Title-Block (ganz oben) aufruft und dabei die Parameter "Titelblock" "Zeichner" "FM" übergibt. Wenn, dann müsste hier geändert werden.HTHGrußThomasps. dass das geht, mit defun c: und defun zwei unterschiedliche aber gleichnamige Funktionen zu def ...
|
| In das Form Lisp wechseln |
|
Lisp : Funktion zum Öffnen einer Lisp-Datei
spider_dd am 22.11.2011 um 16:49 Uhr (0)
Hallo Barbara,hier kann ich mich Holger nur anschließen.Wenn jeder Nutzer so einfach in dem lsp-Dateien "herumfuscheln" darf, gehst Du davon aus, dass auch jeder genau weiß, was er tut (was aber bei vielen, denke ich, nicht gegeben ist). Schon eine Klammer aus Versehen gelöscht oder zuviel gesetzt und das Ganze läuft nicht mehr. Da kommst Du dann vor Fehlersuche gar nicht mehr hinterher.Was soll den der Nutzer ändern (wollen)? Wenn Du das weist, dann kannst Du das Prog auch gleich so bauen, dass diese vari ...
|
| In das Form Lisp wechseln |
|
Lisp : LISP unter Version 2014
spider_dd am 04.06.2013 um 07:58 Uhr (0)
Hallo Symantec,fürs entmake von Texten habe ich mir mal eine kleine Fuktion geschrieben.Code:; Text entmake(defun mach_text (ausricht72 ausricht73 punkt drehung inhalt tlay tstyle thoehe / t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 ee te_neu); Aufbau Datenstruktur für Text; aufruf z. B. (mach_text 0 2 tp1 0 text layer text_style_name hoehe) (setq t1 (cons 0 "TEXT")) (setq t2 (cons 100 "AcDbEntity")) (setq t3 (cons 8 tlay)) (setq t4 (cons 100 "AcDbText")) (setq t5 (list 10 (car punkt) (cadr punkt) 0.0)) ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : LISP Linientypfaktor und Farbe ändern
spider_dd am 07.04.2021 um 14:32 Uhr (15)
Zitat:Original erstellt von ReneReichel:[i]... Nur weiß ich nicht, wie ich der PL eine Farbe und einen Linientypfaktor zuweisen kann..../i]Zum manipulieren der Objekte kann man auch direkt auf die Objektdaten zugreifen.Sieh Dir mal an, was Du erhälst, wenn Du folgendes ausführst:Code:(setq obj (car (entsel "
Polylinie wählen: "))) ; hast Du in Deinem Code ja schon(setq obj_data (entget obj))Die Liste enthält die Daten Deiner Polylinie in der Form (DFX-Gruppencode . Wert)Eine Auflistung der DXF-Gruppencodes ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Blöcke mit Lisp auf Layer 0 und Farbe von Block setzen
spider_dd am 24.05.2017 um 08:22 Uhr (1)
Zitat:Original erstellt von xxxmurdockxxx:Nun hätte ich aber gerne dass alle Elemente von Farbe "vonLayer" auf "vonBlock" geändert werden. Ohne dabei die best. Farben zu ändern.Wie muss ich diesen Schnipsel ändern, damit das geht?Code: (if (assoc 62 edata) (setq edata (subst (cons 62 0) (assoc 62 edata) edata)) (setq edata (append edata (list (cons 62 0)))))Also ich verstehe das so: Wenn das Element eine Farbe zugewiesen hat, soll nix passieren, ansonsten soll sie auf "von Block" gesetzt werden.Dann ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Prozent anschreiben
spider_dd am 03.07.2014 um 09:26 Uhr (1)
Hallo BaCAD,Die Funktion neigung Code:(defun neigung ....)lädst Du mit jedem Deiner 3 Lisp, die ist in der ersten aber anders definiert als in den beiden anderen.Beim Laden einer dieser drei Lisp wird sie aber neu definiert, d. h. wenn Du die zweite (oder dritte) Lisp lädst, gilt dann diese Definition und nicht mehr die erste.Das kannst Du ausprobieren, indem Du z. B. die erste Lisp nochmal lädst. Dann sollte immer (auch bei .._prz2 und .._prz3) die Ausgabe in % kommen.Das kannst Du verhindern, indem Du:a) ...
|
| In das Form Rund um AutoCAD wechseln |
