|
Rund um Autocad : Layer Anlegen
Dober Heinz am 10.02.2004 um 14:01 Uhr (0)
Zitat: Original erstellt von Brischke: ja, da bin ich auch etwas überrascht. in einem der letzten AutoCAD-Magazine war auch ein Tool drin LEX und LEXI. Damit ist es möglich Layereinstellungen in eine ASCII-Datei zu exportieren und auch wieder zu importieren. Grüße Holger sorry wenn ich es nicht verständlich beschreiben hab. ------------------
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Copy und grread
Dober Heinz am 21.03.2012 um 13:33 Uhr (0)
Hallo brauche wieder mal eure HilfeHabr hier ein Lisp, ist nicht von mir, weiss aber nicht von wenn ich das habe.Ich kopiere ein Objekt, dann kann ich es mit der Leertaste drehn, alles ok so. Aber jetzt muss ich mit der ESC-Taste ok sagen um es abzusetzen, ich will das aber mit der linke Maustaste tun.Was muss ich da ändern.Danke mal im VorrausCode:(defun c:Dcc (/ BNAME LOOP ROT GR PT OLDPT EN) (vl-load-com) (setq ssett (car(entsel)));; (getstring (strcat "
Insert name" (getvar "INSNAME") "")) (setq sset ( ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dober Heinz am 14.01.2009 um 10:44 Uhr (0)
Hallo XEMHier habe ich was.(defun c:raum (/ Blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq Blockn (getstring "Blockname? "))(setq corner1 (getpoint "erste Ecke im Raum: ")corner2 (getpoint "gegenüber liegende Ecke: ")columns (getint "Anzahl X Richtung: ")rows (getint "Anzahl Y Richtung: ")roomwidth (abs (- (car corner1) (car corner2)))roomheight (abs (- (cadr corner1) (cadr corner2)))colspacing (/ roomwidth columns)rowspacing (/ roomheight rows)lowerleft(list(min (car ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Blöcke neu definieren
Dober Heinz am 30.01.2004 um 11:46 Uhr (1)
hallo habe im eg die block grösse geändert, und bei den anderen Stöckwerken einfach mit desin center die blöck neu defieniert, bei mir tut sich gar nichts machen wir das gleich auf meinen kollegen seinen Rechener sehe ich sofort das die symbole kleiner werden.das ist alles keine meldung gar nichts bei mir.danke für antwort------------------
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Layer Farbe
Dober Heinz am 31.03.2004 um 15:02 Uhr (0)
hallo danke für schnelle antwort nein hilft nicht ich möchte ein Objekt anglicken und da will ich die layer farbe ändern, damit ich mnicht immer ihn layersteuerung muss mir layer suchen und farbe ändern bei 300 layer und mehr sehr grosser aufwand ------------------
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : englischsprachiges Forum
Dober Heinz am 25.01.2005 um 13:37 Uhr (0)
Zitat: Original erstellt von tunnelbauer: Ich finde die Idee auch sehr gut ! (Wenn wer die englischen Befehle braucht, diese sind ja bei www.cadditions.de zu finden und zum Glück kann man ja jeden Befehl auch via Command-Line aufrufen). Desweiteren: Sollte wer die Pulldown-Menüs auf Englisch brauchen - ich mache mir die Mühe und stelle sie gerne zur Verfügung (ich kämpfe sowieso immer gegen das Problem an, dass ich alles in Englisch am Laufen habe und dann in mühevoller Kleinarbeit mir nebenbei di ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layer Farbe
Dober Heinz am 31.03.2004 um 16:28 Uhr (0)
hallo claudio danke erst mal es lauft nicht, ich will nicht die die farbe von Element auch als layer farbe habe ich will nur das element anklichen und dan dies farbe ändern aber gleich die Layerfarbe z.b wenn das elemnt die farbe rot hat und der layer ist auch auf rot will ich layer auf 253 ändern und so weiter ok aber danke ------------------
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Text kopieren und ändern
Dober Heinz am 11.02.2004 um 10:52 Uhr (0)
Zitat: Original erstellt von marc.scherer: Code: (defun C:KOTA (/ OBJEKT) (while (setq OBJEKT (ssget _:S ((0 . *TEXT )))) (setq OBJEKT (ssname OBJEKT 0)) (command _.copy OBJEKT (cdr (assoc (if ( 0 (cdr (assoc 72 (entget OBJEKT)))) 11 10 ) ;_ end of if (entget OBJEKT) ) ;_ e ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Symbole
Dober Heinz am 14.01.2004 um 15:36 Uhr (0)
***MENUGROUP=Symbole Hallo so sieht es jetzt aus und funkt soweit auch ***POP1 [&SST] [- &Starkstrom] ID_Ausschalter_0 [Ausschalter]^c^c-layer;m;--E_Starkstrom;fa;5;;^C^C-Einfüge Ausschalter;$M=$(getvar,userr5); ID_Wechselschalter_0 [Wechselschalter]^c^c-layer;m;--E_Starkstrom;fa;5;;^C^C-Einfüge Wechselschalter;$M=$(getvar,userr5); ID_Ausschalter_2_pol_0 [Ausschalter 2 pol]^c^c-layer;m;--E_Starkstrom;fa;5;;^C^C-Einfüge Ausschalter2pol;$M=$(getvar,userr5); ------------- ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Text kopieren und ändern
Dober Heinz am 11.02.2004 um 06:49 Uhr (0)
Zitat: Original erstellt von Brischke: Hallo, dann vielleicht so: Code: (defun c:kota (/ OBJEKT) (if(setq OBJEKT (ssget _:S ((0 . TEXT,MTEXT )))) (progn (setq OBJEKT (ssname OBJEKT 0)) (command _.copy OBJEKT (cdr(assoc (if ( 0(cdr(assoc 72 (entget OBJEKT)))) 11 10 ) (entget OBJEKT))) pause) (command _.ddedit (entlast)) ) ) ) Grüße Holger Danke funkt super kann man das programm noch so ändern da ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Reaktor wieder laden
Dober Heinz am 07.04.2008 um 08:24 Uhr (0)
Hallo Danke für eure HilfeHabe es so gelöst, und es funktioniertCode:; Funktion zum Setzen der Reaktoren(defun c:reaein() (vl-load-com) (if(not com:react) (progn (setq com:react (vlr-command-reactor nil ((:vlr-commandWillStart . cmd-start-callback) (:vlr-commandEnded . cmd-end-callback) (:vlr-commandCancelled . cmd-end-callback)))) (princ "Reactor EIN ") ) ;ende progn ) ;ende if (princ) ) ;ende c:reaein (defun c:reaaus() (if com:react (progn (vlr-remove com:react) (setq com ...
|
| In das Form Lisp wechseln |
|
Lisp : Reaktor wieder laden
Dober Heinz am 31.03.2008 um 10:11 Uhr (0)
Hallo FuchsiHier das lispCode:; Anfang der Datei; Funktion zum Setzen des Reaktors(defun add-cmd-reactors( / ) (vl-load-com) (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-commandEnded . cmd-end-callback)) )); Funktion zum Setzen der Reaktoren(defun add-cmd-reactors( / ) (vl-load-com) (if(not *cmd-reactor-added*) (progn (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-comma ...
|
| In das Form Lisp wechseln |
|
Lisp : Reaktoren
Dober Heinz am 16.01.2008 um 11:17 Uhr (0)
Hallo LisplerBeschäftige mich gerade mit den Reaktoren.Habe folgenden Code von Lisp-Buch kopiert und getestet.Wenn ich eine Bemassung wähle funktioniert der Code, es wird ein Layer angelegt.Aber wenn ich eine Schraff wähle geschied nichts, kann mir bitte einer sagen wo der Fehler liegt.Danke; Anfang der Datei; Funktion zum Setzen des Reaktors(defun add-cmd-reactors( / ) (vl-load-com) (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-commandEnded . ...
|
| In das Form Lisp wechseln |
