Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Entmake Bemaßung

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von Danillo an!   Senden Sie eine Private Message an Danillo  Schreiben Sie einen Gästebucheintrag für Danillo

Beiträge: 229
Registriert: 12.11.2003

Windows 10 - AutoCAD 2023

erstellt am: 02. Jun. 2013 02:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von cadplayer an!   Senden Sie eine Private Message an cadplayer  Schreiben Sie einen Gästebucheintrag für cadplayer

Beiträge: 1832
Registriert: 28.04.2009

erstellt am: 02. Jun. 2013 08:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Danillo 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Danillo an!   Senden Sie eine Private Message an Danillo  Schreiben Sie einen Gästebucheintrag für Danillo

Beiträge: 229
Registriert: 12.11.2003

Windows 10 - AutoCAD 2023

erstellt am: 02. Jun. 2013 09:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von jupa an!   Senden Sie eine Private Message an jupa  Schreiben Sie einen Gästebucheintrag für jupa

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Danillo 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Danillo an!   Senden Sie eine Private Message an Danillo  Schreiben Sie einen Gästebucheintrag für Danillo

Beiträge: 229
Registriert: 12.11.2003

Windows 10 - AutoCAD 2023

erstellt am: 02. Jun. 2013 11:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,
Werde deine Kritik beherzigen und das Profil vervollständigen.
Nehme an dass das ignorieren der anderen Frage bedeutet, dass du die Mindestanforderungen angegeben.
Danje und Gruß
Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

jupa
Ehrenmitglied V.I.P. h.c.
Ruheständler


Sehen Sie sich das Profil von jupa an!   Senden Sie eine Private Message an jupa  Schreiben Sie einen Gästebucheintrag für jupa

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Danillo 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Danillo an!   Senden Sie eine Private Message an Danillo  Schreiben Sie einen Gästebucheintrag für Danillo

Beiträge: 229
Registriert: 12.11.2003

Windows 10 - AutoCAD 2023

erstellt am: 02. Jun. 2013 15:32    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Jürgen,
Da hast du recht. Werde es ausorobieren und dann berichten.

Gruß
Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Geos
Mitglied
Vermessungstechniker i.R.


Sehen Sie sich das Profil von Geos an!   Senden Sie eine Private Message an Geos  Schreiben Sie einen Gästebucheintrag für Geos

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Danillo 10 Unities + Antwort hilfreich

geht vielleicht schneller, wenn Du nach
"(entmake (list (cons 0 "DIMENSION")" googlest 

------------------
Schöne Grüße
Ernst

www.geopaint.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Danillo
Mitglied
Bauingenieur


Sehen Sie sich das Profil von Danillo an!   Senden Sie eine Private Message an Danillo  Schreiben Sie einen Gästebucheintrag für Danillo

Beiträge: 229
Registriert: 12.11.2003

Windows 10 - AutoCAD 2023

erstellt am: 03. Jun. 2013 01:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Danillo an!   Senden Sie eine Private Message an Danillo  Schreiben Sie einen Gästebucheintrag für Danillo

Beiträge: 229
Registriert: 12.11.2003

Windows 10 - AutoCAD 2023

erstellt am: 07. Jun. 2013 21:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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



Sehen Sie sich das Profil von archtools an!   Senden Sie eine Private Message an archtools  Schreiben Sie einen Gästebucheintrag für archtools

Beiträge: 823
Registriert: 09.10.2004

Entwickler für AutoCAD, BricsCAD u.a., alle Systeme

erstellt am: 07. Jun. 2013 22:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Danillo 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz