|
Lisp : zum Downloaden: Zeichnungs-Wechsel mit Werkzeugpalette (OpenDCL)
GeGo am 27.06.2012 um 08:06 Uhr (0)
Vielen Dank für die flinke Reaktion ;-)Auf meinem Bricscad V12.2.8 passiert beim Start von OpenDocsPalette, egal ob zu dem Zeitpunkt eine Zeichnung geöffnet ist oder nicht, folgendes.Code: _apploadLaden von C:UsersGerhardProjekteToolsopenDocsPalettepublicversion.lsp: (LOAD "C:/Users/Gerhard/Projekte/Tools/openDocsPalettepublicversion.lsp"): OPENDCLDer Befehl wurde nicht erkannt "OPENDCL". Bitte versuchen Sie es erneut."openDocsPalette.lsp" loaded.Start with "OpenDocsPalette".: opendocspalette; ----- LISP : ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Verzeichnisse mit Unterverzeichnissen lesen
Brischke am 15.04.2003 um 15:50 Uhr (0)
VLisp-Hilfe: Lists all files in a given directory (vl-directory-files [directory pattern directories]) Arguments directory A string naming the directory to collect files for; if nil or absent, vl-directory-files uses the current directory. pattern A string containing a DOS pattern for the file name; if nil or absent, vl-directory-files assumes "*.*" directories An integer that indicates whether the returned list should include directory names. Specify one of the following: -1 List directories only. ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Insert mit BP-Definition
Dorfy am 02.07.2007 um 11:17 Uhr (0)
Hallo,ich möchte via LISP einen Block einfügen und beim Einfügen den Basispunkt frei wählen.Laut ACAD-Hilfe:Der Block wird vorübergehend an seiner aktuellen Position in der Zeichnung abgelegt, sodass Sie einen neuen Basispunkt für die Blockreferenz angeben können, während Sie diese an die gewünschte Position ziehen. Dies wirkt sich jedoch nicht auf den ursprünglich für die Blockreferenz definierten Basispunkt aus.So weit so gut, nur wird der Block vorübergehend im Weltkoordinatensystem auf 0,0,0 abgelegt u ...
|
| In das Form Lisp wechseln |
|
Lisp : Lotrechte Linie durch alle Scheitelpunkte einer 3d-Polylinie
Brischke am 02.06.2015 um 14:34 Uhr (1)
beim ersten Drüberschauen ist mir sofort aufgefallen, dass die Parameter zu vlax-curve-getClosestPointTo nicht stimmen können. Du übergibst beide Elemente, was nicht stimmen kann, denn die Hilfe schreibt dazu:Zitat:Original aus der AutoCAD-Lisp-Hilfe(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])Argumentscurve-objThe VLA-object to be measured.givenPntA point (in WCS) for which to find the nearest point on the curve.extendIf specified and not nil, vlax-curve-getClosestPointTo extends the curve wh ...
|
| In das Form Lisp wechseln |
|
Lisp : Finde Fehler nicht ...
andi2050 am 29.12.2008 um 15:26 Uhr (0)
Ich habe mit Dein Lisp nicht genau angesehen, aber mir fällt auf, daß Du alle keine lokalen Variablen delariet hast. Da kann es leicht sein, daß bei mehrmaligem Aufruf noch Altlasten zurückbleiben und somit die Programmlogik durcheinander purzelt !Tatsächliche globale Variablen solletst Du kennzeichnen (z.B. *h_attnam* )In der Funktion heben suchst Du mit ssget alle Inserts mit einem bestimmten Einfügepunkt. Wenn der Einfügepunk aber nicht EXAKT mit dem Punkt übereinstimmt kann es hier zu einem Fehler komm ...
|
| In das Form Lisp wechseln |
|
AutoLisp : entmake mit Mechanical Elementen
mapcar am 02.08.2004 um 22:45 Uhr (0)
Tja, nachdem hier keiner antwortet, der es 100%ig weiss - ich bin mir nur ziemlich sicher: Auch die Entity-Typen der Vertikalen Applikationen laufen unter CUSTOM ENTITIES - und Lisp kann nun mal keine C.E. erzeugen. Das geht derzeit nur mit ObjectARX und mit .NET (mit der Einschränkung allerdings, dass man mit .NET welche erzeugen kann, aber AutoCAD die nicht erkennt). (entmod) ist viel allgemeiner gelagert - vielleicht hast du Glück und kriegst es hin, dass du eine Kopie machst und so lange mit entmod f ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Block einfügen ohne Attribut-Abfrage
WolfgangE am 15.09.2004 um 10:50 Uhr (0)
Hallo Lisp-Gemeinde, in den bestehenden Beiträgen war schon oft die Rede vom automatischen Einfügen oder Tauschen von Schriftfeldern. Nicht gefunden habe ich diesen Punkt hier, der mir zu schaffen macht: Ich fügen ein Schriftfeld mit diesem Befehl ein (die verwendeten Variablen sind natürlich schon entsprechend belegt): (COMMAND _INSERT BlockPath InsertPt xScale yScale rotation) Mein Problem: Sobald das Schriftfeld eingefügt wird, erhalte ich von AutoCad die Abfrage, in der ich der Reihe nach die Attribu ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layernamen ausgewählter Objekte auslesen
VonLayer am 04.02.2020 um 07:29 Uhr (1)
Guten morgen CADmium und spider_dd@CADmiumVielen Dank für deine Antwort! (cdr(assoc 1(entget(car(entsel "
MTEXT wählen: "))))) ist für mich Gold wert! Ich kenne die Vorgänge im Hintergrund nicht und das ist eine tolle Möglichkeit mal hinter die Kulisse zu blicken!Bei (strcat "TEXT1" "P" "TEXT2") bin ich leider raus. Ich hätte gleich zu beginn schreiben müssen, dass ich im Grunde keine Ahnung von Lisp habe.@spider_ddMit (foreach lay laylist (print lay)) (print)hast du mir unglaublich viel Zeit gespart! I ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Fehler. Funktion abgebrochen
Brischke am 19.05.2004 um 17:40 Uhr (0)
@Bernd, wie du selber gemerkt hast, hast du uns alle ziemlich gut auf Trab gehalten, ohne dass jemand eine Lösung bringen konnte. Warum? Weil du nicht den vollständigen Code gepostet hattest. Deshalb möchte ich dich bitten, auch in deinem eigenen Interesse - dem Finden einer schnellen Lösung- das nächste mal etwas mehr code zu posten. Denn wie auch eben bei dir, hat die Fehlermeldung nichts mit dem geposteten Code-fragment zu tun. Bitte beschreibe dann auch, was du selber schon als fehlerquellen ausschal ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Schon wieder mapcar
Brischke am 25.06.2003 um 15:44 Uhr (0)
Hallo Dea, ich würde so nicht rangehen. Bei mürde das spontan so aussehen: Code: (defun aussen1 (ptl /) (mapcar car (list (vl-sort (mapcar car ptl) ) (vl-sort (mapcar cadr ptl) ) (vl-sort (mapcar caddr ptl) ) ) ) ) Dein Konstrukt lässt sich nur auf eine Liste mit 3 Punkten anwenden. Hast Du aber immer nur 3? (vielleicht fällt mir ja noch was ein?) @Ulf, zum mapcar (lambda gab s hier in den Foren schon sehr viele Au ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Attribute umbenennen
Brischke am 23.03.2004 um 11:05 Uhr (0)
die Frage ist, welche Abhängigkeit besteht, um Programmtechnisch die Entscheidung des Anhängsels treffen zu können. Wenn das jedoch notwendig ist, dann sollte dir folgende Zeilen helfen Code: (defun chg:attdef_vg (/ aws) (setq aws (ssget _X ((0 . ATTDEF )(2 . ARTICLENUMBER )(1 . TISCH_##-###-## )))) (if aws (mapcar (lambda (AD) (entmod (subst (cons 1 (strcat (cdr(assoc 1 AD)) _N_K )) (assoc 1 AD) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 15.11.2005 um 12:11 Uhr (0)
Hallo georg,vielen Dank für dein Lisp funktioniert jetzt, nur - nicht das du jetzt denkst ich möchte meckern, aber ich habe mich falsch ausgedrückt. Sorry !!!Das Vorzeichen ist nicht so wichtig.Wichtig wäre wenn die Koordinatenbemassung aufgerufen wird und der Abstand festgelegt und wenn Koordinate 0, das an dieser Stelle ein Kreis erstellt wird.Danach gehts über _dimcontiune weiter und es wird an jedem Maßpunkt ein Pfeil erstellt - ausgehend von Koordinate 0: wenn links von 0 (X-Achse), dann Pfeil rechts ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Textstil (Attribute) ändern
Attilio am 30.11.2006 um 09:59 Uhr (0)
Hallo nochmal,wie´s nunmal so ist, jetzt hab ich das Problem nicht nur mit dem Textstil, sondern auch mit der Texthöhe (und evtl. auch mit der Textbreite).Ich habe mir das LISP angeschaut und hatte gedacht, dass ich das einfach abändern kann.Leider bin ich da nicht so fit, aber ich denke dass die Zeile...(entmod (subst (cons 7 ts)(assoc 7 (entget ent))(entget ent)))))...die entscheidende ist, da hier wohl der neue Wert an das Objekt übergeben wird. "TS" ist ja die Benutzereingabe, würde sich hier als ...
|
| In das Form Lisp wechseln |
