|
Rund um AutoCAD : Befehl umkehren evtl. über Lisp
Dorfy am 04.11.2008 um 11:10 Uhr (0)
hi,schau dir mal inputhistorymode2?Pfeiltasten hoch und runter...mfg heiko
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp für arx uns mns
Dorfy am 05.01.2009 um 17:10 Uhr (0)
Hallo,lege dir eine Datei acad.rxim Support-Pfad an.Mit folgenden Inhalt:(Voller Verzeichnisstamm)c:/Autocadxyz/MY_ARX/.../DeineDatei.arx... somit sollte sie mitgeladen werden (wenn kompatibel und Pfadangabe richtig...)mfg heiko
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dorfy am 14.01.2009 um 11:54 Uhr (0)
ach nö, Zitat:Original erstellt von xem: Danke tunnelbauer - aber wie soll es denn aussehen mit "(cond"vlideF1Reiter Inhalt AutoLISP Reference AutoLISP Functions C Functions Cond... so.mfg heiko
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dorfy am 14.01.2009 um 12:19 Uhr (0)
ne necondmfg heiko
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dorfy am 15.01.2009 um 16:39 Uhr (0)
hi,siehe weiter ober bei Dober Heinz...diese Zeile musst du geschickt in CADmium sein Zeilen einbauen...(setq Blockn......(command "_insert" Blockn ...versuch es mal ist garnet so schwer...mfg heiko[Diese Nachricht wurde von Dorfy am 15. Jan. 2009 editiert.]
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dorfy am 15.01.2009 um 17:09 Uhr (0)
auf die schnelle so...(defun c:bel (/ blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing ) (if (and (or (tblobjname "BLOCK" (setq blockn (getstring "
Blockname eingeben?: ")) ) (prompt (strcat "
BLOCK : " blockn " nicht gefunden!!")) ) (or (setq corner1 (getpoint "
Erste Ecke angeben: ")) (prompt "
Ungültiger 1. Punkt") ) (or (setq corner2 (getpoint "
Zweite Ecke angeben: ")) (prompt "
Ungültiger 2. Punkt") ) (or (and (setq ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : hierarchische Anordnung der Block-Attribute beim Export
Dorfy am 06.08.2009 um 14:53 Uhr (0)
hi,@Andreas läuft aberich werf mal(vla-GetConstantAttributes Block)in die Runde und noch (vl-catch-all...(Andreas weiß sicher bescheid )------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Text suchen
Dorfy am 12.08.2009 um 08:53 Uhr (0)
hi,schau mal hier tfind2 by Mark Mercie------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Ordinatenbemassung, tausche X-Daten gegen Y-daten
Dorfy am 10.08.2009 um 16:19 Uhr (0)
Hi,mal was auf die Schnelle...(defun c:xy-ord (/ en SelSet) ;; (xy-ord) (princ "
X-Koordinatenbemaßung ") (if (setq SelSet (ssget ( (-4 . "AND") (0 . "DIMENSION") (70 . 102);(-4 . "&" ) (70 . 6 ) (-4 . "AND") ) ) ) (foreach x (mapcar (function cadr) (ssnamex SelSet)) (setq en (entget x)) (entmod (subst (cons 1 (strcat (cdr (assoc 1 en)) "X= " (rtos (car (cdr (assoc 13 en))) 2 2) " " "Y= " (rtos (cadr (cdr (assoc 13 en))) 2 2) ) ) (assoc ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Ordinatenbemassung, tausche X-Daten gegen Y-daten
Dorfy am 11.08.2009 um 10:22 Uhr (0)
hi,na dann mal soneuen BemStil erstellenund(defun c:xy-ord2 (/ dp asatz n elemli) (princ "
X-Koordinatenbemaßung ") (if (setq asatz (ssget ( (-4 . "AND") (0 . "DIMENSION") (70 . 102) ;;(-4 . "&" ) (70 . 6 ) (-4 . "AND") ) ) dp (getpoint "Durchpunkt Koordinatenbemaßung: ") ) (progn (setq n 0) (repeat (sslength asatz) (setq elemli (cons (ssname asatz n) elemli) n (1+ n) ) ) (foreach x elemli (command "_dimordinate" (cdr (assoc 13 (entget x))) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Ordinatenbemassung, tausche X-Daten gegen Y-daten
Dorfy am 11.08.2009 um 14:14 Uhr (0)
Hi Christoph,weils Spaß macht (defun c:xy-ord3 (/ ent dpy dpy vtex entlax) (if (and (setq ent (vl-catch-all-apply entsel (list "
Wähl mal ne Polylinie: ") ) ) (setq dpx (vl-catch-all-apply getpoint (list "
X-Line: ") ) ) (setq dpy (vl-catch-all-apply getpoint (list "
Y-Line: ") ) ) (setq vtex (vl-remove-if-not (function (lambda (v /) (member (car v) (10)))) (entget (car ent)) ) ) ) (foreach v vtex (command "_dimordinate" (cdr v) "X" (lis ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Buchempfehlung - ACAD Anpassung
Dorfy am 14.08.2009 um 06:35 Uhr (0)
Zitat:Original erstellt von carmelli76:Ja, ich finde, das sieht ganz gut aus.Das sieht nicht nur gut aus, da ist auch das "Kochbuch AutoLISP" als eBook bei, dieses ist (man munkelt) nicht mehr so einfach zu beschaffen.------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Installationsproblem AutoCAD sei bereits installiert!
Dorfy am 24.08.2009 um 10:30 Uhr (0)
hi,versuch mal zum Löschen der Datei den unlocker hat schon oft gute Dienste geleistet ------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm)
|
| In das Form Rund um AutoCAD wechseln |
