|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 18.05.2011 um 18:31 Uhr (0)
Hallo Udo,ja das könnte ich, zu diesem Thema haben mir Heiko und CADwiesel auch schon einen schönen Link geschickt : http://www.theswamp.org/index.php?topic=29430.0 Aber in der Funktion scheint noch ein Fehler zu sein (bei meinen Beispiel-und-color: #FFFF99'>MTexten kommen die Texte nicht in der richtigen Größe raus)Mir geht es nur darum, daß ich den MText zur Laufzeit eines DCL-Fensters in den Ursprung zerlegen will, daher keine Command. Nun muss ich abwägen, ob es mir der Aufwand Wert ist oder nicht. Es hätte ja sein könne ...
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 18.05.2011 um 16:26 Uhr (0)
Hallo Heiko, das überzeugt mich, aber was mache ich denn wieder falsch, wenn ich die Funktion VLAX-DUMP-OBJECT verwende erscheint nur die halbe Liste (Unterstütze Methoden wurden bei mir nicht gelistet)Befehl: (vlax-dump-object (vlax-ename-vla-object(car(entsel))))Objekt wählen: ; IAcadBlockReference2: AutoCAD Block Reference-Schnittstelle (Blockreferenz); Eigenschaftswerte:; Application (RO) = #VLA-OBJECT IAcadApplication 00e38c90; Document (RO) = #VLA-OBJECT IAcadDocument 318a7980; EffectiveName (RO) ...
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
joern bosse am 18.05.2011 um 16:26 Uhr (0)
Hallo Heiko, das überzeugt mich, aber was mache ich denn wieder falsch, wenn ich die Funktion VLAX-DUMP-OBJECT verwende erscheint nur die halbe Liste (Unterstütze Methoden wurden bei mir nicht gelistet)Befehl: (vlax-dump-object (vlax-ename-vla-object(car(entsel))))Objekt wählen: ; IAcadBlockReference2: AutoCAD Block Reference-Schnittstelle (Blockreferenz); Eigenschaftswerte:; Application (RO) = #VLA-OBJECT IAcadApplication 00e38c90; Document (RO) = #VLA-OBJECT IAcadDocument 318a7980; EffectiveName (RO) ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Blöcke ersetzen, Attribute behalten
joern bosse am 22.08.2008 um 16:35 Uhr (0)
Hallo Matze,dann würde ich die alten Blöcke (wenn es nicht so viele sind) mit einem den neuen Blöcken entsprechenden Basispunkt und einem passenden Drehwinkel neudefinieren und dann ersetzen.Oder stell doch mal ein Beispiel hier rein, vielleicht findet sich noch eine einfache Lösung.------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 31.01.2005 um 14:10 Uhr (0)
hallo Matthias, ich habe die Datei als 2004er abgespeichert, also, jetzt nochmal im 2000er Format. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 28.01.2005 um 09:41 Uhr (0)
@matthias, das könnte man, aber ich weiß jetzt immer noch nicht, wie Deine Layer aus der DXF-Datei zur Zeit heißen. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Kreise ersetzen
joern bosse am 11.11.2011 um 07:27 Uhr (0)
@Wolfgang: auch ich hatte nicht auf dem Zettel, tolle Sache und erstma ein paar Us dafür ------------------viele GrüßeJörnhttp://www.bosse-engineering.com[Diese Nachricht wurde von joern bosse am 11. Nov. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 28.01.2005 um 16:02 Uhr (0)
Hallo Matthias, Du brauchst gar nicht weiter zu probieren, es waren noch ein paar kleine Fehler in der LISP-Datei. Ich schicke Sie nochmals korrigiert mit und auch die DWG-DAtei mit den umbenannten Layern, aber wie gesagt, die Prüfung der Layer liegt bei Dir. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 27.01.2005 um 17:13 Uhr (0)
Hallo Matthias, wie sieht die Textdatei genau aus, sind die Nummern und die zugeordneten Layernamen in einer Zeile, durch ein festes Trennzeichen getrennt? Oder stehen die Angaben immer unter einander? Wenn ich das wüßte könnte man in LISP was basteln. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Lisp : String in Liste ersetzen
joern bosse am 30.10.2006 um 14:51 Uhr (0)
Hallo Wasti,na ein Versuch noch ohne subst:Code:(defun c:test2 ( / obf1) (setq obf (list "A0" "A1" "A2" "A3" "A4")) (while obf (if (=(car obf)"A2") (setq obf1 (cons "A=" obf1)) (setq obf1 (cons (car obf) obf1))) (setq obf (cdr obf))) (reverse obf1))------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
joern bosse am 15.11.2011 um 07:12 Uhr (0)
@wolfgang,vielleicht sollte man dem Wort Plausibilität ein bißchen mehr Gewicht geben. Ich denke es ist gerade in diesem Fall einfach herauszufinden, wenn immer nur Kreise ausgewählt werden, deren gewünschter Durchmesser doppelt so groß ist, daß sich bei dem GC 40 nicht um den Durchmesser sondern um den Radius handelt.------------------viele GrüßeJörnhttp://www.bosse-engineering.comStammtisch in Wolfsburg http://ww3.cad.de/foren/ubb/Forum491/HTML/000179.shtml
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Handle und-color: #FFFF99'>suchen
joern bosse am 05.03.2008 um 10:52 Uhr (0)
Hallo Lutz,versuche mal folgendes LISP:Code:(defun c:test ( / handle) (if(and(setq handle(getstring "
Bitte Handle eingeben:")) (handent handle)) (if(cdr(assoc 10 (entget(handent handle)))) (command "_.line" (cdr(assoc 10 (entget(handent handle))))pause) (alert "ungültiges Objekt")) (alert "Handle ist nicht vorhanden.") ))Den Linienbefehl habe ich zweckentfremdet, dadurch hängt das gesuchte Objekt aber am Mauscurser. = einfach abbrechen.WKS ist Voraussetzung.------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 27.01.2005 um 18:00 Uhr (0)
Hallo Matthias, dann gleich ein Frage für morgen, hier mal ein Beispiel aus Deiner Datei: 82/ 4261G | Klein-, Schrebergarten, Laubenkolonie | 0 Wie ist die Layerbezeichnung dazu in der DXF-Datei, du sagst eine Nummer, aber der / kann als Sonderzeichen im Layer eigentlich nicht vorhanden sein. Wie soll die Layerbezeichnung werden, Klein ?? Man könnte den neuen Layernamen grundsätzlich bis zum ersten Komma, Leerzeichen oder Klammer auslesen, damit keine Sonderzeichen in den Layernamen aufgenomm ...
|
| In das Form Rund um Autocad wechseln |
