|
Rund um Autocad : Text global ersetzen?
CADmium am 08.07.2004 um 11:09 Uhr (0)
Versuch mal (command _.erase (ssget _x (list (0 . *TEXT )(cons 1 (* ))) ) (erstell vorher ne Kopie ) ------------------ - Thomas -
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Kreise ersetzen
CADmium am 11.11.2011 um 09:42 Uhr (0)
(setq AWS (ssget "_X" ((0 . "CIRCLE")(40 . 1.0))))wählt alle Kreise mit Radius 1.0hilft das schon ?------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Command _.UCS mit Setvar ersetzen
CADmium am 26.06.2008 um 16:13 Uhr (0)
UCSNAME ,UCSXDIR ,UCXYDIR, UCSORGsind aber schreibgeschützt ...------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : und-color: #FFFF99'>Suchen Programierer
CADmium am 08.06.2004 um 16:23 Uhr (0)
Schau mal z.B. hier und hier ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Block und-color: #FFFF99'>suchen
CADmium am 28.01.2008 um 14:23 Uhr (0)
Stichwort: Schnellauswahl! _qselect------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Kreise ersetzen
CADmium am 09.11.2011 um 10:34 Uhr (0)
Zitat:Original erstellt von mundal:Hallo,ich habe Grundkenntnisse in LISPKann (mit viel zeit und Aufwand) vorhandene Programme anpassen.GrußHeinzna dann guck dir das mal an------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Blöcke ersetzen
CADmium am 20.04.2009 um 09:41 Uhr (0)
Dafür gibts imho keinen eingebauten Automatismus. Tool sollte da helfen. IMHO gibts da sogar schon was auf cad.de.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Kreise ersetzen
CADmium am 10.11.2011 um 16:01 Uhr (0)
1.).. kommt immer drauf an 2.).. und ich nehm keine bau_elemli 3.).. die übrigens ne Frühwerk von Holger istaber schön, dass du noch mal ssnamex aufs Tablett gebracht hast .. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Texte ersetzen
CADmium am 11.04.2011 um 15:08 Uhr (0)
mal ein Codeschnipsel als Anregung(setq TEXT "207.9")(setvar "DIMZIN" 4)(if(setq VALUE(distof TEXT))(setq TEXT (rtos VALUE 2 2)))------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Layername durch den Blocknamen ersetzen
CADmium am 20.08.2009 um 17:48 Uhr (0)
Betreffs Lispladen guck mal hier oder zum drucken------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Ersetzen löscht mehr als geplant
CADmium am 14.10.2008 um 11:21 Uhr (0)
ersetze mal p durch P ... also großgeschrieben------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Element aus Liste ersetzen
CADmium am 29.05.2013 um 15:06 Uhr (0)
(setq LISTE (("A1" "A1") ("A2" "A2") ("A3" "A3") ("A4" "A4") ("A5" "A5")))(subst ("A3" "QUATSCH") ("A3" "A3") LISTE)------------------Also ich finde Unities gut ... und andere sicher auch--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
CADmium am 11.11.2011 um 13:38 Uhr (0)
mal ein Codeschnipsel dazu(mapcar (lambda(Y)(ssdel Y AWS)) (vl-remove-if (lambda(X ) ( 1.0 (setq Y(cdr(assoc 40(entget X)))) 4.0)) (mapcar cadr(ssnameX(setq AWS (ssget "_X" ((0 . "CIRCLE")))))) )) (sssetfirst nil AWS)------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
