Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Text einklammern

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:  Text einklammern (4824 mal gelesen)
Sir Vival
Mitglied
Bauzeichner Tiefbau


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

Beiträge: 134
Registriert: 12.09.2003

Intel Core i7-3770,
3,40GHz, 8,00 GB RAM,
NVIDIA Quadro 600,
Autodesk Civil 3D 2014 DEU + SP1,
ITWH-GIPS 7.3, GISx
GoPlot, CADManagerTools,
Win 7 Pro, Office 2010,
Plotter: HP DesignJet T1100ps

erstellt am: 25. Mai. 2004 13: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

Mahlzeit!

Ich habe folgendes Problem: In einer Zeichnung befinden sich sehr, sehr viele Bestandshöhen. Diese liegen alle schon auf einem Layer und haben auch die Gleichen Eigenschaften. Nun möchte ich diese Texte alle in einem Rutsch in Klammern setzen. Z.B.:
Vorher: 38.569
Nachher: (38.569)
Leider komme ich mit der Acad-internen "Suchen und Ersetzen" - Funktion nicht weiter... :-( Wer weiß Rat?

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



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

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 25. Mai. 2004 13:45    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 Sir Vival 10 Unities + Antwort hilfreich

Hallo,

solang es keine Werte in Attributen sind, sondern wirklich nur Textelemente, können dir die folgenden Zeilen helfen.

Code:

(defun c:tvn (/ aws gc1 Ed)
  (setq aws (ssget "_X" '(
                          (0 . "*TEXT")
                          (8 . "0");Hier den Layernamen einsetzen!
                          )
                   )
        )
  (if aws
    (foreach E (bau_elemli aws)
      (entmod
        (subst
          (cons 1 (strcat "("
                          (cdr(setq gc1 (assoc 1 (setq Ed(entget E)))))
                          ")"
                          )
                )
          gc1
          Ed
          )
        )
      )
    (princ "\nKeine Texte gefunden!")
    )
  )
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli(cons (ssname asatz n) elemli)
  n (1+ n))
    )
  elemli
  )

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich!

[Diese Nachricht wurde von Brischke am 25. Mai. 2004 editiert.]

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 25. Mai. 2004 13:54    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 Sir Vival 10 Unities + Antwort hilfreich

mal ein Lispansatz
(defun c:EDIT-txt ( / AUSWAHL OBJEKTDATEN INDEX)
  (if(setq AUSWAHL(ssget '((0 . "TEXT"))))
    (progn
      (setq INDEX -1)
      (repeat (sslength AUSWAHL)
         (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX)))))
         (entmod(subst (cons 1 (strcat "(" (cdr(assoc 1 OBJEKTDATEN)) ")"))
                       (assoc 1 OBJEKTDATEN)
                       OBJEKTDATEN
                )
         )
      ) 
    ) 
  )          
)


Äh, zu laaaaangsammmmmmmmmmmm
------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 25. Mai. 2004 editiert.]

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

tmoehlenhoff
Ehrenmitglied V.I.P. h.c.
Gutzum, CAD-Therapeut und BIM-Priester ;-)



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

Beiträge: 2996
Registriert: 14.10.2002

AutoCAD 2017, AutoCAD Architecture 2017, Revit 2017 und was sonst noch so Spaß macht ...

erstellt am: 25. Mai. 2004 13: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 Sir Vival 10 Unities + Antwort hilfreich

und auf  http://www.xanadu.cz/default.asp?page=developde.htm  gibts ein srxTEXT. Damit kann man mit regulären Ausdrücken suchen und ersetzen.

Nachtrag: Ich vergas zu erwähnen, dass ich das Teil selbst noch nicht probiert habe, aber es hört sich zumindest gut an und den Tipp habe ich bei einer ähnlichen Frage gelesen.

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

[Diese Nachricht wurde von tmoehlenhoff am 25. Mai. 2004 editiert.]

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

Sir Vival
Mitglied
Bauzeichner Tiefbau


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

Beiträge: 134
Registriert: 12.09.2003

erstellt am: 25. Mai. 2004 14:24    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

Besten Dank für eure schnellen Antworten!

@Brischke:
Super-Sache! Funktioniert einwandfrei...
Unities sind unterwegs... :-))
Gäbe es auch innerhalb des Progs. die Möglichkeit einer grafischen Elementauswahl? So daß man z.B. EINEN Texte anpickt und daß anschließend alle Texte mit den gleichen Eigenschaften abgearbeitet werden?

@CADmium:
Dir natürlich auch besten Dank für Deine Bemühungen. Werd's gleich mal testen...

