|
Rund um AutoCAD : benutzerspezifische zeichnungseigenschaften ändern
CADmium am 04.12.2012 um 10:47 Uhr (0)
Zitat:Original erstellt von tlraum:Hallo CADmium,ich kann leider nur löschen und neue hinzufügen, aber nichts editieren bzw verschieben ;-(lg, RolandJa ... das ist in ACAD von den Bordmitteln her so ... deshalb habe ich auch PROGRAMMIERUNG und TOOL ins Spiel gebracht ... damit kann man auf KEY und VALUE zugreifen und auch die ganze Liste umsortieren und neu schreiben..------------------Also ich finde Unities gut ... und andere sicher auch--------------------------------------- - Thomas - "Bei 99% aller ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Blöcke in Urprung, Bereinigen mehrfach: über VBA oder Makro?
CADmium am 26.06.2009 um 12:01 Uhr (0)
Zitat:Original erstellt von CADesign: Ich habe gesten die Mods. gebeten in andere Foren zu verschieben, dieses wurde nicht gemacht, heute habe ich dieses neu eingestellt, jetzt bin ich der Buuu...mann :nozwinker Gut gelöst, oder?Der Mod kann maximal in anderen Bretterverschieben, aber da ich die dort auch Mitlesenden (meist auch) kenne und sich der Personenkreis, der sich mit deinem "Problem" befassen würde, durch das Verschieben nicht unwesentlich größer weden würde , hab ich es bleiben lassen ... Zit ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Bemassung verschieben
CADmium am 24.02.2005 um 11:37 Uhr (0)
Das liegt an den Assoziativen Bemaßungen. Das: (defun DIM-KILLASSO( / AUSWAHL CMDECHO) (if(setq AUSWAHL(ssget "_x" ((0 . "*DIMENSION")))) (progn (setq CMDECHO(getvar "CMDECHO")) (setvar "CMDECHO" 0) (command "_move" AUSWAHL "" (0 0 0) (10 0 0)) (command "_move" AUSWAHL "" (10 0 0) (0 0 0)) (setvar "CMDECHO" CMDECHO) ) ) (setvar "Dimassoc" 1) (princ) ) .. Aufruf mit (DIM-KILLASSO) .. sollte die Assoziativität aufheben.. ------------------ - Thomas - ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Text gespiegelt
CADmium am 04.07.2007 um 19:19 Uhr (0)
Zitat:Original erstellt von HeCader:Hallo,aber wehe man synchronisiert die Attribute - ATTSYNCDas steht doch gar nicht an... dann kann man einen Attribut auch keine von seiner Attributsdefinition abweichende Farbe geben oder das Attribut verschieben.Wenn du unbedingt "attsync"en mußt, kannst du dich ja mit nem Tool behelfen, das die nicht zuverändernden Eigenschaften ausliest und speichert, attsync aufruft und die gespeicherten Werte wieder zurückschreibt.------------------ - Thomas -"Bei 99% aller Prob ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : AUTOQSAVE vom AutoCAD-Magazin
CADmium am 06.10.2009 um 09:05 Uhr (0)
Zitat:Original erstellt von Peter2:Wäre das halbwegs einfach lösbar?Woher sollten hier die Leute den Quelltext kennen? Warum wendest du dich nicht direkt an den Autor? Für alle Nichtauskenner -- (ACM 07/09)aber ok ... machbar ist das ... jetz wird vl-file-rename und vl-file-delete verwendet .... da müßte dann in etwas veränderter Logik vl-file-copy eingebaut werden ... evtl. auch noch ne Überwachung des manuellen QSAVE und Verschieben der bak ....------------------ - Thomas -"Bei 99% aller Proble ...
|
| In das Form Lisp wechseln |
|
Lisp : Limiten verschieben
CADmium am 13.03.2009 um 08:06 Uhr (0)
dann mach es doch so :(defun C:LIM(/) (if(=(getvar "TILEMODE")1) (progn (setvar "LIMMIN" (mapcar + (getvar "LIMMIN")( 1085 0))) (setvar "LIMMAX" (mapcar + (getvar "LIMMAX")( 1085 0))) (princ (strcat "LIMMIN:"(vl-princ-to-string (getvar "LIMMIN")) "LIMMAX:"(vl-princ-to-string (getvar "LIMMAX")) ) ) ) (prompt "
.... nicht im Modellbereich!!") ) (princ)) ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte ...
|
| In das Form Lisp wechseln |
|
Inventor : Nullpunkt einer Baugruppe
CADmium am 09.12.2012 um 13:24 Uhr (0)
Zitat:Original erstellt von UBCS: ...wollte ich nur Wissen ob man den Nullpunkt nachträglich noch ändern kann...Der Nullpunkt eines Koordinatensystems ist immer 0,0,0 . Das kann man nicht ändern.Was man ändern kann , ist die Lage der Teile bezogen auf den Nullpunkt.Das geht je nach Baugruppenaufbau mit der Lageänderung des 1. Bauteils an dem alle andern "hängen" oder bei (Lage)Mastermodellierung durch Verschieben der Skizzen gegenüber ihrem Nullpunkt...------------------Also ich finde Unities gut ... und a ...
|
| In das Form Inventor wechseln |
|
Lisp : Bemassungstex nach X oder Y Achse verschieben
CADmium am 10.09.2007 um 07:59 Uhr (0)
mal was für die X-koordinate .. für Y sollte dananch auch kein Problem darstellen:(defun c:_DIMX( / AWS) (if(and(Setq AWS(ssget ((0 . "DIMENSION")))) (setq P(getpoint "
X-Koordinate: ")) ) (progn (setq INDEX -1) (repeat(sslength AWS) (setq OBJ(ssname AWS(setq INDEX(1+ INDEX)))) (setq OBJ(vlax-ename-vla-object OBJ)) (setq POS(vlax-safearray-list (vlax-variant-value (vla-get-TextPosition OBJ) ) ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Bemassung verschieben
CADmium am 24.02.2005 um 12:20 Uhr (0)
nochmal .. wenn du das Lsip richtig geladen hast: Aufruf in der Befehlszeile (DIM-KILLASSO) d.h. mit Klammern!!!! oder siehe Charlie: Code: (defun c:DIM-KILLASSO( / AUSWAHL CMDECHO) (if(setq AUSWAHL(ssget "_x" ((0 . "*DIMENSION")))) (progn (setq CMDECHO(getvar "CMDECHO")) (setvar "CMDECHO" 0) (command "_move" AUSWAHL "" (0 0 0) (10 0 0)) (command "_move" AUSWAHL "" (10 0 0) (0 0 0)) (setvar "CMDECHO" CMDECHO) ) ) (setvar "Dimassoc" 1) (princ) ) d ...
|
| In das Form Rund um Autocad wechseln |
DT-Textbox.VLX.txt |
Rund um AutoCAD : Text und Rahmen einfügen
CADmium am 25.05.2011 um 13:10 Uhr (1)
Ich hab mal was eigenständiges ( ohne Expresstools ) zum Testen zusammengestellt. Kann (gerade /schräge ..) Texte mittels Box oder Kreis umrahmen oder durchstreichen ... Rahmen wird mit Textlayer und Farbe erstellt .. Offset ist einstellbar .. bei Wahl von Assoziativ ändert sich der Rahmen mit dem Text bei Verschieben , Textinhaltänderung usw.Nutzerführung ist noch nicht 100% , und bei Mtexten gibt es bei Änderung des Textinhaltes hinsichtlich der assoziativität auch noch ein paar Probleme( durch Hin und H ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD VBA : Explode von uneinheitlich skalierten Blöcken
CADmium am 08.10.2008 um 15:25 Uhr (0)
Zitat:Original erstellt von Theo37:Zu Deiner Frage. Sinn des ganzen Makros ist es die Layer und die Objekte einer Zeichnung, tabelarisch zu erfassen und diese dann Löschen, Auflösen oder Verschieben.... können. Im Prinzip das was auch Schnellauswahl macht. Nur etwas auf meine Bedürfnisse abgestimmt.Gruß..Na dafür brauch man doch nicht die Blockreferenzen auflösen ... da geht man einfach durch die Blocktabelle und "scannt" die Objekte jeder Blockdefinition .. wird eine Referenz gefunden werden zusätzlich n ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoLisp : Fortlaufende Nummern
CADmium am 07.05.2004 um 08:53 Uhr (0)
Zitat: Original erstellt von Bernhard GSD: Ich würde mit (entmake ... )einen Block mit dem entsprechenden Text erstellen und dann geursprungt einfügen. Wäre optisch eleganter als einen Text zu erstellen und zu verschieben. (PROGN (command _insert blockname pause )(command _Explode _L )) Und warum nicht gleich : (command _insert (strcat * blockname) pause ) ? Zitat Hilfe : Einfügen von aufgelösten Blöcken: Wenn Sie ein Sternchen (*) zu Beginn des Blocknamens eingeben, wi ...
|
| In das Form AutoLisp wechseln |
Block-MovebasePoint.VLX.txt |
Lisp : Ändern des Basispunktes bei Blöcken
CADmium am 13.03.2004 um 20:23 Uhr (1)
..so neue Version zum Austesten! Sollte ich wieder was übersehen haben - kurze Mitteilung.Tool funktioniert jetzt im Prinzip so :1. Auswahl einer Blockreferenz und Wahl eines neuen Basispunktes2. Ist die Blockreferenz gedreht oder Skaliert erfolgt (auf Wunsch) eine Umrechnung des Basispunktverschiebevektors.3. Neudefinition des Blockes durch - Verschieben aller Elemente des Blockes um den umgedrehten Basispunktverschiebevektor (dabei wird GC 10 unter anderem auf (0.0 0.0 0.0) gesetzt)4. Update alle ...
|
| In das Form Lisp wechseln |
