---

Hallo,

benötige mal hilfe und zwar folgendes lisp-Programm :
erzeugt ein durchmesserzeichen bei text oder mtext (ok ich hab nur %%U durch %%C ersetzt), was muß ich machen bei einer bemassung.
----------------------------------------------------------------
;;;WRITEN BY CLINTON COGSWELL
;;;@22.08.2002
;;;
(defun C:ud (/ ED EN)
  (setvar "cmdecho" 0)
  (setq texttype "TEXT")
  (setq mtexttype "MTEXT")
  (princ "\nwähle Text/Mtext oder drücke enter um einen Block anzuwählen(Texte innerhalb eines Blockes werden berücksichtigt)....")
  (setq en (ssget)); Sets ed to the entity data
  (if (= nil en)(UT))
  (if (/= nil en)(setq MULTI (sslength en)))
  (setq index 0)
  (IF (and (/= EN NIL)(/= nil multi))
    (PROGN
      (repeat multi
(SETQ ed (entget (SSNAME EN index)))
(SETQ EDTYPE (CDR (ASSOC 0 ED)))

(IF (= TEXTTYPE EDTYPE)
  (PROGN
    (setq txtvalue (cdr (assoc 1 ed)))
    (setq allready (substr TXTVALUE 1 3))
    (IF (= ALLREADY "%%c")(setq under (substr txtvalue 4)))
    (if (/= allready "%%c")(setq under (strcat "%%c" txtvalue)))
    (setq ed
  (subst (cons 1 under)
  (assoc 1 ed) ; Changes the layer group in ed.
  ed ; to layer MYLAYER.
  )
    )
    (entmod ed)
    (setq index (+ index 1))
  )
)
(IF (= MTEXTTYPE EDTYPE)
  (PROGN
    (setq txtvalue (cdr (assoc 1 ed)))
    (setq allready (substr TXTVALUE 1 3))
    (IF (= ALLREADY "{\\L")
      (progn
(setq under (vl-string-left-trim "{\\L" txtvalue))
(setq under (vl-string-right-trim "}" under))))
      (if (/= allready "{\\L")
(progn
    (setq under (strcat "{\\L" txtvalue))
    (SETQ UNDER (strcat under "}"))))
    (setq ed
  (subst (cons 1 under)
  (assoc 1 ed) ; Changes the layer group in ed.
  ed ; to layer MYLAYER.
  )
    )
    (entmod ed)
    (setq index (+ index 1))
  )
)
      )
    )
  )
  (IF (or (= EN NIL)(= nil multi))(princ))
)

(DEFUN UT (/ ABTXT)
  (SETQ ABTXT (NENTSEL))
  (IF (/= NIL ABTXT)
      (PROGN   
            (SETQ ABTXT (ENTGET (CAR ABTXT)))
      (setq txtvalue (cdr (assoc 1 ABTXT)))
    (setq allready (substr TXTVALUE 1 3))
    (IF (= ALLREADY "%%u")(setq under (substr txtvalue 4)))
    (if (/= allready "%%u")(setq under (strcat "%%u" txtvalue)))
    (setq ABTXT
  (subst (cons 1 under)
  (assoc 1 ABTXT) ; Changes the layer group in ed.
  ABTXT ; to layer MYLAYER.
  )
    )
    (entmod ABTXT)
      (COMMAND "REGEN")
      )
    )
    (IF (= NIL ABTXT)(Alert "Es wurde nichts gewählt!"))
  )
----------------------------------------------------------
gruß
ZEC

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

---

in der Gefahr als Nörgler dazustehen.. interpretiere ich deine Frage so, dass du gerne bei einer Bemaßung ein Durchmesserzeichen vorsetzen willst?! Da sollte die helfen:

