guten morgen!
ich bin absoluter vollnoob was lisp betrifft, das mal vorweg!
folgendes lisp hilft mir beim schraffurflächen-berechnen:
(defun c:fla_ha ( / t_2 Ss)
;;(if
;; (/= (findfile "md_fla.dwg")nil)
;;(progn
(setq Ss nil
t_2 nil)
(setq Ss (ssget ));'((0 . "LWPOLYLINE"))))
(if (not Ss) (princ (strcat "\nNichts gewählt."))
(progn
(command "_.area" "_a" "_o")
(while (setq t_2 (ssname Ss 0))
;;; (setq md_in (cdr (assoc 10 (entget t_2))))
;;; (setq md_rnr_in (ssget "X" t_2))
;;; (setq startp md_in)
(command t_2)
(setq Ss (ssdel t_2 Ss))
);while
(command "" "")
(princ "\n")
(princ
(strcat "\n*****Gesamtfläche: " (rtos (getvar "area") 2 5)))(terpri)
;(command "_.Insert" "md_fla" startp "1" "1" "0" (rtos (getvar "area")2 2))
);endprogn
);endif
(setq startp (getpoint "Einfügepunkt:"))
(command "_text" startp "10" "0" (strcat "F = " (rtos (/ (getvar "area") 10000) 2 1) " ha"))
; 10=Textgrösse, 0=Textwinkel, 1 nach dem area und klammerzu ist der umrechnungsfaktor
; ;ende progn
; ;end if
(princ)
)
so, und nun nervt mich das ewige umstellen der texthöhe. kann man dem programm nicht sagen, es soll mich fragen wie gross der text sein soll?
bitte um hilfe!
schönes oster-we
greli
ps: falls wer was "besseres" als dieses lisp weiß, wär ich auch dankbar! (auswahl m2/ha, textstil, ....)
------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP