|
Rund um Autocad : Ausgleichsgerade
joern bosse am 04.01.2005 um 18:40 Uhr (0)
Hallo Olli, wenn Du die Punkte entweder als AutoCAD-Punkte oder als Blöcke vorliegen hast, dann kann man daraus ganz einfach die zu übergebende Punktliste erstellen, aber nicht mehr heute. ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Ausgleichsgerade
joern bosse am 05.01.2005 um 07:58 Uhr (0)
Hallo Olli, ich meinte das mit den Punktlisten aus Blöcken oder Punkten so: (defun aws_ag ( / aws n punktliste) (princ
Bitte Blöcke oder Punkte für die ausgleichende Gerade auswählen: ) (setq aws (ssget (list (-4 . OR ) (0 . INSERT ) (0 . POINT ) (-4 . OR )))) (if aws (progn (setq n 0) (repeat (sslength aws) (setq punktliste (append punktliste (list (cdr(assoc 10(entget(ssname aws n))))))) (setq n (+ n 1))) (if punktliste (Ausgleich ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Messreihen importieren
joern bosse am 12.01.2005 um 08:22 Uhr (0)
Hallo Praktikant, für Deinen Fall könntest Du folgendes LISP ausprobieren (ich habe jetzt erst gesehen, daß Dein Eintrag ja schon ziemlich alt ist, aber egal, falls Du es immer noch brauchst). Es wird an jeder Koordinate ein Punkt erzeugt. Voraussetzung: Die Nachkommstellen Deiner Koordinaten müssen immer einen festen Wert habe, in diesem Fall 8, wenn es anders ist, ist die Variable "nachkomma" in der Funktion "xyz" entsprechend zu ändern. Und natürlich: DIE ERGEBNISS PRÜFEN. (defun c:koord_in ( / datei ze ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Attribute Texthöhe
joern bosse am 17.01.2005 um 08:50 Uhr (0)
Hallo Petra,probier mal die angehängte LISP-Datei aus. Aufruf mit "att_hoehe". Du wird dann aufgefordert die Höhe einzugeben, dann Blöcke auszuwählen. Alle enthaltenen Attribute sollten dann die entsprechende Attributs(Text)höhe bekommen, der Basispunkt der Attribute wird so geändert, das das Verhältnis Basispunkt Block - Basispunkt Attribut im Bezug zur Attributshöhe erhalten bleibt.------------------viele GrüßeJörn
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Koordinaten
joern bosse am 26.01.2005 um 12:43 Uhr (0)
Hallo Schlotti, Du mußt die *.dcl Datei in einen ACAD-Supportpfad kopieren, damit die Lisp-Routine diese finden kann. ------------------ 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 : 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 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 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 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 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 |
|
Rund um Autocad : Attribut-Koordinaten
joern bosse am 09.03.2005 um 09:11 Uhr (0)
Hallo Petra, Du könntest folgende Code als LISP-Datei abspeichern und dann die Funktion über einen button aufrufen (wenn sie geladen ist): (defun test ( / ) (command -eattext o (princ Bitte Blöcke auswählen: ) (ssget) n n j c: emp est.blk x c: emp est.xls )) und das Macro für den Button: ^C^C(test) ------------------ viele Grüße Jörn
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Block im Block
joern bosse am 27.05.2005 um 09:34 Uhr (0)
Hallo Olliver, wenn Du soviele Blöcke hast kannst Du das zwar in die LISP-Datei einarbeiten, aber es macht dann mehr Sinn, mit einer externen Textdatei zu arbeiten. z.B. TGL_6321;BAUM TGL_3110;TOPOGRAFISCHER_PUNKT ... wobei nur ein Trennzeichen festgelegt werden muß. Wenn Du die Daten aus einer Excel-Tabelle rauskopierst kann das Trennzeichen auch ein Tab sein. Wenn Du aber auf die schnelle erstmal weitermachen willst, dann kannst Du in der LISP-Datei folgendermaßen vorgehen: Wenn Du dem Block TGL_#### den ...
|
| In das Form Rund um Autocad wechseln |
