|
Lisp : setq x '(Koordinaten)
joern bosse am 12.08.2023 um 10:35 Uhr (1)
Hallo Heinz,nur ein Schuß ins Blaue und eigentlich unnötig:Code:(cond ((= PAP-FORMAT "4") (setq LIM-max (list 277 190 0))) ((= PAP-FORMAT "3") (setq LIM-max (list 400 277 0))) ((= PAP-FORMAT "2") (setq LIM-max (list 554 400 0))) ((= PAP-FORMAT "1") (setq LIM-max (list 800 554 0))) ((= PAP-FORMAT "0") (setq LIM-max (list 1108 800 0)))Damit hättest Du mit LIST eine gültige Funktion die im Resultat dieselber Rückgabe liefern müßte wie mit Hochkomma. Viel Glück;-)------------------viele GrüßeJörnhttp://ww ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Voreinstellen von Eingaben
wronzky am 15.03.2006 um 15:48 Uhr (0)
Hallo Heinz,Windows-conform kannst Du auch die Funktionen vl-registry-read und vl-registry-write benutzen. Etwa so:Code: (setq abstand (read (vl-registry-read "HKEY_CURRENT_USERHeinz-Variable")))und:Code: (vl-registry-write "HKEY_CURRENT_USERHeinz-Variable" (vl-princ-to-string abstand))und weiter wie Thomas...Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form AutoLisp wechseln |
|
Lisp : Attributwerte kopieren & einfügen
vision am 11.03.2017 um 10:57 Uhr (1)
Zitat:Original erstellt von Dober Heinz:HalloWenn ich dich richtig verstehe suchst du sowas.http://www.lee-mac.com/copytext.htmlJa, das funktioniert auch mit unterschiedlichen Attributnamen!Leider muss man bei mehreren Blockattributen jeden einzeln klicken.Ich möchte die Werte von mindestens zwei Blockattributen auf einmal kopieren und in einem anderen Block (mit auch unterschiedlichen Attributnamen zwischen den Blöcken) übertragen.Für Eure Unterstützung bedanke ich mich im Voraus.
|
| In das Form Lisp wechseln |
|
AutoLisp : Num.LSP (Einfügepunkt)
Alpschorsch am 06.08.2004 um 11:51 Uhr (0)
@Dober Heinz, der Einfügepunkt ist bei Deiner Variante doch auch unten links? Und es gibt ein Fehlermeldung! Befehl: zahl Textprefix: Startnummer 0 1 Texthöhe:200 Wählen sie ein Element für die Layerschaltung : Einfügepunkt: 1:Unbekannter Befehl 1 . Drücken Sie F1-Taste für Hilfe. Unbekannter Befehl ZAHL . Drücken Sie F1-Taste für Hilfe. Einfügepunkt: 2:*Abbruch* ; Fehler: Funktion abgebrochen Befehl: Mfg @cadmium, ich schau mal! Ob mir da eine Logik auffällt! Mfg
|
| In das Form AutoLisp wechseln |
 |
Lisp : zum Downloaden: Zeichnungs-Wechsel mit Werkzeugpalette (OpenDCL)
GeGo am 27.06.2012 um 10:49 Uhr (0)
Ah! Ok bin halt Anwender DAU :-)getestet: mit der OpenDCL Runtime 6.0.2.5 scheint es (zumindest auf Bricscad) nicht zu funktionieren, mit der 7.0.0.5 klappt es schon besser aber nur bis man die Zeichnung wechseln möchte... siehe Anhang. Also ähnlich wie von Heinz schon berichtet.Zumindest hab ich jetzt einen Eindruck bekommen und muss sagen dass das eine gute Idee ist. Lob und Anerkennung autocart------------------Bricscad, Autocad, 123Cad, GIS[Diese Nachricht wurde von GeGo am 27. Jun. 2012 editiert.]
|
| In das Form Lisp wechseln |
|
AutoLisp : Bemaßungswerte in Excel einfügen
nahe am 02.03.2004 um 12:27 Uhr (0)
Hallo Moony nur damit Du Dich nicht in was verrennst. Soweit ich weiß (bis AutoCAD 2002) haben Maße keine Parameternamen, so wie in Inventor od. Mechanical Desktop! Wenn Du die Maße nur als Text-Datei brauchst, warum der Umweg über Excel? Dann schreib die Maße gleich in eine Text-Datei, dann geht das problemlos mit LISP. Die Frage ist nur, wie weißt Du welchem Parameter welcher Wert zugewiesen werden soll? Grüße Heinz
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Versetzen auf gemessener Strecke
CADmium am 10.11.2005 um 09:24 Uhr (0)
@Heinz ...in deinem Prog schribst du(setq pt1 (getpoint "
Anfangspunkt eingeben: "))(setq pt2 (getpoint "
Endpunkt eingeben: "))(setq lange (distance pt1 pt2)) verwendest aber Pt1 und pt2 nie mehr ..nimm doch gleich stattdessen(initget (+ 1 2 4))(setq lange(getdist "Länge eingeben:"))das initget sorgt dafür, das nur pos. Werte 0 akzepiert werden.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoLisp wechseln |
|
Lisp : nur ATT drehn
joern bosse am 23.06.2006 um 07:44 Uhr (0)
Hallo Heinz,Du mußt nicht erst in Grad konvertieren, bleib doch bei der Einheit, die Dir aus dem GC 50 zurückgegeben wird: RADUm das Attribut um 180 Grad zu drehen, mußt Du nur PI auf den Wert von GC 50 zu addieren (Beispiel). Du kannst aber auch die 0.0 mit (subst (cons 50 0.0) (assoc 50 ... )direkt zuweisen.Code:(defun c:test (/ obj) (entmod (subst (cons 50 (+ (cdr (assoc 50 (entget (setq obj (car (nentsel "
Attribut wählen: ")))))) pi)) (assoc 50 (entget obj)) (entget obj))) (entup ...
|
| In das Form Lisp wechseln |
|
Lisp : setq x '(Koordinaten)
papillon.hs am 13.08.2023 um 11:25 Uhr (1)
ZITAT: "Wow Heinz, das ist mal ein Alter in dem ich schon lange nichts mehr mit CAD zutun haben möchte,oder nur noch mit dem Teil der mir wirklich Spaß macht."Ich finde kein Zitatsymbol :-(Das mit Spass machen ist relativ. Ich zeichne die unterschiedlichsten Sachen, beispielsweise Zielvorrichtung für eine Armbrust, Gitarrenbau, Möbelbau oder wie zur Zeit einen Plan für die Bestückung mit PV-Modulen. Für alles die passende dwt parat zu haben, ist praktisch unmöglich. Darum habe ich "eigene Voreinstellungen" ...
|
| In das Form Lisp wechseln |
|
Lisp : Schraffur und OFang
Mailüfterl am 14.03.2012 um 09:33 Uhr (0)
Zitat:Original erstellt von Dober Heinz:...Habe hier mein Makro^c^c-schraff;e;DOTS;0.005;;ff;vonLayer;;ch;n;Funktioniert super,aber leider wird der OFang ausgeschaltet.Wie kann ich da den OFang _end und _int einbauen....Hallo,das Ausschalten des Objektfangs steht in dieser Befehlsfolge nicht drin. Das muss an anderer Stelle geschehen. Was passiert, wenn Du der Makrozeile ein OSMODE;33 davor stellst?Beispiel:^c^c-osmode;33;-schraff;e;DOTS;0.005;;ff;vonLayer;;ch;n; Gruß, Mailüfterl
|
| In das Form Lisp wechseln |
|
AutoLisp : Voreinstellen von Eingaben
CADmium am 15.03.2006 um 13:31 Uhr (0)
Zitat:Original erstellt von Dober Heinz:@ CADmiumDankeBrauche die Var immer nur in einer Zeichnung.und wie geht das global.Dankedream z.B. so:(if(numberp(setq ABSTAND *GLOBALABSTAND*)) (progn (or(setq ABSTAND(getreal (strcat"
Abstand von Text"(rtos ABSTAND 2)":"))) (setq ABSTAND (vl-bb-ref BB-ABSTAND)) ) (setq *GLOBALABSTAND* ABSTAND) ) (progn (or(setq abstand(getreal "
Abstand von Text5.7:")) (setq abstand 5.7) ) (setq *GLOBALABSTAND* ABSTAND) ) )------------------ - Thomas -"Bei 99% al ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
archtools am 19.10.2005 um 16:29 Uhr (0)
Zitat:Original erstellt von Dober Heinz:@ FuchsiHabe einen Text "M1/2" und der soll erhöht werden auf "M3/4" .... "M5/6" und so weiter, funktioniert auch so nur kann ich gerade bis Nummer 9 Hochzählen ich will aber weiter Hochzählen.Kann auch sein das ich von "M12/13" auf "M14/15" hochzählen muss.also ich nehme einen Vorhanden Text und Zähle von der vorgegebenen Zahl weiter.Hallo Heinz,Dein Problem ist schwerer zu lösen, als Du es auf den ersten Blick für wahrscheinlich hältst - außer, wenn Deine Texte im ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : blockattribute in liste auslesen und nachträglich zeichnung über liste bearbeiten
nahe am 13.08.2004 um 09:22 Uhr (0)
Hallo Holger natürlich weiß ich, dass das keine fertige Lösung ist aber ein Anstoss wie es funktionieren kann. Es sollte allerdings kein allzu großes Problem sein, die gewälten Blöcke in einer anderen Zeichnung einzufügen und die Positions- nummern neu zu nummerieren. Aber wie Du schon gesagt hast, für einen Anfänger ist es vielleicht ein etwas großer Brocken. Auf jeden Fall, würde ich das nicht mit LISP sondern mit VB oder VBA realisieren. Schönes Wochenende Heinz
|
| In das Form AutoLisp wechseln |
