---

habe ein lsp gefunden dasdie Flaeche berechnet und das Resultat als Textfeld einfuegt. Nun mein Problem: Arbeite hier in den USA und moechte das ganze in Quadrat Fuss "Square feet" haben. Das Resultat kommt aber in Quadrat Inch. (144 Quadrat Inch = 1 Quadrat Fuss) Habe mal rumgebastelt doch es funktioniert nicht. Meine Kenntnisse in LSP sind sehr beschrenkt. Danke fuer Eure Hilfe.

Gruss Thomas

(defun  c:area_feet ( / 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 "\nNO selection."))
  (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)
        (setq Area (getvar "area"))
(setq feet 144)
(setq a (/ area feet))
    (command t_2)
    (setq Ss (ssdel t_2 Ss))
    );while 
    (command "" "")
    (princ "\n")
    (princ
    (strcat "\n*****Toal Area: " (rtos (getvar "area") 2 5)))(terpri)
    ;(command "_.Insert" "md_fla" startp "1" "1" "0" (rtos (getvar "area")2 2))
  );endprogn
  );endif
(setq startp (getpoint "Insertpoint:"))
(command "_text" startp "2.5" "0" (rtos (getvar "area")2 2))

; ;ende progn
; ;end if
(princ)
)

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

---

Servus

(getvar "area") liefert die Fläche

(setq feet 144)
(setq a (/ area feet)) von Dir eingefügt?

geht auch einfacher: (setq a (/ area 144)), somit hättest Du in a die Fläche in Fuss.

(strcat "\n*****Toal Area: " (rtos (getvar "area") 2 5)))(terpri)
(command "_text" startp "2.5" "0" (rtos (getvar "area")2 2))

in diesen Zeilen wird aber nach wie vor (getvar "area") verwendet.
die Fläche in Fuss ist aber in a, daher:
...(rtos a 2 ...

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

Hi Ernst,
das ging aber schnell. (Danke)
Ja ich habe versucht es selber hinzukriegen. Klappte aber nicht darum fragte ich dem Forum nach.

(setq feet 144)
(setq a (/ area feet)) von Dir eingefügt?  JA

Wen ich dich richtig verstehe, liegt es an der Variable "(getvar "area")???

Gruss Thomas

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

---

Mhmmm... habe deine Vorschlaege eingebunden. (defun  c:area_feet ( / 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 "\nNO selection."))
  (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)
        (setq Area (getvar "area"))
      (setq a (/ area 144))
    (command t_2)
    (setq Ss (ssdel t_2 Ss))
    );while 
    (command "" "")
    (princ "\n")
    (princ
    (strcat "\n*****Toal Area: " (rtos a 2 5)))(terpri)
    ;(command "_.Insert" "md_fla" startp "1" "1" "0" (rtos (getvar "area")2 2))
  );endprogn
  );endif
(setq startp (getpoint "Insertpoint:"))
(command "_text" startp "2.5" "0" (rtos a 2 2))

; ;ende progn
; ;end if
(princ)
)

Es funktioniert auch ganz gut...Nur das das Text Resultat als "0" ausgegeben wird.
Gibt es dafuer einen Grund?

Gruss Thomas

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

---

Du mußt in den unteren Zeilen das (getvar "area") durch a ersetzen.

Die Systemvariable "area" liefert die Fläche (in Deinem Fall in inch).
Mit (setq a (/ area 144)) legst Du die Fläche in a ab, mußt es dann aber auch anstelle (getvar "area") verwenden.

Eleganter wäre allerdings (setq Area (/ (getvar "area") 144)), um dann  area anstelle von a zu verwenden.

Du könntest aber auch   
   
(setq Area (getvar "area"))
(setq feet 144)
(setq a (/ area feet))

vergessen und stattdessen in

(strcat "\n*****Toal Area: " (rtos (/(getvar "area") 144) 2 5)))(terpri)
bzw.
(command "_text" startp "2.5" "0" (rtos (/(getvar "area") 144) 2 2))

die Division gleich bei der Ausgabe durchführen.

Hab ich Dich jetzt komplett verwirrt?

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

soweit ich sehe, sind Deine Änderungen OK, kann aber leider Dein Programm mangels ACAD nicht testen.

Du könntest die Zwischenergebnisse testen, indem Du sie auf der Befehlszeile abrufst: (Rufzeichen vor der Variablen)
!area  -  Fläche in inch
!a    -  Fläche in Fuss

schließlich sollte (rtos a 2 2) auf der Befehlszeile eingegeben, das richtige Ergebnis zeigen.

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

"Hab ich Dich jetzt komplett verwirrt?"
total.

Habe die letzte Zeile korrigiert

    (strcat "\n*****Toal Area: " (rtos a 2 5)))(terpri)
    ;(command "_.Insert" "md_fla" startp "1" "1" "0" (rtos a 2 2))
  );endprogn
  );endif
