Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Fläche.lsp als Text direkt einfügen

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:  Fläche.lsp als Text direkt einfügen (2011 mal gelesen)
ralf-hd
Mitglied



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

Beiträge: 72
Registriert: 23.04.2004

ACAD 2016

erstellt am: 21. Mrz. 2006 15:11    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

Hallo Zusammen,
ich habe die lsp Datei

*^C^C_area;_object;\(command "_-mtext"  pause "_R" 0 "_J" "_BL" "_W" 0 (strcat "A="(rtos(*(getvar"area")10000) 2 3)"m²")""

in ACAD2006 geladen und möchte das Flächenergebnis direkt in die Polygonmitte als Text geschrieben bekommen.

Leider kenne ich mich mit lsp Dateien überhaubt nicht aus und hoffe auf diesem Weg auf Unterstützung.

Schon mal vielen Dank.

Gruss Ralf


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

Dober Heinz
Mitglied
Technischer Zeichner


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

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 21. Mrz. 2006 15:37    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 ralf-hd 10 Unities + Antwort hilfreich

Hallo

Schau mal da,da gibt es welch die mehr können.
http://www.industrie24.com/i24/pages/mp.php?getpage=ftp&sub=1&trigger=search&rubrik=acad&se=D&block=30


------------------
Heinz 

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

ralf-hd
Mitglied



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

Beiträge: 72
Registriert: 23.04.2004

ACAD 2016

erstellt am: 21. Mrz. 2006 16:28    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

Hallo Hein,
vielen Dank für den Tipp, habe auch hier nach einigem Probieren ein einfaches Tool gefunden.

(defun  c:fla_ber ( / 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 "0.35" "0" (rtos (getvar "area")2 2))

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

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

ralf-hd
Mitglied



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

Beiträge: 72
Registriert: 23.04.2004

ACAD 2016

erstellt am: 21. Mrz. 2006 16:33    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

Hallo Heinz,
vielen Dank für den Tipp, habe auch hier nach einigem Probieren ein einfaches Tool gefunden.
(defun  c:fla_ber ( / 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 "0.35" "0" (rtos (getvar "area")2 2))

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

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