|
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 ...
|
|
Lisp : Layer RGB Farben ändern mit ActiveX
CADmium am 09.08.2012 um 13:04 Uhr (0)
eine Funktion zum ändern der Layerfarbe auf rgbwerte:(defun LCOLOR (LAYERNAME R G B / L TC ) (if(and(= (type LAYERNAME)STR) (tblobjname "LAYER" LAYERNAME) (setq L(vla-item (vla-get-layers (vla-get-activedocument(vlax-get-acad-object)) ) LAYERNAME ) ) (setq TC(vla-get-truecolor L)) ) (progn (vla-setRGB TC R G B) (vla-put-truecolor L TC) (vlax-release-object TC) ) ))den Rest solltest du hinbekommen ... und (vl-load-com) nicht ver ...
|
|
Lisp : Code für AutoCAD-Gruppen...
Dorfy am 13.02.2008 um 07:16 Uhr (0)
Morgen,Mal ein Versuch in ActiveX zum löschen aller Gruppen (defun c:exga (/ a acadobj doc item) ;;(vl-load-com) (or acadobj (setq acadobj (vlax-get-acad-object))) (or doc (setq doc (vla-get-activedocument acadobj))) (vlax-for item (vla-item (vla-get-dictionaries doc) "ACAD_GROUP") (setq a (if a (1+ a) 0 ) ) (vla-delete item) ) (princ (strcat "
-- " (itoa a) " -- Gruppen aufgelöst")) (princ))Mfg Heiko
|
|
Lisp : Code für AutoCAD-Gruppen...
CADmium am 13.02.2008 um 09:21 Uhr (0)
Mal etwas (hoffentlich konstruktive) Programmkritik und der Verweis auf die von Axel angesprochenen Stilblüten und Programmierstile (defun c:exga (/ a acadobj doc item) ;;(vl-load-com) (or acadobj (setq acadobj (vlax-get-acad-object))) warum or ? .. acadobj ist lokal definiert und daher nil - warum überhaupt in eine Variable speichern? (or doc (setq doc (vla-get-activedocument acadobj)))- Siehe acadobj .. (vlax-for item (vla-item (vla-get-dictionaries doc) "ACAD_GROUP") (setq a (if a (1+ a) ...
|
|
Lisp : Code für AutoCAD-Gruppen...
Dorfy am 14.02.2008 um 07:05 Uhr (0)
Hab mich doch nochmal an Cadmiums Zeilen VERSUCHT...... nun auch mit Abfrage bei Null Gruppen(defun c:exga (/ A DICT) (vl-load-com) (setq A 0) (if (not (vl-catch-all-error-p (setq DICT (vl-catch-all-apply vla-item (list (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object) ) ) "ACAD_GROUP" ) ) ) ) ) (if (= (vla-get-count DICT) 0) (princ "
KEINE Gruppen vorhanden!") (progn (vlax-for ITEM DICT (if (not (vl-catch-all-error-p (vl-catch-all-apply ...
|
|
AutoLisp : namedobjdict : wo liegt mein fehler ??
Brischke am 15.01.2003 um 16:01 Uhr (0)
Hallo Rolf, wo Dein Fehler ist kann ich Dir nicht sagen, habe das nicht weiter untersucht. Ich mache so etwas über die VL-Funktionen. Da klappt das! Anbei die paar Code-Zeilen, die auch universell einsetzbar sind. Die Funktion nln ist nur mal als Beispiel gedacht, damit du sehen kannst, wie es angewendet wird. Bei Fragen... Grüße Holger CADlon - Lisp over night! Holger Brischke http://www.CADlon.de Tel: +49(0)681/989 06 84 mobil: +49(0)175/205 88 77 mailto:kontakt@CADlon.de Code: (defun c:nln ();Ne ...
|
|
AutoLisp : Text in datei schreiben
CADwiesel am 13.03.2003 um 09:34 Uhr (0)
Bin unwissend, wer kann mir bitte helfen???? Dieser Text soll aus Lisp in eine txt-Datei geschrieben werden: (strcat "(if (zerop (getvar "DBMOD"))(command "._OPEN"" item ")(command "._OPEN" "_Y"" item "))" ) Wobei allein item eine Variable ist. Ist da draußen jemand mit nem Sack voll hilfe??? ------------------ Gruß CADwiesel
|
|
AutoLisp : Text in datei schreiben
Brischke am 13.03.2003 um 10:30 Uhr (0)
Hallo CADwiesel, versuch das: (strcat "(if (zerop (getvar "DBMOD"))(command "._OPEN"" item ")(command "._OPEN" "_Y"" item "))") der "" bewirkt, dass das " als String behandelt wird. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Neue Tool s im Free-&Download Zugang zum Download schon gesichert?
|
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
Brischke am 10.06.2003 um 19:51 Uhr (0)
Hallo Andrea, ich habe mir zwar die Zeichnung nicht angesehen, aber mal in Dein Lisp reingeschaut. Versuche es mal mit folgendem Code. Dieser ermittelt den/die Schnittpunkte von 2 Elementen. Falls du wissen willst, was diese Zeilen anrichten , dann schau mal auf Axel s VL-Seiten, da solltest du diesen Code auch finden. Code: (defun intersect(ent1 ent2 / ar) (vl-load-com) (setq ar (vlax-invoke-method (vlax-ename- vla-object ent1) IntersectWith (vlax-ename- vla-object ent2) ...
|
|
AutoLisp : Auswahlsatz - nach Farbe filtern?
Brischke am 11.07.2003 um 10:45 Uhr (0)
Hallo Jürgen, dann nimmst du einmal die Variante Layer SOWIESO +Farbe VONLAYER und das andere mal, nur die Farbe FARBNR . Beides addiert ergibt dann, das was du suchst. So kann das dann aussehen: Code: (defun ssget:Farbe (farbe vLayer / at autom as) (if vlayer (setq at T autom (apply strcat (mapcar (lambda (S) (if at (progn (setq at nil) S );progn (strcat , S) ) ) (apply append (mapcar (lamb ...
|
|
AutoLisp : Neuling mit Anfängerfrage
charlieBV am 02.09.2003 um 07:30 Uhr (0)
Guten Morgen ihr Wissenden, zuerst einmal die Erklärung, weshalb ich was frage: Ich fange gerade an das Lisp-Tutorial zu studieren (bin in Kapitel 3), also rechnen kann ich jetzt, aber ich benötige glaube ich jetzt eine Info, aus Kapitel 25 oder so... Da ich auch nicht so genau weiß wie es heißt was ich suche konnte ich hier auch nicht die Suchfunktion verwenden. So, nun zum Problem: Ich habe mir eine Lisp in meine Stargtruppe gelegt (vielen Dank an CADWiesel!) und muss, damit sie läuft jedes mal den Prog ...
|
|
AutoLisp : Neuling mit Anfängerfrage
charlieBV am 02.09.2003 um 11:45 Uhr (0)
Was mache ich denn jetzt schon wieder falsch??? Kann mir jemand sagen, warum ich zwar meinen Befehl Spiegeln bekomme, aber den Rest nicht? (defun c:kontextmenu ( / ) (vl-load-com) (setq acadobject (vlax-get-Acad-Object)) (setq menugroups (vla-get-menugroups acadobject)) (setq acadmenu (vla-item menugroups "ACAD")) (setq acadmenupopup (vla-get-menus acadmenu)) ;(vlax-dump-object acadmenupopup);standardmäßig stehen wohl 25 Einträge zur Verfügung ;(vlax-dump-object (vla-item acadmenupopup 0)); so kan ...
|
