Expert: Bill DeShawn - 8/5/2010

Question
good day, im trying to learn how to create lsp files and i have found your website quite helpful. i do have a small problem. been trying to create an lsp "defun c:xn" that would move an xref to "la-xref" layer and identify the x-ref name in the command line. and a separate command "defun c:xx" to load and reload the selected xref.

Answer
mi:

XN.lsp will be very simple:

defun c:xn () (command "_.chprop" pause "" "_la" "LA-XREF" "") (princ))

XX.lsp will have more, including a little error checker:


(defun xxerr (msg)
  (if c:r (c:r) redraw)
  (setq ent nil elist nil xrefname nil)
  (setq *error* olderr)
  (princ msg)
  (prompt ".  Please try again.")
  (princ)
)

(defun c:xx (/ ent elist xrefname fname)
  (setq olderr *error*)
  (setq *error* xxerr)
  (setq ent (entsel "\nSelect the Xref to reload:  "))
  (setq elist (entget (car ent)))
  (setq xrefname (cdr (assoc 2 elist)))
  (command "_.xref" "_r" xrefname)
  (if (not (null xrefname ))
     (prompt (strcat "\nXREF name:  " xrefname))
     (prompt "\nObject is neither a block nor an XREF.  ")
  )
  (setq *error* olderr)
  (princ)  
)




They  should work - even on Chinese AutoCAD.  Let me know if it does not.

Bill DeShawn
http://my.sterling.net/~bdeshawn