Ошибка настройка переменной autocad отвергнута clayer 0

Im receiving the above referenced error on a lisp routine, which up until now, I have never experienced. Its a routine to insert doors into a drawing. The routine previously allowed doors to be inserted on any layer named *-wndr.  (see attached pic of dialog box generated by the lisp, note the message at the top of the dialog box regarding «*-WNDR» layer) It will now only insert on «0-wndr» layer.  If I go in the code and rename «wndr» (toward the bottom of the script) the same error comes up with the new layer name I assign it, essentially looking for the ‘0″. I don’t know what changed (I did not make any edits to the routine).  Here is the code. 

Thank you in advance.

;===================================================================================;
; Error Handler Function ;
;===================================================================================;
(defun drerr (errormsg) ; If an error (such as CTRL-C) occurs
; while this command is active…
(if (/= errormsg «bad argument type: lselsetp nil»)
(alert (strcat «nError: » errormsg))
(alert «Error: Failure in wall/point selections.»)
)
(setvar «osmode» orOSMODE)
(setvar «pickbox» orPICKBOX)
(setvar «aperture» orAPERTURE)
(setvar «cecolor» curCOLOR)
(command «undo» «end»)
(princ)
(setq *error* olderr) ; restore old *error* handler
(princ)
)

;===================================================================================;
; Main Program ;
;===================================================================================;

;(action_tile «LEAFANGLE» «(setq leafangle (get_tile «LEAFANGLE»))»)

)

(unload_dialog dcl_id)
)

(defun getpnts (/ StartPt DirPt Ang oppo hypo
wallthickness HP1 HP2 LP1
wall_lay Tsset Tline2 Trm1 Trm2 Cpoint Hpt
ANG2 layprefix door_lay blockname mirror
xscale curCOLOR in_ang l Ang
)
(setq olderr *error* *error* drerr)
(setvar «cmdecho» 0)
(command «undo» «begin»)
; save system variables ;
(setq orAPERTURE (getvar «aperture»)
orPICKBOX (getvar «pickbox»)
orOSMODE (getvar «osmode»)
curLAYER (getvar «clayer»)
curCOLOR (getvar «cecolor»)
)
; get door points and angles ;

(if (= insert «h»)
(progn
(setvar «osmode» 33)
(setq StartPt (getpoint «nPick corner closest to the hinge: «))
(setvar «osmode» 512)
(setq DirPt (getpoint «nPick a point on wall toward latch: «))
(setq oppo (getpoint «nPick a point on wall face opposite the hinge/latch:»))
(setq Ang (angle StartPt DirPt)
Ang2 (angle StartPt oppo)
Hypo (distance StartPt oppo)
HP1 (polar StartPt Ang offcorn)
LP1 (polar HP1 Ang drsize)
))
(progn
(setvar «osmode» orOSMODE)
(setq Cpoint (getpoint «nPick the center point of opening on hinge/latch face of wall:»))
(setvar «osmode» 33)
(setq HPt (getpoint «nPick a point close to either hinge: «))
(setvar «osmode» 512)
(setq oppo (getpoint «nPick a point on wall face opposite the hinges:»))
(setq Ang (angle HPt Cpoint)
Ang2 (angle HPt oppo)
Hypo (distance HPt oppo)
HP1 (polar Cpoint (+ Ang pi)(/ drsize 2))
LP1 (polar HP1 Ang drsize)
)
)
)
(if (or(< Ang2 Ang)(and (< Ang (/ pi 2))(> Ang2 (* (/ 3 2) pi))))

(setq perpAng (- Ang (/ pi 2)) mirror 1))

(if (or(> Ang2 Ang)(and(< Ang2 (/ pi 2))(> Ang (* (/ 3 2) pi))))

(setq perpAng (+ Ang (/ pi 2)) mirror (- 0 1)))

(setq wallthickness (* hypo (sin (abs (- Ang Ang2)))))
; create opening points ;
; (setq HP1 (polar StartPt Ang offcorn)
; LP1 (polar HP1 Ang drsize)
;
; )
; draw and trim the opening ;
(setq sswall (ssget oppo))
(setq wall_lay (cdr (assoc 8 (entget (ssname sswall 0)))))
(setvar «clayer» wall_lay)
(setvar «pickbox» 1)
(setvar «aperture» 1)
(command «color» «bylayer»)
(command «line» HP1 «per» oppo «»)
(setq Tsset (ssget «L»))
(command «line» LP1 «per» oppo «»)
(setq Tline2 (entlast))
(ssadd Tline2 Tsset)
(setq Trm1 (polar HP1 Ang (/ drsize 2)))
(setq Trm2 (polar Trm1 perpAng wallthickness))

(command «trim» Tsset «f» «» Trm1 Trm2 «»)
; insert the door block ;
(setq layprefix (substr wall_lay 1 1))
(setq door_lay (strcat layprefix «-wndr»))
(setvar «clayer» door_lay)
(command «color» «10»)

(if (= doortype «s»)
(setq blockname (strcat «dr-» leafangle))
(setq blockname (strcat «2dr-» leafangle))
)

(setq xscale (* mirror drsize))
(if (= mirror -1)
(setq in_ang (+ Ang pi))
(setq in_ang Ang)
)
(setq in_ang (atof (angtos in_ang 0 4)))
(command «-insert» blockname HP1 xscale drsize in_ang)

; release selection set memory ;
(setq Tsset nil
sswall nil
Tline2 nil
)
; reset system variables ;
(setvar «osmode» orOSMODE)
(setvar «pickbox» orPICKBOX)
(setvar «aperture» orAPERTURE)
(setvar «clayer» curlayer)
(setvar «cecolor» curCOLOR)
(command «undo» «end»)
(princ)
) ;end defun

