| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| CAD-Automatisierung: Effizienzsteigerung durch smarte Methoden, ein Webinar am 11.10.2024
|
Autor
|
Thema: Polylinie Segmente bemassen (2317 / mal gelesen)
|
fralei Mitglied Techniker
Beiträge: 56 Registriert: 24.11.2014
|
erstellt am: 18. Apr. 2016 14:45 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, habe eine Polylinie mit ca. 200 Segmenten die ich nun bemassen müsste. Gibt es LISP-Programm bei dem ich die Polylinie anklicke und dann automatisch alle Segmentlängen bemasst werden? jeweils die ausgerichtete Länge - Befehl QDIM liefert nicht das gewünschte Ergebnis da die Bemassung linear erfolgt. Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 18. Apr. 2016 14:52 <-- editieren / zitieren --> Unities abgeben: Nur für fralei
Sind die Segmente alle geradlinig oder sind auch Bögen enthalten? Wie sieht die Bemaßung manuell aus - neben der Linie oder auf der Linie, in welchem Abstand... Am besten ein korrekt bemaßtes Beispiel als DWG posten. ------------------ Mit freundlichem Gruß Udo Hübner www.CAD-Huebner.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 18. Apr. 2016 14:54 <-- editieren / zitieren --> Unities abgeben: Nur für fralei
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 18. Apr. 2016 14:57 <-- editieren / zitieren --> Unities abgeben: Nur für fralei
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 18. Apr. 2016 15:11 <-- editieren / zitieren --> Unities abgeben: Nur für fralei
Hab hier mal was auf die Schnelle zusammengeklöppelt - vielleicht reicht es ja schon: Code: (defun C:UHDIMPL ( / sslw cnt endparam) (prompt "Polyliniensegmente bemaßen - Udo Hübner - April 2016") (Prompt "\nPolylinie wählen :") (if (setq sslw (ssget "_:S" (list (cons 0 "LWPOLYLINE")))) (progn (setq endparam (vlax-curve-getendparam (setq pl (ssname sslw 0)))) (setq cnt 0) (repeat (fix endparam) (command "_DIMALIGNED" (vlax-curve-getpointatparam pl cnt) (vlax-curve-getpointatparam pl (setq cnt (1+ cnt))) (vlax-curve-getpointatparam pl cnt) ) ) ) ) )
------------------ Mit freundlichem Gruß Udo Hübner www.CAD-Huebner.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fralei Mitglied Techniker
Beiträge: 56 Registriert: 24.11.2014
|
erstellt am: 18. Apr. 2016 15:18 <-- editieren / zitieren --> Unities abgeben:
|
fralei Mitglied Techniker
Beiträge: 56 Registriert: 24.11.2014 HP ZBook Fury 15 G7 Mobile Workstation Windows 10 64bit-32GB RAM-Nvidia Quadro RTX3000 AutoCAD Civil 3D 2023 Autocad 2023 Solidworks 2020 SP5
|
erstellt am: 18. Apr. 2016 15:28 <-- editieren / zitieren --> Unities abgeben:
das ist schon mal super vielen Dank, perfekt wäre, wenn man dann noch einen Versatz von der Polylinie eingeben und die Seite der Bemaßung wählen könnte [Diese Nachricht wurde von fralei am 18. Apr. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 3067 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 18. Apr. 2016 15:29 <-- editieren / zitieren --> Unities abgeben: Nur für fralei
Hy Udo würd sagen das passt ;-) Wichtig BemStil vorher einrichten cw Zitat: Original erstellt von CAD-Huebner: Hab hier mal was auf die Schnelle zusammengeklöppelt - vielleicht reicht es ja schon:
Code: (defun C:UHDIMPL ( / sslw cnt endparam) (prompt "Polyliniensegmente bemaßen - Udo Hübner - April 2016") (Prompt "\nPolylinie wählen :") (if (setq sslw (ssget "_:S" (list (cons 0 "LWPOLYLINE")))) (progn (setq endparam (vlax-curve-getendparam (setq pl (ssname sslw 0)))) (setq cnt 0) (repeat (fix endparam) (command "_DIMALIGNED" (vlax-curve-getpointatparam pl cnt) (vlax-curve-getpointatparam pl (setq cnt (1+ cnt))) (vlax-curve-getpointatparam pl cnt) ) ) ) ) )
------------------ Also ich finde Unities gut ... und andere sicher auch ------------------------------------------------ cadwomen™ Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |