---

DurchmesserbemassenKopie.jpg

Hi,

hat jemand eine Idee, wie man Durchmesser (Bohrungen) in der Seitenansicht rationell bemassen kann.
Möchte nicht immer mit Text oder Mtext %%c eingeben.
Kopieren ist auch lästig.
Kann man ein Werkzeug erstellen, in dem man nur noch den Durchmesser eingibt? Eine Linie (siehe .jpeg) sollte als "Gummiband" ähnlich wie bei ^C^C_dimdiameter erstellt werden!

Wer meint das sowas geht!

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

---

Hoffe es hilft:
------------------ http://ww3.cad.de/foren/ubb/Forum54/HTML/005474.shtml
------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

[Diese Nachricht wurde von cadffm am 04. Dez. 2003 editiert.]

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

---

Hallo Schorsch..
wie Sebastian schon verweist :
Nimm das Lisp "leader.txt" aus dem Thread
http://ww3.cad.de/foren/ubb/Forum54/HTML/005474.shtml

(oder prinzipiell 'ne Führung, da gibt's mehrere Möglichkeiten)
dann haste schon mal nen Strich mit Pfeil. Dann deinen Text eingeben, den mit (strcat "%%c" DEINTEXT)verknüpfen usw...
Mußte bloß noch ein bißchen basteln. Aber für dich sicher kein Problem?! 

Thomas

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

---

Danke,

werd mich mal versuchen!
Kommt bestimmt eine Variable raus,
die automatisch den Rechner zerstört!

Danke für den Tip!

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

---

Ihr verlangt aber von einem Anfangslispler ganz schön wat!
Hab mir die leader.txt mal angeschaut.
Und wat nu?
Bitte um noch einen kleinen Stoß vor den Kopp!

---------Alpschorsch will auch lispeln können----------

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

---

Alpschorsch muß viel Wasser den Rhein passieren lassen
bevor er undeutlich sprechen kann.

- versuche es doch erstmal mit einem Makro...

_.leader;\\\ usw

------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

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

---

Hallo,

erzeuge einfach einen neuen BemStil, bei dem du auf der Seite "Primäreinheiten" unter "Suffix" %%C einträgst. Aktuell setzen oder nachträglich zuweisen über den Werkzeugkasten Bem oder Stile (in 2004). In andere Zeichnungen übertragen mit dem DesignCenter.

Die Bemaßungen mit BEMLINEAR und Return für "Objekte wählen" erzeugen.

MfG Peter Tropf

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

---

sorry, es muss natürlich "Präfix" heißen und nicht "Suffix"

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

---

hi Peter,
gute Idee, aber ich glaube leader is der richtige Ansatz.
In 2004 qleader. Glaub ich!
Mal sehen!

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

---

Ich glaube das es zwei Befehle sind (in ACAD2004  )

------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

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

---

Hi,
sehe es geht über qleader recht komfortabel.
Meint ihr es geht einen konstanten Abstand zur Basis einzustellen?
Und %%c als Voreinstellung wäre gut!
Unter Einstellungen qleader ist nichts zufinden!

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

---

// Und %%c als Voreinstellung wäre gut! //

das bekommst du hin !

los, nochmal den tollen Tip von mir ansehen wo man in der Hilfe was
über SCRIPTe und MAKROs findet, dann passt das !

Tip: ^Z

------------------
- Sebastian Mattis - Weitere InfoŽs unter F1 !

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

---

dm_leader.txt

Hallo Schorsch!
Vielleicht hilft dir ja die Datei im Anhang weiter.
... als Grundgerüst ...
.. LAYER, DIMASZ ,Texteigenschaften könnte man noch seperat setzen usw...

Edit: (noch cmdecho gesetzt - Sieht besser aus  )
Also ... Abspeichern ... In *.lsp umbenennen und in ACAD laden... dann mit dm_leader in der Befehlszeile starten usw....

Und was den konstanten abstand zur Basis angeht... in der Routine wird nach dem Startpunkt gefragt. Addiere zum y-Wert den Abstand hinzu und übergebe die ganze Sache als 2.Pkt ... Viola

... bei Fragen : F1

Probieren geht über Studieren! - Probier einfach mal aus . Denn du weißt sicher selbst am besten, was dir so vorschwebt. Viel Spaß dabei
wünscht

Thomas

[Diese Nachricht wurde von CADmium am 04. Dez. 2003 editiert.]

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

---

Hi,
danke euch!
Mache mich morgen mal ran!
Nu is Feierabend!
Aber was ich mit der .txt machen kann weiß ich immer noch nicht!
Mit einer Lisp wüßte ich das schon!(Glaub ich!)
Oder muß man die nur umspeichern und laden?
 
Aber nu erstmal Feierabend! 

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

---

Hallo Schorsch...
... um dein generelles Problem etwas abzumildern und dich zu befähigen in kurzer Zeit eigenen Lisps auf die Beine zu stellen möchte ich dir an dieser Stelle die Seiten von MAPCAR nahe legen.
Mit der Suche im Forum würdest du den Link sicherlich ein paar mal finden, aber sicherheitshalber hier ist er noch mal:
http://www.autolisp-tutorial.mapcar.net

Noch ein Nachsatz: Empfehlen kann ich auch das Trainig auf defuns Seite :
http://www.defun.de/

Menüpunkt Hilfe --> Training

Ein lehrreiches Wochenende wünscht
Thomas

