如何判断是否已加载*.dvb，如没有则加载

duanjunqi

各位高手指点一下如何判断是否已加载*.dvb，如没有则加载，已加载的话就不用加载了，用lisp语言如何写呀？谢谢了！

xxsheng

不知道有没有系统的变量或者直接的函数了,,,

(vl-load-com)
  (setq acadObject (vlax-get-acad-object))
  (setq acadvbe (vla-get-vbe acadObject))
  (setq acadvbeprojects (vlax-get-property acadVbe 'vbprojects))
  (setq count (vlax-get-property acadvbeprojects 'count))

如果count大于0则用item获得每一个工程,然后获得其FileName属性,就是*.DVB的文件名,判断下,,如果count等于0就没有加载任何的工程,,,,,,

直接用vl-vbaload加载工程,就算存在应该也不会出错吧?可以省去判断了~~~

duanjunqi

谢谢大虾了，直接加载老是弹出来一个东西，说你已加载。。。，每次都要关一下，要是加载了一大堆dvb的话再一个个关就费事了，还是要再次谢谢你

spring

(if (not c:h_about) (load "h_about")

(DEFUN C:H_ABOUT()
  (SETVAR "CMDECHO" 0)
  (IF (FINDFILE"H_ABOUT.dvb")
    (vl-vbarun "H_ABOUT.dvb!Module1.CAD")
    (EXIT))
  (SETVAR "CMDECHO" 1)
  (PRINC)
)

duanjunqi

谢谢了，我是这样做的，有的话先卸掉再加，没有则加载：

  (setvar "cmdecho" 0)
  (if (findfile "xxn.dvb")
    (progn
      (command "_vbaunload" "xxn.dvb")
      (command "_vbaload" (findfile "xxn.dvb"))
    )
  )
  (princ)
试验成功了。让人头痛的提示再也没有出来。

陨落

xxsheng 发表于 2006-5-27 21:17
不知道有没有系统的变量或者直接的函数了,,,
(vl-load-com)  (setq acadObject (vlax-get-acad-object ...

说得好！直接用vl-vbaload就行