| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Entmake Bemaßung (1524 mal gelesen)
|
Danillo Mitglied Bauingenieur
Beiträge: 229 Registriert: 12.11.2003 Windows 10 - AutoCAD 2023
|
erstellt am: 02. Jun. 2013 02:07 <-- editieren / zitieren --> Unities abgeben:
Hallo Experten, ich möchte mit Entmake eine Bemaßung erzeugen. Kann mir jemand verraten, wie ich feststellen kann, welche Gruppencode Acad unbedingt fordert und ich somit bei Entmake angeben muss? Danke und Grüße Daniel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 02. Jun. 2013 08:09 <-- editieren / zitieren --> Unities abgeben: Nur für Danillo
Code: (defun DrawDim () (entmake (list (cons 0 "DIMENSION") (cons 100 "AcDbEntity") (cons 67 0) (cons 410 "Model") (cons 8 (getvar "clayer")) (cons 100 "AcDbDimension") (cons 10 (trans (list (car p2)(cadr p2) 0.0) 1 0)) (cons 11 (trans (list (car pc)(cadr pc) 0.0) 1 0)) (cons 12 (list 0. 0. 0.)) (cons 6 "Continuous") (cons 62 2) (cons 70 33) (cons 1 (strcat (rtos pro 2 1) "%")) (cons 71 5) (cons 72 1) (cons 41 1.0) ;;; (cons 42 di) (cons 52 0) (cons 53 0) (cons 54 0) (cons 3 "standard") (cons 100 "AcDbAlignedDimension") (cons 13 (trans (list (car p1)(cadr p1) 0.0) 1 0)) (cons 14 (trans (list (car p2)(cadr p2) 0.0) 1 0)) (cons 15 (list 0. 0. 0.)) (cons 16 (list 0. 0. 0.)) ) ) (princ) )
------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Danillo Mitglied Bauingenieur
Beiträge: 229 Registriert: 12.11.2003 Windows 10 - AutoCAD 2023
|
erstellt am: 02. Jun. 2013 09:39 <-- editieren / zitieren --> Unities abgeben:
Hallo Dirk, Danke für die Antwort. Muss man all diese Gruppencodes definieren? Ich dachte Acad ist auch mit wrniger zufrieden? Wo finde ich eine Erklärung zur Bedeutung der Gruppencodes? Danke und schönen Sonntag Daniel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6050 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 02. Jun. 2013 09:55 <-- editieren / zitieren --> Unities abgeben: Nur für Danillo
Zitat: Original erstellt von Danillo:
Wo finde ich eine Erklärung zur Bedeutung der Gruppencodes?
Mangels ausgefüllter SysInfo kann die Antwort nur lauten: Hilfe -> DXF-Referenz (-> Entities -> Dimension). Jürgen [Diese Nachricht wurde von jupa am 02. Jun. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Danillo Mitglied Bauingenieur
Beiträge: 229 Registriert: 12.11.2003 Windows 10 - AutoCAD 2023
|
erstellt am: 02. Jun. 2013 11:00 <-- editieren / zitieren --> Unities abgeben:
|
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6050 Registriert: 16.09.2004 WINDOWS Vista Ultimate SP2 (64bit), NVIDIA Geforce 9600M GT, AutoCAD 2013.
|
erstellt am: 02. Jun. 2013 13:11 <-- editieren / zitieren --> Unities abgeben: Nur für Danillo
Zitat: Original erstellt von Danillo:
Nehme an dass das ignorieren der anderen Frage bedeutet, dass du die Mindestanforderungen angegeben.
Nein. Es bedeutet, daß ich mir diesbezüglich nicht sicher bin - oder schlichtweg, daß ich darauf keine Antwort weiß. Ich müßte ausprobieren, welche Schlüssel evtl. weggelassen werden können - und das kannst Du auch selber testen. Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Danillo Mitglied Bauingenieur
Beiträge: 229 Registriert: 12.11.2003 Windows 10 - AutoCAD 2023
|
erstellt am: 02. Jun. 2013 15:32 <-- editieren / zitieren --> Unities abgeben:
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 02. Jun. 2013 16:17 <-- editieren / zitieren --> Unities abgeben: Nur für Danillo
|
Danillo Mitglied Bauingenieur
Beiträge: 229 Registriert: 12.11.2003 Windows 10 - AutoCAD 2023
|
erstellt am: 03. Jun. 2013 01:08 <-- editieren / zitieren --> Unities abgeben:
Hallo Ernst, mit Google bin ich nicht wirklich weiter gekommen, aber mit probieren. Habe nun folgenden Code, mit dem Bemaßungen erzeugt werden, aber leider keine Annotativen Bemaßungen. Habe dann versucht die entsprechende Gruppe (-3 ...) hinzuzufügen. Zuerst wollte ich die entsprechende Liste mit Quote anhängen (siehe Zeile mit 1 stichpunkt), dann habe ich es mit (cons...) probiert (siehe Zeilen mit 2 Strichpunkte) aber leider ohne Erfolg. (defun DrawDim () (setq p1 (getpoint "\n1. Punkt: ")) (setq p2 (getpoint "\n2. Punkt: ")) (setq lyr (getvar "CLAYER")) (if (tblsearch "DIMSTYLE" "HG Steel") (entmake (list (cons 0 "DIMENSION") ;Elementtyp ;;; (cons 102 "{ACAD_XDICTIONARY") ;;; (cons 102 "}") (cons 100 "AcDbEntity") (cons 410 "Model") (cons 8 lyr) ;Layer (cons 48 0.2) ;Linientypfaktor (cons 100 "AcDbDimension") (cons 10 (trans (list (car p2)(cadr p2) 0.0) 1 0)) ;Definitionspunkt (cons 70 33) ;Art der Bemaßung vertikal, schräg usw. (cons 3 "Annotative") ;Bemaßungsstil (cons 100 "AcDbAlignedDimension") (cons 13 (trans (list (car p1)(cadr p1) 0.0) 1 0)) ;Definitionspunkt (cons 14 (trans (list (car p2)(cadr p2) 0.0) 1 0)) ;Definitionspunkt ; '(-3 ("AcadAnnotative" (1000 . "AnnotativeData") (1002 . "{") (1070 . 1) (1070 . 1) (1002 . "}"))) ;; (cons -3 (list ;Gruppe für annotative Bemassung ;; "AcadAnnotative" ;; (cons 1000 "AnnotativeData") ;; (cons 1002 "{") ;; (cons 1070 1) ;; (cons 1070 1) ;; (cons 1002 "}") ;; ) ;; ) ) ) ) )
Hat jemand einen Vorschlag wie man eine Annotative Bemaßung erzeugen kann? Danke und Grüße Daniel [Diese Nachricht wurde von Danillo am 03. Jun. 2013 editiert.] [Diese Nachricht wurde von Danillo am 03. Jun. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Danillo Mitglied Bauingenieur
Beiträge: 229 Registriert: 12.11.2003 Windows 10 - AutoCAD 2023
|
erstellt am: 07. Jun. 2013 21:51 <-- editieren / zitieren --> Unities abgeben:
Hallo Experten, was ist los? Ist das wirklich das Ende der Fahnenstange? Dann muss ich die Bemaßung wohl anders erzeugen: eine vorhandene Bemaßung aus einer Vorlagedatei herkopieren, und die Definitionspunkte durch die neuen Punkte ersetzen. Gefällt mir zwar nicht, aber was solls... Übrigens: das Ziel wäre alle Segmente einer Polylinie, also einfach von Punkt zu Punkt, mit einer Bemaßung zu versehen. Habe das bisher durch das Einfügen von Texten gemacht, aber die ändern sich dann eben nicht dynamisch, wenn die Polylinie verändert wird. Bin für jeden Tipp dankbar. Grüße Daniel
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
archtools Mitglied
Beiträge: 823 Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 07. Jun. 2013 22:41 <-- editieren / zitieren --> Unities abgeben: Nur für Danillo
Zitat: Original erstellt von Danillo: Habe das bisher durch das Einfügen von Texten gemacht, aber die ändern sich dann eben nicht dynamisch, wenn die Polylinie verändert wird. Bin für jeden Tipp dankbar.
Das ist mittels Reaktoren problemlos machbar. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |