---

Hallo alle CAD-Freunde,
zum Thema Bogenmaß habe ich auch mal eine Frage:
Habe dazu von CADWiesel eine lsp Datei geladen,
funktioniert auch einwandfrei.
Aber: Die Anzeige ist in m ich brauche aber mm
welche Änderungen muß ich in der lsp vornehmen?
Ich währe dankbar, wenn mir das jemand verkleckern könnte

Reiner

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

---

das Ergebnis einfach mit 1000 multiplizieren ..

ne , im Ernst .. ohne nähere Beschreibung des Lisp.. wird man dir keine Änpassung vorschlagen können..
P.S. das Bogenlisp nutzt sicher die Winkelbemaßung und rechnet dann in Zeichnungseinheitenum .. ACAD kennt kein m oder mm .. alles Interpretation!

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

---

Hallo Thomas,
danke für den Hinweis,
die lsp sieht so aus:

;; Unknown Copyright
;;Bogenlängenbemassung
;;
;;modified 17-10-00
;;by CADchup@cad.de
;;------------------
;;
(defun C:dim_arc (/ arc ent obj l)
  (setq cmde (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq arc (entsel "\nPick ARC to dimension: ")
ent (entget (car arc))
obj (cdr (assoc 0 ent))
  ) ; setq
  (if (= obj "ARC")
    (progn
      (setvar "cmdecho" 0)
      (setvar "luprec" (getvar "dimdec"))
      (setq l (* (cdr (assoc 40 ent))
(if (minusp (setq l (- (cdr (assoc 51 ent))
(cdr (assoc 50 ent))
    ) ; -
    )
    ) ; setq + minusp
  (+ pi pi l)
  l
) ; if
      ) ; *
      ) ; setq
      (command "_.dimangular" arc "_t" (rtos (* 0.001 l)))
      (while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
      ) ; while
    ) ; progn
    (princ "\nNo ARC selected.")
  ) ; if
  (setvar "CMDECHO" cmde)
  (princ)
) ; defun

habe schon einiges probiert, aber leider ohne Erfolg

Reiner

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

---

(defun C:dim_arc (/ arc ent obj l)
  (setq cmde (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setq arc (entsel "\nPick ARC to dimension: ")
ent (entget (car arc))
obj (cdr (assoc 0 ent))
  ) ; setq
  (if (= obj "ARC")
    (progn
      (setvar "cmdecho" 0)
      (setvar "luprec" (getvar "dimdec"))
      (setq l (* (cdr (assoc 40 ent))
(if (minusp (setq l (- (cdr (assoc 51 ent))
(cdr (assoc 50 ent))
    ) ; -
    )
    ) ; setq + minusp
  (+ pi pi l)
  l
) ; if
      ) ; *
      ) ; setq
      ;_ !!!!!! HIER FAKTOR 0.001 rausgenommen !!!!!!!! 
      (command "_.dimangular" arc "_t" (rtos l))
      (while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
      ) ; while
    ) ; progn
    (princ "\nNo ARC selected.")
  ) ; if
  (setvar "CMDECHO" cmde)
  (princ)
)

------------------
- 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 für die Hilfe Thomas,
habe das auch schon probiert.
Aber jetzt habe ich den Fehler gefunden.
Die Datei war 2 mal gespeichert und ich habe immer die falsche bearbeitet.
Nun ja , was so alles passiert.
Trotzdem Danke noch mal.
Reiner

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