|
Lisp : Xref, Pfadangabe
joern bosse am 20.08.2008 um 08:26 Uhr (0)
Hallo Thomas,eigentlich war es mir klar, aber gestern abend war ich wohl schon ein bißchen durcheinander.Was mir noch gefehlt hatte war das XREF selber, also nicht die Referenz, zu aktualisieren:Code:(vla-reload(vla-item (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (vl-filename-base name_XREF)))Ohne Deine Hilfe hätte ich es bestimmt nicht hinbekommen, danke!!!------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : Zufallsgenerator? command _pasteclip
cadffm am 12.09.2024 um 14:50 Uhr (1)
"Mit -WBLOCK und -EINFÜGE müsste ich mich noch um die Attribute des Blocks kümmern"Genau soviel oder genau so wenig wir über copy&paste.Dein Benutzen der Zwischenablage macht genau das, nichts anderes!Mit copyclip/cutclip oder den *base*-Variante wurd eine .DWG mit dem kopierten Inhalt erstellt,mit deinem paste Vorgang wird die DWG als als Block oder aufgelöster Block eingefügt.
|
| In das Form Lisp wechseln |
|
Lisp : Einschränkungen beim Befehl open?
CADmium am 28.07.2006 um 08:29 Uhr (0)
Zitat:Original erstellt von andi2050:[BÜbrigens: "(while (= T (wcmatch dn2 "*`.*"))(setq dn2 (substr dn2 1 (1- (strlen dn2)))))" lässt sich einfach durch (vl-filename-base filename) ersetzen ...[/B]der Vollständigkeit halber möchte ich doch noch auf die (undokumentierte) Funktion fnsplitl hinweisen :(fnsplitl "d:ACADacad.exe") -- ("D:ACAD" "acad" ".exe")wo man mittels car / cadr / caddr auf die einzelnen elemente des Dateinamens zugreifen kann..------------------ - Thomas -"Bei 99% aller Probleme ist di ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Textstile mit fixer Pfadangabe
marc.scherer am 15.04.2005 um 14:31 Uhr (0)
Hi, hmmm, OHNE Programmierung fällt mir gerade nix ein... MIT Programmierung käme vielleicht diese hier in Frage... Code: (vlax-for FORITEM (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object)) ) (setq OBJDATA (entget (vlax-vla-object- ename FORITEM)) GC3 (assoc 3 OBJDATA) ) (entmod (subst (cons 3 (strcat (vl-filename-base (cdr GC3)) (if (not (setq EXT (vl-fi ...
|
| In das Form AutoLisp wechseln |
 |
Lisp : INSERT(Block) contra GROUP
cadplayer am 29.05.2015 um 08:59 Uhr (1)
Einige Praxisanwendung:1)Mittels selection eines groupObjekts, kann man durch Wahl des "snapPoints" eine Gruppe [Base point/Copy/Undo/eXit] rotieren, wobei die Gruppe durch drehen auszurichten geht.- könnte man das mit LISP bewerkstellen, wie bekommt man da eine Gruppe selektiert ?2)Katalog erzeugen, welche Elemente eine Gruppe beinhaltet, Abfrage (ssget, entsel, nentsel) ?!3)identische Gruppen selektieren(Similar) ?------------------Gruss DirkBlog | Adolf Spende | Infra-Feed | ÅF AB[Diese Nachricht wurde ...
|
| In das Form Lisp wechseln |
|
Lisp : Kontrollfrage vor dem verlassen!
CAD-Huebner am 01.03.2007 um 18:35 Uhr (0)
Zitat:Original erstellt von steinwurm:... Der Pfad der dxf ist nicht gleich mit der dwg, aber immer im gleichen Ordner.Der Pfad ist nicht gleich aber immer im gleichen Ordner - mmh ? Meinst du, die DXF Datei befindet sich immer in einem bestimmten Ordner im Normalfall nicht der DWG Ordner, z.B. C:DXF ?Ach,(vl-string-search "." String ) such immer das erste Vorkommen von links, das geht bei mehr als einem Punkt im Dateinamen ziemlich daneben.besser wäre z.B.(vl-filename-base filename)------------------Mit ...
|
| In das Form Lisp wechseln |
|
AutoLisp : suche Lisp-Programm
Helmut F am 12.08.2003 um 09:03 Uhr (0)
Hallo Hans-Peter mit folgendem Programm wird gespeichert wie gewünscht. Wenn es dass ist, was du meinst, könntest du in einem Werkzeugkasten ein Symbol mit dem Kommando einfügen und mit einem Klick ausführen. (defun my_save ( / CMD Pfad Name) (setq CMD (getvar CMDDIA ) Pfad (getvar DWGPREFIX ) Name (vl-filename-base (getvar DWGNAME ))) (setvar CMDDIA 0) ; Speichern als DWG (command _SAVE (strcat Pfad Name .dwg )) ; als IGES (command _IGESOUT (strcat Pfad Name .igs ) ) ; Option ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Umwandlung von (getvar DWGNAME)
Angeltoni am 05.10.2006 um 09:21 Uhr (0)
habe jetzt rumgespielt und den Code erstellt:Code:(defun C:name () (SETQ P0 (GETPOINT "Einfügepunkt: ")) (SETQ TH (GETREAL "Texthöhe: ")) (SETQ TW (GETREAL "Textwinkel: ")) (SETQ dwgname (vl-filename-base (getvar "DWGNAME"))) (setq dwgname (vl-string-right-trim ".dwg" dwgname)) (setq dwgname (strcat (substr dwgname 3 (- (vl-string-position (ascii "-") dwgname) 2) ) (substr dwgname (+ 1 (vl-string-position (ascii "-") dwgname nil T)) ) ) ) (command "dtexted" "1") (setq TX (strcat dwgname) ...
|
| In das Form Lisp wechseln |
|
Lisp : Zufallsgenerator? command _pasteclip
gmds am 12.09.2024 um 15:13 Uhr (1)
Zitat:Original erstellt von cadffm:"Mit -WBLOCK und -EINFÜGE müsste ich mich noch um die Attribute des Blocks kümmern"Genau soviel oder genau so wenig wir über copy&paste.[b]Dein Benutzen der Zwischenablage macht genau das, nichts anderes!Mit copyclip/cutclip oder den *base*-Variante wurd eine .DWG mit dem kopierten Inhalt erstellt,mit deinem paste Vorgang wird die DWG als als Block oder aufgelöster Block eingefügt. [/B]Irgendetwas verstehe ich falsch, oder mache es falsch Wenn ich copy&paste verwende ha ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Dateiname plus Layout1
Martin_0103 am 03.06.2003 um 12:53 Uhr (0)
Hallo Holger, ich steh tierisch auf dem Schlauch... - ich habe doch nur die eine Zeile durch deine ersetzt. Folgend das LSP welches den Fehler verursacht. (defun c:PS_MDT6_OUT () (setq diafile (getvar filedia )) (setvar filedia 0) (command -layer machen iso se 0 fr iso ) (command _zoom g ) (command _.-plot _yes PS Drucker A3 QUER (PDF).pc3 A3 _m Hochformat nein grenzen anpassen 0,0 ja PDF.ctb ja nein nein nein ja (vl-load-com) (strcat ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Startup Analyzer (ein kleines Programm)
autocart am 07.06.2010 um 00:47 Uhr (0)
Hallo AutoLISP-Gemeinde!Falls es das hier schon gibt, dann bitte nicht schlagen. Wäre dann interessant, wie es andere gemacht haben.Ich habe jedenfalls einmal ein kleines AutoLISP-Proggi begonnen (mit OpenDCL), das die AutoCAD-System-Einstellungen (für das aktuelle Profil) danach analysiert, was automatisch beim AutoCAD Startup alles mitgestartet wird. Das Ergebnis wird in einem Fenster angezeigt. In einem weiteren Schritt soll auch ein Export in eine Textdatei möglich sein.Ich stelle das erste Ergebnis hi ...
|
| In das Form Lisp wechseln |
|
Lisp : DCL / Text und width
Bernd10 am 10.10.2006 um 11:03 Uhr (0)
Hallo,ich habe das Problem, dass ich in einem DCL-Dialog die Länge eines bestimmten Text-Elements variabel gestalten möchte. Dazu gebe ich im DCL-Dialog beim Text-Element mit dem Key ct_frage_jna eine Breite von 80 an (siehe unten). ddfrage_jna : dialog{ label = "Frage"; initial_focus = "accept"; // OK-Button spacer_1; : text { key = "ct_frage_jna"; alignment = centered; is_bold = true; width = 80; } spacer_1; : row { fixed_width = true; alignment = centered; : button { key = "cb_frage_j"; label ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei command schleife
spider_dd am 29.08.2012 um 12:16 Uhr (0)
Hallo Dirk,zu Deiner Frage zu Pkt. 3)Der Rückgabewert einer (defun ...) Funktion ist das Ergebnis des letzten ausgewerteten Ausdrucks. BASE-LST wird ausgewerter zum Inhalt der Variablen, also liefert die Funtion als Ergebnis den aktuellen Inhalt von BASE-LST.Zu Deiner angegebenen Funktion PlayCol:So wie sie da steht, klapperst Du für alle Elemente der CLIST alle Element der PLIST durch und weist bei Übereinstimmung des Codes PLAY und COL zu. Nach Durchlauf der Funktion erhälst Du zum Schluss damit die zum ...
|
| In das Form Lisp wechseln |
