---

Hallo an alle,

ich bin beim Stöbern auf ein LISP gestoßen, welches ich gern verwenden würde, aber es bricht mit einer Fehlermeldung ab.

(... unter 2007)

Hintergrund:

Ich will einen Bogen anklicken und übrigbleiben soll ein kompletter Kreis.

... anbei die Fundsache ...

; CREATOR KEES NEELE
; repairs broken circle

(defun chgerr (s) ;Foutbehandeling
(if (/= s "Function cancelled")
(princ (strcat "\nError: " s))
)
(setq S nil)
(command "layer" "s" cla "")
(setvar "cmdecho" cmd)
(setvar "osmode" os)
(setq *error* olderr)
(princ)
)

  (defun c:cheal (/ cmd cla os )
(setq  cmd (getvar "cmdecho"))
(setq olderr *error*
*error* chgerr)
(setq cla (getvar "clayer"))
(setq os (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(princ "\nSelecteer een Arc.")(terpri)
(setq cir (entsel))
(setq cir (car cir))
(setq obj2 (entget cir))
(setq Lyr (cdr (assoc 8 obj2)))
(setq pt1 (cdr (assoc 10 obj2)))
(setq rd1 (cdr (assoc 40 obj2)))
(command ".ucs" "world")
(command ".layer" "s" Lyr "")
(command ".erase" cir "")
(command ".circle" pt1 rd1 )
(command ".layer" "s" cla "")
(command ".ucs" "p") 
(setvar "osmode" os)
(setq *error* olderr)
(setvar "cmdecho" cmd)
)

Wenn ich am Ende dieses LISP´s die ".ucs" durch ".bks" ersetze, dann meckert er nach einer unsauberen Objektwahl, aber macht erst mal überhaupt was.

Danke für´s Denken

Lutz

------------------
Menschen mit T21 sind von Natur aus freundlich.
Wir sollten von ihnen lernen ...

---

Frage: Warum ersetzt du das ucs durch bks ?

(Zu deiner Info: ucs ist in dem Fall englisch und heisst User Coordinate System - die Übersetzung desselben lautet Benutzerdefiniertes KoordinatenSystem [was kurz wiederum bks bedeutet...])

------------------
Grüsse

Thomas

[Diese Nachricht wurde von tunnelbauer am 06. Jul. 2006 editiert.]

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

---

Zum Bogen in Kreis "umwamdeln" geht auch
(defun c:arc2Circle()
(defun arc2Circle (OBJ / DATA R M)
  (if(and(=(type OBJ)'ENAME)
        (setq DATA(entget OBJ))
        (=(cdr(assoc 0 DATA)) "ARC")
        (setq R (cdr(assoc 40 DATA)))
        (setq M (cdr(assoc 10 DATA)))
    )
    (progn
      (command "_circle" M R)     
      (command "_matchprop" OBJ (entlast)"")
      (entdel OBJ)
    ) 
  )
) 
(arc2Circle (car(entsel "\nBitte Bogen wählen:")))
)

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

Frage: Warum ersetzt du das ucs durch bks ?

==> Weil mein 2007 zu UCS unbekannter Befehl sagt. Da mir die Übersetzung klar war, habe ich es durch die deutsche Version ersetzt.

War ja nur ein Versuch ...

Hallo CADmium:

Immer wieder schön, promte Antwort, Problem gelöst, vielen Dank ...

------------------
Menschen mit T21 sind von Natur aus freundlich.
Wir sollten von ihnen lernen ...

---

Hallo Lutz,
obwohl das Thema eigentlich abgeschlossen ist, probier doch in einer ruhigen Minute im Original anstelle von ".ucs" die Verwendung von "_.ucs". Klappt´s dann?
Angenehmen Abend!
Frederik

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

---

so ich noch mal ...
das oberst Lisp stammt wohl aus dem englischsprachigen Raum und da haben es die Programmierer oft nicht so mit der Befehlsform mit dem Unterstrich davor,  einfach aus Unkenntnis vermute ich mal. Das ist dann besonders ärgerlich bei kompilierten Lisp, wo man selbst nicht mehr viel ändern kann.

Somit sind oben alle "commands" entsprechend anzuändern, nicht nur das ucs .. und auch die Optionen nicht vergessen!!

(command ".ucs" "world")
(command ".layer" "s" Lyr "")
(command ".erase" cir "")
(command ".circle" pt1 rd1 )
(command ".layer" "s" cla "")
(command ".ucs" "p") 

--->>
(command "_.ucs" "_world")
(command "_.layer" "_s" Lyr "")
(command "_.erase" cir "")
(command "_.circle" pt1 rd1 )
(command "_.layer" "_s" cla "")
(command "_.ucs" "_p") 

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

die Sache war zwar erschöpfend bereits gelöst, aber nun weiß ich wenigstens, wo das Problem lag.

Danke nochmal und nun ...

... schönen Feierabend ...

------------------
Menschen mit T21 sind von Natur aus freundlich.
Wir sollten von ihnen lernen ...