| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| SAP PLM zentraler Bestandteil des Lösungsangebots, eine Pressemitteilung
|
Autor
|
Thema: Bemassung Polylinie (4906 mal gelesen)
|
nebuCADnezzar Mitglied
Beiträge: 292 Registriert: 17.10.2007 AutoCAD 2021 Mechanical 2021 Inventor 2021 64 bit Win 10 AMD Ryzen Pro 3700U
|
erstellt am: 11. Jun. 2013 17:44 <-- editieren / zitieren --> Unities abgeben:
Hallo Die Suche hat nicht wirklich das gebracht was ich suchte, auch in "ingelisch" hat google nicht was wirklich brauchbares gefunden... Eigentlich benötige ich eine Bemassungsfunktion die die gesammt Polyline (bestehend aus Geraden und Kurven) beschriftet. Zur Zeit mache ich entweder ne Ausgerichtete Bem und überschreibe den Text, oder ich konstruiere die Bemassung mittels "versetze ensprechnende PLinie, kopiere Pfeile hin, Hilfslinien, Text,..." Ich hab n vlx gefunden das gar nichts machte, autobemassungen die alle Teilstücke einzel beschrifteten... aber nicht was ich möchte... Gruss Robin ------------------ ...glaubst das ist luft die du gerade atmest? in diesem raum... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 Windows 10 64bit, ACAD Rel. 14 - ACAD 2023
|
erstellt am: 11. Jun. 2013 18:51 <-- editieren / zitieren --> Unities abgeben: Nur für nebuCADnezzar
|
Clayton Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 07.02.2004 AMD Athlon 64X2 5600+, 1GB, Nvidia Quadro Pro FX 1100 Inventor Series 10 Mathcad 13
|
erstellt am: 11. Jun. 2013 19:46 <-- editieren / zitieren --> Unities abgeben: Nur für nebuCADnezzar
|
rexxitall Mitglied Dipl. -Ing. Bau
Beiträge: 270 Registriert: 07.06.2013
|
erstellt am: 11. Jun. 2013 23:34 <-- editieren / zitieren --> Unities abgeben: Nur für nebuCADnezzar
Polylinien "im Prinzip" zu bemassen ist kein Problem. "bissi" VBA und Vektorgeometrie "ferrditsch"... Siehe Acad VBA Hilfe. In VBA kann man recht "simpel" sich die Koordinaten der Polylinien besorgen. Auch Radien lassen sich organisieren. Fazit aus eigener Erfahrung machbar ! Haken: Acad hat "at least" 3 varianten von Polylinien. Der Rest wird inclusive Verwaltung aufwaendiger. Texte mit Massen einfuegen. etc. (Aus eigener Erfahrung ich hab mir nen Bewehrungsmodul geschrieben) Sorry DEN Code poste ich nicht ! Im VBA editor sub polylinebemassen dim Poly as acadpolyline dim P2 as acad2dpolyline dim P3 as acad3dpolyline dim g as acadgroup dim t as acadtext dim m as acadmtext dim b as acadblockreference dim a as acadattribute end sub cursor auf wort nach dim stellen stellen und F1 druecken Da weiterlesen und sofern vorhanden mal auf Beispiel klicken.
Google ist auch ne idee ... LG aus Finnland. ------------------ wer es nicht versucht, hat schon verlorn [Diese Nachricht wurde von rexxitall am 11. Jun. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bbernd Ehrenmitglied Technischer Zeichner / Zimmerermeister
Beiträge: 1621 Registriert: 20.02.2009 AutoCAD 2021, 2023 nanoCAD 5 Gimp 2.10 Windows10 64bit 64 GB Arbeitsspeicher NVIDIA RTX A4000
|
erstellt am: 12. Jun. 2013 07:54 <-- editieren / zitieren --> Unities abgeben: Nur für nebuCADnezzar
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 12. Jun. 2013 08:07 <-- editieren / zitieren --> Unities abgeben: Nur für nebuCADnezzar
|
nebuCADnezzar Mitglied
Beiträge: 292 Registriert: 17.10.2007 AutoCAD 2021 Mechanical 2021 Inventor 2021 64 bit Win 10 AMD Ryzen Pro 3700U
|
erstellt am: 12. Jun. 2013 08:19 <-- editieren / zitieren --> Unities abgeben:
Hallo Ich habe mal n Beispielbild angefügt und gerade eben n code gefunden der mit zumindest die Linien aufkonstruiert! Ich muss dem nun nur noch beibringen den test mit der Länge hinzuschreiben (z.B. als Schriftfeld...). Wies aussieht kann ich mir die Zeit aber diese Woche nicht nehmen... Aber ich melde mich nochmal fals ich es schaffe... Meiner Erfahrung nach geht auch beinahe alles ich hab mir zu Zeiten wo ich LISP noch besser im grif hatte n Schalungsmodul zusammengezimmert... Dafür hab ich keinen blassen von VBA... Gruss nebu Code: ;; Dimension Curve - Lee Mac 2012 (defun c:Dimcurve ( / _line _arrow a b cm el en pt ) (defun _line ( a b ) (entmake (list '(0 . "LINE") (cons 10 a) (cons 11 b))) ) (defun _arrow ( a b ) (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 2) '(70 . 0) (cons 10 a) '(40 . 0.0) (cons 41 (/ (distance a b) 3.0)) (cons 10 b) ) ) ) (while (progn (setvar 'errno 0) (setq en (car (entsel))) (cond ( (= 7 (getvar 'errno)) (princ "\nMissed, try again.") ) ( (eq 'ename (type en)) (if (not (wcmatch (cdr (assoc 0 (entget en))) "ARC,CIRCLE,ELLIPSE,LINE,LWPOLYLINE,SPLINE")) (princ "\nInvalid Object Selected.") ) ) ) ) ) (if (and en (setq pt (getpoint "\nSpecify Dimension Offset: " (trans (vlax-curve-getpointatparam en (/ (+ (vlax-curve-getendparam en) (vlax-curve-getstartparam en)) 2.0) ) 0 1 ) ) ) ) (progn (setq el (entlast) cm (getvar 'cmdecho) ) (setvar 'cmdecho 0) (command "_.offset" "_T" en "_non" pt "") (setvar 'cmdecho cm) (if (equal el (setq el (entlast))) (princ "\nUnable to Create Dimension Line.") (progn (setq a (vlax-curve-getstartpoint en) b (vlax-curve-getstartpoint el) ) (_line (polar a (angle a b) (/ (distance a b) 6.0)) (polar b (angle a b) (/ (distance a b) 6.0)) ) (setq a (vlax-curve-getendpoint en) b (vlax-curve-getendpoint el) ) (_line (polar a (angle a b) (/ (distance a b) 6.0)) (polar b (angle a b) (/ (distance a b) 6.0)) ) (_arrow (vlax-curve-getstartpoint el) (polar (vlax-curve-getstartpoint el) (angle '(0.0 0.0 0.0) (vlax-curve-getfirstderiv el (vlax-curve-getstartparam el))) (getvar 'dimasz) ) ) (_arrow (vlax-curve-getendpoint el) (polar (vlax-curve-getendpoint el) (+ pi (angle '(0.0 0.0 0.0) (vlax-curve-getfirstderiv el (vlax-curve-getendparam el)))) (getvar 'dimasz) ) ) ) ) ) ) (princ) ) (vl-load-com) (princ)
------------------ ...glaubst das ist luft die du gerade atmest? in diesem raum... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nebuCADnezzar Mitglied
Beiträge: 292 Registriert: 17.10.2007 AutoCAD 2021 Mechanical 2021 Inventor 2021 64 bit Win 10 AMD Ryzen Pro 3700U
|
erstellt am: 12. Jun. 2013 08:45 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas Wie immer hast du den Nagel auf den Kopf getroffen! Sollten wir uns je mal persönlich kennenlernen geb ich dir n groooses Bier aus (oder besser ne Kiste ) Vielen Dank! ------------------ ...glaubst das ist luft die du gerade atmest? in diesem raum... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |