|
Rund um AutoCAD : Block einfügen und skalieren mit Werkzeugpaletten
Andreas Kraus am 05.07.2010 um 15:43 Uhr (0)
Ein Menümakro ?Ein ganz normales Menümakro ?Wie früher ?Soll das heißen daß man noch nicht mal aktuelle Funktionalität kombinieren kann ?Also nix mit schönem Einfügebefehl und dann irgendwas automatisieren wenn der Block drinnen ist ?Is nich mahr oder ?Wer hat sich denn das ausgedacht ? War da wieder mal Feierabend oder keine Lust mehr gehabt ? Ich hab mich ja schon darüber aufgeregt daß die Werkzeugpaletten nicht Netzwerkfähig sind aber das ist ja wohl der Brüller.HURRA !!! Ich bin endgültig davon überzeu ...
|
|
Rund um AutoCAD : Tabelle, Zeilenhöhe
Andreas Kraus am 19.07.2010 um 15:09 Uhr (0)
Hallo zusammen,ich möchte (muß) bei einer Tabelle eine festgelegte Zeilenhöhe haben. Egal ob ich eine neue Datenzeile einfüge oder irgendeinen Text in einer Tabellenzelle mehrzeilig habe. ALLE Zeile gleich hoch, festes Maß.Geht das ? Wenn ja, wie ?Ich hab mal die Texthöhe und die Ränder so hingebogen daß es passt, aber jetzt stell ich fest daß die Zeilenhöhe variiert bei groß/kleinschreibung und bei mehrzeiligem Text geht ja garnix Oder muß ich mit Lisp dran und jede Zeile "korrigieren" ?Hab mich etwas m ...
|
|
Rund um AutoCAD : Tabelle, Zeilenhöhe
Andreas Kraus am 19.07.2010 um 16:39 Uhr (0)
Hat sich erledigt.Habs mit Lisp gelöst.Aber Suuuuper Idee nicht mal die Zeilen und Spaltenabstände fest einstellen zu können. Suuuuuper Idee im Eigenschaften-Fenster nix interessantes azuzeigen wenn in eine Tabellenzelle doppegeklickt wird. Suuuuuper Idee die Schaltfläche für den Zeilenabstand in der Textformatierungsleiste auszublenden wenn die Zelle bearbeitet wird. usw. usw. usw.Ich lass jetzt die Tabellenlinien auf den jeweils nächsten Rasterfangpunkt springen und bin zufrieden.------------------Gru ...
|
|
Rund um AutoCAD : Attribute in Blöcke ändern
Andreas Kraus am 21.10.2010 um 20:49 Uhr (0)
Nee, das machst du schon richtig aber in 2005 gibts noch keine dynamischen Blöcke (ich muß lernen die SysInfo zu lesen ).Also machen wir das eben ohne.Bitte alles kopieren und in ein LISP-File fummeln.(vl-load-com)(defun mk_tree (pfad verz_nicht / DIR NEU_PFAD_LIST PFAD PFAD_LIST) (defun mk_tree_work (pfad_list) (if (setq neu_pfad_list (apply append (mapcar (lambda (pfad) (mapcar (lambda (dir) (print (strcat pfad dir "")) (strcat pfad dir "") ) (vl-remove-if (l ...
|
|
Rund um AutoCAD : Attribute in Blöcke ändern
Andreas Kraus am 21.10.2010 um 21:15 Uhr (0)
Zitat:Und wie geht das, in ein LISP-File fummeln ?Windows-Editor öffnenalles reinkopierenunter k_attchg_tree.lsp speichernLeerzeichen ... gute Idee daran zu denken Also nochmal mit Korrektur:(vl-load-com)(defun mk_tree (pfad verz_nicht / DIR NEU_PFAD_LIST PFAD PFAD_LIST) (defun mk_tree_work (pfad_list) (if (setq neu_pfad_list (apply append (mapcar (lambda (pfad) (mapcar (lambda (dir) (print (strcat pfad dir "")) (strcat pfad dir "") ) (vl-remove-if (lambda (dir ...
|
|
Rund um AutoCAD : Blocklegende
Andreas Kraus am 05.01.2011 um 00:38 Uhr (0)
So, bin endlich zuhause (spät geworden). Doch nicht so viel Zeit übrig wie ich gestern (hoppla - vorgestern ) gedacht hab.Hm, das entwickelt sich komplizierter wie ich am Anfang vermutet hab also tret ich erst mal auf die Bremse und schau mal wos langgeht . Zitat:Ich stelle mir ein Menü vor mit Checkboxen was ich angezeigt haben möchte von der Legende.Aha, das Dialogfeld muß also zur Laufzeit erzeugt werden da ja die Auswahlmöglichkeiten änderbar sein sollen.Oder ich pack das in eine Liste die, wenn sie ...
|
|
Rund um AutoCAD : Ojekteigenschaft Drehung aus Blockattribut übernehmen
Andreas Kraus am 07.01.2011 um 14:58 Uhr (0)
Hallo Thomas,mit diesem Lisp sollte das gehen:(defun c:insrot_attwert () (vl-load-com) (if (setq satz (ssget ((0 . "INSERT") (66 . 1)))) (progn (setq n (1- (sslength satz))) (repeat (sslength satz) (setq ent_data (entget (setq ent_name (ssname satz n)))) (setq att_data (entget (setq att_name (entnext ent_name)))) (while (/= (cdr (assoc 0 att_data)) "SEQEND") (print (cdr (assoc 2 att_data))) (if (= (strcase (cdr (assoc 2 att_data))) "ROTATION") (progn (setq ent_data (subst (cons 50 ...
|
|
Rund um AutoCAD : Befehel loggen
Andreas Kraus am 14.01.2011 um 16:27 Uhr (0)
Hallo Holger, Zitat:aber da steht mir zuviel drinne und ich wollte auch nicht logfiles von 250 Usern und 6 Monaten manuell scannenwas hast du denn dagegen ? Zitat:bei unserer Migration auf 2011 wollen wir all unsere eigenen Erweiterungen von Befeheln mal "entmisten". Es geht also um eigene Befehle.Sollte also kein Problem sein da ne Liste zu machen.Kleines Lisp daß alle Logfiles durchgeht und nach diesen Befehlen sucht, zählt, evtl. User notiert usw. und daraus ne schöne Datenliste macht die vielleicht in ...
|
|
Rund um AutoCAD : Automatische Maßprotokollerstellung
Andreas Kraus am 04.11.2011 um 08:39 Uhr (0)
Mit diesem LISP-Schnipsel bekommst du schon mal die Infos ins Textfenster.Nur Bemaßungen, keine in Blöcken oder Architekturbebaßung "versteckten" Bemaßungen. Aber vielleicht ein Schritt in die Richtung in die du willstProbier mal aus.(vl-load-com)(setq satz (ssget ((0 . "DIMENSION"))))(setq n (1- (sslength satz)))(repeat (sslength satz) (setq obj_name (vlax-ename-vla-object (ssname satz n))) (print (strcat (vl-princ-to-string (vla-get-measurement obj_name)) " , " (vl-princ-to-string (VLAX-SAFEARRAY-LIS ...
|
|
Rund um AutoCAD : Textstil ändern
Andreas Kraus am 23.02.2012 um 16:38 Uhr (0)
Das Problem hatte ich auch mal.Wenn du irgendwo Zugriff auf eine ACAD-Vollversion hast kann ich dir mit einem LISP-Programm helfen, aber das läuft nicht im LT.------------------Geht nicht, gibts nichtGrußAndreashttp://kraus-cad.de
|
|
Rund um AutoCAD : Textstil ändern
Andreas Kraus am 24.02.2012 um 14:11 Uhr (0)
Hallo Horni43,probier mal das Lisp aus. Absolut 100%ig ist es nicht, nur malso runtergetippt, etwas älter, ohne Fehlerbehandlung usw... .Code:(defun c:tformat () (command "_undo" "_be") (setq alt_stil (getstring "alter Textstil : ")) (setq neu_stil (getstring "neuer Textstil : ")) (if (setq satz (ssget ((0 . "TEXT")))) (progn (setq n (1- (sslength satz))) (repeat (sslength satz) (setq ent_name (ssname satz n)) (setq ent_data (entget ent_name));;; Drehwinkel zur Bearbeitung auf 0° (setq w (cdr (assoc 5 ...
|
|
Rund um AutoCAD : Werkzeugpaletten
Andreas Kraus am 11.09.2012 um 13:00 Uhr (0)
Hallo Sosnja,ich arbeite nicht mit den Werkzeugpaletten sondern mit Bildmenüs (inzwischen komplett mit LISP und DCL nachgebaut aber nur wegen der Funktionalität).Ja, die schönen "alten" Bildmenüs.DIE FUNKTIONIEREN WENIGSTENS. Was nützt die bequemste schönste benutzerfreundliche Neuerung wenn man sich damit nur rumärgert ?Ich habs aufgegeben.Überleg mal ob dein Vorhaben mit Bildmenüs realisierbar ist.Außerdem beschneidest du damit nicht die Zeichenfläche. Wenn du nicht grade ein Symbol aussuchst ist das Me ...
|
|
Rund um AutoCAD : Werkzeugpaletten
Andreas Kraus am 11.09.2012 um 15:44 Uhr (0)
Zitat:in LT kann man mit LISP nichts anfangen...aber mit Bildmenüs die haben doch gar nix mit Lisp zu tun.Tschuldigung dass ich das Wort erwähnt hab, das hat verwirrt.Die Bildmenüs sind schon seit Ewigkeiten ein Menübestandteil.Ich hab grade gesehen dass die im Menüeditor jetzt "Bildkachelmenüs" heißen.Wusste ich gar nicht, ich arbeite noch mit MNU-Dateien.Die sollten aber im LT auch gehen.Ach ja: mach dir am Besten ein Teilmenü was dann dazugeladen wird. Das kannst du dann jedem weitergeben.------------- ...
|
