|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
iwa am 16.11.2009 um 10:07 Uhr (0)
Hallo. Wir haben folgendes Problem. Bisher haben wir zum Ersetzen der Autocad-Schriftarten eine eigene Schriftzuordnungsdatei benutzt. Dadurch ist das Arbeiten in unseren Zeichnungen mit viel Text sehr langsam geworden. Wir haben festgestellt, dass das Bearbeiten ohne Schriftzuordnungsdatei um ein Vielfaches schneller geht! Wir haben uns daher überlegt, in unseren Zeichnungen die Textstile entsprechend umzustellen. Allerdings gibt es alte Dateien und von fremden Systemen erstellte Dateien, bei denen bis zu ...
|
In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
wronzky am 04.05.2011 um 18:52 Uhr (0)
Da hast Du schlechte Karten mit Scripts, da Du nicht weißt, wie die einzelnen Stile heißen, und über den Befehl "_-style" nur einzeln geändert werden können. Mit Thomas Lisp-Zeilen könnte es so gehen:Code:(vl-load-com)(vlax-for ITEM (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))) (vla-put-fontfile ITEM "SIMPLEX.SHX"))Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
In das Form Lisp wechseln |
|
Lisp : Layout-Modus die Layer gefroren oder getaut
Nano am 13.06.2010 um 09:19 Uhr (0)
HalloMit diesem Lisp kann ich feststelle ob ein Layerein- oder aus-geblendet ist.(SETQ mf026dump (tblnext "LAYER" T)) (WHILE (/= mf026dump nil) (SETQ mf026-an-aus (cdr (assoc 62 mf026dump))) (SETQ mf026dump (tblnext "layer")) ))bei "assoc 62" Farbe ob negativ oder positiv istAusgaben: ((0 . "LAYER") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous"))EINGEBLENDETAusgaben: ((0 . "LAYER") (2 . "0") (70 . 0) (62 . -7) (6 . "Continuous"))AUSGEBLENDETWie kann ich feststellen ob im MansFenster "Layout-Modus" die L ...
|
In das Form Lisp wechseln |
|
Lisp : vlax-safearray->list dynamische Blöcke
Dorfy am 05.05.2011 um 11:51 Uhr (0)
na nimm doch vlax-safearray-get-u-bound... und ne schleife...Code: (setq i (vlax-safearray-get-l-bound b 1)) (while (= i (vlax-safearray-get-u-bound b 1)) (setq c (vlax-safearray-get-element b i));mach was... (print (strcat (vla-get-PropertyName c) " -- ")) (princ (vlax-variant-value (vla-get-value c))) (setq i (1+ i)) )------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
In das Form Lisp wechseln |
|
Lisp : vlax-safearray->list dynamische Blöcke
Dorfy am 05.05.2011 um 15:30 Uhr (0)
versuch mal dasCode:(vla-get-IsDynamicBlock (vlax-ename-vla-object (car (entsel))))------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
Dorfy am 05.05.2011 um 15:42 Uhr (1)
(command "_hatch" "ansi31" "2" "0" obj "") ???------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
cadplayer am 05.05.2011 um 15:51 Uhr (1)
so hatte ich auch gedacht... nur wird die gewählte Polylinie nicht schraffiertim Textfenster erscheint folgendes Command: (command "_hatch" "ansi31" "2" "0" OBJ "")_hatchEnter a pattern name or [?/Solid/User defined/Gradient] ANSI31: ansi31Specify a scale for the pattern 1.0000: 2Specify an angle for the pattern 0: 0 Select objects to define hatch boundary or direct hatch,Select objects:Command: U (Lisp Expression) GROUP
|
In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
Dorfy am 05.05.2011 um 16:04 Uhr (1)
(command "_hatch" "ansi31" "2" "0" (car(entsel)) "")??? bei mir gehts!deine Fläche zu klein? händisch gehts? starte mal acad neu...------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
Dorfy am 05.05.2011 um 16:09 Uhr (1)
jörn gibt doch mal (command "_hatch") und (command "_bhatch") ein ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
In das Form Lisp wechseln |
|
Lisp : command hatch einbauen
Steff179 am 05.05.2011 um 17:13 Uhr (1)
JaAber wenn du das in dein Lisp einbaust solltest du noch ein "(progn" setzen. Denn sonst zeichnet es dir nur wenn die Bedingungen nicht Erfüllt sind eine Schraffur und das mit einem OBJ das du dann nich hast (defun c:sa ( / ) (setvar "attreq" 1) (if (and (setq OBJ (car (entsel "
select hatch or pline !
"))) (setq LAYER (cdr (assoc 8 (entget OBJ)))) (setq FL (rtos (vla-get-area (vlax-ename-vla-object OBJ)) 2 2)) ) (progn (command "_-insert" "flache" (getpoint "
pik point
") (getvar "DIMSCALE") (ge ...
|
In das Form Lisp wechseln |
|
Lisp : Geladene Befehle (funktionen) auslesen
cadplayer am 18.05.2016 um 08:49 Uhr (1)
Hi!Ja das mit (atoms-family 0) ist mir neu und gut zu wissen.Bei mir handelt es sich ausschliesslich um dll-funktionen, die in .net programmiert wurden. Alle Befehle fangen mit "NV" an.Einfach aus dem Grund, weil in Lisp manche Lösungen schneller umgesetzt werden können, meine Frage hier: gibt es ähnlich Auslesemethode für diese Befehle ?!------------------Gruss DirkBlog | Adolf Spende | Infra-Feed | ÅF AB
|
In das Form Lisp wechseln |
|
Lisp : Problem: Neues Objekt (Punkt) in Block ohne Refedit
bertl24 am 10.05.2011 um 08:24 Uhr (0)
Guten Morgen!Ich würde gerne in eine bestehende Blockdefinition ein zusätzliches, neues Element (einen Punkt oder Linie) hinzufügen. Und das ohne dass ich mit Refbearb über die Blockreferenz das Element ergänze.Sprich mit "entmake" eine zusätzliches Element definieren und per Lisp an die Blockdefinition "anhängen".Geht das überhaupt und wenn ja wie?Besten Dank im Voraus.Michael
|
In das Form Lisp wechseln |
|
Lisp : Skalieren mit VLA ???
Dorfy am 10.05.2011 um 08:08 Uhr (0)
ScaleEntity MethodScales an object equally in the X, Y, and Z directions???edit1:Code:(vla-ScaleEntity(vlax-ename-vla-object (car (entsel))) (vlax-3d-point (0 0 0)) 3.0)edit2:bei einer linie funzt es(vlax-method-applicable-p vlaobj ScaleEntity) also testen ob es geht ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy am 10. Mai. 2011 editiert.][Diese Nachric ...
|
In das Form Lisp wechseln |