|
Lisp : Automatic Dimension AutoCAD LISP??
kadirozen am 02.08.2023 um 12:26 Uhr (1)
Ich danke Ihnen beiden für Ihre Antworten.kurz erklärt, gibt es eine Möglichkeit, eine Liste abgesehen von diesem Code zu machen, so dass ich Layers aktualisieren/umbenennen kann. Momentan sind es fast 700 verschiedene Layers und jeder Name mit eindeutigem Namen. Ich habe versucht, unsere Dateien zu durchsuchen, aber es kommen immer wieder neue Layers hinzu.Im Moment hat es 4 Dicken mit 6 verschiedenen Typen. Es sollte möglich sein, eine solche Benennung zu kodieren und sie automatisch zur Liste hinzuzufüg ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Speichername + Datum + Ersteller
Brischke am 10.10.2005 um 12:36 Uhr (0)
Zitat:Original erstellt von Dressler:Hallo,ich hab zumindest den Vorschlag hier erstmal ins Lisp reinkopiert. Da kommt bei dem (getvar "dwgname") schon der komplette DWG Name, kann man das .dwg an dem Ausdruck irgendwie abschneiden, damit man dann die anderen Informationen nit dem namen kombinieren kann? Wie kombiniert man überhaupt im Lisp Variablennamen miteinander zu einem Namen?Vielleicht sollte ich doch bei meiner Händischen Methode bleiben, oder erstmal in Ruhe mit den Lisp Basics anfangen. zu 1. Si ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Einschränkungen beim Befehl open?
andi2050 am 28.07.2006 um 01:20 Uhr (0)
Hallo !Dieses Problem plagte mich auch schon vor einiger Zeit !Ursache sind vermutlich die Leerzeichen im Pfad/Dateinamen.Bisher habe ich das dadurch gelöst, daß bei uns Leerzeichen im Pfad bzw. Dateinamen verboten waren.Als ich Deinen Beitrag und den Beitrag "Verzeichnus löschen" durchgelesen hatte, kam mir die Idee, das Ganze über das FileSystemObject anzupacken. (Vla... Lösung)Nach einigem Googeln hab ich ein paar Funktionen gebastelt, die über das FSO die Funktionen OPEN/WRITE-LINE/CLOSE imitieren.So w ...
|
| In das Form Lisp wechseln |
|
Lisp : Drehen und kopieren mit Fehler
MARTINLE am 16.03.2012 um 09:09 Uhr (0)
Hallo!Bei nachfolgenden Lisp hab ich folgendes Problem:Wenn ich vor aufrufen von "coro" einen Block mit einem Attribut eingefügt habe, diesen aber bei der Auswahlabfrage bei Coro nicht auswähle wird er ab "(setq p2..........." trotzdem ausgewählt und dann mitgedreht!Wenn ich vor dem Befehl einen Block ohne Attribut eingefügt habe wird diese nicht ausgewählt. Warum ist das so? Kann mir da jemand weiterhelfen?Liebe Grüße Martin;drehen und kopieren;(Autor: ?????)(defun c:CORO (/ e ss p1 p2 ss2)(setq e nil)( ...
|
| In das Form Lisp wechseln |
|
Lisp : Kontrollfrage vor dem verlassen!
steinwurm am 02.03.2007 um 08:19 Uhr (0)
Hallo, Ihr habt ja recht, ich kenne mich nicht wirklich aus, aber irgendwie muss das ja funktionieren.Wenn ich ein normales Programm habe und die Datei mit diesem Befehl schließe funktioniert es ja auch, oder?Kann ich in meinem Reaktor:(defun R:AufWiedersehen ( A B / );;Gespeichert in acad2007doc.lsp (alert "Auf Wiedersehen"))(vl-load-com)(VLR-DocManager-Reactor(vla-get-ActiveDocument (vlax-get-acad-object))((:vlr-documentToBeDestroyed . R:AufWiedersehen))), dass beim schließen nicht nur Meldung auf Wieder ...
|
| In das Form Lisp wechseln |
|
Lisp : Pfad eines Bildes ändern
Andy1995 am 10.03.2011 um 15:06 Uhr (0)
Hi versuche krampfhaft das ändern des Laufwerksbuchstaben von Bildern zu automatisieren.sollte so aussehen:C:ildhallo.jpgsoll werden:X:ildhallo.jpgMein Programm funktioniert auch schon, nurwenn 2 verschiedene Referenznamen auf ein und das selben Pfadnamenverweisen (z.B: hallo, hallo_1 usw.) dann wird nur der erste aktualisiert.Ich weiß nicht wie ich die Referenznamen der Bilder abfragen kann.Bis jetzt hole ich mir den Refernznamen aus dem Pfadnamen, was eigentlich falsch ist.Bitte um Hilfe.DankeCode:(def ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe zu Lispprog.
wronzky am 05.01.2009 um 19:45 Uhr (0)
Hallo Alois,Also dann doch noch mal "integriert" in ?!Deine!? Routine:Code:(defun c:AlleLayoutsUmbenennen ( / n i) (vl-load-com) (or ;Startnummer setzen (if (setq n (getint "Startnummer 1:")) (setq n (1- n)) ) (setq n 0) ) ;Für jedes Layout in der aktuellen Zeichnung (vlax-for i (vlax-get-property (vlax-get-property (vlax-get-acad-object) ActiveDocument ) Layouts ) (if (/= 0 (vlax-get-property i TabOrder));Layout ist NICHT Modellbereich (taborder = 0) (if ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe zu Lispprog.
CADLUIS am 05.01.2009 um 17:39 Uhr (0)
Hallo zusammen!Ich habe im Netz ein kleines Lisp gefunden das fast geneu meinen Wünschen entspricht.Dieses Prog. benennt mir die Layout nach der Plannunmmer um, und nummeriert diese dann fortlaufend.Nun brauche ich eure Hilfe um es für mich perfekt zu machen.1.) Nur es bringt mir eine Fehlermeldung (; Fehler: no function definition: VLAX-GET-ACAD-OBJECT)2.) Wie kann ich dem Prog. sagen das es nicht bei Nummer 1 beginnen soll, sondern eine Abfrage der 1. Nummer für die Nummerierung. (Die erste Nummer ist n ...
|
| In das Form Lisp wechseln |
|
Lisp : str-subst
cadffm am 18.04.2008 um 09:05 Uhr (0)
@JörgSausOAlso "fnsplitl" muß man tatsächlich nicht kennen / weil undokumentiert,aber die Hilfe müßte es dennoch kennen (steht 1x in der Hilfe drin)Alternativ dazu gibt es (dokumentiert) "vl-filename-base" , das entsprichtdann meinem (cadr(fnsplitl file))-Wegen dem Code von "spider_dd":Zunächst wird die Liste erstellt (Liste1)Dann sichergestellt das "Liste2" = Nil istDann mit while die Schleife eingeleitet welche solange wiederholt werden soll wie Liste1 True istInnerhalb der Schleife wird "Liste1" und auc ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Modellexport
HansGeorg am 29.09.2003 um 14:58 Uhr (0)
Hallo zusammen, ich muß aus MDT laufend Modelle als iges ausgeben. Die Datenqualität steigt wenn zuerst das Modell als sat File ausgegeben wird, danach in ein neues Template importiert und als IGES exportiert wird. Da dies sehr mühsam ist möchte ich dies gerne automatisieren. Leider komme ich mit meinen Programmierkenntnissen nicht sehr weit. Die Schwierigkeit besteht darin, sobald das neue Template geöffnet wird läuft das Lisp trotzdem in der anderen Zeichnung weiter. Desweitern kann ich der IGES Ausgabe ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Liste in Textstring umwandeln
cadplayer am 08.12.2011 um 14:43 Uhr (0)
Entschuldigung, etwas verwirrend - ich habe eine Liste aus Koordinaten ((....) (...) (...))Die möchte ich gern nach Excel auslesen, d.h. also "..." ; "..." ; "..."Code:(defun GetPlineVertexPoints ( ename / edata Punktliste) (setq edata (entget ename)) (cond ;neue Polylinie ((= (cdr (assoc 0 edata)) "LWPOLYLINE") (foreach n1 edata (if (= (car n1) 10) (setq Punktliste (cons (cdr n1) Punktliste))) ) ) ; alte Polylinie ((= (cdr (assoc 0 edata)) "POLYLINE") (while (setq ename (en ...
|
| In das Form Lisp wechseln |
|
Lisp : Liste in Textstring umwandeln
cadplayer am 12.12.2011 um 11:13 Uhr (0)
Danke für deinen Beitrag(write-line (apply strcat (mapcar (lambda(X) (strcat (apply strcat (mapcar (lambda(Y) (strcat ";" (vl-princ-to-string Y)))X))"
")) Punktliste))z)macht eigentlich genau das was ich brauche;x1;y1;x2;y2;x3;y3...Mir ist nun klar, das strcat nicht im eigentlichen Sinn strcat ist sondern nur eine selbternannte Funktion "strcat"Nun zu meinem eigentlichen Problem;Ich möchte von mehreren Polylinien die Stützpunkte mit dem Block "koordinatpunkt" markierenund diese dann nach Excel auslesen. Wo ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
Dorfy am 24.08.2006 um 07:06 Uhr (0)
Morgen, Ihr alle da draußen!Der Abend war lang die Nacht war kurz @Marc, geos, tappenbeck, CADmium den Großen Urhebern und natürlich Jörn Mein Großmeister und Der Code funzt super Danke gutes Team super Jörn, allein wäre ich da lang noch nicht dennoch lass uns noch ein wenig basteln Marc hat Recht oder -- (@Marc & Co. Super Grundlage :hmm das mit dem ersten Eintrag der Liste ist aber nicht "as designed"... es funzt und nur dass zählt oder Beim genaueren Nachvollziehen von ADDG und DELG (Link gan ...
|
| In das Form Lisp wechseln |
