 |
Rund um AutoCAD : Wie Attribute dynamischer Blöcke layoutübergreifend bearbeiten?
Dober Heinz am 08.07.2017 um 07:27 Uhr (15)
Das könnte was für dich sein.Das Lisp musst auf deinem Block natürlich anpassen ?http://www.cadtutor.net/forum/showthread.php?101029-Dynamische-Bl%C3%B6cke-and-Layouts/page2------------------ Heinz [Diese Nachricht wurde von Dober Heinz am 08. Jul. 2017 editiert.][Diese Nachricht wurde von Dober Heinz am 08. Jul. 2017 editiert.]
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Block auf Layer
Dober Heinz am 14.07.2005 um 15:48 Uhr (0)
Hallo Lispler Suche ein Lisp wo ich meine Blöcke auf Layer (z.B. --E-Starkstrom) legen kann. Die Blöcke sind jetzt von Layer, möchte mir einen zweiten Blocksatz herrichten wo die Blöcke beim einfügen gleich auf den richtigen Layer eingefügt werden. sind ungefähr 500 blöcke und die alle Einzel änder ist viel aufwand. danke heinz mit Suche nichts gefunden ------------------ Heinz
|
| In das Form AutoLisp wechseln |
|
Lisp : Änder der Schraffurfarbe im Block
Dober Heinz am 18.07.2011 um 07:43 Uhr (0)
@ CADmiumLeider kenn ich mich mit dem Vl- Befehlen überhaupt nicht aus.Leider ist es so, das dein Beitrag (Danke) zu 90% nicht funktioniert.Weis auch nicht woran das liegt.Das letzte Lisp funktioniert immer, wollte es so ändern das ich einen Block wählen kann, leider VL ist nicht das meine.Danke ------------------ Heinz [Diese Nachricht wurde von Dober Heinz am 18. Jul. 2011 editiert.]
|
| In das Form Lisp wechseln |
 |
Rund um AutoCAD : Plan kommplett umfärben
Dober Heinz am 10.09.2011 um 12:51 Uhr (1)
HalloDann würde ich sagen Bem ausblenden.Sonst weis ich auch nichts mehr tut mir leid.Oder beim schreiber dieses Lisp melden.Oder die Maßstabsliste?------------------ Heinz [Diese Nachricht wurde von Dober Heinz am 10. Sep. 2011 editiert.][Diese Nachricht wurde von Dober Heinz am 10. Sep. 2011 editiert.]
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Plan kommplett umfärben
Dober Heinz am 10.09.2011 um 08:36 Uhr (1)
HalloAlso ich habe das mal getestet.dwg öffnen (die XREF natürlich)Das Lisp Colorx in die Zeichnung ziehn.Aufrufen mit ColorX, Farbe wählen.Es wird alles auf die Farbe gelegt was ich gewählt habe.Xref Speichern fertig.Dann in der Zeichnung wo die Xref eingfügt würde die Xref neuladen, und fertig.Also bei mir hat das super funktioniert.------------------ Heinz [Diese Nachricht wurde von Dober Heinz am 10. Sep. 2011 editiert.]
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : layouteinstellungen global übertragen
Dober Heinz am 29.10.2004 um 09:13 Uhr (0)
Zitat:Original erstellt von cadffm:Jetzt ich kapieren hoffe ichDu könntest die (benannte) Seiteneinrichtung bei jedem öffnen einer Dateiimportieren (über die ACAD.lsp od. ACADDOC.lsp).Allerdings ist sie dann noch nicht "aktuell" geschaltet in allen Layouts/Modell,das könnte man dann aber auch per Lisp machen (Code dafür gibt es hier schon!)Befehlsfolge für das importieren der SE : (filedia=0) _PSETUPIN (Pfad+)DATEINAME Name der SeiteneinrichtungAllo CADddmGinge das auch mit einen Makro und wie sieht d ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Text Kopieren und ändern
Dober Heinz am 20.10.2004 um 06:50 Uhr (0)
Guten Morgen Habe eine Frage, kann mir bitte ein Lispprofi das folgende Lisp änder das ich auch mtexte kopieren und gleich ändern kann (defun C:KOTA (/ OBJEKT) (while (setq OBJEKT (ssget _:S ((0 . *TEXT )))) (setq OBJEKT (ssname OBJEKT 0)) (command _.copy OBJEKT (cdr (assoc (if ( 0 (cdr (assoc 72 (entget OBJEKT)))) 11 10 ) ; ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
Dober Heinz am 18.10.2005 um 14:29 Uhr (0)
@FuchsiHabe dein Lisp getestet(setq aus (car(entsel)))(setq umw (entget aus))(setq txt (cdr (assoc 1 umw)))(setq a2 (fSplit txt "/"))(strcat (itoa (car a2 )) "/" (itoa (1+ (cadr a2))))(defun fSplit (String Separator /) (setq String (replace String Separator " ")) (setq String(strcat "(list " String ")")) (eval (read String)) )(defun Replace (String SearchString ReplaceString /) (while (/=String (vl-string-subst ReplaceString SearchString String)) (setq String (vl-string-subst ReplaceString SearchSt ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Prüfen ob Zahl
Dober Heinz am 21.12.2005 um 16:23 Uhr (0)
Hallo LisplerHabe diese Lisp zum Prüfen ob Zahl, beim ersten Beispiel funkt es.Aber beim zweiten nicht mehr habe keine Ahnung warum.Bitte um eure Hilfe.----------------------------------------------------------------------(defun str-zahl-am-ende (teststring / zaehler stringende zahl-am-ende) (setq zaehler 0) (while (numberp (read (setq stringende (substr teststring (- (strlen teststring) zaehler))))) (setq zahl-am-ende (read stringende)) (setq zaehler (1+ zaehler)) )zahl-am-ende)----------- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Versetzen auf gemessener Strecke
Dober Heinz am 10.11.2005 um 08:31 Uhr (0)
Hallo habe mir ein Lisp geschrieben, wo ich eine Stecke Messe, diese Strecke dann teile und eine Linie auch dieser Strecke versetzten lass.aber das Versetzten funkt nicht so richtig.(defun c:mteilen (/ tei-len) (setq pt1 (getpoint "
Anfangspunkt eingeben: ")) (setq pt2 (getpoint "
Endpunkt eingeben: ")) (setq lange (distance pt1 pt2)) (setq teil (getint "
Wieviele Linien: ")) (setq tei-len (/ lange teil)) (setq entset (entsel)) (setq Element (car entset)) (setq side_point (getpoint "Punkt auf Seite ange ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Symbole
Dober Heinz am 14.01.2004 um 09:35 Uhr (0)
[QUOTE]Original erstellt von Kramer24: [B]Hallo Heinz, für mich heißt es : Zwei Layer- zwei Objekte. Du müsstest also das Symbol 2x einfügen bzw. kopieren und dann auf anderen Layer legen ( copytolayer ). Aber ich denke, auch hier gibt es eine Lösung mit Lisp o. ä.... Lothar Danke für Antwort Ist nicht ganz richtig mit 2 Layer, habe einmal eine Zeichnug wo ich das Symbol auf aktuellen Layer einfüge, und dann wieder einen Plan wo ich das Symbol gleich auf dein Richtigen Layer einfüge ohne diesen Aktuell zu ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Änder der Schraffurfarbe im Block
Dober Heinz am 16.07.2011 um 09:49 Uhr (0)
@ CADmiumEine Frage noch.Wenn ich einen Block wähle den ich vor langer Zeit erstellt habe, dann wird mir die Schraffur nicht geändert. Macht einfach gar nichts, auch keine Fehlermeldung.Wenn ich eine Block wähle wo ich die Schraffur neu erstelle, dann ist alles ok.Die Schraffur ist immer Solid.Woran kann das liegen?Hab da noch ein Lisp gefunden, wo ich die Schraffur ändern kann, weiss aber leider nie, ob ich die Schraff erwische.Danke Code:(defun c:bof (/ oObj strLayer) (setq oObj (vlax-ename-vla-object ( ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Quick Leader
Dober Heinz am 08.03.2007 um 08:14 Uhr (0)
Hallo SeroHier das Lisp SSmod Code: ;; SSMOD und SSMODENT ;; zum Ändern von DXF-Gruppencodes an Elementen oder Auswahlsätzen ;; ;; Erlaubnis zum Kopieren und zur beliebigen freien Verwendung ;; gestattet, solange der Hinweis auf die Urheberschaft ;; angegeben wird ;; (c) Dr.-Ing. Thomas Berger, Kassel ;; ;; Verwendung: ;; (ssmod selectionset dxf-group-code newvalue ;; (ssmodent entityname dxf-group-code newvalue ;; (defun ssmod (ss dxf val) (mapent (lambda (ename) (ssmodent ename dxf v ...
|
| In das Form Rund um Autocad wechseln |
