Topic: Defun and vl-propagate, together

[mkweaver]

Putting these two together should provide a way to defun a procedure and vl-propagate it out to all open drawings.

This is what I have, but I can't seem to get it to work:

Code: [Select]

(defun DefunAll( name deflist / )
  (defun name(car deflist) (cdr deflist))
  (vl-propagate name)
  )


Code: [Select]

(defunall 'c:test '(()(princ "\nThis is a test")(princ)))
Suggestions?

[Lee Mac]

I thought vl-propagate was used for setting a variable throughout drawings..

Why not approach it this way:

Code: [Select]

(defun DefunAll ()
  (vl-load-com)
  (foreach doc (vla-get-Documents
                 (vlax-get-acad-object))
    (princ "\nThis is a test."))
  (princ))


[mkweaver]

With lisp there's not much difference between a variable and code.  I can get this to work thus:

Code: [Select]

(defun-q c:test()(princ "\nThis is a test")(princ))
Then:

Code: [Select]

(vl-propagate 'c:test)
After the above, c:test is a defined function in all drawings open(ed) in the current session.  I would like to avoid the defun-q.

[wizman]

With lisp there's not much difference between a variable and code.  I can get this to work thus:

Code: [Select]

(defun-q c:test()(princ "\nThis is a test")(princ))
Then:

Code: [Select]

(vl-propagate 'c:test)
After the above, c:test is a defined function in all drawings open(ed) in the current session.  I would like to avoid the defun-q.

hi mkweaver, defun-q with c: does not work for me, but this does:

Code: [Select]

(defun-q test()(princ "\nThis is a test")(princ))

(vl-propagate 'test)

and this one also works not using defun-q:

Code: [Select]

(setq test1 '(()(princ "\nThis is a test")(princ)))

(vl-propagate 'test1)