|
Lisp : mit AktivX ins Layouts wechseln
CADmium am 02.01.2007 um 18:21 Uhr (0)
z.B:(vla-put-activelayout (vla-get-activedocument(vlax-get-acad-object)) (vla-item (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) "Model" ))kannst das DOC aber vorher auch in einer Variablen speichern..und ein Error-catcher wär auch nicht verkehrt..------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
|
Lisp : Layerbeschreibung per Lisp erstellen?
CADmium am 07.06.2007 um 15:16 Uhr (0)
IMHO am einfachsten:(setq LAYERNAME "AM_5")(setq BESCHREIBUNG "LAYER:AM_5")(and(not(vl-catch-all-error-p (setq LAYER(vl-catch-all-apply vla-item (list (vla-get-layers(vla-get-activedocument(vlax-get-acad-object))) LAYERNAME ) ) ) ) ) (vlax-property-available-p LAYER "DESCRIPTION") (vlax-put-property LAYER "DESCRIPTION" BESCHREIBUNG))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des ...
|
|
AutoLisp : vlax-release-object ?
CADmium am 08.04.2004 um 10:10 Uhr (0)
Hab eine kleine Unklarheit... Mal ein Beispiel : (defun C:SETLAY ( / adoc layers ent lay) (setq adoc (vla-get-activedocument (vlax-get-acad-object)) layers (vla-get-layers adoc) ) (cond ( (setq ent (entsel
OBJEKT auf Layer Wählen, um Layer Aktuell zu setzen: )) (setq lay (vla-get-layer (vlax-ename- vla-object (car ent)))) (vla-put-activelayer adoc (vla-item layers lay)) ) ) (vlax-release-object layers) (vlax-release-object adoc) (princ) ) adoc und layers sin ...
|
|
AutoLisp : Texte aus einem eingefügtem Block lesen
CADmium am 10.09.2004 um 08:32 Uhr (0)
Nochmal nachgehakt, gehts dir um die Koordianten der Texte innerhalb der Blockdefinition, oder um die transformierten Koordinaten der Texte im Koordinatensystem der Zeichnung? Für ersteres kann ich dir folgende Zeile anbieten : (nicht wundern, wenn Holgers Stichwörter nnicht vorkommen .. mit denen würde es auch gehen, aber halt anders ) (defun objinfo( BLOCKNAME / BLOCK TEXTLISTE ) (vl-load-com) (if(setq BLOCK(vla-item (vla-get-blocks (vla-get-activedocument ...
|
|
Lisp : entmod und ändern des x-ref-pfades?
CADmium am 21.09.2004 um 16:17 Uhr (0)
2 Sachen :gib mal (vlax-dump-object(vlax-ename-vla-object(car(entsel)))T)ein und klick ein Xref anund dann folgendes eingeben und ein Xref anklicken.(vlax-dump-object (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object) ) ) (cdr(assoc 2(entget(car(entsel))))) ) T)woraus folgt, das der Path nicht am Block, sondern an der Referenz hängt.Das nur mal auf die schnelle 5 min vor Feierabend ------------------ - Thomas -
|
|
AutoLisp : BKS ohne Command
CADmium am 10.11.2004 um 11:47 Uhr (0)
Zitat: Original erstellt von gmk: wie kann ich das aus deinem beispiel erzeugt ucs wieder löschen. (entdel (tblobjname "ucs" "BKS-BSP")) gibt nur nil zurück. da hilft dir ActivX weiter, mit entdel, endmode usw. kommste an UCS nicht ran (leider) (vl-load-com) (vla-delete (vla-item(vla-get-UserCoordinateSystems (vla-get-activedocument (vlax-get-acad-object) ) ) "BKS-BSP" ) ) ...
|
|
AutoLisp : entmod und Layertabelle
CADmium am 15.01.2005 um 20:54 Uhr (0)
Dem ist nicht so! Bsp mit ActivX : (vl-load-com) (vla-put-color (vla-item (vla-get-layers (vla-get-activedocument(vlax-get-acad-object)) ) 0 ) 17 ) .. setzt Farbe des Layers 0 analog per entmod (setq LD (entget(tblobjname LAYER 0 ))) (setq FARBE 5) (entmod (subst (cons 62 FARBE)(assoc 62 LD)LD) ) ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben.
|
|
AutoLisp : layoutreihenfolge verändern
CADmium am 12.10.2005 um 21:20 Uhr (0)
Mensch Jan, manchmal möchte ich echt wissen, für was die dich in deinem Systemhaus bezahlen ??? Zu deiner Frage:.. mit vla-item holst du dir das VLA-Objekt des Layouts.. und mit (vla-put-taborder LAYOUTOBJECT NR) verschiebst du es entsprechend. Das geht mit den Paperspace-Layouts vorwärts und Rückwärts.Ich hoffe, du hast Verständnis, dass ich hier keinen Komplettcode poste und dass das hier dir trotzdem eine Hilfe ist.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung de ...
|
|
AutoLisp : Neuen Layer mit ActiveX erzeugen
CADmium am 24.11.2005 um 12:50 Uhr (0)
z.B. so (ohne Fehlerabfangroutinen ect.)(defun get-layer-props (name props / layer LISTE) (setq LAYER(vla-item (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))NAME)) (foreach prop props (setq Liste (cons (list (vl-princ-to-string PROP) (vlax-get-property layer prop ) ) LISTE ) ) ) (reverse LISTE))Aufruf z.B:(get-layer-props "0" ("Color" "Linetype" "Name"))die Liste der Props kannste dir erweitern, die Props bekommst du aus der Onlinehilfe bzw. m ...
|
|
AutoLisp : If not mit or verknüpfen
CADmium am 02.02.2006 um 10:34 Uhr (0)
(if(not(or(and(=(strcase (vla-get-objectname item)) "CIRCLE") (= (vla-get-color item) 8) ) (and(= (strcase (vla-get-objectname item)) "ACDBLINE") (= (vla-get-color item) 9) ) ) ) (progn ) )------------------ - Thomas -"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies!"
|
|
Lisp : verfügbare Schriftnamen
CADmium am 12.09.2006 um 11:50 Uhr (0)
so vielleicht:?(defun GET-SHXFILES(/ DIRS SHX LISTE STD OLDFONT) (setq DIRS(vl-string-translate "" "/" (getenv "ACAD"))) (setq STD(vla-item(vla-get-textstyles(vla-get-activedocument(vlax-get-acad-object)))"STANDARD")) (setq OLDFONT(vla-get-fontfile STD)) (while (setq POS (vl-string-search ";" DIRS)) (foreach SHX (vl-directory-files (vl-string-right-trim "/" (substr DIRS 1 POS)) "*.shx") (if(and(not(vl-catch-all-error-p (vl-catch-all-apply vla-put-fontfile (list STD SHX) ) ...
|
|
Lisp : renameblock.lsp
CADmium am 05.06.2008 um 21:27 Uhr (0)
das mit der NR lass mal so.. änder lieber vla-put-name(list (car LAYOUT)(strcat NAME "-"(chr (+ 96 NR))))also:(defun C:LAYOUTRENAME (/ ITEM LAYOUTLISTE) (vl-load-com) (setq NAME (cadr(fnsplitl(getvar"dwgname")))) (vlax-for item(vla-get-layouts (vla-get-activedocument(vlax-get-acad-object)) ) (setq LAYOUTLISTE(cons(list ITEM (vla-get-name ITEM) (vla-get-taborder ITEM) ) LAYOUTLISTE ) ) ) (setq NR 0) (foreach LAYOUT (cdr(vl-sort ...
|
|
Lisp : XRef lösen ohne Command
CADmium am 19.08.2008 um 11:26 Uhr (0)
(vlax-ename-vla-object (tblobjname "BLOCK" blockname))) funktioniert auch nicht so wie es soll, nimm(vla-item (vla-get-blocks(vla-getactivedocument(vlax-get-acad-object))) BLOCKNAME) um das vla-object der Blockdefinition zu erhalten------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
