---

hallo zusammen,

ich suche ein "einfaches progrämmchen", das eine beliebige fläche (polygone/kreise/durch linien begrenzte flächen) -wie _area- misst und mir den wert als text zurückgibt zum absetzen (dabei wäre eine vorschau des textes schön - aber es würde auch 'ne abfrage nach texthöhe/-stil reichen). schick wäre das reinklicken in eine fläche und es wird die umgrenzung gesucht... ich nehme an, das adt sowas standardmäßig hat.

bevor jemand meint, ich kann die suche nicht bedienen: folgende tools habe ich mir schon heruntergeladen und ausprobiert. leider funktionieren die dinger entweder nicht oder nur mit macken unter acad 2012 sp1.
fla-neu.lsp -> (nimmt keine kreise, abzugspolygone funzen net richtig, komme nicht an die einstellungen für text während des programmlaufes)
md_fla.lsp -> (nimmt alle polygone - aber keine kreise, kann nicht auswählen, text dito)
fläche2.lsp -> (bei punktwahl abbruch trotz richtiger anzeige, kreise und text dito, bei textplatzierung wird der text immer um exakt 100° gedreht abgesetzt)

mhmmm, gibt sowas in der weiten lispwelt?

------------------
Gruß aus Hamburg
 
Yeti

Planung ist die Ablösung des Nichtwissens durch den Irrtum...

[Diese Nachricht wurde von Yeti am 15. Dez. 2011 editiert.]

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

---

... sollte über Schraffur, Auslesen der Fläche der Schraffur und weider Löschen derselben realisierbar sein ... somit sage ich mal: JA .. wird es höchstwahrscheinlich in der Lispwelt geben.

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

---

 

Zitat:

---

Original erstellt von CADmium:
... sollte über Schraffur,... realisierbar sein ...

---

zwei der tools gehen diesen ansatz, scheitern aber anscheinend an den abläufen in 2012. mit kreisen haben sie auch probleme (obwohl sie vorher eine polylinie drauflegen). 

 

Zitat:

---

JA .. wird es höchstwahrscheinlich in der Lispwelt geben.

---

das freut mich: kannst du mir vielleicht weiterhelfen beim wo?

ansonsten habe ich noch aus 2002-zeiten ein altes macro (^C^C-umgrenzung;\;(setq a (ssget));l;;_area;o;!a;_erase;!a;;textbld) was die umgrenzung benutzt und auch mit kreisen klarkommt. allerdings eben nur ausgabe im textfenster... 

------------------
Gruß aus Hamburg
 
Yeti

Planung ist die Ablösung des Nichtwissens durch den Irrtum...

[Diese Nachricht wurde von Yeti am 16. Dez. 2011 editiert.]

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

---

Hallo Yeti,

ich habe eine Lisp Datei zum Flächen messen, bei der das Messergebnis im Anschluss
an die Messung direkt auf die Zeichnung abgesetzt werden kann.

Die LISP kommt Ursprüglich von www.jtbworld.com
ich habe allerdings noch die Einheiten von SQ.FT. auf m² geändert.

Ich hoffe das hilft Dir weiter.

Code:

---

;;; AreaText.LSP ver 3.0
;;; Command name is AT
;;; Select a polyline and where to place the text
;;; Sample result: 2888.89 SQ. FT.
;;; As this is a FIELD it is updated based on the FIELDEVAL
;;; or the settings found in the OPTIONS dialog box

;;; By Jimmy Bergmark
;;; Copyright (C) 2007-2010 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; 2007-09-05 - First release
;;; 2009-08-02 - Updated to work in both modelspace and paperspace
;;; 2010-10-29 - Updated to work also on 64-bit AutoCAD

;;; Uses TEXTSIZE for the text height

(defun Get-ObjectIDx64 (obj / util)
  (setq util (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))
  (if (= (type obj) 'VLA-OBJECT)
    (if (> (vl-string-search "x64" (getvar "platform")) 0)
      (vlax-invoke-method util "GetObjectIdString" obj :vlax-False)
      (rtos (vla-get-objectid obj) 2 0)
    )
  )
)

(defun c:AT (/ entObject entObjectID InsertionPoint ad)
  (vl-load-com)
  (setq entObject (vlax-ename->vla-object(car (entsel)))
        entObjectID (Get-ObjectIDx64 entObject)
        InsertionPoint (vlax-3D-Point (getpoint "Select point: "))
        ad (vla-get-ActiveDocument (vlax-get-acad-object))
  )
  (vla-addMText (if (= 1 (vla-get-activespace ad))
    (vla-get-modelspace ad)
    (if (= (vla-get-mspace ad) :vlax-true)
      (vla-get-modelspace ad)
      (vla-get-paperspace ad)
    )
  )
  InsertionPoint 0.0 (strcat
  "%<\\AcObjProp Object(%<\\_ObjId "
  entObjectID
  ;;;">%).Area \\f \"%pr2%lu2%ct4%qf1 SQ. FT.\">%"
">%).Area \\f \"" "%pr2%lu6%qf1%ps[,m²]%ct8[1e-006]""\">%"
  ))
)

---

------------------
Gruß ugx     

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

---

 

Zitat:

---

Original erstellt von ugx:
Hallo Yeti,...Ich hoffe das hilft Dir weiter.

---

DANKE!  
ja, das hilft schon mal weiter.
Schöne Feiertage und guten Rutsch!  

------------------
Gruß aus Hamburg
 
Yeti

Planung ist die Ablösung des Nichtwissens durch den Irrtum...

[Diese Nachricht wurde von Yeti am 19. Dez. 2011 editiert.]

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

---

Zitat:

---

Original erstellt von ugx:
Hallo Yeti,

ich habe eine Lisp Datei zum Flächen messen, bei der das Messergebnis im Anschluss
an die Messung direkt auf die Zeichnung abgesetzt werden kann.

---

Schön gelöst mit Schriftfeldern .. bleibt bloß das Problem mit den Abzugsflächen und Inseln ect ....

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

---

Zitat:

---

Original erstellt von CADmium:
... bleibt bloß das Problem mit den Abzugsflächen und Inseln etc...

---

ja, da hast du recht. es werden keine inseln erkannt - die wären schon interessant. abzugsflächen sind nicht unbedingt erforderlich. 
umgrenzung erstellt ja polylinien, die man im anschluss auswerten könnte... ähnlich wie schraffur, da ist die inselerkennung wiederum perfekt, so dass man keine folgeoperationen hätte.

hast du denn vielleicht eine lösung gefunden? du bist ja doch in anderen "sphären" unterwegs.   

------------------
Gruß aus Hamburg

Yeti

Planung ist die Ablösung des Nichtwissens durch den Irrtum...

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

---

Zitat:

---

Original erstellt von Yeti:

hast du denn vielleicht eine lösung gefunden? du bist ja doch in anderen "sphären" unterwegs.    

---

ich hab da schon Ideen ( aber momentan keine Zeit ) .. ich denke trotzdem, das es da schon was gibt!

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

---

AreaLabelV1-9.lsp.txt

Zitat:

---

Original erstellt von CADmium:
...hab...aber momentan keine Zeit...

---

ist schon verständlich, schließlich muß man um diese zeit entweder arbeiten oder diverse besorgungen machen. oder beides... 
habe noch ein interessantes lisp zugeschickt bekommen. ich denke, wenn man sich alle betrachtet, ist eine mischung aus allen die mögliche wollmilchsau (incl. eier)... 

in dem sinne eine schöne (vor-)weihnachtszeit!

------------------
Gruß aus Hamburg

Yeti

Planung ist die Ablösung des Nichtwissens durch den Irrtum...

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

---

ja,.. kenn ich ... denke aber, den ganzen Teil mit der Tabelle brauchst du nicht ??!

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

---

nee, tabelle brauche ich nicht. ich meinte damit, das das lisp die inseln erkennt. jetzt ist nur noch der taschenrechner gefordert oder natürlich "cal".  
ich bin ja nur am eruieren, was alles so möglich ist...  

------------------
Gruß aus Hamburg
 
Yeti

Planung ist die Ablösung des Nichtwissens durch den Irrtum...

[Diese Nachricht wurde von Yeti am 20. Dez. 2011 editiert.]

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

---

Hallo ugx,

für 64bit suchte ich schon lange. Funktioniert super. 

Units unterwegs.

------------------
Ciao Günter
--------------------------------------------------------------------------------
"Wir haben keine Probleme, sondern Aufgaben zu lösen."

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