[Diese Nachricht wurde von CADmium am 05. Dez. 2003 editiert.]

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

---

Morgen,
ich habs geschafft!
dm_leader als .lsp gespeichert und geladen!
Fertig! Nu noch ein bishen individuell umstricken.
Mal sehen ob das auch klappt! 

----------never give up!----------

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

---

Danke CADmium,

werde mal schauen!
Hätte ja nie gedacht, dass das sogar Spaß macht!

-------Ich dachte ich wäre schlau! Dann kam ich hier her! --------

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

---

HI,

versuche mich gerade an dieser .lsp und möchte einen
festen Abstand zur Basis (Startpunkt) einbinden.
Begreif das aber noch nicht ganz.
Wo muß ich in der Hilfe schauen?
Da steht soviel Chinesisch!

;; --------------------------------------------------------------------------------------------------- ;;
(defun c M_Leader (/ Abbruch Pkt Text Oldecho)
  (setq OLDECHO (getvar "CMDECHO"))
  (setvar "CMDECHO" 0) ; Bildschirmausgabe bei "COMMAND" aus

  (while (not TEXT)
    (setq TEXT (getstring "Durchmesser : "))
  )
  (setq TEXT (strcat "%%c" TEXT)) ;Text mit Durchmesserzeichen versehen

  (while (not PKT)
    (setq PKT (getpoint "\nStartpunkt : "))
  )
  (command ".leader" PKT)
  (while (not ABBRUCH)
    (princ "\nNächster Punkt <Ende>: ")
    (command pause)
    (if (equal PKT (getvar "LASTPOINT"))
      (setq ABBRUCH 'T)
      (setq PKT (getvar "LASTPOINT"))
    )
  )

  (command TEXT "")
  (setvar "CMDECHO" Oldecho)
  (princ)
)
;; --------------------------------------------------------------------------------------------------- ;;
 

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

---

.... soll das heißen: "Mach mir mal?"
Fang doch erstmal mit kleinen Brötchen auf den empfohlenden Seiten an!
Ein bißchen verärgert..
Thomas

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

---

Hi,
nein brauche nur mal einen Seitenhinweis!
Is für mich alles noch chinesisch!

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

---

dan hastes hier Japanisch

(mapcar '+ '(1 1 0)  pkt)

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

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

---

Thai:

(setq ptk (list (+ 5 (car ptk))(+ 5 (cadr ptk))(last ptk)))

------------------
- Sebastian Mattis -

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

---

Kisuaheli bitte noch!

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

---

Hallo,
ich gratuliere dir, dass du mit diesem äußerst sinnvollen Beitrag den hundersten geschafft hast. Mach auf diesem Niveau weiter.

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

gruß
thomas

AutoCAD spricht mit einem, aber viele hören nicht zu.

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

---

Oh ha!

Ernst oder Ironie!

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

---

vergiss das Lisp und mache es wie bisher, mit einem Makro kannst
du ja wennigstens %%C verbauen.

wenn du dennoch Interesse hast halte dich die Links von CADmium.
(Nehme dir damit 6 Monate Zeit und du löst noch ganz andere Sachen.)

------------------
- Sebastian Mattis -

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

---

Hallo.
Warum schwer wenns auch einfach geht.

Einfach unter ein Button legen und wir bemassen alles mit einem
Durchmesserzeichen davor.
^C^Cdimpost %%c<>;_dimlinear;

Einfach unter ein Button und alle Bem.Zusätze sind wieder aus.
^C^Cdimpost .;

Jürgen

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

---

Klar,
nehme mir ja die guten Tips der Lispelexperten
gerne zu Herzen.
Werde mich auch weiter damit beschäftigen.
Bin immer wieder über die ganzen Lispelkünste beeindruckt!
Brauche halt noch ein bischen Basis-Lispelwissen,
dann kann man auch mit chinesisch etwas anfangen.

Danke an alle!
Muß mal echt sagen, seit ich das Forum gefunden habe,
merke ich erstmal was alles so Möglich ist.
Mein voller Respekt!

Und jetzt schraub ich diese Lispel zusammen

--------nerver give up!--------

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

---

Hab mich an Thai versucht!

;; --------------------------------------------------------------------------------------------------- ;;
(defun c M_Leader (/ Abbruch Pkt Text Oldecho)
  (setq OLDECHO (getvar "CMDECHO"))
  (setvar "CMDECHO" 0) ; Bildschirmausgabe bei "COMMAND" aus

  (while (not TEXT)
    (setq TEXT (getstring "Durchmesser : "))
  )
  (setq TEXT (strcat "%%c" TEXT)) ;Text mit Durchmesserzeichen versehen

  (while (not PKT)
    (setq ptk (list (+ 0 (car ptk))(+ 20 (cadr ptk))(last ptk)))
  (command ".leader" PKT)
  (while (not ABBRUCH)
    (princ "\nNächster Punkt <Ende>: ")
    (command pause)
    (if (equal PKT (getvar "LASTPOINT"))
      (setq ABBRUCH 'T)
      (setq PKT (getvar "LASTPOINT"))
    )
  )

  (command TEXT "")
  (setvar "CMDECHO" Oldecho)
  (princ)
)
;; --------------------------------------------------------------------------------------------------- ;;

Dachte hätte jetzt fixen Abstand von 20 zum Ausgangspunkt!
War wohl nix!

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

---

Hast du maine Mail nicht erhalten ???

------------------
- Sebastian Mattis -

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