|
Lisp : Lisp zur Übernahme benannter Attribut werte als Schriftfeld in Multiführungslinie
joern bosse am 13.04.2021 um 09:18 Uhr (1)
Hallo Kuschelfee,Verwunderlich finde ich nur, dass bei der Version mit 2 Attributen die länge des Attributwertes egal ist, dieser hüpft beim links absetzen nicht. Ja, das ist mir auch nicht ganz klar, was ich da zurecht gebastelt habe ist mit Sicherheit nicht der beste Weg. Aber vielleicht hat ja noch irgendwer anders hier im Forum eine Erklärung dafür.------------------viele GrüßeJörnhttp://www.bosse-engineering.comBosse_tools-Überblick
|
| In das Form Lisp wechseln |
|
Lisp : Idee gesucht - Werte einer Defintion speichern
joern bosse am 22.05.2012 um 12:53 Uhr (0)
Hallo Jan,ich habe in einem bißchen angestaubten Blog mal beschrieben, wie ich das prinzipiell mit Listen wegspeichern handhabe:1. Liste mit PRIN1 in Schleife in *.lsp Datei schreiben, vorweg ein "(" und hinterher ein ")", damit diese Datei als gültige LISP-Liste geladen werden kann.2. Dann bei Bedarf über LOAD laden http://www.bosse-engineering.com/blog/?p=30 ------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Block im Block
joern bosse am 26.05.2005 um 18:09 Uhr (0)
Hallo Olliver, ich habe nochmal getestet, das Ergebnis habe ich Dir beigepackt, vieleicht hilft es ja. Allerdings habe ich die Blöcke der 3D-Punkte nicht in Ursprung zerlegt, da ich der Meinung bin, daß damit Informationen verloren gehen. Wenn Du nur den Text hast gibt es schließlich keine feste Zuordnung zum Punkt mehr. Die Attribute der Blöcke werden durch die Lisp-Routine "att_text" umdefiniert, so daß Du die KA-* Layer dann bereinigen kannst. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Autocad OFANG Hilfssymbol wird bei Lisp-Befehl nicht nagezeigt ?!
joern bosse am 22.01.2012 um 07:58 Uhr (0)
Hallo Thomas,eine Erklärung habe ich nicht, vielleicht aber eine Alternative:Code:(defun c:lie ( / OsmodeAlt Pkt) (setq OsmodeAlt (getvar "OSMODE")) (setvar "OSMODE" 1) (setq Pkt (getpoint "
Ersten Linienpunkt angeben:")) (setvar "OSMODE" OsmodeAlt) (if pkt (command "._line" pkt pause)))------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : Dynamische Blöcke mit LISP
joern bosse am 28.06.2007 um 07:30 Uhr (0)
Hallo Andreas,so ähnlich wie Du habe ich auch mal gedacht, daß ich alle Blöcke über entmake erstellen wollte, weil es schneller geht. Ich bin aber letztendlich wieder bei "richtigen" Blöcken zum einfügen gelandet, weil dann auch jeder AutoCAD-Bearbeiter diese Blöcke mit ACAD-Bordmitteln ändern und anpassen kann.Tja, und zu Deinem eigentlichen Problem kann ich Dir aber leider nicht weiterhelfen.------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Popup_List HÖHE?
joern bosse am 20.12.2007 um 10:09 Uhr (0)
Hallo Kist,ich glaube die Höhe einer Popup_list kann man nicht bestimmen. Ich selber habe festgestellt, das die Scrolltasten an manchen Arbeitsplätzen ziemlich klein und fitzelig sind, liegt wohl an der verwendeten ACAD-Version.Vielleicht solltest Du eine List_box verwenden, oder schreibst Dir die dcl-Datei mit Lisp vor dem Laden immer neu: wenn 2 Einträge, dann list_box, wenn mehr als 2 Einträge, dann popup_list.------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Drucken aus Lisp mit mit VLA-
joern bosse am 22.06.2010 um 12:26 Uhr (0)
Hallo Niggemann,mit folgendem Konstrukt kannst Du prüfen, ob Deine CTB-Datei vorhanden ist:Code:(defun c:test ( / plotstil) (setq plotstil "niggemannS_W.ctb") (if(vl-catch-all-error-p (vl-catch-all-apply JB_Plotten:Put:StyleSheet (list plotstil))) (alert (strcat "Die Plotstiltabelle "" plotstil "" ist nicht vorhanden."))) ) (defun JB_Plotten:Put:StyleSheet (plotstil / ) (vla-put-StyleSheet (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))plotstil))------------------ ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Blöcke entspiegln
joern bosse am 30.07.2007 um 12:21 Uhr (0)
Hallo Guido,den "Übeltäter" habe ich glaube ich erkannt: im GC 41 (Skalierung in X) ist ein negativer Wert: (41 -0.27)Probier mal folgendes LISP:Code:(defun c:test ( / aws n) (princ "
Bitte Blöcke auswählen:") (if (setq aws (ssget (list (cons 0 "INSERT")))) (progn (setq n 0) (repeat (sslength aws) (entmod(subst (cons 41 (abs(cdr(assoc 41 (entget (ssname aws n)))))) (assoc 41 (entget (ssname aws n))) (entget(ssname aws n)))) (setq n (+ n 1)))) (alert "keine blöcke ausgewählt. ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Attribute verschwinden beim Füllen mit LISP
joern bosse am 02.11.2011 um 11:49 Uhr (0)
Hallo Karsten,ups, da habe ich gar nicht drauf geachtet, habe mich nur gefreut, daß der Text wieder sichtbar war.Aber mit folgender Variante sollte es funktionieren:Code:(defun SetPos (/ sNewVal ent attr) (vl-load-com) (Setq sNewVal "zzz") (setq ent (car(entsel))) (if (setq attr (entnext ent)) (vla-put-TextString (vlax-ename-vla-object attr) sNewVal)) );defun(SetPos)------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Handle suchen
joern bosse am 05.03.2008 um 10:52 Uhr (0)
Hallo Lutz,versuche mal folgendes LISP:Code:(defun c:test ( / handle) (if(and(setq handle(getstring "
Bitte Handle eingeben:")) (handent handle)) (if(cdr(assoc 10 (entget(handent handle)))) (command "_.line" (cdr(assoc 10 (entget(handent handle))))pause) (alert "ungültiges Objekt")) (alert "Handle ist nicht vorhanden.") ))Den Linienbefehl habe ich zweckentfremdet, dadurch hängt das gesuchte Objekt aber am Mauscurser. = einfach abbrechen.WKS ist Voraussetzung.------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
 |
Lisp : Land of Lisp: deutsche Ausgabe?
joern bosse am 28.09.2020 um 16:31 Uhr (15)
Hallo Sebastian, hier auch nochmal meine Statement: vielen vielen Dank, ich habe endlich das Buch gefunden Dank Deiner Hilfe!Und hier noch mal für die anderen: ich kann durchaus mit Google und Co umgehen, aber es gehört manchmal auch das Glück dazu, die Suche zum richtigen Zeitpunkt durchzuführen.------------------viele GrüßeJörnhttp://www.bosse-engineering.comMultifilter Youtube[Diese Nachricht wurde von joern bosse am 28. Sep. 2020 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Protect your Lisp
joern bosse am 08.02.2013 um 14:32 Uhr (0)
Hallo Dirk,Zitat:Ein interessante Punkt wäre, wie baut man eine Funktion auf, die nur von einem bestimmten Laufwerk (Suchpfad) gestartet werden kann ?Wo die Funktion gestartet wird muss egal sein (kann ja auch von vielen Rechnern gleichzeitig aus einem Netzwerkverzeichnis geladen werden).Vielmehr mußt Du dafür sorgen, daß auf dem lokalen Rechner eine eindeutige Kennung exisitert, z.B. in der Registry.------------------viele GrüßeJörnhttp://www.bosse-engineering.comBöschungsschraffen Youtube
|
| In das Form Lisp wechseln |
|
Lisp : LISP Novice sucht Hilfe zu ATTOUT
joern bosse am 08.07.2015 um 08:11 Uhr (1)
Auch nur der Vollständigkeithalber:die Datei attout.lsp ist von den Express_Tools. In BricsCAD gibt es die Express_Tools von CADwiesel, aber erst ab der PRO-Version und die Datei attout.lsp ist dort nicht vorhanden.Aber in BricsCAD gibt es den Befehl "attext", auch wenn der ein bißchen komplizierter aussieht aus "eattext" von AutoCAD sollte es damit funktionieren, ist in der Hilfe beschrieben.------------------viele GrüßeJörnhttp://www.bosse-engineering.comLiniensignaturen Youtube
|
| In das Form Lisp wechseln |
