请高手帮忙调试一下我写的lsip

zhaomc520

(defun c:psc ()
(defun bpsc ()
    (command "-xref" "r" "*")
    (command "-xref" "b" "*")
    (command "-purge" "a" "*" "n")
    (command "qsave")
    (command "close")
)
(princ (bpsc))
(vl-load-com)
  (setq docs (vla-get-Documents (vlax-get-acad-object))
  )
  (vlax-for cendoc docs    
    (vla-bpsc cendoc)
  )
)
(princ)

目的是想在所有已打开的图纸中执行bpsc的功能，可是不好使，能否为在下调试一下

tcsl9621

将一个函数从另一函数中移出。

rongyifei

vla-bpsc应该是没有这种用法,

vla簇的函数,必须是vba中定义过的相应对象的属性或方法,我觉得你应该好好研究一下vba.