@Torsten:
Auf srxtext bin ich im Vorfeld meiner Fragestellung schon durch die Such-Funktion gestoßen und das Prog. führte bei mir immer nur zu einem Abbruch der Funktion...

Gruß Christian

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 25. Mai. 2004 14:31    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 Sir Vival 10 Unities + Antwort hilfreich

so? .. einen anklicken und alle auf gleichen Layer werden modifiziert?

(defun c:EDIT-txt ( / AUSWAHL OBJEKTDATEN INDEX)
  (if(setq AUSWAHL(ssget "_:S" '((0 . "TEXT"))))
    (progn
      (cdr(assoc 8 (entget (ssname AUSWAHL 0))))
      (if(setq AUSWAHL(ssget "_X"
                            (list
                              '(0 . "TEXT")
                                (cons 8 (cdr(assoc 8 (entget (ssname AUSWAHL 0)))))
                            )
                      )
        )
        (progn
          (setq INDEX -1)
          (repeat (sslength AUSWAHL)
            (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX)))))
            (entmod(subst (cons 1 (strcat "(" (cdr(assoc 1 OBJEKTDATEN)) ")"))
                          (assoc 1 OBJEKTDATEN)
                          OBJEKTDATEN
                    )
            )
          ) 
        ) 
      )         
    )
  )
)

------------------
- Thomas -

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

Sir Vival
Mitglied
Bauzeichner Tiefbau


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

Beiträge: 134
Registriert: 12.09.2003

erstellt am: 25. Mai. 2004 14: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

@CADmium:
Deine Zeilen hätte ich viell. vorher testen sollen... Genau so hab ich mir das vorgestellt... Einfach genial!

Somit hat sich meine Frage an Holger aus dem vorherigen Beitrag erübrigt...

Christian

P.S.: Was mache ich eigentlich im umgekehrten Fall? Ich habe also eingeklammerte Texte, die ich gerne ausklammern möchte...

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 25. Mai. 2004 15:29    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 Sir Vival 10 Unities + Antwort hilfreich

zu deinem P.S. :
die Funktion nutzen :

(defun c:EDIT-TXT2 ( / AUSWAHL OBJEKTDATEN INDEX)
  (if(setq AUSWAHL(ssget "_:S" '((0 . "TEXT"))))
    (progn
      (cdr(assoc 8 (entget (ssname AUSWAHL 0))))
      (if(setq AUSWAHL(ssget "_X"
                            (list
                              '(0 . "TEXT")
                                (cons 8 (cdr(assoc 8 (entget (ssname AUSWAHL 0)))))
                                (cons 1 "`(*)")
                            )
                      )
        )
        (progn
          (setq INDEX -1)
          (repeat (sslength AUSWAHL)
            (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX)))))
            (entmod(subst (cons 1 (substr(cdr(assoc 1 OBJEKTDATEN))
                                          2
                                          (-(strlen (cdr(assoc 1 OBJEKTDATEN)))2)
                                  )
                          )     
                          (assoc 1 OBJEKTDATEN)
                          OBJEKTDATEN
                    )
            )
          ) 
        ) 
      )         
    )
  )
)

------------------
- Thomas -

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



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

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 25. Mai. 2004 15:44    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 Sir Vival 10 Unities + Antwort hilfreich

Hallo Christian,

An folgendem Code-Bsp kannst du sehen, wie einfach es ist, wenn man auf eine Funktionsbiblithek zurück greifen kann. Ich habe für deine Aufgabenstellung mal die notwendigen Bausteine zusammengesucht und so zusammen geschachtelt, dass alle Aufgaben (Klammern drum und wieder weg, manuell und voreingestellte Eigenschaften) für bestimmte Objekte leicht gemacht werden können. Momentan werden nur Texte geändert, bei denen wirklich eine Zahl enthalten ist.
Mit ein paar Handgriffen kannst du dir aus diese Funktionen auch weitere Neue Funktionen 'basteln'. Deiner Fantasie sind da keine Grenzen gesetzt.
Mit den Befehlen:
TVN - Klammern drum
TVNweg - Klammern weg
werden die Voreingestellten Eigenschaften der Texte genommen, mit
WTVN - Klammern drum
WTVNweg - Klammern weg
wird durch eine Objektwahl zur Bestimmung der Objekteigenschaften aufgefordert.

Aber du musst schauen, ob die Einstellungen in diesen beiden Routinen auch tatsächlich deinen Anforderungen entsprechen.

