---

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

---

tausche diese Zeile

(command "_text" startp "10" "0" (strcat "F = " (rtos (/ (getvar "area") 10000) 2 1) " ha"))

gegen diese

(command "_text" startp PAUSE "0" (strcat "F = " (rtos (/ (getvar "area") 10000) 2 1) " ha"))

Damit wirst u beim Einfügen des Textes nach der Texthöhe gefragt.

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

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Zitat:

---

Original erstellt von greli:
...schraffurflächen-berechnen:...
ps: falls wer was "besseres" als dieses lisp weiß, wär ich auch dankbar!

---

Ja, ich hätte da eine Routine, die maßstabsabhängige (Ab 2008) Blöcke platziert. Die Flächenattribute sind Schriftfelder, so dass bei nachbearbeitung der Umringe die Fläche automatisch aktualisiert wird. Außerdem lassen sich auch Schraffurflächen beschriften, das ist insbesondere bei Inselfächen von Vorteil.
Verschenke ich aber nicht (dafür war das zuviel Arbeit) aber für kleines Geld gebe ich es gerne ab.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

@fuchsi: perfekt, danke, wieder was dazugelernt!

@udo: danke für den hinweis, vielleicht komme ich mal darauf zurück.

schönes wo-e
greli

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

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