|
Rund um Autocad : lisp
daiz am 30.10.2003 um 18:30 Uhr (0)
Hallo, so heißt es korrekt: "Extras" - "Optionen" - "Dateien" Da kannst Du Dir neue Suchpfade anlegen. "Extras" - "Anwendung..." Da kannst Du Lisp-Programme usw. laden. ------------------ Daiz
|
|
Rund um Autocad : lisp
daiz am 30.10.2003 um 18:38 Uhr (0)
Hallo, habe das mit der engl. Version ganz übersehen. "Tools" - "Load Application..." ist korrekt. Für die Suchpfade gibt es dann das: "Tools" - "Options..." - "Files" ------------------ Daiz [Diese Nachricht wurde von daiz am 30. Oktober 2003 editiert.]
|
|
Rund um Autocad : lisp
Brischke am 31.10.2003 um 08:40 Uhr (0)
Hallo GeeM, als Einstieg sind vielleicht auch die folgenden Seiten interessant: http://www.autodesk.de/adsk/servlet/linkedsumindex?siteID=403786&id=2260215&linkID=2679558 Das dort geschriebene gibt s bei mir (http://www.defun.de) auch als Download. Sowohl der Text als auch die Bsp-LISP-Datei. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops ...
|
|
Rund um Autocad : Layeransicht Ein-Aus tauschen
Brischke am 27.11.2003 um 14:04 Uhr (0)
Hallo matou, die folgenden Zeilen machen das, brauchst also nicht mehr nach einem Lisp suchen. Code: (defun c:switchlay (/ lay layli) (while (setq lay (tblnext LAYER (not lay))) (setq layli (cons (cdr(assoc 2 lay)) layli)) ) (mapcar (lambda (L / ld) (setq ld (entget (tblobjname LAYER L))) (entmod (subst (cons 62 (* -1 (cdr(assoc 62 ld)))) (assoc 62 ld) ld ) ) ...
|
|
Rund um Autocad : PAN mit Mausrad
Proxy am 09.01.2004 um 15:31 Uhr (0)
Zitat: Original erstellt von marvin101010: hallo da lob ich mir meine microsoft maus... keine speziellen treiber, kein stress... ok, damit macht man billy boy noch reicher, aber irgendwas is ja immer Für die stressfreien Treiber hast du schon wie gesagt, längst mehrmals, obwohl auch bereits im OS als Beta enthalten, bezahlt (OS-Kosten) und darfst sie ja auch höhstwahrscheinlich in ca. 2 Jahren wegschmeissen wenn M$ keine Hardware/ Software-Zertifizierung für ein Produkt ohne Supportanspruch (=$ ...
|
|
Rund um Autocad : Layer in Blockdefinition ändern
charlieBV am 04.02.2004 um 10:34 Uhr (0)
habe mit hilfe einiger leute hier im Forum die Lisp nuke (weiß nicht genau wo ich sie herhabe, vielleicht von cadwiesel.de?) ein bisschen umgeändert...Legt alles auf den Layer 0 und die Farbe von block, kann global oder auf Blöcke bezogen angewendet werden... Also, wie gesagt haben viele andere geholfen... Gruß Charlie
|
|
Rund um Autocad : Layer umbenennen
Brischke am 26.04.2004 um 11:20 Uhr (0)
Hallo Stefan, dann nimm dies: Code: (defun c:laySubAnf ( / lay muster) (setq lay (tblnext LAYER T) muster Ebene );Hier den Mustertext eintragen, ;der am Anfang eines Layernamens ;gelöscht werden soll (while lay (if (and (wcmatch (strcase (setq lay (cdr(assoc 2 lay)))) (strcase (strcat muster * ))) (not (tblobjname LAYER (setq nlay (vl-string-trim (substr lay (1+ (strlen muster))))))) ) (progn ...
|
|
Rund um Autocad : Layer Farbe
OtzeMachEd am 28.04.2004 um 15:57 Uhr (0)
Zitat: Original erstellt von Bernd P: Servus Bringt das Lisp von Thomas, wär für Xref´s auch zum laufen? Den Satz verstehe ich jetzt auch nicht!? ------------------ Mit freundlichen Grüßen Otze Mach Ed .....wer lesen kann ist klar im Vorteil....
|
|
Rund um Autocad : text ausrichten lisp funkt nicht
marc.scherer am 11.05.2004 um 12:07 Uhr (0)
So? Code: ; Kopiert Text an eine bestimmte Stelle und richtet ihn in einem bestimmten Winkel aus (defun C:R_TEXT (/ C_E EN ENT EXITFLAG O_AB O_S P1 P2 TEXT_ELEM WINKEL ) (defun *NEUERR* (MSG) (R_VAR) (princ MSG) (princ)) (setq ALTERR *ERROR* *ERROR* *NEUERR* C_E (getvar "CMDECHO") ; ECHO O_S (getvar "OSMODE") ; FANG O_AB (getvar "angbase") EXITFLAG ...
|
|
Rund um Autocad : Lisp-Befehl
marc.scherer am 23.09.2004 um 14:52 Uhr (0)
Wie Du ne Schaltfläche einbaust weißt Du? Dann packe als Makro folgendes rein: (ausgehend von der Annahme das Deine Funktion C:MYFUNC heißt...) ^c^c^p(if (null C:MYFUNC) (load MYFUNC.lsp ))(princ);MYFUNC; ------------------ Ciao, Marc
|
|
Rund um Autocad : mehrere Blöcke automatisch umbenennen
Bernd P am 21.10.2004 um 08:23 Uhr (0)
Servus Achso *lichtaufgeh* Du hast 100 Blöcke mit gleichen Namen in der Zeichnung, es sollen 50 davon anders heissen (wegen umdefinieren der anderen 50 Blöcke). Nur mit einer Zeichnung wirst du wahrscheinlich eh nicht auskommen da man nicht 50 von 100 (oder 2 von 3 ist egal) gleichnamigen Blöcken in einer Zeichnung umbennen kann. Hier gilt das Motto Einer für alle Wenn du es nicht zu oft brauchst würde ich die ausgewählten Blöcke mit strg+X (original koor..) in eine Zeichnung kopieren, dort umbenne ...
|
|
Rund um Autocad : mehrere Blöcke automatisch umbenennen
fuchsi am 21.10.2004 um 09:18 Uhr (0)
probier mal dieses kleine Lisp aus (defun c:NeuBlock (/ ss1 i1 ename edate NameAlt NameNeu) (cond ((setq ss1 (ssget (list (cons 0 INSERT )))) (setq i1 0) (repeat (sslength ss1) (setq ename (ssname ss1 i1) edate (entget ename) NameAlt (cdr (assoc 2 edate)) NameNeu (HoleNeuenBlockName) i1 (1+ i1) ) (if (KopiereBlock NameAlt NameNeu) (entmod (subst (cons 2 NameNeu) (assoc 2 edate) edate)) ) ) ) ) ) ; ; Erstellen eines neuen Blocknames aufgr ...
|
|
Rund um Autocad : mehrere Blöcke automatisch umbenennen
CADSURFER am 28.10.2004 um 07:39 Uhr (0)
hallo Fuchsi, ein bischen spät aber besser wie nie. ICH KANN MICH AN DIESER STELLE NUR VERNEIGEN, super Lisp daß ist genau das was ich gesucht habe, ob ich auch mal da hin komme, glaub nicht, respekt. kannst du mir ein Lisp-buch empfehlen? spitze weiter so. grazie grazie grazie chiao chiao
|
