---

Kann mir bitte jemand sagen wie ich in der aufgeführten lsp
den befehl  mit "command ucs" zum laufen bekomme. Ich möchte erst sichergehen das auch BKS WElt eingestellt ist und dann ein neues BKS über 3Punkte bestimmen. Zwischen den Testfenstern gibt es Probleme, warum auch immer.

(defun C:BKS-ProfilEXP (/)
(setq TXT
(strcat
    "\nzu Beachten bei Verschiebung BKS ....      "

  ) ;_ end strcat
  ) ;_ end setq
(alert TXT)
  (command "_ucsman")    ;; BKS welt muss Ausgangsstand sein??????
  (command "_ucs" "_3")    ?????????
(setq TXT
(strcat
    "\nProgramm - Profilpunkte - Export "
    "\nSCHRIFTGRÖßE wie Auswahl "

  ) ;_ end strcat
  ) ;_ end setq
  (alert TXT)
;;  Fangfunktion
  (setq OLDOSM (getvar "osmode"))
  (if
    (< (setq DCL_ID (load_dialog "Fangliste.dcl")) 0)
    (progn
      (alert "\nFangliste.dcl nicht gefunden. Abbruch!")
    (exit)
      )
    (progn
      (setq WHAT_............................

------------------
Gruß vom Bauvermesser;

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

---

Mein Lisp-Zeiten sind lange her.

Edit: Und deshalb lösche ich mal den Quatsch, den ich eben geschrieben habe.

Stattdessen:
Wie wäre es mit  (command "_ucs" "_w") statt (command "_ucsman")?

Gruß, Torsten 

[Diese Nachricht wurde von Torsten Niemeier am 03. Jun. 2011 editiert.]

[Diese Nachricht wurde von Torsten Niemeier am 03. Jun. 2011 editiert.]

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

---

Hallo,

so frage ich am Anfang, ob es nicht mit WKS übereinstimmt und setze es dann auf das Weltkoordinaensystem:
; ----------------------------------
(if (= (getvar "WORLDUCS") 0)
(progn
  (command "_UCS" "_W")
  (setq UCS_K (getvar "UCSORG"))
)
)
 

Am Dateiende setze ich es wieder auf den Anfangszustand:
; ----------------------------------
(if UCS_K
(progn
  (command "_UCS" "_O" UCS_K)
  (setq UCS_K NIL)
)
)
Vielleicht hilft Dir das Strickmuster weiter.

Gruß
Theodor Schönwald

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

---

danke damit komme ich klar

------------------
Gruß vom Bauvermesser;

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