screen.lsp

[gbailey403067]

I have this lisp routine that won't work in autocad 2011. Would someone please take a look at it for me. thank you.

;;;ScreenXrefs
(defun c:Screen ()
  (setq pickaddcondition (getvar "pickadd"))
  (setvar "pickadd" 0)
  
  (setq screenget (ssget '((0 . "INSERT")))
        screenname (ssname screenget 0)
        screendata (get_dxf 2 (entget screenname))
        xreflayers (strcat screendata "|*")
        )
  (command "-layer" "color" "13" xreflayers "")
  (princ screendata)
  
  (setvar "pickadd" pickaddcondition)
  (princ)
  )

[rkmcswain]

For starters, there is a function [(get_dxf)] missing.

[marko_ribar]

Probably you thought :

(defun c:Screen ()
(setq pickaddcondition (getvar "pickadd"))
(setvar "pickadd" 0)

(setq screenget (ssget '((0 . "INSERT")))
screenname (ssname screenget 0)
screendata (cdr (assoc 2 (entget screenname)))
xreflayers (strcat screendata "|*")
)
(command "-layer" "color" "13" xreflayers "")
(princ screendata)

(setvar "pickadd" pickaddcondition)
(princ)
)

M.R.