@Torsten Möhlenhoff
hier habe ich auch die Möglichkeit eingebaut, Funktionsausdrücke zu übergeben. Dies sowohl für die Filterung als auch für die Veränderung der Texte.

Bei Fragen ...

Grüße Holger
und nun der Code:

Code:

;;;TextVorNach Suchen und Ersetzen
;;;Klammern weg, manuelle Objektwahl zur Eigenschaftenbestimmung
(defun c:WTVNweg (/ aws gc1 Ed obj)
  (setq obj (ssget "_:S" '((0 . "*TEXT"))))
  (if obj
    (chg_TXT_Filter
      ;Textobjekteigenschaften
      (vl-remove-if-not
        '(lambda (E)
          (member (car E) '(8;Layer
                            7;Stil
                            62;Farbe
                            41;Breitenfaktor
                            72;horizontale Textausrichtung
                            73;vertikale Textausrichtung
                            72;Texterstellung (Seitenverkehrt..)
                            50;Drehung
                            ;...usw
                            )
                  )
          )
        (entget (ssname obj 0))
        )
      ;Textwerteigenschaft
      '(lambda (TXT)
        (str-isZahl TXT "(.,)");Einklammern nur, wenn Text eine Zahl darstellt!
        )
      ;Neue Texteigenschaft
      '(lambda (AT)
        (str-Expr-str AT
          '(lambda (Z)
              (if
                (not(member (ascii Z) (list (ascii "(")(ascii ")"))))
                Z
                "")
              )
          )
        )
      )
    )
  )
;;;
;;;Klammern drum, manuelle Objektwahl zur Eigenschaftenbestimmung
(defun c:WTVN (/ aws gc1 Ed obj)
  (setq obj (ssget "_:S" '((0 . "*TEXT"))))
  (if obj
    (chg_TXT_Filter
      ;Textobjekteigenschaften
      (vl-remove-if-not
        '(lambda (E)
          (member (car E) '(8;Layer
                            7;Stil
                            62;Farbe
                            41;Breitenfaktor
                            72;horizontale Textausrichtung
                            73;vertikale Textausrichtung
                            72;Texterstellung (Seitenverkehrt..)
                            50;Drehung
                            ;...usw
                            )
                  )
          )
        (entget (ssname obj 0))
        )
      ;Textwerteigenschaft
      '(lambda (TXT)
        (str-isZahl TXT ".,");Einklammern nur, wenn Text eine Zahl darstellt!
        )
      ;Neue Texteigenschaft
      '(lambda (AT)
        (strcat "(" AT ")");Einklammern
        )
      )
    )
  )
;;;Klammern weg, Voreingestellte Eigenschaften
(defun c:TVNweg (/ aws gc1 Ed)
  (chg_TXT_Filter
    ;Textobjekteigenschaften
    '(
      (8 . "Text*");auf Layer Text*
      (7 . "Standard");Textstil Standard
      )
    ;Textwerteigenschaft
    '(lambda (TXT)
      (str-isZahl TXT "(.,)");Ausklammern nur, wenn Text eine (Zahl) darstellt!
      )
    ;Neue Texteigenschaft
    '(lambda (AT)
      (str-Expr-str AT
        '(lambda (Z)
                (if
                  (not(member (ascii Z) (list (ascii "(")(ascii ")"))))
                  Z
                  "")
            )
        )
      )
    )
  )
;;;Klammern drum, Voreingestellte Eigenschaften
(defun c:TVN (/ aws gc1 Ed)
  (chg_TXT_Filter
    ;Textobjekteigenschaften
    '(
      (8 . "Text*");auf Layer Text*
      (7 . "Standard");Textstil Standard
      )
    ;Textwerteigenschaft
    '(lambda (TXT)
      (str-isZahl TXT ".,");Einklammern nur, wenn Text eine Zahl darstellt!
      )
    ;Neue Texteigenschaft
    '(lambda (AT)
      (strcat "(" AT ")");Einklammern
      )
    )
  )
;;;
(defun chg_TXT_Filter (OFilter EXPR TEXPR / gc1 Ed)
  (setq aws (ssget "_X" (append
                          '(
                            (0 . "*TEXT"))
                          OFilter
                          )
                  )
        )
  (if aws
    (foreach E (bau_elemli aws)
      (if ((eval EXPR) (cdr(setq gc1 (assoc 1 (setq Ed(entget E))))))
        (chgTxtObject_Function E TEXPR)
        )
      )
    (princ "\nKeine Texte gefunden!")
    )
  )
