Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Ergänzung des gemessenen Wertes

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Ergänzung des gemessenen Wertes (868 mal gelesen)
don max
Mitglied
architekt


Sehen Sie sich das Profil von don max an!   Senden Sie eine Private Message an don max  Schreiben Sie einen Gästebucheintrag für don max

Beiträge: 48
Registriert: 23.02.2004

Windows 2000, A-Cad 2000 (spanisch)

erstellt am: 26. Apr. 2004 01:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


textmitgemessenerflächegenerieren.lsp.txt

 
hallo allerseits,

ich hab mir nun lang genug die zähneausgebissen und will ins bett. drum bitte ich euch um hilfe.
ich habe mir aus zwei lisps eines zusammengestrickt, das mir die fläche einer polylinie berechnet und den wert als text einfügt. nun hätte ich auch gerne noch ein m² hinter dem Wert stehen. Hier der Lisp-Ausschnitt:

(command "_mtext" (getpoint "\n=> Einfügepunkt") "_justify" "_BL" "_width" "0" WERT "")

der rest vom code steckt im anhang, ich hoffe mal dass der mitgeschickt wird.

gruss markus

ps: und nicht erschrecken, das lisp ist wirklich zusammengebastelt.

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

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

CADwiesel
Moderator
CAD4FM UG




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 26. Apr. 2004 08:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für don max 10 Unities + Antwort hilfreich

Anhang tuts nicht.
hast du schonmal bei mir nachgesehen?
da gibts was, was dir die Fläche berechnet und dir den Wert in den Schwerpunkt schreibt.

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

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

spider_dd
Mitglied



Sehen Sie sich das Profil von spider_dd an!   Senden Sie eine Private Message an spider_dd  Schreiben Sie einen Gästebucheintrag für spider_dd

Beiträge: 1111
Registriert: 27.11.2003

Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018

erstellt am: 26. Apr. 2004 08:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für don max 10 Unities + Antwort hilfreich

Hallo don max

in der Annahme WERT liegt als Text vor sollte folgendes gehen:

WERT ersetzen durch (strcat WERT " m²")

Gruß
spider

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

Proxy
Ehrenmitglied
Stateless-DHCP v6-Paketfragmentierer


Sehen Sie sich das Profil von Proxy an!   Senden Sie eine Private Message an Proxy  Schreiben Sie einen Gästebucheintrag für Proxy

Beiträge: 1629
Registriert: 13.11.2003

Tastaturen, Mäuse,
Pladden, ...,
AutoCADs 200X, SWX 2kX

erstellt am: 26. Apr. 2004 17:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für don max 10 Unities + Antwort hilfreich

P.S. hier der Anhang

Code:

; BEFEHL: ATI

; Addiert die Fläche zu markierenden Polylinien und schreibt die Fläsche als Mtext.

; ==================================================================================

(defun suma-pol ()
  (setq polilineas (ssget))
  (setq n-pol (sslength polilineas)
n    0
  )
  (repeat n-pol
    (setq nombre (ssname polilineas n))
    (if (or (= "LWPOLYLINE" (cdr (assoc 0 (entget nombre))))
    (= "POLYLINE" (cdr (assoc 0 (entget nombre))))
)
      (progn
(command "_.area" "_o" nombre)
;;(setq ar (/ (getvar "area") 1000000))
(setq ar (getvar "area"))
(setq area (cons ar area))
(setq n (1+ n))
      )
    )
  )
  (if (or (= "LWPOLYLINE" (cdr (assoc 0 (entget nombre))))
  (= "POLYLINE" (cdr (assoc 0 (entget nombre))))
      )
    (progn
      (setq area-total (apply '+ area))
    )
  )

(setq WERT  (rtos area-total 2 2))      ; Modus 2 = dezimal

  (if area-total
    (command "_mtext" (getpoint "\n=> Einfügepunkt") "_justify" "_BL" "_width" "0" (strcat WERT " m²") "")
   
  )
)

(defun c:ATI (/ polilineas n-pol n nombre ar area area-total wert)
  (setvar "cmdecho" 1)
  (suma-pol)
  (setvar "cmdecho" 1)
  (prin1)
)

(prompt "\n**** Befehl: ATI ****")
(princ)


------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

don max
Mitglied
architekt


Sehen Sie sich das Profil von don max an!   Senden Sie eine Private Message an don max  Schreiben Sie einen Gästebucheintrag für don max

Beiträge: 48
Registriert: 23.02.2004

Windows 2000, A-Cad 2000 (spanisch)

erstellt am: 27. Apr. 2004 00:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Zitat:
Original erstellt von CADwiesel:
Anhang tuts nicht.
hast du schonmal bei mir nachgesehen?
da gibts was, was dir die Fläche berechnet und dir den Wert in den Schwerpunkt schreibt.



wollte halt mal was ausprobieren :-)

interessante seite hab mir einiges gesaugt. danke markus

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

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz