|
Rund um Autocad : LISP Anfänger
marc.scherer am 28.02.2002 um 17:20 Uhr (0)
Hi, try this: Code: (setq lyakt (getvar "clayer") ;_ akt. Layer speichern ly-ziel "L-SO-BEM" ;_ Layername in Variable speichern search-layer (tblsearch "LAYER" ly-ziel) ;_ Flag ermitteln, existiert der Layer überhaupt? ) (if (= search-layer nil) ;_ er existiert nicht!! (command "_.-layer" "_m" ly-ziel "") ;_ also erzeug ihn ) (setvar "clayer" ly-ziel) ;_ jetzt kannste ihn aktuelle setzen... (command "_dimlinear") ;_ englisch coden!!! (while (not (= 0 (getvar "CMDACTIVE"))) (comm ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Schnelle Suche in Xref s
marc.scherer am 06.02.2003 um 16:27 Uhr (0)
Hi, ich suche eine Funktion die mir aus Xref s Texte und deren Koordinaten raussucht (nur 2D, nur Dtext). Diese Funktion sollte extrem schnell sein, meine Funktion ist da einfach zu lahm. Gibt es da was, oder hat einer ne Idee? Mit Hilfe von ActiveX, Arx odre VBA? Lisp pur ist da zu langsam, oder ich hab das falsch angepackt (Xref zu fassen kriegen und dann ALLE Elemente des Xref s durchhacheln). Ausgabe der Funktion sollte dann so aussehen: (( Text1 (0 0 0))( Text2 (0 1 0)) ...) Hat da wer was schnell ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : vba oder lisp?? oder eine einfache frage
marc.scherer am 10.02.2004 um 17:45 Uhr (0)
Hi luky, ich hatte etwas mühe mit den fremdwörtern in deinem link und grosse mühe mit den vielen fremdwörtern in deinem sublink # Oh, sorry. Habe ich Dich überfordert? Das war nicht meine Absicht. wenn .net der nachfolger von vba ist, sag mir das doch einfach # Hm, einfach irgendwelche Behauptungen in den Raum stellen ist mir zu blöd. Außerdem, warum soll ich Dinge schreiben, die im Inet schon geschrieben wurden? ich hätte dir auch so geglaubt das du viele wörter kennst # Du bist aber leichtgläubig : ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Block ändern
marc.scherer am 26.06.2006 um 15:41 Uhr (0)
Zitat:Original erstellt von MonikaB:Hat acad so ein tool??Nein,kann man aber schreiben.Ich habe so etwas hier in Lisp geschrieben.Hat nur einen Pferdefuß, der ist aber eher organisatorischer Natur:Da Acad sich nur den Blocknamen merkt, ist das höchste der Gefühle ein:Code: (findfile (strcat "BLOCKNAME" ".dwg"))Wenn Du Deine Zeichnungsbibliothek und die Suchpfade entsprechend sauber organisiert hast, kriegst Du auch die Zeichnung zufassen die damals als Block eingefügt wurde. Im schlechtesten Fall bekommst ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : ATTSYNC: als command in Lisp, (acet-attsync) usw.
marc.scherer am 16.11.2005 um 16:28 Uhr (0)
Hi,poste doch mal den Code und die Testdatei.Dann findet sich der Fehler bestimmt RuckZuck.Ich hatte folgendes als Attsync im Einsatz (Attsynct aber alle Blöcke...)Code:(defun DT:ATTSYNC (/) (if (DT:GET-BLOCKDEFS-WITH-ATTDEF "*") (command "_.attsync" "name" "*") (princ "
Keine Attributierten Blöcke in Zeichnung definiert!") ) (princ))Die Abfrage ob attributierte Blöcke in der Zeichnung existieren ist notwendig, weil die command attsync Anweisung sonst nen Fehler produziert. Das attsync synchronisiert so ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Inhalt Ansichtsfenster drehen(ohne zoom alles)
marc.scherer am 04.10.2005 um 14:19 Uhr (0)
Hi,WIE willst Du das drehen? Über zwei Punkte? Über ein benanntes BKS? Ein unbenanntes BKS, das aktuelle BKS? Fragen über Fragen.Es ist relativ problemlos so ein Tool in Lisp zu bauen:Befehl aufrufen und dann macht das Tool folgendes:Code:Wechsel in den verschiebbaren ModellbereichSichern des dort aktiven BKSWechseln in das WKSSichern der beiden Sysvars "viewctr" und "viewsize"*Drehen des BKS, wie auch immer vom User anzugeben*BKS - Draufsicht ausführenWechseln in das WKSZoom _center mit den gesicherten W ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Farbe eines Layers als Variable Speichern? lisp....
marc.scherer am 05.12.2002 um 10:29 Uhr (0)
Hi, hier steckt s drin: Code: (defun C:GSC (/ COLR LAYR PICKED) (setq PICKED (entsel "
Objekt anklicken dessen Layerfarbe aktuelle Farbe werden soll: " ) ;_ end entsel ) ;_ end setq (if PICKED (progn (setq LAYR (cdr (assoc 8 (entget (car PICKED)))) COLR (itoa (cdr (assoc 62 (tblsearch "LAYER" LAYR)))) ) ;_ end setq (setvar "cecolor" COLR) ) ;_ end progn (princ "
Kein OBJEKT gewählt !") ) ;_ end if (princ) ) Ok? -------------- ...
|
| In das Form Rund um Autocad wechseln |
|
AutoCAD Mechanical : Autodesk Inventor Championship
marc.scherer am 09.03.2004 um 10:31 Uhr (0)
Hi FranzK-Autodek, vielen Dank für die nette Information bzgl. Eures Wettbewerbs. Wenn ich Zeit dafür hätte, würde ich auch mitmachen :-). Es ist schön zu sehen, das die ADesk hier im CAD.DE Forum auch mal mitliest/erscheint. Richtig Klasse würde ich es aber finden, wenn Ihr Euch auch mal blicken lassen würdet um Fragen von den Leuten zu beantworten, die Probleme mit Euren Produkten haben. Im Rund um AutoCAD oder Lisp Forum habe ich diesbezüglich wohl noch GAR NIX von Euch gesehen... Ihr habt hier eine ...
|
| In das Form AutoCAD Mechanical wechseln |
|
Autodesk GIS Produkte : Geometrie in Map nach Objektdaten auswählen
marc.scherer am 06.07.2007 um 19:01 Uhr (0)
Hi,AdeskMap hat eine exzellente Lisp-Api. Ich habe mir zu diesem Zweck eine Lisp Funktion geschrieben die Auswahlsätze nach Objektdaten erzeugen kann. Ich arbeite dabei allerdings auch teilweise mit dem direkten Zugriff auf die Map-Extension-Dictionaries, könnte also sein, das die Lisp-Api alleine nicht ausreicht ;-). Auf jeden Fall geht es. Und die Funktion arbeitet auch erstaunlich schnell.Hier mal ein Auszug, insbesondere die Kommentare sind für einen Neueinstieg in die Thematik interessant... (Dies ist ...
|
| In das Form Autodesk GIS Produkte wechseln |
|
AutoLisp : Errorhander und DCL
marc.scherer am 30.01.2006 um 11:31 Uhr (0)
Zitat:Original erstellt von Kenny1:Ich habe die Vermutung, das dies mit DCL eh sehr schwierig ist.Hmm,nö.Wenn das mit dem Errorhandler und DCL nicht klappt würde ich sagen das es am Design Deiner Funktionen liegt.Wenn Du im Errorhandler beim Start das Undo Flag setzen läßt und Deine Funktion verursacht einen Fehler (im Sinne eines *error*, nicht was Dir vielleicht sinnlos erscheint, für Lisp aber KEINEN Fehler darstellt) sollte alles bis zu dem Zeitpunkt VOR dem Start Deiner Funktion zurückgesetzt werden, ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Filter auf Schaltfläche
marc.scherer am 05.07.2002 um 11:01 Uhr (0)
Hi, Filter hat keine Kommandozeilenoption (soweit ich weiß...). Da mußt Du mit der Lisp Funktion "ssget" arbeiten. Das macht Filter.lsp übrigens auch nicht anders... (sssetfirst nil (ssget "X" (list (cons 8 "AM_0")(cons 410 (getvar "ctab"))))) Im Klartext: (sssetfirst nil asatz) Sorgt für das Auswählen und aktivieren der Griffe bei gefundenem Auswahlsatz. - Asatz =(ssget "X" (list (cons 8 "AM_0")(cons 410 (getvar "ctab")))) (ssget "X"... = Wähle die gesamte Zeichnungsdatenbank... (list ... = und filtere S ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layer vor BLockfunktion
marc.scherer am 17.12.2004 um 11:53 Uhr (0)
Hi Kodat, meine veröffentlichen Zeilen, waren nur ein BEISPIEL für den Aufbau, keine Lösung für Dein Problem. Ich war der Meinung Du hättest für das Layer setzen / wiederherstellen schon eine Lösung nur keine Ahnung wie Du das im Menü unterbringen sollst. Um das umzusetzen, was Du willst benötigst Du erheblich mehr KnowHow als Du hast. ICH würde mir ein Lisp-Programm um den Speedikon Aufruf rumbauen, in etwa mit solchem Ablauf: Code: (defun C:speedi-extra () (Merk-Dir-den-aktuellen-Layer) (Setze-Wun ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : maus-rad
marc.scherer am 21.11.2005 um 09:39 Uhr (0)
Hi Tequila (prost),Du kannst Dir Code wie diesen:Code:(if (setq SGET (ssget "x" (list (cons 0 "*POLYLINE" ;|Objekttyp angeben| (cons 8 "0,UEBERSICHT" ;|Layername(n) angeben| (cons 410 (getvar "ctab") ;|wählt nur Objekte in aktuellem Layout|; ) ) ) ) (sssetfirst SGET SGET) (princ "
Nix gefunden..."))in eine Datei speichern, die Parameter für Objekttyp und Layer für Dich passend abwandeln und dann auf nen Button pac ...
|
| In das Form Rund um Autocad wechseln |