(setq startp (getpoint "Insertpoint:"))
(command "_text" startp "2.5" "0" (rtos a 2 2))

doch es erscheint immer noch das Resultat "0" im Textfeld.

Gruss Thomas

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

---

Die Zwischenergebnisse sind richtig.

Gruss Thomas

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

---

!a sollte die gewünschte Fläche liefern.
(rtos a 2 2) wandelt nurmehr a von einer Realzahl zu Text um
(rtos = real to string)

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

Mhmm... Komisch. Wen ich das ganze inspectzieren lasse erscheint das richtige Resultat am Schluss doch wird das Resultat nicht richtig als Text widergegeben.

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

---

21:15
Wie's scheint überschneiden sich unsere Antworten - wird schwierig lesbar für andere 
Da ich das untenstehende schon geschrieben hab, lasse ich es auch stehen.

Ich hab da eine ")" zuviel entdeckt (siehe unten) dadurch wird das Programm vermutlich nicht richtig geladen. Nimm die mal raus und versuchs nochmal.

------------
Antwort auf Deinen Beitrag von 21:00

Wenn also (rtos a 2 2) auch das richtige Ergebnis liefert
dann müßte auch
(strcat "\n*****Toal Area: " (rtos a 2 5)))(terpri) - hoppla, da ist doch eine Klammer ) zuviel
dann müßte auch
(strcat "\n*****Toal Area: " (rtos a 2 5))
in die Befehlszeile kopiert, das Richtige liefern.
stimmt das ?

(terpri) kannst weglassen - macht nur einen Zeilenumbruch

Und wenns die Klammer auch nicht war kopier mal das in die Befehlszeile:
(command "_text" startp "2.5" "0" (rtos a 2 2))
was ergibt das?

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

Hi Rabbit

Aber er kriegt "0" als Ergebnis, .22 wäre OK - nehme ich an.

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

Image1.jpg

Das Resultat...

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

---

Hi Rabbit

Eine "0" vom rtos??? Welche Null meinst Du?

Gruss Thomas

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

---

Das macht die Sache schon klarer -
das Problem liegt anscheinend am Text-Befehl. Wenn mich nicht alles täuscht, wurde der irgendwo zwischen Version 2000 und 2004 geändert.

Vergleich mal Deinen Text-Befehl mit dem hier:
(command "_text" startp "2.5" "0" (rtos a 2 2))
Text aufrufen - Startpunkt - Texthöhe - Drehwinkel - Text

Wenn Dein Text-Befehl die Eingaben anders (oder zusätzliche) haben will, muss diese Zeile korrigierrt werden.

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

Hallo Ernst,
Folgendes, wenn der Text-Style auf "standard" steht funktioniert es. Doch verwende ich einen andern Textstyle ergibt es das Resultat "0". Ich weiss nicht ob das moeglich ist, das der aktuelle Textstyle verwendet wird.

Gruss Thomas

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

---

Dann scheint das Problem in der Texthöhe zu liegen bzw. ob in Deinen Textstilen die Höhe definiert ist.

Ist im Textstil eine fixe Höhe definiert, wird sie nicht mehr abgefragt.
Daher kriegst Du die "0" als Text, was aber der Drehwinkel sein soll.

Ändere die Zeile dahingehend:
(command "_text" startp "2.5" (rtos a 2 2))

Jetzt sollte es klappen.

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

habe Texthoehe 5 verwendet und funktioniert wunderbar

Gruss Thomas

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

---

Rabbit,
Zeile weglassen funktioniert nicht.(leider, waere zu einfach gewesen)
Gruss Thomas

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

---

Zitat:

---

Original erstellt von 22030:
habe Texthoehe 5 verwendet und funktioniert wunderbar...

---

Wo - im Textstil? Und ohne Texthöhe in der Programmzeile?
Problem gelöst?

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

Hi Erns,
wir verwende verschiedene Textstile mit verschiedenen Texthoehen. Das LSP funktioniert einwandfrei solange der "Standard" Textstil verwendet wird. Darum meine Frage: ist es moeglich die Zeile:
(command "_text" startp "5" "0" (rtos a 2 2))
so einzustellen dass jeder Textstil verwendet wird?

Gruss Thomas

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

---

Im Prinzip ja, aber da müßte man vorher abfragen, welcher Textstil - in dessen Eigenschaften checken, ob Texthöhe "0" und davon abhängig zwei Programmzeilen... müßt ich mir erst genauer anschauen (morgen?)

Wenn im TextStil die Texthöhe 0 steht, so bedeutet das, dass sie nicht fix ist - wird daher im Text-Befehl abgefragt, vermutlich wie bei Deinem Standard-Stil - daher ist die "2.5" in nachfolgender Zeile OK.
(command "_text" startp "2.5" "0" (rtos a 2 2)) = Programmzeile für alle Textstile mit Höhe 0.000.

