---

ich habe aus diesem Thread
[URL=http://ww3.cad.de/foren/ubb/Forum54/HTML/005611.shtml#000026][/URL]
das Lisp-File des letzten Beitrags probiert. Da wir in der alten Version noch Nachbemassen müssen kommen wir leider nicht darum herum. Hin- und herkopieren aus der 2010 Version fällt leider auch aus.

Das Lisp funktioniert sehr gut nur müssen wir in Zentimeter mit einer Nachkommastelle bemassen und das Lisp übernimmt den Bemassungsstil nicht. Offensichtlich ist das dirket im Lisp programmiert und gibt immer nur Meter mit 4 Nachkommastellen aus.

Kann mir bitte jemand helfen wie wir die Einheiten umstellen können?

Vielen, vielen Dank!
Tom

PS: Hier das Lisp nochmal direkt:

(defun c:cf_dim_arclen (/)
  (setq cf_sel (nentsel))

  (if (not cf_sel)
    (exit)
  )

  (setq cf_ent_type (cdr (assoc 0 (entget (car cf_sel)))))

  (setq cf_point (cadr cf_sel))

    (setq cf_scale 1)
;;;  (if (setq cf_gen_scale (genpmscget cf_point))
;;;    (progn
;;;      (setq cf_scale (car cf_gen_scale))
;;;    )
;;;  )

  (setq cf_last_ele (entlast))

  (vl-cmdf "._dimangular" cf_point cf_point)

  (setq cf_new_ele (entlast))

  (if (not (equal cf_new_ele cf_last_ele))
    (progn
      (setq cf_dim_ent (entget cf_new_ele))
      (entdel cf_new_ele)
      (setq cf_radius (distance (cdr (assoc 15 cf_dim_ent))
(cdr (assoc 13 cf_dim_ent))
      )
      )
      (setq cf_angle (cdr (assoc 42 cf_dim_ent)))
      (setq cf_bogen_lang (* cf_radius cf_angle cf_scale))
      (setq cf_bogen_lang (rtos cf_bogen_lang))
      (setq cf_layer (getvar "clayer"))
      (if (command "'_-amlayer" "_o" "DILI")
(princ)
      )
      (if (findfile "amgdt.shx")
(setq cf_prefix "{\\fAMGDT|b0|i0|c0|p2;k }")
(setq cf_prefix "b-länge ")
      )

      (command "._dimangular"
      cf_point
      "_text"
      (strcat cf_prefix cf_bogen_lang)
      pause
      )
      (setvar "clayer" cf_layer)
    )
  )
)

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

---

Bemassungsstil wird der aktuelle genommen  und wegen der Nachkommastellen

ersetzte
(setq cf_bogen_lang (rtos cf_bogen_lang))
durch
(setq cf_bogen_lang (rtos cf_bogen_lang 2 2))  für 2 Nachkommastellen
oder
(setq cf_bogen_lang (rtos cf_bogen_lang 2 0))  für 0 NAchkommastellen .. oder informier dich über die Sysvar LUPREC

------------------
  - 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

---

Ergänzung:
Die Einheiten können hier umgestellt werden:
(setq cf_scale 1)

(setq cf_scale 100)
würde also von m in cm umstellen.

Gruß
Steffen

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

---

super, danke für die hilfe!

thx
tom

ps:
mit eigenschaften anpassen umpinseln funktionierts leider nicht für die schon gesetzten koten - naja macht nix setzen wir die paar einfach neu...
nur für mich: warum nehmen die eigentlich nicht die eigenschaften von der normalen bemassung an?

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

---

(if (command "'_-amlayer" "_o" "DILI")

deutet auf Mechanical ... hast du das überhaupt ? sonst wird da kein "Bemassungslayer" gesetzt

------------------
  - 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

---

nein, nur acad. schreibt alles auf den aktuellen layer. das ist nicht das problem.

nur die meter beschriftung auf zentimeter ändern funktioniert nicht. da mußten wir das lisp ändern. wie von euch beschrieben. das funktioniert aber nur für neue koten. die alten wollten wir "umpinseln" das funktioniert leider nicht...

tom

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