---

Mit

(setq el (car(entsel "\Pfad auswählen:")))
(vl-load-com)
(setq el (vlax-ename->vla-object el)
      sartpt (vlax-curve-getStartPoint el)
      endpt (vlax-curve-getEndPoint el)
)

kann ich zwar Start- und Endpunkt eines Biogens ermitteln... Wie bekomme ich aber den Mittelpunkt heraus??? Hat da jemand nen Tipp????

------------------
http://www.die-seite-der-schilder.de/ddcad/

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

---

(cdr(assoc 10 (entget el)))

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

---

Siehe auch diesen Beitrag ... Varianten in Lisp und VisualLisp

------------------
- Thomas -

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

---

Versuch doch einfach die OSNAP-Funktion mit _cen auf das Entity!

------------------
Nur Döner macht schöner und wenn du ihn nicht isst, bleibst du wie du bist!

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

---

Wie würde die folgendes Programm gefallen :

(defun Bogen_Werte (/)
  (vl-load-com)
  (setq el (entsel "\Bogen auswählen:")
        el_vla  (vlax-ename->vla-object (car el))
startpt (vlax-safearray->list (vlax-variant-value (vlax-get-property  el_vla 'StartPoint)))
endpt  (vlax-safearray->list (vlax-variant-value (vlax-get-property  el_vla 'EndPoint)))
center  (vlax-safearray->list (vlax-variant-value (vlax-get-property  el_vla 'Center)))
        laenge  (vlax-get-property  el_vla 'ArcLength)
radius  (vlax-get-property  el_vla 'Radius)
winkel1 (vlax-get-property  el_vla 'TotalAngle)
winkel2 (/ (* winkel1 180) pi)
  )
  (princ "\nStartpunkt  = ") (princ startpt)
  (princ "\nEndpunkt    = ") (princ endpt)
  (princ "\nMittelpunkt = ") (princ center)
  (princ (strcat "\nBogenlänge  = " (rtos laenge)))
  (princ (strcat "\nRadius      = " (rtos radius)))
  (princ (strcat "\nWinkel      = " (rtos winkel1) " bzw. " (rtos winkel2) "°"))
  (princ)
)

Helmut

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

---

(defun c:Bogen_Werte (/)
  (vl-load-com)
  (setq el (entsel "\Bogen auswählen:")
        el_vla  (vlax-ename->vla-object (car el))
startpt (vlax-safearray->list (vlax-variant-value (vlax-get-property  el_vla 'StartPoint)))
endpt  (vlax-safearray->list (vlax-variant-value (vlax-get-property  el_vla 'EndPoint)))
center  (vlax-safearray->list (vlax-variant-value (vlax-get-property  el_vla 'Center)))
        laenge  (vlax-get-property  el_vla 'ArcLength)
radius  (vlax-get-property  el_vla 'Radius)
winkel1 (vlax-get-property  el_vla 'TotalAngle)
winkel2 (/ (* winkel1 180) pi)
  )
  (princ "\nStartpunkt  = ") (princ startpt)
  (princ "\nEndpunkt    = ") (princ endpt)
  (princ "\nMittelpunkt = ") (princ center)
  (princ (strcat "\nBogenlänge  = " (rtos laenge)))
  (princ (strcat "\nRadius      = " (rtos radius)))
  (princ (strcat "\nWinkel      = " (rtos winkel1) " bzw. " (rtos winkel2) "°"))
  (princ)
)

kleiner fehler Helmut c:befhel vergessen 

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

---

WOW - So eine Antwortflut in kürzester Zeit....
Da weiß man ja gar nicht, was man zuerst ausprobieren soll... ;-)

Danke erstmal an alle.... Ein besonderer Dank geht aber an Helmut:
Mit dem Programm haben sich ja alle potentiellen Fragen der nächsten Monate erledigt ;-)

------------------
http://www.die-seite-der-schilder.de/ddcad/

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

---

um herauszubekommen, wie du bei einzelnen objekten zu den diversen Informationen kommst gibts nen tollen befehl :vlax-dump-object

(setq el (entsel "\Bogen auswählen:")
(setq el_vla  (vlax-ename->vla-object (car el))
(vlax-dump-object el_vla t)

#<VLA-OBJECT IAcadArc 07bd91c4>
; IAcadArc: AutoCAD Arc-Schnittstelle (Bogen)
; Eigenschaftswerte:
;  Application (RO) = #<VLA-OBJECT IAcadApplication 00a99b84>
;  ArcLength (RO) = 25.0948
;  Area (RO) = 99.3479
;  Center = (58.0226 116.325 0.0)
;  Color = 256
;  Document (RO) = #<VLA-OBJECT IAcadDocument 00fa4d4c>
;  EndAngle = 1.77708
;  EndPoint (RO) = (56.529 123.463 0.0)
;  Handle (RO) = "8F"
;  HasExtensionDictionary (RO) = 0
;  Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 07bd8074>
;  Layer = "0"
;  Linetype = "ByLayer"
;  LinetypeScale = 1.0
;  Lineweight = -1
;  Normal = (0.0 0.0 1.0)
;  ObjectID (RO) = 1074266296
;  ObjectName (RO) = "AcDbArc"
;  OwnerID (RO) = 1074179320
;  PlotStyleName = "ByLayer"
;  Radius = 7.29208
;  StartAngle = 4.61889
;  StartPoint (RO) = (57.3418 109.065 0.0)
;  Thickness = 0.0
;  TotalAngle (RO) = 3.44137
;  Visible = -1
; Unterstützte Methoden:
;  ArrayPolar (3)
;  ArrayRectangular (6)
;  Copy ()
;  Delete ()
;  GetBoundingBox (2)
;  GetExtensionDictionary ()
;  GetXData (3)
;  Highlight (1)
;  IntersectWith (2)
;  Mirror (2)
;  Mirror3D (3)
;  Move (2)
;  Offset (1)
;  Rotate (2)
;  Rotate3D (3)
;  ScaleEntity (2)
;  SetXData (2)
;  TransformBy (1)
;  Update ()

------------------

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