Ist die Texthöhe aber im Stil fixiert - wie in Deinem Fall 5 - so fragt der Text-Befehl nicht mehr um die Höhe, die Zeile muss daher so ausschauen:
(command "_text" startp "0" (rtos a 2 2)) = Programmzeile für alle Textstile mit Höhe größer 0.

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

Die Situation: Moechte das LSP verwenden um Wandflaechen zu berechnen. Da aber veschiedene Scales verwendet werden und jeder Scale sein eigener Textstil hat ware es hilfreich, wenn der eingestellte Textstil verwendet werden koennte. Z.B. Massstab 1:10 hat einen kleineren Text size den Massstab 1:100.
Macht das Sinn??

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

---

Ja ja Ernst es ist schon spaet bei Euch. Entschuldige. Selbstverstaentlich ist morgen in ortnung. Vielen vielen Dank fuer deine (eure) Hilfe.

Gruss Thomas

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

---

Zitat:

---

Original erstellt von Rabbit 007:
(command "textstyle" "Dein Textstil")
setze das vor deine andere Command zeile

---

Wäre auch eine Möglichkeit.
Damit wäre man aber auf diesen bestimmten Stil fixiert. Es könnte aber sein, dass man verschiedene Arten von Flächen - in versch. Stilen - beschriften will.

------------------
Gruß, Ernst

Meine Homepage
suche Job

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

---

so müßte 's Passen

Code:

---

(defun c:area_feet(/ t_2 Ss)
  (setq Ss  nil
        t_2 nil
        ) ;_ end of setq
  (setq Ss (ssget '((0 . "*POLYLINE"))))
  (setq md_zaehler 0)
  (setq gesamt 0)
  (if (not Ss)
    (princ (strcat "\nDa waren keine Polylinien dabei."))
    (progn
      (while (setq t_2 (ssname Ss 0))
        (setq md_in (cdr (assoc 10 (entget t_2))))
        (setq startp md_in)
        (command "_.area" "_o")
        (command t_2)
        (entmake (LIST
                  '(0 . "TEXT")
                  (cons 8 (getvar "clayer"))
                  (CONS 10 startp)
                  '(40 . 0.35)
                  '(50 . 0)
                  (CONS 1 (rtos (getvar "area") 2 2))
                  ) ;_ ende von LIST
                ) ;_ end of entmake
        (setq Ss (ssdel t_2 Ss))
        (princ md_zaehler)
        (setq md_zaehler (1+ md_zaehler))
        (setq einzel (atof (rtos (getvar "area") 2 2)))
        (setq gesamt (+ gesamt einzel))
        )                              ;ende while
      (princ
        (strcat "\n*****Gesamtfläche: " (rtos gesamt 2 2) " m²")
        ) ;_ end of princ
      (if(setq start (getpoint "\nEinfügepunkt:"))
      (entmake (LIST
                '(0 . "TEXT")
                (cons 8 (getvar "clayer"))
                (CONS 10 start)
                '(40 . 0.35)
                '(50 . 0)
                (CONS 1 (strcat "Gesamtfläche: " (rtos gesamt 2 2) "m²"))
                ) ;_ ende von LIST
              ) ;_ end of entmake
        )
      )                                ;endprogn
    )                                  ;endif
  (princ)
  ) ;_ end of defun

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

(defun  c:area_feet ( / t_2 Ss)
  (setq Ss  nil
        t_2 nil)

  (setq Ss (ssget ));'((0 . "LWPOLYLINE"))))
  (if (not Ss) (princ (strcat "\nNO selection."))
    (progn
      (command "_.area" "_a" "_o")
      (while (setq t_2 (ssname Ss 0))
        (command t_2)
        (setq Ss (ssdel t_2 Ss))
      );while
      (command "" "")
      (princ "\n")
      (princ
      (strcat "\n*****Total Area: " (rtos (setq area (/(getvar "area")144)) 2 5)))(terpri)
    );progn
  );if
  (setq startp (getpoint "Insertpoint:"))

  (if (< 0 (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))))
    (command "_text" startp "0" (rtos area 2 2))
    (command "_text" startp "2.5" "0" (rtos area 2 2))
  )
  (princ)
)
----------------------------------
Wirklich neu ist nur diese Zeile:
  (if (< 0 (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))))
die anderen Änderungen sind nur Kosmetik.

edit:
da war das Wiesel wieder schneller
------------------
Gruß, Ernst

Meine Homepage
suche Job

[Diese Nachricht wurde von Geos am 26. Apr. 2006 editiert.]

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

---

Hi all
vielen Dank fuer Eure Hilfe.

Gruss Thomas

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