|
Rund um Autocad : benannte ansichten durchblättern
Claudio am 20.04.2007 um 16:20 Uhr (0)
Hallo Theo!Fürs erste mal aufs Grobe ein Lisp (Vset.lsp), mitdem Dein Wunsch erfüllbar ist.(Ist beim Zurückblättern noch nicht "clean" gegen hintereinanderfolgende gleichartige Zooms, noch verbesserungswürdig, etc. aber sonst musst Du noch länger warten)Datei umbenennen - .txt löschen ,1)Zum Probieren : mit Befehl:_appload laden,Aufruf für`s Vorblättern : V_vor , fürs Zurückblättern: V_Ret2)Für die Buttons :Lisp in ein Supportdirectory kopieren, Buttons belegen:Button Vorblättern : ^C^C^P(if(not V_Vor)(lo ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : alle Attribute eines Blockes verschieben
Claudio am 06.08.2008 um 11:02 Uhr (0)
@Jan"...oder muss ich zum LISP-Editor greifen ?"das hat vor Dir schon jemand getan -amove von ASMI - http://www.cadtutor.net/forum/archive/index.php/t-14580.html (hab Variante 2 probiert, funktioniert, ist glaube ich, was Du suchst)Gruß Claudio
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Skript für Layerkonvertierung in ACAD
Claudio am 15.02.2004 um 23:26 Uhr (0)
Hi Copymaster! Hab ein kleines Lisp angefügt. braucht allerdings Deine Schreibwilligkeit... Erste - Deine Liste durch DEINE Layernamen ersetzen und ergänzen. Zweite- Seine Liste durch SEINE Layernamen ersetzen und ergänzen. Die Listen werden der Reihe nach abgearbeitet - aus A_MASS wird B_MASS .... Wenn Altlayer NICHT in Deiner Zeichnung gefunden wird, wird TROTZDEM der entsprechende NEUE Layer angelegt. (Vorsicht- keine Klammern und kommas löschen, Layernamen mit Anführungszeichen ! -Für alle NICHTLI ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : 2D Polylinien stutzen
Claudio am 19.02.2004 um 15:44 Uhr (0)
Hallo Ulf Der Link zum download: http://www.defun.de/downindex.html Das Lisp PLG.lsp könnte das richtige für Dich sein Gruß Claudio
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Makros für Layer
Claudio am 07.03.2004 um 20:26 Uhr (0)
Hallo Josef! Ein Lisp als konkrete Antwort auf Deine konkrete Frage! (mit appload laden, startbefehl LXY) Prog lässt sich natürlich entsprechend erweitern. Gruß Claudio
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : 3D Polylinie
Claudio am 08.03.2004 um 17:37 Uhr (0)
Hallo Michael! Auf die ganz schnelle (ohne große Absicherungen...) ein Lisp (Anhang) (.txt entfernen , mit appload laden, mit 3pxyz starten) Liest Koordinaten der 3d-Polylinie aus und schreibt sie in eine Datei c:3DPOLXYZ.TXT (Name,Pfad kann im Lisp geändert werden) Wenn Poly geschlossen, sind Koordinaten erster und letzter Punkt gleich, wenn das genauer definiert sein müßte, muß man Prog. vereinern. Gruß Claudio
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layer Farbe
Claudio am 31.03.2004 um 16:02 Uhr (0)
Hallo Heinz! Hab Dir ein Lisp angehängt (.txt löschen) -mit APPLOAD laden, befehl LFOF eingeben, ELEMENT anklicken dann wird der ELEMENTLAYER automatisch auf die Elementfarbe geändert (brauchst nichts mehr eingeben). Liesse sich noch anpassen, wenn Du mehr brauchst. Gruß Claudio
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Alle Objekte innerhalb eines Polygons waehlen ??
Claudio am 16.04.2004 um 18:04 Uhr (0)
Hallo Grumbleman! In der Hoffnung, dass Du LISP-bewandert bist möchte Dir jetzt mal nur auf Deine ERSTE Frage antworten - Wie selektiert man Textobjekte innerhalb einer umrandenden Polylinie: ;;;LW-POLYLINIE auswählen, Text innerhalb wird ausgewählt ;;;Achtung:keine Polylinien mit Überkreuzungen !! (defun c:PW(/ Plist ELE AWA1) ;;Programmaufruf mit PW (setq ELE (entget (car (entsel
POLYLINIE WÄHLEN : )))) ;;Umrandung (if (= (cdr (asso ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Abstandsfang für Bemaßung
Claudio am 13.04.2007 um 11:08 Uhr (0)
Hallo Thror!Im Autocad gibt es erst mit der Version 2008 den neuen Befehl:_DIMSPACE mit dem man aber auch nur den Abstand bestehender Massketten einstellen (verändern) kann.Dein Wunsch wäre im Autocad nur programmierbar (Lisp,..)..nur mal ein Schuss ins Blaue - falls Du Architectural Desktop 2006(ADT2006) gemeint haben könntest:Hier wird der Abstand der Massketten in den Darstellungseigenschaften des AEC-Bemassungsstils (Befehl:_AECDIMSTYLE) eingestellt (Bild des Dialogfensters - ).Gruß Claudio
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Lisp geht in Acad2007 nicht mehr
Claudio am 02.05.2007 um 11:16 Uhr (0)
Hallo Tarl Cabot!Da das Problem gefunden ist-nur ein kleiner Verbesserungsvorschlag:(setq auswahl(SSGET (list (cons 0 "TEXT") (cons 8 "Höhe"))))dann werden wirklich NUR Texte und NUR auf dem Layer "Höhe" gewählt-macht das Prog flotter und dann sparst Du Dir :...(princ "
ACHTUNG: Höhentexte müssen auf Layer Höhe liegen!!! ")...(setq alayer (substr (cdr(assoc 8 liste))1 4))...(setq atext (cdr(assoc 0 liste)))...(if (and(= atext "TEXT") (= alayer "Höhe"))Gruß Claudio
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : mit Makro Layer automatisch umbenennen
Claudio am 12.02.2008 um 19:00 Uhr (0)
In Lisp würde das so aussehn :Gruß Claudio(defun c:renlay (/ Nam_A Nam_N Nam_Alt Nam_Neu) (setq Nam_A (getstring "
ALTER Teilstring von Layernamen :") Nam_N (getstring "
NEUER Teilstring von Layernamen :") LayLI (vla-get-layers (vla-get-activedocument(vlax-get-acad-object)))) (Vlax-for i LayLI (setq Nam_Alt (vlax-get-property i Name) (if (or (= Nam_Neu "0")(Tblsearch "LAYER" Nam_Neu)) (Princ (strcat "Layer " Nam_Neu " konnte nicht umbenannt werden!")) (command "_-rename" "LA" Nam_Alt Nam_Neu)) ))
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp für Textstilfont wechsel und Bereinigung
Claudio am 24.07.2008 um 22:16 Uhr (0)
@M.Fink"könnte sich wer erbarmen..." - gerne-Lisp im Anhang (.txt entfernen, mit appload laden, mit Xrein starten)Gruß Claudio
|
| In das Form Rund um AutoCAD wechseln |
