---

Hallo!
Hab für euch eine einfache Frage. Als erst, Lisp ist für mich Neuland.
Wie kan man Optionen (_.-optionen  --> funktioniert so nicht in der Befeshlzeile) im Lisp ändern?
Gibts eigentlich auch einen Befehl für die Entwurseinstellungen, bzw. für die Werkzeugkästen.
Wäre nicht schlecht, wenn es da schon ein Tool gibt.

Besten Dank

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

---

Für den Optionen-Befehl gibt es keine Befehlszeilenvariante. Einige Voreinstellungen kann man aber über Systemvariablen oder Zugriff über die ActivX-Schnittstelle ändern ...  da müßtest du mal genauer werden.

Auch für Menüs gibt es ein ActivX-Modell .. einfach mal in der Vlide-Hilfe anschauen .... ist aber mit Vorsicht zu genießen.

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

---

95% von dem was es dort zu ändern gibt sind SYSTEMVARIABLEN und somit
über (getvar"meinevariable") abzufragen oder eben mit SETvar
zu setzen.

(if (= 1 (getvar"PICKFIRST"))(setvar "PICKFIRST" 0)(setvar "PICKFIRST" 1))

Toggled die Einstellung "Objekt vor Befehl" welche ja über die Systemvariable "Pickfirst"
gesteuert wird - schau dir das Ergebnis jeweils in den Optionen, Reiter "Auswahl"  / Bereich "AuswahlModi" an..

 

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

[Diese Nachricht wurde von cadffm am 01. Dez. 2009 editiert.]

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

---

Hallo!

Vielleicht könnt ihr mir ja nochmals so gute Tipps geben.
Wie kann man z.B.: SAVEFILEPATH auf C:\Temp\
setzen.

Danke

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

---

indem du im Wert (die Pfadangabe) SLASHs statt einem Backslash nutzt oder ZWEI Backslashs !

Ist eine Besonderheit die man sich merken muß.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

zuerst mal Danke für die schnellen Antworten!
Geht echt schnell  ! Hab da noch einige Fragen.

1.: Wie kann man den UserName ändern?
gen@User@Username

2.: Bildlaufleiste (Optionen - Anzeige) auschalten. Gibts da auch Variablen?

3.: Pfad für Drucker-Support-Datei möchte ich auch noch gerne ändern.
bei manchen gibts ja eine Systemvariable  .

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

---

zu 1. wäre der Hinweis hilfreich, das es sich um Mechanical handelt .... und genau zu dem Thema war in diesem cad.de-Newsletter was . KLICK

alles andere geht auch .. wenn nicht über sysvars, dann über activx

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

---

Hat bis jetzt toll funktioniert.
Heute hab ich mich wieder mal daran gemacht, hier weiter zu machen.
Steh jetzt wieder an - bei den Active-X Befehlen. Die Hintergrundfarben und Fadenkreuze hab ich so hinbekommen:

Bsp.:

  (vlax-put-property
    (vlax-get-property
      (vlax-get-property
        (vlax-get-acad-object)
        'Preferences
      ); Preferences
      'Display
    ); Display
    'ModelCrosshaircolor
    16777215
  ); ModelCrosshaircolor
  (princ)

Gibts da irgendwo eine Auflistung sämtlicher Active-x Befehlen (wie z.B.: vla-get-...) mit ihren Bedeutungen. Beim Mechanical Desktop (Gott hab ihn selig) gibt es bei den Optionen/Anzeige/3D-Parallelprokektion/einheitlicher Hintergrund auch eine vla-get-... Variable? Dies ist mir aber nicht so wichtig.
Wegen den Bildlaufleisten hab ich auch nach langem suchen nichts gefunden  .

Bitte um eure Unterstützung

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

---

Also ich regel die Meisten Einstellungen in einem VB-Skript.
Für die Bildlaufleisten wäre da z.B.
Preferences.Display.DisplayScrollBars = True/False
zu setzen.

Bei den alten Genius Sysvar hab ich es über ein LISP geregelt.
Hier wäre für gen@User@Username wie folgt einzufügen:
(gencfgset "gen@User@Username" "Dein Name")

------------------
wisch

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

---

Zitat:

---

Original erstellt von MaKollin:
Gibts da irgendwo eine Auflistung sämtlicher Active-x Befehlen (wie z.B.: vla-get-...) mit ihren Bedeutungen.

---

Die allerbeste Anlaufstelle dafür ist die Online-Hilfe von AutoCAD.

Allerdings hilft das nicht bei Objekten von Drittanbietern.
Hier haben mir immer folgende Funktionen weitergeholfen (thanx to Axel "mapcar" R.I.P.):

Code:

---

;|
CAD.de Beispielfunktionen zur Ermittlung von Symbolen aus der atoms-family
Vgl. hierzu Online Hilfe: atoms-family
|;

;|
Beispielanwendung:
(setq retval (atoms-like "vla-get*")) => Damit kriegst du alles, was mit 'ac' anfängt ....
|;
(defun ATOMS-LIKE (PATTERN /)
  (vl-load-com)
  (vl-remove-if-not ;_ lösche alle Werte aus der Liste die folgende Bedingung NICHT erfüllen:
    (function
      (lambda (N /) (wcmatch (strcase N) (strcase PATTERN)))
    )
    (atoms-family 1)
  )
)

;|
Funktion gibt eine sortierte Liste aller Symbole (jeweils als String), die mit VLA- beginnen zurück
Beispielanwendung:
(setq retval (get-vla-functions))
|;
(defun GET-VLA-FUNCTIONS (/ RL)
  (vl-load-com)
  (vl-sort
    (vl-remove-if-not
      (function
(lambda (NAME /)
  (= (strcase (substr NAME 1 4)) "VLA-")
)
      )
      (atoms-family 1)
    )
    '<
  )
)

;|
Funktion gibt eine Liste aller Symbole (jeweils als Symbol) zurück, die mit VLA- beginnen und den als Argument übergebenen String enthalten
Beispielanwendung:
(setq retval (find-vla-functions "layer"))
|;
(defun FIND-VLA-FUNCTIONS (PATTERN /)
  (mapcar 'read
  (vl-remove-if-not
    (function
      (lambda (NAME /)
(wcmatch NAME
(strcat "*" (strcase PATTERN) "*")
)
      )
    )
    (GET-VLA-FUNCTIONS)
  )
  )
)

---

...

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

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

---

Danke nochmals für eure guten Tipps.

gehört vielleicht nicht gerade hier her, aber trotzdem bitte ich euch nochamls um eure Hilfe:

(command "-Werkzeugkasten" "Bemaßung" "Oben" "0,0")

Möchte aber gerne den Werkzeugkasten mit der Power Bemaßung.
Kommt aber die AutoCad Bemußung.

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

---

na dann tipp doch mal cui ein und dann gucke mal nach , wie der von dir gewünschte Werkzeugkasten heißt ..
bei mir heißt er z.B. KE_F:Bemaßung oder KE_F:Bemaßung2  .. das hilft dir aber nicht..

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

---

ich hab nicht unter CUI nachgeschaut, sondern unter ABI und dort lautet die Bemaßung eben "Bemaßung".

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

---

Ein Hinweis auf die verwendete AutoCAD-Version wäre hilfreich!

------------------
wisch

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

---

AutoCad Mechanical 2009

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

---

toolbars.lsp.txt

Gleicher Name für Werkzeugkästen ist in der Tat möglich, aber du solltest vielleicht über den Aliasnamen gehen, die sind meines erachtens eindeutig.
Mit

(showtoolbar "TB_AMDIM" "_top" "0,0" )

solltest du weiterkommen (nicht getestet, da ich kein 2009er habe)

------------------
wisch
   

PS:
Hab natürlich die Grundfunktion vergessen, musst du entsprechend anpassen!

[Diese Nachricht wurde von wisch am 10. Dez. 2009 editiert.]

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

---

(progn
  (setq A(vla-item(vla-get-toolbars(vla-item (vla-get-menugroups (vlax-get-acad-object)) "AMPP"))"Bemaßung"))
  (vla-put-visible A :vlax-true)
  (vla-dock A acToolbarDockTop)
)

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

---

Wenn man es ein zweites Mal ausführt, dann gibts eine Fehlermeldung:

; Fehler: Automatisierungsfehler Der Werkzeugkasten ist bereits auf
derselben Seite fixiert

Is aber kein Problem. Wird ja nur einmal ausgeführt und da funktioniert es.
Danke nochmals für eure tollen tipps.

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

---

Da könnte dir der mittlere Teil in meiner LISP helfen (siehe vorherigen Beitrag von mir), indem du vorher alle Werkzeugkästen abschaltest, du musst natürlich die Menübezeichnungen anpassen!

------------------
wisch

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

---

Zitat:

---

Original erstellt von MaKollin:
Wenn man es ein zweites Mal ausführt, dann gibts eine Fehlermeldung:

; Fehler: Automatisierungsfehler Der Werkzeugkasten ist bereits auf
derselben Seite fixiert

---

na dafür gibt es ja auch die vl-catch-all-apply Funktion , um evtl Fehler abzufangen ( die hab ich mir bloß in dem Bsp geklemmt , wegen der erwarteten Eigeninitiative  )

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