---

Hey,

ich habe folgendes Problem:

Ich habe nun erst seit einem Monat den Branchenwechsel in die CAD-Technik hinter mir und möchte mir ein paar Makros erstellen, jedoch habe ich keine Ahnung davon ^^
Das Makro sollte als Raumstempel dienen, womit ich nur noch einmal den internen Punkt eines Raumes/Objekts bestimmen muss und dann automatisch per Schriftfeld die Fläche angezeigt bekomme.

Weiter als
^C^C_BOUNDARY;\;_FIELD;
komme ich nicht.

Wie kann ich die Objektwahl starten bzw das letzt gezeichnete Objekt auswählen?
kann ich vor dem Schriftfeld auch noch "Fläche:" etc. dazu schreiben?

kann man das Schriftfeld auch gleich mittig des Raumes platzieren lassen?

wenn ich nun alle räume damit ausgestattet habe, kann ich mir irgendwie davon die Summe aller Flächen anzeigen lassen?

Vielen Dank schon mal 

lg

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

---

Herzlich willkommen im Forum 
Läuten wir also die Makro-Woche ein 

Das wird so nix, denn Du mußt Deinem Field ja das ein oder andere mitgeben und dafür reichten die Möglichkeiten eines Buttonmakros meiner Meinung nach nicht aus.

Erstell Dir sowas einmalig, kopiere es und ändere die jeweilige Zuweisung der Schriftfelder.
Beispiel: http://ww3.cad.de/foren/ubb/Forum145/HTML/002059.shtml
Oder tool 52 DT-RELINKFIELDPL von http://www.d-tools.eu/Asptest/Tools.aspx

Um an die Raumsummen zu gelangen, könntest Du Dich z.B. mit den DATENEXTRAKTionen beschäftigen.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Danke für deine Antwort.

Ok, also mit Makros wird das nix, dass hab ich verstanden, aber den Code des 1. Links verstehe ich gar nicht.
Wo muss man den einfügen? Wie nennt sich das?

Gibt es sonst wo eine Einführung in diese Bereiche von Autocad?

Datenextraktionen kenn ich 

lg

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

---

Wenn ich Dich an dieser Stelle mit den AutoCAD-FAQ von cad.de bekannt machen dürfte: >> klick <<

Dich betrifft für heute der Beitrag   FAQ:APPLOAD: Wie LISP Tool laden sowie FAQ: MAKRO und SKRIPT

Desweiteren faulerweise per Copy&Paste aus einem anderen Beitrag von heute:
Kennst Du schon die FILTERFUNKTION von cad.de? Oben in den Brettübersichten hast Du zwei Felder >> screenshot <<: Suche und Filter.

Weiteres zur Funktionsweise: >> Filter für Antworten <<

Weiteres zur Suchfunktion: Syntax der CAD.de Suche

Ich hoffe, damit kommst Du schon ein wenig weiter. Gleich die Warnung: Um so etwas schreiben zu können, brauchst Du mehr als ein snickers. Zum Anwenden reicht ein halbes 
Viel Erfolg 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

Super danke.
Werd die links einmal durchackern 

Es Anwenden zu können würde mir schon reichen 

lg

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

---

Hab mir nun alles durchgelesen 

Hab mir dieses Tool, was du gelinkt hast, als .lsp gespeichert und per APPLOAD geladen.
Wenn ich es im Urzustand mit der Längenermittlung lasse, den befehl "lnkfld" eingebe, zeigt es mir nur "####" an, sowie auch wenn ich es auf die Flächenberechnung umschreibe.

Wo könnte bei mir der Hund begraben sein?
Kann es an meiner ACAD-Version liegen? - Autocad 2014, die Normale.

Befehlszeile zeigt mir folgendes:

"Befehl: LNKFLD

Objekt wählen:
Select Point: #<VLA-OBJECT IAcadMText 0000000043623128>"

Der Code in der .lsp:

   
(defun c:lnkfld ()
      (setq a (car (entsel)) b (getpoint "\n Select Point: "))
      (linkedarea a b)
    )
    (vl-load-com)
    ;;get a reference to model space
    (setq *model-space*
          (vla-get-ModelSpace
            (vla-get-ActiveDocument (vlax-get-acad-object))
          )
    )
    ;;pass this function an entity and a point
    (defun LinkedArea (ent pt / obj objID ip width str)
      ;;convert the entity to an object
      (setq obj  (vlax-ename->vla-object ent)
            ;;get the object ID
            objID (vla-get-objectid obj)
            ;;convert the point
            ip    (vlax-3D-Point pt)
            ;;set the width for the MTEXT
            width 0.0
            ;;set the string - this creates the field
            str  (strcat
                    "%<\\AcObjProp.16.2 Object(%<\\_ObjId "
                    (rtos objID 2 0)
                    ">%).Area \\f \"%lu2%pr2%ps[,m²]%ct8[1e-006]\">%"
                  )
      )
      ;;Create the MTEXT entity containing the field.
      (vla-addMText *model-space* ip width str)
    )

Vielen Dank.

Kraxi
AutoCAD-Frischling

------------------
lg Kraxi

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

---

Moin,

fogendes ist eher Raten als Wissen: Da hat sich bei 64bit imho was mit der Ermittlung der Object-ID geändert, die wird grad 'falsch' ermittelt.

Nimm mal dieses, ähnlich arbeitende: >> klick <<
Und es war auch nicht so, wie ich ursprünglich geschrieben hatte (hab das nicht nochmal getestet gehabt): Das lsp erzeugt Dir ein neues Field mit der Fläche/Länge/andereEigenschaft und verknüpft nicht ein vorhandenes mit einer anderen Polylinie neu. Dieses neu verknüpfen macht (z.B.) das DefunTool. Aber Du wolltest ja imho sowieso neue Schriftfelder erzeugen, also sollte das schon das Passende für Dich sein.

Prinzip des neuen links ist wie gesagt identisch. Auch dort bekommst Du durch Austausch des Teils .Area \\f \"%lu2%pr2%ps[,m²]%ct8[1e-006]\">%" eine Fläche mit zwei Nachkommastellen und dem Anhang "m²"

Ich hoffe, Du kommst jetzt wieder ein Stückchen weiter 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

hab den Austausch-Code auf
.Area \\f \"%lu2%pr0%ps[, m²]%ct8[1]\">%"
geändert, durch das ct8[1e-006] zeigte es mir immer 0 m² an ^^

Vielen Dank nochmal für deine Hilfe.

lg

------------------
lg Kraxi

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