| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| CIDEON Whitepaper: Elektronik und Mechanik redundanzfrei vereinen: Der Weg zur mechatronischen Stückliste, ein Whitepaper
|
Autor
|
Thema: 3D -Längen messen (2337 mal gelesen)
|
Seyfarth Mitglied Zeichner
Beiträge: 22 Registriert: 24.04.2002 ACAD2002-Deu,Sp1; Win2000; Matrox_G550; HP750C_Plus
|
erstellt am: 26. Jan. 2004 11:19 <-- editieren / zitieren --> Unities abgeben:
Hallo ! ich muß aus einem Katasterplan die Länge einer Kabeltrasse ermitteln. Die Trasse ist 3D gezeichnet und aus endlos vielen Teilen zusammengesetzt. Meine Idee bis jetzt : die Teile zu einem Element (Linie) verbinden und über den Befehl "liste" wird dann die 3D-Länge angezeigt. (richtig so ?) Wie kann ich die vielen 3D-Teile zu einer Linie verbinden? Oder hat jemand eine andere Lösung für das Problem? Danke im voraus! I.Seyfarth Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 26. Jan. 2004 11:23 <-- editieren / zitieren --> Unities abgeben: Nur für Seyfarth
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 26. Jan. 2004 11:24 <-- editieren / zitieren --> Unities abgeben: Nur für Seyfarth
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 26. Jan. 2004 11:39 <-- editieren / zitieren --> Unities abgeben: Nur für Seyfarth
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 26. Jan. 2004 11:45 <-- editieren / zitieren --> Unities abgeben: Nur für Seyfarth
Hi, versuch mal dies hier, Du mußt nur ein Objekt auf dem Layer wählen für den die Längen zu ermitteln sind. Herausgefiltert werden: *POLYLINE, SPLINE, CIRCLE, ELLIPSE, ARC,LINE Code:
(defun C:LSUMME2 (/ VLADOC APICKSTYLE OBJ LAYER AUSW LEN Z O VLAO) (vl-load-com) (setq VLADOC (vla-get-activedocument (vlax-get-acad-object)) APICKSTYLE (vla-getvariable VLADOC "PICKSTYLE") ) (vla-setvariable VLADOC "PICKSTYLE" (vlax-make-variant 0 2)) (setq OBJ (vl-catch-all-apply 'entsel (list "\nWählen Sie ein lineares Objekt: ") ) ) (if (vl-catch-all-error-p OBJ) (setq OBJ NIL) (setq OBJ (car OBJ)) ) (if OBJ (progn (setq LAYER (cdr (assoc 8 (entget OBJ)))) (setq AUSW (ssget "X" (list (cons 8 LAYER) '(-4 . "<OR") '(0 . "*POLYLINE") '(0 . "SPLINE") '(0 . "CIRCLE") '(0 . "ELLIPSE") '(0 . "ARC") '(0 . "LINE") '(-4 . "OR>") ) ) ) (if AUSW (progn (setq Z -1 LEN 0.0 ) (repeat (sslength AUSW) (setq Z (1+ Z) O (ssname AUSW Z) VLAO (vlax-ename->vla-object O) ) (cond ((apply 'or (mapcar '(lambda (X) (= (cdr (assoc 0 (entget O))) X)) '("POLYLINE" "LWPOLYLINE" "ELLIPSE" "SPLINE") ) ) (setq LEN (+ LEN (vlax-curve-getdistatparam VLAO (vlax-curve-getendparam VLAO) ) ) ) ) ((= (cdr (assoc 0 (entget O))) "CIRCLE") (setq LEN (+ LEN (vla-get-circumference VLAO))) ) ((= (cdr (assoc 0 (entget O))) "ARC") (setq LEN (+ LEN (vla-get-arclength VLAO))) ) ((= (cdr (assoc 0 (entget O))) "LINE") (setq LEN (+ LEN (vla-get-length VLAO))) ) ) ; cond ) ; repeat (alert (strcat "Der Länge aller " (itoa (sslength AUSW)) " linearen Zeichnungselemente im\nLayer " LAYER " beträgt " (rtos LEN) " m." ) ) ) ; progn ) ; if ) ; progn ) ; if (vla-setvariable VLADOC "PICKSTYLE" APICKSTYLE) (princ) ) ; bil_l(princ "\nStart mit \"LSUMME2\".")
. ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Seyfarth Mitglied Zeichner
Beiträge: 22 Registriert: 24.04.2002 ACAD2002-Deu,Sp1; Win2000; Matrox_G550; HP750C_Plus
|
erstellt am: 26. Jan. 2004 12:29 <-- editieren / zitieren --> Unities abgeben:
Hallo Marc, habe dein Programm ausprobiert und leider: Fehler: no function definition: LINIE Was habe ich vergessen oder falsch gemacht? Hallo Bernd,
dein Programm habe ich auch probiert, nur habe ich über 2000 einzelne Teilstücke und das Programm mag max. 15 I.Seyfarth
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 26. Jan. 2004 12:40 <-- editieren / zitieren --> Unities abgeben: Nur für Seyfarth
|
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 26. Jan. 2004 13:35 <-- editieren / zitieren --> Unities abgeben: Nur für Seyfarth
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 26. Jan. 2004 14:24 <-- editieren / zitieren --> Unities abgeben: Nur für Seyfarth
Hi Seyfarth, k.A. was Du falsch gemacht hast. Du mußt den Code von: "(defun C:LSUMME2 (/ VLADOC APICKSTYLE OBJ LAYER AUSW LEN Z O VLAO)..." bis ... (princ "\nStart mit \"LSUMME2\".") komplett markieren, via Zwischenablage in 'ne Textdatei kopieren, die Datei speichern als z.B. "lsumme2.lsp", diese in Acad laden und dann nur noch den Befehl "lsumme2" eingeben... Bei mir geht das problemlos, der Code ist intakt. ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Seyfarth Mitglied Zeichner
Beiträge: 22 Registriert: 24.04.2002 ACAD2002-Deu,Sp1; Win2000; Matrox_G550; HP750C_Plus
|
erstellt am: 27. Jan. 2004 09:45 <-- editieren / zitieren --> Unities abgeben:
Hallo, danke für Eure Bemühungen, habe fast alle Angebote ausprobiert. Die LSP von Bernd paßt am besten zu meinem Problem. Bernd, ich werde mir deine "Vollversion" holen! Nochmal Danke! I.Seyfarth Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 27. Jan. 2004 10:05 <-- editieren / zitieren --> Unities abgeben: Nur für Seyfarth
|