---

Moin zusammen,

ich habe hier aus dem Forum folgenden Code:

(defun c:fl_att (/ pl att fl)
  (setq pl (car(entsel "\nPolygon wählen: "))
        att (car(nentsel "\nZielattribut wählen: "))
        fl (vlax-get-property (vlax-ename->vla-object pl)

'Area)
        )
  (entmod
    (subst (cons 1 (rtos fl 2 2))
          (assoc 1 (entget att))
          (entget att)
          )
    )
  (entupd (cdr(assoc 330 (entget att))))
  (princ)
  )

ich würde gern wissen wie ich diesen code abändern muss, damit man statt der Fläche, die Länge der Polilinie erhält...

perimeter bei Area einsetzen geht nicht

p.s. ich lerne noch...

Gruß
Hakan

------------------
Aus technischen Gründen befindet sich die Signatur auf der Rückseite dieser Nachricht!

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

---

(defun c:l_att (/ pl att fl)
  (setq pl (car(entsel "\nPolygon wählen: "))
        att (car(nentsel "\nZielattribut wählen: "))
        fl (vlax-get-property (vlax-ename->vla-object pl)

'Length)
        )
  (entmod
    (subst (cons 1 (rtos fl 2 2))
          (assoc 1 (entget att))
          (entget att)
          )
    )
  (entupd (cdr(assoc 330 (entget att))))
  (princ)
  )

..mit vlax-curve Funktionen ließe sich das noch allgemeiner proggen (Bsp im INET), aber um dich nicht zu verwirren ....
------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

danke!

können wir die Ausgabe noch in Meter hinbekommen?statt mm ?
das Wäre TOP!

------------------
Aus technischen Gründen befindet sich die Signatur auf der Rückseite dieser Nachricht!

[Diese Nachricht wurde von H-kan84 am 05. Nov. 2009 editiert.]

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

---

Also bei mir macht er's in m 

Liegt aber auch daran, dass bei mir eine Zeichnungseinheit 1 m sein soll und das Ergebnis in Zeichnungseinheiten ausgegeben wird.
Wenn Du nun in mm zeichnest, was ich Deiner Anfrage entnehme, und die Länge im m angegeben haben möchtest mach mal folgende Änderung:

Code:

---

    fl (/ (vlax-get-property (vlax-ename->vla-object pl)
'Length) 1000.)

---

HTH

Thomas

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