|
AutoLisp : Lisp immer kränker?
Dabrunz am 05.08.2005 um 16:46 Uhr (0)
Zitat:- anders bei:Code:(list (list 220 220 220)) ergibt schon BAD ARGUMENT TYPE. Aber nur, wenn die erste Zahl zwischen 220 und 239 liegt...????????Wirklich abgefahren, aber das ist wohl der Schlüssel des Problems! Ich habe noch ein paar Beispiele angesehen und siehe da:((230 1)) - kein Problem((230 1 1)) - ein Problem((230 1 1 1)) - ein Problem((230 1 1 1 1)) - kein ProblemDabei spielts keine Rolle, welcher der Zahlen aus [220; 239] am Anfang der Liste steht. Schreibe ich aber:((230.0 1 1 1)) - kein Pro ...
|
| In das Form AutoLisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
cadplayer am 25.08.2009 um 10:57 Uhr (0)
ich versuch mir quasi in den Beschriftungsmöglichkeiten mit _field etwas zusammenzustricken, womit ich einfach eine Linie wähle und deren Eigenschaften beschrifte. Bsp Länge ausgeben funktioniert. Indem ich .length mit .layer ersetze kann ich auch den Layer assoziativ beschriften.@dorfy: super wäre, wenn das mit mehreren Linien geht. Allerdings müsste es den Text dann automatisch an die Linie setzen lassen (bsp Anfangspunkt). Ist das mit (getpoint "Select Point: ") denn möglich?(defun c:lnkfld () (setq a ...
|
| In das Form Lisp wechseln |
|
Lisp : LISP oder VBA Benutzerdefinierte Blockrefereinzen
reltro am 30.05.2013 um 17:08 Uhr (0)
hey...Glaube du suchst nach sowas?Code:(defun BlockRef:GetDynamicProps (block / ) (mapcar (function (lambda (_prop ) (cons (vla-get-propertyname _prop) (vlax-get _prop Value)) ) ) (vlax-invoke block GetDynamicBlockProperties) ))und dannCode:(defun BlockRef:SetDynamicPropValue (block prop value / ) (setq prop (strcase prop)) (vl-some (function (lambda ( _prop ) (if (eq prop (strcase (vla-get-propertyname _prop))) (progn (vla-put-value _prop ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp geht nimmer unter 2008
Claudio am 16.04.2007 um 22:32 Uhr (0)
Hallo Ralle!CADchup hat mit ".. ist übrigens ein ehem. Express Tool"auch schon den nötigen Hinweis geliefert.Das Programm ruft einige "acet_.." Befehle auf (=AutoCadExpressTools)(z.B.: acet-layer-locked, acet-ui-progress,acet-error-restore)und da stellt sich natürlich die Frage, ob Du die Expresstools überhaupt schon geladen hast?Hab allerdings noch nicht geprüft, ob alle alten Befehleauch noch in den neuen Express-Tools integriert sind..Aufruf funktioniert jedenfalls auch bei mir.(ET-geladen)Gruß Claudio
|
| In das Form Lisp wechseln |
|
Lisp : Lisp zur Übernahme benannter Attribut werte als Schriftfeld in Multiführungslinie
Kuschelfee am 13.04.2021 um 08:34 Uhr (1)
Super so scheint es zu funktionieren, obwohl das ja wirklich viele Umwege zum Ziel sind.Damit kann ich aber erstmal leben und weiterarbeiten.DankeVerwunderlich finde ich nur, dass bei der Version mit 2 Attributen die länge des Attributwertes egal ist, dieser hüpft beim links absetzen nicht.
|
| In das Form Lisp wechseln |
|
Lisp : CADCAL, GeomCAL und Lisp
archtools am 14.03.2024 um 10:06 Uhr (1)
Zitat:Original erstellt von Peter2:Aber was will mir das sagen?Code:Befehl: (load "cadcal")Es wurde kein integrierter Befehl mit diesem Namen gefunden. Bitte versuchen Sie es erneut.Hallo,diese Meldung kenne ich nicht aus BricsCAD oder AutoCAD, und andere CAD-Programme habe ich nicht zum Testen. Die Meldung deutet darauf hin, dass beim Laden von CADCAL ein Befehl ausgeführt wird, den Dein CAD-Programm nicht kennt. Ich kann mir nicht vorstellen, welcher Befehl das sein soll, und leider wird der ja nich ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Eingabe eines Punktes per Lisp
WolfgangE am 14.01.2004 um 09:34 Uhr (0)
Hallo Holger, hallo Marvin, danke erstmal für die schnelle Antwort. Das mit dem Auswahlsatz scheint nicht zu funktionieren, auch DC 5 mag er nicht. @Brischke: Mein Element hole mich mir mit (SSGET X ((0 . INSERT ) (2 . name )) wobei mir name bekannt ist. Das so gefundene Objekt möchte ich eben an AMCVTFRAME12 übergeben. Bin aber mittlerweile schon einen Schritt weiter. Der Befehl kann auch mit Koordinaten gefüttert werden, also z.B. 0,0 Ich kann mir also über (ASSOC 10 (ENTGET ...)) die Koordinate ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Erweiterung Lisp zum Ermitteln von einem Schnittpunkt
StephanJP am 18.12.2008 um 08:28 Uhr (0)
Vielleicht sowas...Code:;by Stephan Vette - 2006-09-13(defun c:vme () ;verschneidet alle Linien mit einer Ebene (arxload "geomcal" T) (setq as (ssget ((0 . "LINE"))) ebene (getreal "zu erreichende Ebene eingeben: ") ep1 (list 0.0 0.0 ebene) ep2 (list 0.0 10.0 ebene) ep3 (list 10.0 0.0 ebene) n 0 en (ssname as n) ) (while en (setq p1 (cdr (assoc 10 (entget en))) p2 (cdr (assoc 11 (entget en))) ) (kal "vp=ilp(p1,p2,ep1,ep2,ep3)") (cond (( (nth 2 p1)(nth 2 p2))(entmod (list (car (entget en))(cons 10 vp)) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : lisp nur laden wenn noch nicht geladen...
Theodor Schoenwald am 05.09.2003 um 16:38 Uhr (0)
Hallo Walter, als Beispiel habe dir eine Zeile für mein Tool Vers gelistet. Damit wird das Tool VERS nur geladen, wenn es nicht schon vorher geladen war und gleich gestartet. ^C^C(if(null C:VERS)(LOAD VERS ));vers; Gruß Theodor Schönwald
|
| In das Form AutoLisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
joern bosse am 19.02.2013 um 11:43 Uhr (0)
Hallo Dirk,dann Addiere doch einfach die Winkeldifferenz auf den Gruppencode 50 im Attribut.Den Einfügepunkt berechnest Du polar über den Winkel und die Strecke Block-Att. Die Drehung im Attribut wie folgt (zumindestens ungefähr, bin gerade knapp in der Zeit):(+ (cdr(assoc 50 AttEntListNeu)) (-(cdr(assoc 50 AttEntListAlt)) (cdr(assoc 50 AttEntListNeu)))------------------viele GrüßeJörnhttp://www.bosse-engineering.comKoordinatenausgabe Youtube
|
| In das Form Lisp wechseln |
|
Lisp : Lisp funktioniert in ACAD - In Core Console nicht?!
JohannW. am 29.10.2013 um 14:16 Uhr (7)
Das war der Fehler! Vielen Dank für den Hinweis Funktioniert jetzt auch mit der Core Console 1A!Nur ein Hinweis, falls irgendwer den Code in ferner Zukunft liest:Die Zeile(command "_-layout" "_rename" path)muss geändert werden in:(command "_-layout" "_rename" "" path)lgJohann
|
| In das Form Lisp wechseln |
|
Lisp : mittels Lisp erzeugte Gruppe erscheint nicht im Gruppenmanager
Dorfy am 19.07.2007 um 11:22 Uhr (0)
Hallo"...aber ich mag die command-Befehle leider überhaupt nicht.Da hat man immer das ganze Textfeld voller Anzeigen..."(mag ich auch nicht, deine lösung ist so auch schon besser)aber schau dir mal cmdecho -- 0 an...mfg heiko
|
| In das Form Lisp wechseln |
|
AutoLisp : ein LISP-Tool für Parallelbemaßung
joern bosse am 09.02.2005 um 13:14 Uhr (0)
Hallo Jan, ich habe die Objektfänge so wie Du es beschrieben hast eingefügt und es klappt. Du kannst ja mal die Codes vergleichen: (defun c:bem_bks (/ ucs pkt1 pkt2 aws_line osmode_alt) (setq osmode_alt (getvar OSMODE )) (if (= (getvar WORLDUCS ) 1) (progn (setvar osmode 512);Ofang nächster (if (setq pkt1 (getpoint
Startpunkt der Bemassung eingeben. )) (progn (setvar osmode 128);Ofang Lot (setq pkt2 (getpoint pkt1
Endpunkt der Bemassung eingeben. ))) ) (if (and ...
|
| In das Form AutoLisp wechseln |