Перейти к контенту

(vl-load-com)
(defun Test (Path / FilesObj)
  (setq FilesObj (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))
  (list    (vla-get-PrintSpoolerPath FilesObj)
    (vla-get-PrinterConfigPath FilesObj)
    (vla-get-PrinterDescPath FilesObj)
    (car (list (vla-get-PrinterStyleSheetPath FilesObj)
           (vlax-release-object FilesObj)
         )
    )
  )
)

(defun set-paths (lst / files)
                 ;|
*    Установка путей поддержки плоттеров
*    Параметры вызова:
    lst    список вида:
      '(("spool" . <Printer spooler file location>)    ; nil -> Использовать
                                  ; каталог temp
        ("config" . <Printer config search path>)    ; nil ->
        ; (vl-registry-read (strcat "HKEY_LOCAL_MACHINE" (vlax-product-key)"aeccabinetdirectories")"NIWPLOTTERS")
        ("style" . <Printer style sheet path>)        ; nil ->
        ; (vl-registry-read (strcat "HKEY_LOCAL_MACHINE" (vlax-product-key)"aeccabinetdirectories")"NIWPLOTSTYLES")
|;
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (vl-catch-all-apply
    '(lambda ()
       (vla-put-printspoolerpath
         files
         (cond
           ((cdr (assoc "spool" lst)))
           (t (vla-get-tempfilepath files))
           ) ;_ end of cond
         ) ;_ end of vla-put-printspoolerpath
       ) ;_ end of lambda
    ) ;_ end of vl-catch-all-apply
  (vl-catch-all-apply
    '(lambda ()
       (vla-put-printerconfigpath
         files
         (cond ((cdr (assoc "config" lst)))
               (t
                (vl-registry-read
                  (strcat "HKEY_LOCAL_MACHINE"
                          (vlax-product-key)
                          "aeccabinetdirectories"
                          ) ;_ end of strcat
                  "NIWPLOTTERS"
                  ) ;_ end of vl-registry-read
                )
               ) ;_ end of cond
         ) ;_ end of vla-put-PrinterConfigPath
       ) ;_ end of lambda
    ) ;_ end of vl-catch-all-apply
  (vl-catch-all-apply
    '(lambda ()
       (vla-put-printerstylesheetpath
         files
         (cond ((cdr (assoc "style" lst)))
               (t
                (vl-registry-read
                  (strcat "HKEY_LOCAL_MACHINE"
                          (vlax-product-key)
                          "aeccabinetdirectories"
                          ) ;_ end of strcat
                  "NIWPLOTSTYLES"
                  ) ;_ end of vl-registry-read
                )
               ) ;_ end of cond
         ) ;_ end of vla-put-PrinterStyleSheetPath
       ) ;_ end of lambda
    ) ;_ end of vl-catch-all-apply
  ) ;_ end of defun

