---

Hallo Cadgemeinde!

Hab mir dieses Programm geschrieben. Funktioniert beim ersten Aufruf auch wie es sollte.
Nur wenn ich dann mit "RM" wiederhole ist das Maß schon gewählt und ich komme aus dem Befehl "_dimbaseline" nicht mehr heraus ohne mit der RM zu bestätigen. . Eigentlich sollte es doch funktionieren wie beim ersten Aufruf wo ich ein Maß wählen kann oder???
Bitte um Eure Hilfe!

lg Martin

(Defun c:bemabweiter (/ olddimdli xs)
  (setq olddimdli (getvar "dimdli"))
  (initget "40 80 120 160 200 240 280 320")
  (setq xs (getkword
    "Abstand eingeben [40/80/120/160/200/240/280/320]:<80>:"))
  (cond
    ((= xs "40") (setvar "dimdli" 2))
    ((= xs "80") (setvar "dimdli" 4))
    ((= xs "120") (setvar "dimdli" 6))
    ((= xs "160") (setvar "dimdli" 8))
    ((= xs "200") (setvar "dimdli" 10))
    ((= xs "240") (setvar "dimdli" 12))
    ((= xs "280") (setvar "dimdli" 14))
    ((= xs "320") (setvar "dimdli" 16))
    ('t(setvar"dimdli"4))
  )
(command "_dimbaseline" Pause Pause "" "")
(while (/= (getvar "CMDACTIVE") 0) (command pause))
(command "_dimcontinue" Pause)
  (while (/= (getvar "CMDACTIVE") 0) (command pause))
  (setvar "dimdli" olddimdli)
(princ)
)

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

---

... _dimbaseline ... Erstellt eine Linear-, Winkel- oder Koordinatenbemaßung von der Basislinie der zuletzt erstellten oder der ausgewählten Bemaßung.

also probier die Option "Wählen" bei _dimbaseline :

(command "_dimbaseline" "_s" Pause Pause "" "")

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

Perfekt!!
Der Kandidat hat ALLE PUNKTE!

Danke für deine Hilfe!

Ps: Was bedeutet eigentlich das "_s"??

lg Martin

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

---

_s  =  _Select = Wählen

bei

Befehl: BEMBASISL
Anfangspunkt der zweiten Hilfslinie angeben oder [Zurück/Wählen] <Wählen>:

weil du so schön "international" geproggt hast [klatsch], wollt ich da den Stil nicht brechen 

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

Danke!

Jetzt hab ich schon beim ersten Aufruf folgende Fehlermeldung:

_dimbaseline
Basis-Bemaßung wählen: _s

*Ungültige Auswahl*
Erwartet einen Punkt oder Letztes
; Fehler: Funktion abgebrochen

???????????

lg Martin

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

---

Jetzt geht es wieder??
Hab nichts gemacht???    

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

---

Hmm  liegt wohl daran, ob schon mal ne Bemaßung gewählt / erzeugt wurde ..... aber keine Ahnung , wie _dimbaseli da tickt

wie ist es mit

(Defun c:bemabweiter (/ olddimdli xs LASTOBJ)
(command "_dimlinear" '(0 0)'(0 1) '(1 1))
(setq LASTOBJ (entlast))
  (setq olddimdli (getvar "dimdli"))
  (initget "40 80 120 160 200 240 280 320")
  (setq xs (getkword
    "Abstand eingeben [40/80/120/160/200/240/280/320]:<80>:"))
  (cond
    ((= xs "40") (setvar "dimdli" 2))
    ((= xs "80") (setvar "dimdli" 4))
    ((= xs "120") (setvar "dimdli" 6))
    ((= xs "160") (setvar "dimdli" 8))
    ((= xs "200") (setvar "dimdli" 10))
    ((= xs "240") (setvar "dimdli" 12))
    ((= xs "280") (setvar "dimdli" 14))
    ((= xs "320") (setvar "dimdli" 16))
    ('t(setvar"dimdli"4))
  )
(command "_dimbaseline" "_s" Pause Pause "" "")
(while (/= (getvar "CMDACTIVE") 0) (command pause))
(command "_dimcontinue" Pause)
  (while (/= (getvar "CMDACTIVE") 0) (command pause))
  (setvar "dimdli" olddimdli)
(entdel LASTOBJ)
(princ)
)

?? ...

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

Beim Laden:

Fehler:
Fehlerhafter Argumenttyp: numberp: nil

lg Martin

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

---

Hallo Thomas!
Nun funktioniert es
Hatte eine Klammer vergessen!
Danke!

lg Martin

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