| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Polylinie Segmente bemassen (2224 / mal gelesen)
|
fralei
Mitglied
Techniker
   Beiträge: 51
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: 9732
Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10
|
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: 847
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: 2966
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: 9732
Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10
|
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: 51
Registriert: 24.11.2014
|
erstellt am: 18. Apr. 2016 15:18 <-- editieren / zitieren --> Unities abgeben:
|
fralei
Mitglied
Techniker
Beiträge: 51
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: 2966
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 |
Foren auf CAD.de (alle Foren)
| 
