Hallo zusammen, (Lisp Experten)
ich brauche dringend eure Hilfe.
Leider funktioniert diese lsp unter Acad2009 nicht mehr. Es soll ein Rahmen (A4,A3...) erzeugt und eine Zeichnungskopf laden.
Wir haben unser System jetzt endlich auf den neusten Stand gebracht und jetzt meldet das Autocad beim Laden dieser lisp folgenden Fehler:
Befehl: (load"ncsetup")
; Fehler: Fehlerhafter Argumenttyp: stringp nil
Mir fehlen leider die Kenntnisse den Fehler zu lokalisieren und der Ersteller dieser Routine ist auch nicht mehr auffindbar.
Danke
José
------------------- CODE START -------------------------
;;;
(defun mv_sup ( / s varlist xl yl FORMATL DFORM pe ze portrait res n)
(SETQ FORMATL(LIST
(LIST "DIN-A0" 1188.0 840.0)
(LIST "DIN-A1" 840.0 594.0)
(LIST "DIN-A2" 594.0 420.0)
(LIST "DIN-A3" 420.0 297.0)
(LIST "DIN-A4" 297.0 210.0)
(LIST "ANDERE.." 0 0)
)
DFORM 3
ze 1.0
pe 1.0
)
(setq varlist nil)
(defun mv_setvar(vn val)
(setq varlist(append(list(list vn (getvar vn)))varlist))
(setvar vn val)
)
(defun mv_resvar( / n)
(foreach n varlist (setvar (car n)(cadr n)))
)
(defun mv_callb(reason key value / i n)
(cond
((= "portrait" key)
(setq portrait(= value "1"))
)
((= "format" key)
(set_tile key value)
(setq DFORM(atoi value))
)
((= "mx" key)
(setq xl(atof value))
(if(< xl 1e-9)(setq xl 1.0))
)
((= "my" key)
(setq yl(atof value))
(if(< yl 1e-9)(setq yl 1.0))
)
((= "pe" key)
(setq pe(atof value))
(if(< pe 1e-9)(setq pe 1.0))
)
((= "ze" key)
(setq ze(atof value))
(if(< ze 1e-9)(setq ze 1.0))
)
)
(setq n(nth DFORM FORMATL))
(if(= 0 (cadr n))(progn
(mode_tile "mx" 0)
(mode_tile "my" 0)
(mode_tile "portrait" 1)
(setq portrait nil)
)(progn
(mode_tile "mx" 1)
(mode_tile "my" 1)
(mode_tile "portrait" 0)
(if portrait(setq xl(caddr n) yl(cadr n))(setq xl(cadr n) yl(caddr n)))
))
(set_tile "mx" (rtos xl 2 2))
(set_tile "my" (rtos yl 2 2))
(set_tile "pe" (rtos pe 2 2))
(set_tile "ze" (rtos ze 2 2))
(set_tile "portrait" (if portrait "1" "0"))
)
(setq dcl_id (load_dialog (strcat(getenv"TCBLECH")"/ncedialo.dcl")))
(Princ(strcat(getenv"TCBLECH")"/ncedialo.dcl"))
(if (not (new_dialog "mv_setup" dcl_id))(exit))
(start_list "format")
(foreach n FORMATL
(setq s(car n))
(if(/= 0(cadr n))(setq s(strcat s" "(rtos(cadr n)2 2)"x"(rtos(caddr n)2 2))))
(add_list s)
)
(end_list)
(action_tile "portrait" "(mv_callb $reason $key $value)")
(action_tile "format" "(mv_callb $reason $key $value)")
(action_tile "mx" "(mv_callb $reason $key $value)")
(action_tile "my" "(mv_callb $reason $key $value)")
(action_tile "pe" "(mv_callb $reason $key $value)")
(action_tile "ze" "(mv_callb $reason $key $value)")
(mv_callb 1 "format" (itoa DFORM))
(setq res(start_dialog))
(unload_dialog dcl_id)
(if(= 1 res)(progn
(setq rand 12
mv_sc (/ ze pe)
xl (* mv_sc(- xl rand))
yl (* mv_sc(- yl rand))
)
(mv_setvar "CMDECHO" 0) ; Echo ausschalten
(mv_setvar "BLIPMODE" 0) ;
(mv_setvar "OSMODE" 0) ;
(setvar "LUNITS" 2) ; metrisch
(setvar "TILEMODE" 1) ;
(setvar "LTSCALE"(* 20 mv_sc))
(setvar "DIMSCALE" mv_sc)
(setvar "TEXTSIZE"(* 2.5 mv_sc))
(command
;;; "Layout" "SE" "LAYOUT1" ; Zeichnungsrahmen im Layout
"_layer" "_make" "sfield" "_color" "_cyan" "" ""
"_limits" "0,0" (list xl yl)
"_pline" "0,0" (list 0 yl) (list xl yl) (list xl 0) "_C"
"_insert" "JMDKOPF" (list xl 0) mv_sc mv_sc 0
"_LAYER" "_MAKE" "CONTOUR" ""
)
(mv_resvar)
))
(if c:machkopf (c:machkopf))
)
;;;
;;; C: Funktionsdefinition
;;;
(mv_sup)
(princ)
------------------- CODE ENDE -------------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP