 |
Lisp : SRXTEXT Lisp suche funktioniert nicht
VMichl am 02.07.2021 um 10:38 Uhr (15)
Nja, wenn "alle Werte können varieren", dann alle.Oder auch:search: (.+)-(.+)-(.+)-(.+)-(.+)-(.+)--replace: $1-$2-$3-$4-$5-$6-AV.Michl, www.arkance-systems.cz - www.cadforum.cz
|
| In das Form Lisp wechseln |
|
Lisp : Fachschalenexplorer (Map) über Lisp schließen
joern bosse am 03.02.2017 um 07:43 Uhr (1)
Hallo Jan,mit der von Sebastian angesprochenen Methode "Selbst ist der Mann" hat es 2 Minuten gedauert:TOPOBASECLOSE------------------viele GrüßeJörnhttp://www.bosse-engineering.comLiniensignaturen Youtube
|
| In das Form Lisp wechseln |
|
Lisp : DCL / Text und width
CADchup am 10.10.2006 um 12:53 Uhr (0)
Hi,schreib dir eine Funktion, die dir zur Laufzeit der aufrufenden Lisp die DCL-Datei im temporären Verzeichnis erzeugt, bevor du sie aufrufst. Anschließend lässt du sie wieder löschen.Ein unvollständiges Beispiel (irgendwo rauskopiert):Code:(defun Fragwas (/ dclfile dcl-id result) (MakeDCL (setq dclfile (strcat (getvar "TEMPPREFIX") "Fragen.dcl")) ) (setq dcl_id (load_dialog dclfile)) (if (not (new_dialog "Fragen" dcl_id)) (exit) ) (action_tile ... ) (start_dialog) (unload_dialog dcl_id) ...
|
| In das Form Lisp wechseln |
|
Lisp : Welche Dias sind in SLB ?
fuchsi am 11.12.2007 um 12:39 Uhr (0)
wir sind ja im Lisp Forumschnell mal nach Lisp konvertiert.Code:(setq fs (vlax-get-or-create-object "SCRIPTING.FILESYSTEMOBJECT"))(setq f (vlax-invoke fs "OpenTextFile" "d:/hicad/10b/10A0ART2.SLB"))(vlax-invoke f "Read" 32)(setq eof nil)(while (not eof) (setq a1 (vlax-invoke f "Read" 36)) (if (= (vl-string-position 0 a1) 0) (setq eof t) (progn (setq dia (substr a1 1 (vl-string-position 0 a1))) (print dia) ) ))(vlax-invoke f "Close")(vlax-release-object f)(vlax-release-object fs)-------------- ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Verwendete CTB über Lisp auslesen
fuchsi am 31.10.2003 um 08:58 Uhr (15)
(vla-get-stylesheet (vla-get-ActiveLayout (vla-get-activedocument (vlax-get-acad-object)))) gibt dir vom aktuellen layout den stylesheetname (ctb-date) siehe auch (VLA-get-CONFIGNAME pc3 date (VLA-get-CanonicalMediaName format (vla-get-centerplot plot zentrireen (vla-get-paperunits mm ioder inch (vla-get-stylesheet ctb datei
|
| In das Form AutoLisp wechseln |
|
Lisp : Ändern des Basispunktes bei Blöcken
Proxy am 24.02.2004 um 13:03 Uhr (1)
Also bei mit klappt es mit der Lisp-Funktion:10 Unities. Danke schön für die verbesserte Version.------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form Lisp wechseln |
|
AutoLisp : Bitcode auflösen
Brischke am 26.02.2004 um 14:07 Uhr (0)
Hallo Stefan, so: (= (logand 16384 16384) 16384)- T (= (logand (+ 4 16384) 16384) 16384)- T (= (logand 131072 16384) 16384)- nil Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bitcode auflösen
Brischke am 26.02.2004 um 14:17 Uhr (0)
Hallo Stefan, Ja, so hast du das richtig verstanden. Was sollte man auch mehr schreiben .. die Bsp waren doch eindeutig. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : DATUM AUTOMATISCH USW.
Brischke am 11.05.2004 um 09:28 Uhr (0)
Zitat: Original erstellt von marc.scherer: Wie wäre es mit ner Lisp-Funktion die Dir den String als Attributwert auf Knopfdruck einträgt? Bitteschön: Code: (defun c:tragein (/ dat att) (entmod (subst (cons 1 (setq dat (rtos(getvar CDATE ) 2 0) dat (strcat (substr dat 7) . (substr dat 5 2) . (substr dat 1 4) Fab ) ) ) (assoc 1 (setq att (entget(car (nentsel))))) att ) ) (entupd (cdr(assoc 330 att))) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ersetzen über Lisp
mkl-cad am 18.06.2004 um 11:45 Uhr (0)
Hallo Pally Tom hat auf einen Beitrag hingewiesen der die Antwort liefert. hab hier noch mal das Programm reinkopiert. Damit s jeder findet. Habe ich ausprobiert. Funktioniert fabelhaft. Dankt Tom Berger. Tom Berger ;;; GSR.LSP / 12APR95 ;;; ;;; Copyright (C) 1995 by Thomas Berger ;;; ;;; FREEWARE: ;;; Permission to use, copy, modify, and distribute this software ;;; for any purpose and without fee is hereby granted, provided ;;; that the above copyright notice appears in all copie ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Set_by_layer.lsp
CADmium am 06.08.2004 um 09:32 Uhr (0)
Freut, mich, dass dir das Lisp gefällt und gute dienste leistet um den Linientyp nicht mehr zu verstellen äneder folgende Zeile: (defun UPDATE_OBJEKT ( OBJEKT / OBJEKTDATEN) (if (=(type OBJEKT) ENAME) ; Parameter o.k. ? (progn (setq OBJEKTDATEN (entget OBJEKT)) ; Objektdaten auslesen (if (assoc 8 OBJEKTDATEN) (progn (if (=(strcase(cdr(assoc 0 OBJEKT ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Ändern des Basispunktes bei Blöcken
Nikie am 06.08.2004 um 13:21 Uhr (1)
Hallo CADmium,das Lisp einfügen, oder wie man das wohl nennt, hab ich schon mal gemacht. Aber gibt es denn evtl. auch solch ein Lisp-Datei, die das mit dem zu ändernden Basispunkt macht, die ich auch über den Befehl appload einarbeiten kann?------------------NikieIch übe noch
|
| In das Form Lisp wechseln |
|
Lisp : Ändern des Basispunktes bei Blöcken
CADmium am 06.08.2004 um 13:43 Uhr (1)
@Nikie:Staun .. na dieses Lisp findest doch im 8.Beitrag -wenn ich mich nicht verzählt habe- dieses Threads - ... Klick mit rechter Maustaste drauf , speichern unter *.vlx ... und dann laden...------------------ - Thomas -
|
| In das Form Lisp wechseln |