(defun c:setD4pre(/ Auswahl INDEX)
  (if(or(setq AUSWAHL(ssget "_I" '((0 . "DIMENSION"))))
        (setq AUSWAHL(ssget      '((0 . "DIMENSION"))))
    )
  (progn
    (setq INDEX -1)
    (repeat (sslength AUSWAHL)
      (vla-put-textprefix (vlax-ename->vla-object(ssname AUSWAHL(setq INDEX (1+ INDEX))))"%%c")
    ) 
  )
  )
)

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

---

hallo thomas,

muß ich's in programm einbauen oder nicht, denn lisp-technisch bin ich eine null, bitte um nörgelde hilfe.

gruß
Zec

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

---

ich verweis mal in der Kürze auf FAQ

------------------
  - 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:
in der Gefahr als Nörgler dazustehen...

---

Für nichtinsider - Das hat mit einem anderen Beitrag zu tun - hier also Nörgelquote Null. 

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

hallo thomas,

mir ist klar wie man ein lisp-programm in acad lädt,
hab ich auch gemacht und dann die fehlermeldung:

Fehler: Überzählige rechte Klammer in Eingabe

gruß
Zec

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

---

Hallo Zec,
dann wird es wohl so sein: Entweder eine rechte Klammer zu viel - oder eine linke zu wenig:-(
Gib mal in ACAD "_.vlide" ein und kopiere die Routine hinein, da kannst Du´s Dirordentlich formatieren und siehst auch fehlende Klammern besser. Eine schließende Klammer entspricht IMMER einer öffnenden Klammer. Viel Glück!
Frederik

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

---

hallo,

es klappt bis zur auswahl besätigen und dann :

; Fehler: no function definition: VLAX-ENAME->VLA-OBJECT

gruß
zec

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

---

Hallo Zec,
könnte mit der Version zusammenhängen?! In diesem Fall wäre es hilfreich, wenn Du Deine Supportangaben ausfüllen würdest. Ich muß an dieser Stelle leider passen, aber das macht eine Hilfe durch die anderen Mitglieder ungeheuer leichter:-)
Frederik

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

---

Zitat:

---

Original erstellt von Zec:
hallo,

es klappt bis zur auswahl besätigen und dann :

; Fehler: no function definition: VLAX-ENAME->VLA-OBJECT

gruß
zec

---

Dann muss einmalig in einem Lisp-Programm die Active X Schnittstelle von Lisp initialisiert werden mit dem Befehl

Code:

---

(vl-load-com)

---

Am besten in der ersten Zeile des Lisp Quelltexte einfügen.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Hi,
Du mußt als erste Zeile im Proggi:

Code:

---

(vl-load-com)

---

schreiben...

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

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

---

Hallo,

herzlichen dank hat super geklappt.

bis dann
Zec

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

---

hallo marc,

hab da noch was, und zwar hab ich das programm auf einen button gelegt
beim ersten test klapps, aber nehme ich irgendeinen anderen befehl und dann wieder meinen button, führt er den vorherigen befehl nochmal aus, was ist falsch.

gruß
Zec

Programm
Acad 2004
TGA-Desktop 6.0

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

---

Hm, das hängt von Deinem Button Makro ab. Was steht'n da EXAKT drinnen?

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

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

---

hallo marc,

^C^C(load "%%C") ;setd4pre;

gruß
Zec

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

---

Öh, gehe ich recht in der Annahme das die Datei in der die Funktion
>setd4pre< definiert ist den Namen >%%C.lsp< trägt?

Warum heißt die Datei nicht so wie die Funktion? >setd4pre.lsp<

Na egal,
versuch mal folgendes Makro (wenn die Lisp Datei denn >%%C< heißt):

Code:

---

^C^C(if(null C:SETD4PRE)(load "%%C"))(princ);setd4pre;

---

In Deinem Code sind Leerzeichen enthalten, die werden genau wie >;< als >ENTER< interpretiert. Da liegt IMHO der Fehler.

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

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

---

Hallo Zec,
da scheint mir ein Leerzeichen zuviel drin zu sein? Leerzeichen entspricht ";", nur daß man´s eben nicht sooo gut sieht. Funktion: Simuliert das Drücken der [Enter]-Taste - da hast Du Deine Wiederholung.

Zitat:

---

^C^C(load "%%C")_;setd4pre;_

---

1 Leerzeichen ist sicher da - das erste - das zweite vermute ich nur. Habe die " " durch "_" ersetzt.
[Edit: Marc war schneller:-( Edit]
Gruß Frederik

[Diese Nachricht wurde von Paulchen am 14. Sep. 2006 editiert.]

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

---

hallo,

klappt perfekt.

danke
Zec

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

---

hallo,

was muß ich machen wenn ich jetzt ein rechtecksymbol ->" □ " einfügen möchte.

danke vorab
ZEC

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

---

Scheint mir kein "klassisches" ASCII-Zeichen zu sein. Am ehesten käme da noch "(chr 164)" ran. Aber eben nur näherungsweise:-(
Frederik

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

---

Zitat:

---

Original erstellt von Zec:
hallo,

was muß ich machen wenn ich jetzt ein rechtecksymbol ->" □ " einfügen möchte.

danke vorab
ZEC

---

Habe mich als stiller Teilhaber der angebotenenen Hilfen bedient, klappt super. Obige Frage interessiert mich aber auch noch ebenso wie evtl. der Bogen über der Maßzahl, geht das (für ein dargestelltes Bogenmass)?

So, muss erstmal unities verteilen

------------------
ralfi

Man muss das Rad nicht neu erfinden, man muss nur wissen, wie man es dreht.
st.w.

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