---

Hi!

ich hoffe hier wird mir in zukunft weiter geholfen *g*!
folgendes problem nervt mich;

ich schreibe in vba einen code welcher automatisch ohne manueller befehlseingabe im autocad, den befehl "units" für die zeichnungseinheit, eingebe.

hab das jetzt mal mit einem cmdButton ausprobiert:

---------------------------------------
  Private Sub CommandButton1_Click()

    ThisDrawing.SendCommand "units"

End Sub
---------------------------------------

funktioniert auch, dass ergebnis ist folgendes;
in der AutoCad befehlsleiste schreibt er mir dann den befehl "units" rein, jedoch muss ich dann noch selber auf enter bzw. leertaste drücken damit der befehl ausgeführt wird.

wie kann ich nun diesen enter bzw. leertatsten -druck programmieren?

MfG aus Wien
Hope you can help me!?? 

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

---

Willkommen und probier mal
ThisDrawing.SendCommand "_units" & vbCr

(P.S: hab ich aus der Hilfe, Bsp von sendcommand  )

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

---

danke stimmt! funkt! dürft in der hilfe irgendwie drüber gelesen haben... ja wenn man nur liest u liest u liest

großes DANKE

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

---

Hallo,

du kannst das wie in der EIngabezeile eingeben.
Z.B.
'  -units (ohne Maske)
' 2 Dezimal
' 3 Nachkommastellen
' 3 Grad (gon)
' 4 Dezimalstellen winkel
' 300 Norden im Uhrzeigersinn
' J im Uhrzeigersinn
ThisDrawing.SendCommand "-units 2 3 3 4 300 J" & vbCr

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

kann ich das bei INSUNITS auch verwenden, weil da möcht ich den wert auf 6 also meter setzen, wenn ich das so mache, bekomm ich eine fehler meldung;

ThisDrawing.SendCommand "-insunits 6" & vbCr

irgendwas mach ich falsch

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

---

ThisDrawing.SendCommand "_insunits" & vbCr "6" & vbCr

so vielleicht?

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

Zitat:

---

Original erstellt von cadmeplease:
...
irgendwas mach ich falsch   

---

probier doch die Befehle einfach auf der Kommandozeile aus.
Mit _insunits gehts auch ohne Maske.

Davon abgesehen würde ich auch immer nach einer Alternative für Sendcommad suchen. Die ist in der Regel immer besser.
Hab leider im Moment keine Möglichkeit näher zu suchen.
Aber schau dir doch mal die Systemvariablen an. Bei den Expresstools gibt es einen "Variablen-Editor". Mit dem kannst du die zuständigen Variablen leicht rausfinden.
Mit ThisDrawing.SetVariable sysVarName, sysVarData kannst du die Werte, wenn sie nicht schreibgeschützt sind, leicht ändern.

Stelli

[EDIT]
PS: Noch herzlich willkommen im Forum  
------------------
Warum lisp'eln wenn's auch anders geht.  
www.ib-stelberg.de

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

---

ThisDrawing.SendCommand "insunits 6" & vbCr

...so funkts jetzt *g* trotzdem danke 

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