;;;
(defun str-isZahl (STR STRTRENN / tmp)
  (setq STRTRENN(mapcar 'ascii(str->list STRTRENN))
        tmp (str-Expr-str
              STR
              '(lambda (Z)
                (if
                  (or
                    (<= 48 (ascii Z) 57)
                    (member (ascii Z) STRTRENN)
                    )
                  Z
                  "")
                )
              )
        )
  (if(and tmp
      (=
        (strlen STR)
        (strlen tmp)
        )
      )
    tmp)
  )
;;;
(defun str-Expr-str (STR EXPR / erg)
  (setq erg(apply 'strcat
                  (mapcar Expr
                          (str->list STR)
                          )
                  )
        )
  (if (/= erg "")
    erg
    )
  )
;;;
(defun str->list (STR / i strli)
  (setq i 0)
  (if(= 'STR (type STR))
    (reverse
      (repeat (strlen STR)
        (setq i (1+ i)
              strli(cons(substr STR i 1)strli)
              )
        )
      )
    )
  )                 
(defun chgTxtObject_Function (E nTXTEXP / gc1 Ed)
  (entmod
        (subst
          (cons 1
                ((eval nTXTEXP)(cdr(setq gc1 (assoc 1 (setq Ed(entget E))))))
                )
          gc1
          Ed
          )
        )
  )
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli(cons (ssname asatz n) elemli)
  n (1+ n))
    )
  elemli
  )
(princ "\n(defun - Lisp over night!")
(princ "\nmailto:kontakt@defun.de")
(princ "\n\"WTVN\" - Klammern drum, manuelle Objektwahl zur Eigenschaftenbestimmung")
(princ "\n\"WTVNweg\"  - Klammern weg, manuelle Objektwahl zur Eigenschaftenbestimmung")
(princ "\n\"TVN\" - Klammern drum, Voreingestellte Eigenschaften")
(princ "\n\"TVNweg\" - Klammern weg, Voreingestellte Eigenschaften")

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

Treffen Sie (defun auf dem Autodesk Anwendertreffen am 15.06. in Steyr/Österreich!

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

Stelli1
Ehrenmitglied
Verm.-Ing.


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

Beiträge: 1521
Registriert: 17.08.2005

Map 2000-2013, Rasterdesign
MapGuide 6.5 - 2013
Oracle 9i,10g,11g Enterprise
autodesk Topobase 2-2012
VS6, VS.net

erstellt am: 14. Sep. 2005 18:39    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 Sir Vival 10 Unities + Antwort hilfreich


text_tausch.gif

 
Guten Abend,

sehen recht kompliziert aus die Lisp Programme.

Ich hab da ein Tool das macht das in 0,2 sec.

Gruß
Stelli

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

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



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

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 14. Sep. 2005 19:01    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 Sir Vival 10 Unities + Antwort hilfreich

Hi Stelli1,
klasse! Kriegen wir den Quellcode?

------------------
Ciao,
Marc

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

Stelli1
Ehrenmitglied
Verm.-Ing.


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

Beiträge: 1521
Registriert: 17.08.2005

Map 2000-2013, Rasterdesign
MapGuide 6.5 - 2013
Oracle 9i,10g,11g Enterprise
autodesk Topobase 2-2012
VS6, VS.net

erstellt am: 15. Sep. 2005 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 Sir Vival 10 Unities + Antwort hilfreich

Hallo Marc,

den Quellcode wohl nicht, kann man als Toolsammlung kaufen.
Beinhaltet,
- Blöcke tauschen (auch mit Attributen), Kreis + Punkt nach Block
- Größe von Blöcken, Texten und Polylinien relativ und absolut im Stapel
- Drehen von Blöcken, Texten Stapel
- Textteile ersetzen, Runden von Zahlen (Prefix,Suffix)
- Höhenbschriftung auf Fang oder Objekte
- Linienbegleitende Symbole (Zaun, Hecke etc)
- Böschungsschraffuren aus Umring oder Ober-/Unterkante
- Excel Import/Export mit Attributen
- Layer/Blöcke umbenennen
- Werte wie Farbe, Linienstärke in Blockdefinition ändern (z.B.vonLayer nach vonBlock)
- Längsschnitt aus Excel
- Plottool zur erzeugung von Fahnenbeschriftung und Gitterkreuzen
im Papierbereich.

Wenn du im VBA Forum ein Thema aufmachst, können wir mit den Texten
einen kleinen Workshop zum Eigenbau machen. Mit den Texten ist das
sehr einfach und kann leicht auf andere Aufgaben übertragen werden.

Gruß
Stelli

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

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



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

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 15. Sep. 2005 09:40    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 Sir Vival 10 Unities + Antwort hilfreich

Werbe-ALAAAAARM!!!!!
Ich verleihe das "TB-O-Meter™" an Stelli1

Inhalt>------------------| |-<Werbung

@Stelli1:
Aber danke für das Angebot zum Eigenbau-Workshop...
Das wiederum finde ich gut!

------------------
Ciao,
Marc

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

Stelli1
Ehrenmitglied
Verm.-Ing.


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

Beiträge: 1521
Registriert: 17.08.2005

Map 2000-2013, Rasterdesign
MapGuide 6.5 - 2013
Oracle 9i,10g,11g Enterprise
autodesk Topobase 2-2012
VS6, VS.net

erstellt am: 15. Sep. 2005 10:43    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 Sir Vival 10 Unities + Antwort hilfreich

Hallo Marc,

müsste ich zurückgeben

Schnorrer Alarm

wo hast du die Werbung gelesen ?
Bezugsquelle, Preis ???
Vielleicht interessiert es mich ja.

Ich glaube das Forum ist keine Tauschbörse
und auch kein DRK sondern für gegenseitige
Hilfe!

In diesem Sinne
Stelli

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

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



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

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 15. Sep. 2005 11:06    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 Sir Vival 10 Unities + Antwort hilfreich

Hallo Stelli,

es ist schon komisch, wenn man liest, dass die Lisp-Codes recht kompliziert aussehen, du ein Tool hast, was dann in 0,2sec macht. In diesem Beitrag war eigentlich nichts hilfreiches zu finden.

Mit Bezug auf die Kompliziertheit des Lisp-Codes hat Marc nach dem Quellcode deines Tools gefragt ... darauf kam dein Hinweis auf ein käuflich zu erwerbendes Tool - Das ist schon recht merkwürdig.
Einen Ansatz zur Hilfe kann ich nicht erkennen, nur Feststellungen, die dem Fragenden kein Stück weiter bringen.

Da liegt, die Vermutung, dass der Beitrag nur der Werbung wegen nach oben geholt wurde schon recht nahe.

SchnorrerAlarm? Worauf ist das bezogen?
a) Darauf, dass Marc den Quellcode sehen wollte?
oder
b) dass jemand nach Rat fragt, für ein bestimmtes Problem?


Richtig ist, dass das Forum zur gegenseitigen Hilfe gedacht ist. Wie diese Hilfe aussieht, welche Grenzen wo gezogen sind, das ist subjektiv. Deshalb, wenn es jemanden hilft, durch den Austausch von Informationen, Zeichnungen, freien Programmen, ... ein Problem zu lösen, dann ist der Tauschbörsencharakter vollkommen in Ordnung.

Das Forum kein DRK? Auch dass lässt sich nur subjektiv beantworten. Für viele ist es sicherlich so, dass sie sehr viel mehr Antworten geben als Fragen stellen. Genauso gibt es die Mitglieder, die mehr Fragen als selber antworten. Unter diesem Gesichtspunkt ist das Forum durchaus mit dem DRK zu vergleichen.
Das ist gut so und bestimmt auch den Charakter des Forums, dass jeder mal in die Rolle des Retters und mal des zu Rettenden schlüpft.

So ganz kann ich deine Aufregung, die ich glaube aus deiner Antwort herauszulesen, nicht verstehen und auch nicht teilen.

Es sollte letztendlich doch unser aller Ziel sein, dass im Forum weiterhin vordergründig geholfen wird und nicht dass man sich auf jede Frage erst durch 10 Werbeblöcke zur Antwort durchkämpfen muss.

Meine Meinung!

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



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

Beiträge: 2490
Registriert: 02.11.2001

Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)

erstellt am: 15. Sep. 2005 11:27    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 Sir Vival 10 Unities + Antwort hilfreich

@Stelli1,
ach' komm.
Hab' 'n Späßle gemacht.
Konnte nach Deinem ersten Posting einfach nicht wiederstehen Dir 'n Werbeposting aus 'm Kreuz zu leiern.. Ich WUSSTE einfach das im zweiten Posting kommen würde was kam. Und nur weil da kein Link oder 'n Preis angegeben war heißt das ja nicht, dass sich Interessierte nicht per PM an Dich wenden können, gelle?

ABer Dein Angebot zu einem Workshop zur Eigenerstellung eines ähnlichen Tools in VBA fand' ich wiederum WIRKLICH gut, thx.
Also, alles locker.

@Brischke:
Holger, ich glaube der Stelli hat das genauso schmunzelnd gemeint wie ich ;-)

------------------
Ciao,
Marc

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