(set-paths '(("spool" . "c:printer") ("config" . "c:printerconfig") ("style" . "c:printerstyle")))

error: bad argument type: lselsetp nil

bad argument type: lselsetp nil

(defun c:cable ()
(vl-load-com)
(setvar "clayer" "cable layer")
(setvar "celtype" "bylayer")
(setvar "osmode" 515)
(command "_.pline"
(getpoint))
(while (> (getvar ' cmdactive) 0)
(command pause)
(princ "npress enter to finish:"))
(setq elst
(entsel "nselect cable segment: "))
(setq ename
(car elst))
(setq pt
(cadr elst))
(setq annopt pt)
(setq pt
(vlax-curve-getclosestpointto ename pt))
(setq param
(vlax-curve-getparamatpoint ename pt))
(setq preparam
(fix param))
(setq postparam
(1+ preparam))
(list (setq pt1
(vlax-curve-getpointatparam ename preparam))
(setq pt2
(vlax-curve-getpointatparam ename postparam)))
(setq cable
(entlast))
(setq cable_start
(vlax-curve-getstartparam cable))
(setq cable_start_point
(vlax-curve-getstartpoint cable))
(setq cable_end_point
(vlax-curve-getendpoint cable))
(setq cable_end
(angtos (angle '(0 0)
(vlax-curve-getfirstderiv cable 0.0))))
(setq first_block
(ssget "_c" cable_start_point cable_end_point
(list (cons 0 "insert")
(cons 2 "first_block"))))
(setq second_block
(ssget "_c" cable_start_point cable_end_point
(list (cons 0 "insert")
(cons 2 "second_block"))))
(setq end_cable
(ssname second_block 0))
(setq start_cable
(ssname first_block 0))
(setq $end_cable
(vla-get-textstring
(cadr (vlax-safearray->list
(variant-value
(vla-getattributes
(vlax-ename->vla-object end_cable)))))))
(setq $start_cable
(vla-get-textstring
(cadr (vlax-safearray->list
(variant-value
(vla-getattributes
(vlax-ename->vla-object start_cable)))))))
(setq cable_name
(vlax-curve-getendparam cable))
(command ; insert cable param
"-insert"
"cable_name_tag"
annopt
"1"
"1"
cable_angle
cable_name
$start_cable
$end_cable
"144"
cable_length))

Перейти к контенту

error: bad argument type: lselsetp nil

bad argument type: lselsetp nil

(defun c:cable ()
(vl-load-com)
(setvar "clayer" "cable layer")
(setvar "celtype" "bylayer")
(setvar "osmode" 515)
(command "_.pline"
(getpoint))
(while (> (getvar ' cmdactive) 0)
(command pause)
(princ "npress enter to finish:"))
(setq elst
(entsel "nselect cable segment: "))
(setq ename
(car elst))
(setq pt
(cadr elst))
(setq annopt pt)
(setq pt
(vlax-curve-getclosestpointto ename pt))
(setq param
(vlax-curve-getparamatpoint ename pt))
(setq preparam
(fix param))
(setq postparam
(1+ preparam))
(list (setq pt1
(vlax-curve-getpointatparam ename preparam))
(setq pt2
(vlax-curve-getpointatparam ename postparam)))
(setq cable
(entlast))
(setq cable_start
(vlax-curve-getstartparam cable))
(setq cable_start_point
(vlax-curve-getstartpoint cable))
(setq cable_end_point
(vlax-curve-getendpoint cable))
(setq cable_end
(angtos (angle '(0 0)
(vlax-curve-getfirstderiv cable 0.0))))
(setq first_block
(ssget "_c" cable_start_point cable_end_point
(list (cons 0 "insert")
(cons 2 "first_block"))))
(setq second_block
(ssget "_c" cable_start_point cable_end_point
(list (cons 0 "insert")
(cons 2 "second_block"))))
(setq end_cable
(ssname second_block 0))
(setq start_cable
(ssname first_block 0))
(setq $end_cable
(vla-get-textstring
(cadr (vlax-safearray->list
(variant-value
(vla-getattributes
(vlax-ename->vla-object end_cable)))))))
(setq $start_cable
(vla-get-textstring
(cadr (vlax-safearray->list
(variant-value
(vla-getattributes
(vlax-ename->vla-object start_cable)))))))
(setq cable_name
(vlax-curve-getendparam cable))
(command ; insert cable param
"-insert"
"cable_name_tag"
annopt
"1"
"1"
cable_angle
cable_name
$start_cable
$end_cable
"144"
cable_length))

Проблема с вашим кодом заключается в том, что вы делаете паузу только для одного пользовательского ввода, прежде чем пытаться сбросить системные переменные и завершить оценку программы.

Вместо этого вам нужно будет использовать цикл для непрерывной паузы для пользовательского ввода, прежде чем продолжить оценку программы.

Например:

;; Define function, declare local symbols
(defun c:wire ( / col lay opt val var )

    ;; System variables to be modified within the program
    (setq var '(clayer orthomode snapmode cmdecho)
    ;; Retrieve current sys var values
          val  (mapcar 'getvar var)                
    ) ;; end setq

    ;; Predefine the getkword options
    (initget "Audio Video COmm R Control Network Power")
    ;; Prompt the user for input, default to "Audio" on null input
    (setq opt (cond ((getkword "n[Audio/Video/COmm/Coax(R)/Control/Network/Power] <Audio>: ")) ("Audio")))

    ;; Define the layer & colour based on the option returned
    (cond
        (   (= opt "Audio")   (setq lay "AUDIO"    col  94))
        (   (= opt "Video")   (setq lay "VIDEO"    col 150))
        (   (= opt "COmm")    (setq lay "COMM"     col 206))
        (   (= opt "R")       (setq lay "COAX"     col  44))
        (   (= opt "Control") (setq lay "CONTROL"  col  10))
        (   (= opt "Network") (setq lay "NETWORK"  col 210))
        (   (= opt "Power")   (setq lay "POWER"    col   7))
    ) ;; end cond

    ;; Suppress command-line output for the -LAYER command
    (setvar 'cmdecho 0)
    ;; Create & set the layer & layer colour
    (command "_.-layer" "_M" lay "_C" col "" "")

    ;; Set everything except the first sys var
    (mapcar 'setvar (cdr var) '(1 1 1))
    ;; Initiate the PLINE command
    (command "_.pline")
    ;; Continuously pause for user input
    (while (= 1 (logand 1 (getvar 'cmdactive))) (command "\"))

    ;; Reset system variables
    (mapcar 'setvar var val)

    ;; Suppress the value returned by the last evaluated expression
    (princ) 
) ;; end defun

Несколько замечаний:

• Всегда объявляйте свои локальные переменные, чтобы избежать конфликтов с переменными с одинаковыми именами в пространстве имен документа. См. мой учебник здесь для получения дополнительной информации о том, как и почему вы это делаете.

• Используйте getkword вместо getstring для контроля и проверки ввода пользователя.

• Используйте "\" вместо символа pause, так как символ pause является незащищенной глобальной переменной и может быть легко непреднамеренно переопределен за пределами вашей программы, что приведет к ее поломке. Поскольку символ pause оценивается как "\", вы также можете использовать буквальную обратную косую черту.

В качестве расширения вы также можете рассмотреть возможность реализации локального обработчика ошибок для обработки, когда пользователь неизбежно нажимает Esc во время оценки программы (в противном случае системные переменные не были бы сброшены при таких обстоятельствах). Я описываю, как это сделать, в моем туториале здесь.

Вот простой пример, демонстрирующий включение локального обработчика ошибок:

;; Define function, declare local symbols
(defun c:wire ( / *error* col lay opt val var )

    ;; Define local error handler
    (defun *error* ( msg )
        ;; Reset system variables
        (mapcar 'setvar var val)
        ;; Suppress the output of standard cancellation messages
        (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
            ;; Print critical errors
            (princ (strcat "nError: " msg))
        ) ;; end if
        (princ) ;; Suppress the value returned by the last evaluated expression
    ) ;; end defun

    ;; System variables to be modified within the program
    (setq var '(clayer orthomode snapmode cmdecho)
    ;; Retrieve current sys var values
          val  (mapcar 'getvar var)                
    ) ;; end setq

    ;; Predefine the getkword options
    (initget "Audio Video COmm R Control Network Power")
    ;; Prompt the user for input, default to "Audio" on null input
    (setq opt (cond ((getkword "n[Audio/Video/COmm/Coax(R)/Control/Network/Power] <Audio>: ")) ("Audio")))

    ;; Define the layer & colour based on the option returned
    (cond
        (   (= opt "Audio")   (setq lay "AUDIO"    col  94))
        (   (= opt "Video")   (setq lay "VIDEO"    col 150))
        (   (= opt "COmm")    (setq lay "COMM"     col 206))
        (   (= opt "R")       (setq lay "COAX"     col  44))
        (   (= opt "Control") (setq lay "CONTROL"  col  10))
        (   (= opt "Network") (setq lay "NETWORK"  col 210))
        (   (= opt "Power")   (setq lay "POWER"    col   7))
    ) ;; end cond

    ;; Suppress command-line output for the -LAYER command
    (setvar 'cmdecho 0)
    ;; Create & set the layer & layer colour
    (command "_.-layer" "_M" lay "_C" col "" "")

    ;; Set everything except the first sys var
    (mapcar 'setvar (cdr var) '(1 1 1))
    ;; Initiate the PLINE command
    (command "_.pline")
    ;; Continuously pause for user input
    (while (= 1 (logand 1 (getvar 'cmdactive))) (command "\"))

    ;; Reset system variables
    (mapcar 'setvar var val)

    ;; Suppress the value returned by the last evaluated expression
    (princ) 
) ;; end defun