|
Rund um AutoCAD : Handle und-color: #FFFF99'>suchen
joern bosse am 05.03.2008 um 12:44 Uhr (0)
Hei Marc, Zitat:Na Jörn, DAS kannst doch besser...Na klar kann ich das besser, das wissen sogar meine Kunden ------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Mtext auf Textstil ändern
joern bosse am 16.01.2006 um 09:36 Uhr (0)
Hallo Hänk,probier mal folgenden Code, überprüfe aber bitte die Ergebnisse da ich es nicht großartig getestet habe!!!Code:(defun c:textstil_mtext ( / aws n string) (princ "
Bitte und-color: #FFFF99'>Mtexte wählen:") (setq aws (ssget (list (cons 0 "MTEXT")))) (if aws (progn (setq n 0) (repeat (sslength aws)(setq string (cdr(assoc 1 (entget (ssname aws n)))))(while (vl-string-search "f" string) (setq string (strcat (substr string 1 (vl-string-search "f" string))(substr(substr string (+ 4 (vl-string-search"f" string)))(+ 2 ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : mtext und farbe von layer
joern bosse am 09.05.2005 um 15:50 Uhr (1)
Hallo,ich habe ein bißchen gebastelt, im kleinen Testdurchlauf hat es auch funktioniert.Die Funktion entfernt nur die Formatierungen für die Farbe, die geschweiften Klammern bleiben erhalten, falls noch weitere Formatierungen enthalten sind.Ihr könnt das ja mal ausprobieren und die Ergebnisse aber bitte prüfen.;;;Jörn Bosse, 09.05.05(defun c:farbe_mtext ( / aws n string) (princ "
Bitte und-color: #FFFF99'>Mtexte wählen:") (setq aws (ssget (list (cons 0 "MTEXT")))) (if aws (progn (setq n 0) (repeat (sslength aws) (setq ...
|
| In das Form Rund um AutoCAD 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 |
|
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 |
|
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 |
|
Rund um AutoCAD : Blöcke ersetzen, Attribute behalten
joern bosse am 22.08.2008 um 15:37 Uhr (0)
Hallo Matze,ich habe da ein Tool (kostenpflichtig),aber die 30Tage-Testversion hilft Dir vielleicht schon weiter: http://www.bosse-engineering.com/bosse-engineering/programme/att_block.zip Es werden Blöcke A durch Blöcke B ersetzt. Dabei können die Attributseigenschaften aus dem Block A den Attributen aus Block B einzeln zugeordnet werden, z.B. der Layer.------------------viele GrüßeJörnhttp://www.bosse-engineering.com[Diese Nachricht wurde von joern bosse am 22. Aug. 2008 editiert.]
|
| In das Form Rund um AutoCAD 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 28.01.2005 um 13:18 Uhr (0)
hallo matthias, also da hat Lothar schon recht, die *.lay Datei konnte ich so nicht verwenden, und in der DWG-Datei war lediglich der Layer 0 vorhanden. Aber ich habe mich mal versucht, und beim Test mit Lediglich 2 Layer hat die Funktion getan, Also. Layer_umb.lsp über Anwendung laden , dann über layer_umb aufrufen. Wenn die Funktion durchgelaufen ist, dann ist es an Dir, die Ergebnisse zu prüfen!!!, wenn sie nicht durchgelaufen ist, dann ist es ebenfalls an Dir, die DWG-Datei mit den Layern noch mal h ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layernamen automatisch ersetzen ?
joern bosse am 31.01.2005 um 18:23 Uhr (0)
Hallo Matthias, daß Deine Zeichnung größer wird ist klar, die Layerbezeichnungen sind ja auch länger geworden und dementsprechend muß mehr gespeichert werden, das hat nichts mit der LISP-Datei zu tun. Das Du mehr Layer bekommen hast kann ich nicht nachvollziehen, ich habe in der Zeichnung von der Konvertierung 40 Layer + den Layer 0 und nach der Konvertierung ebenfalls. Ich schicke Dir die Layer der beiden Zeichnungen als txt.-Dateien mit. Die TXT-Datei, die Du mir gesendet hast habe ich nicht in eine L ...
|
| In das Form Rund um Autocad wechseln |
