|
Rund um Autocad : Kopieren ohne Return mit Maustaste
Dober Heinz am 07.07.2004 um 13:47 Uhr (0)
hallo ich noch mal geht das mit dem Markro auch ^C^Cwahl;kopieren;v;;m und noch eine Frage die Abfrage Basispunkt bekomme ich nicht weg. ------------------
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 copytext) copytext)) (entmod neuedxf) )(def ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 copytext) copytext)) (entmod neuedxf) )(def ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Symbole
Dober Heinz am 14.01.2004 um 14:22 Uhr (0)
Hallo Funkt aber nicht so ***MENUGROUP=Symbole ***POP1 [&SST] [- &Starkstrom] ID_Ausschalter_0 [Ausschalter]^c^c-layer;m;fa;5;^C^C-Einfüge; Ausschalter;;;;_layerP;$M=$(getvar,userr5); Danke für antwort ------------------
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Werkzeugpaletten
Dober Heinz am 04.02.2004 um 08:40 Uhr (0)
Nein habe ich noch nicht mache mir nur eigen Werkzeugpaletten für die verschiedenen Baustellen da wir sehr viel mit veschiedenen Symbolen arbeiten müssen. ist das recht praktisch. aber leider wird es immer unübersichtlicher ------------------
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Symbole Drehen auf bestimmten Winkel
Dober Heinz am 09.02.2005 um 14:21 Uhr (0)
Zitat: Original erstellt von Proxy: Richtet (dreht am Basispunkt) gleichnamige Blöcke am angeklickten Referenzblock aus ... vielleicht hilft es ja in dem Fall. Code: (defun C:alignsameblocks (/ block blockname blockwinkel #bloecke z BLK nw) (command _.undo _G ) (setq block (entsel
VORGABEBLOCK WÄHLEN: ) @Proxy Ich will ja nicht alle Symbole drehn nur ein paar, die was nicht passen. sind immer nur ein paar pro Symbol aber bei 5 stockwerke kommt was zusammen danke für programm kann ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Text Suchen und Ersetzen
Dober Heinz am 02.06.2004 um 08:52 Uhr (0)
Der Text wird mir nicht geändert z.b mache aus AB12 AC12 das geht nicht bei Kollege schon muss was verstehlt sein weiss aber nicht was. ------------------
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Blöcke neu definieren
Dober Heinz am 30.01.2004 um 12:22 Uhr (1)
hallo cadffmja ich bin auch ratlos mache es auf rechner von kollegen geht es tatellos mache ich es auf meinen rechener tut sich nichtsist leider so danke für antwortsonst eine super funktion in acad2004kaum mehr wegzudenken------------------
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Datei für Raumaustattung
Dober Heinz am 02.12.2008 um 14:21 Uhr (0)
Hallo PrzemoDas hab ich mal gefunden im internet.Ist schon lange her, funktioniert aber.(defun c:trial (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq corner1 (getpoint "Select one corner of room: ")corner2 (getpoint "Select opposite corner of room: ")columns (getint "Number of columns: ")rows (getint "Number of rows: ")roomwidth (abs (- (car corner1) (car corner2)))roomheight (abs (- (cadr corner1) (cadr corner2)))colspacing (/ roomwidth columns)rowspacing (/ roomheight ro ...
|
| In das Form Rund um AutoCAD wechseln |
|
Autocad LT : Bemassung
Dober Heinz am 05.11.2003 um 12:39 Uhr (0)
danke für antwort so mach ich es ist aber ein aufwand da kein raum gleich ist. Arbeite mit Bsk bei 18 Stöcken und jeder stock 50 räume ist das ein aufwand da hab ich lang zu tun. aber Danke ------------------
|
| In das Form Autocad LT wechseln |
|
Rund um AutoCAD : Probleme mit Lisp ... Blockwahl
Dober Heinz am 06.12.2008 um 09:04 Uhr (0)
Hallo PrzemoSo müsste es gehn(defun c:raum (/ 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 corn ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Fortlaufende Nummern
Dober Heinz am 07.05.2004 um 09:37 Uhr (0)
Hallo Helmut dasist nicht schlecht aber der Text reagiert bissi komisch ist das nicht so von wo ich weg zeichne fängt der Text an springt bissi willt umher möchte ihn genauer setzten können sonst super 5 u sind dir sicher ------------------
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Probleme mit Lisp ... Blockwahl
Dober Heinz am 06.12.2008 um 09:59 Uhr (0)
Hallo Przemoso gehts auch mit einer Zeile(defun c:raum (/ 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(mi ...
|
| In das Form Rund um AutoCAD wechseln |
