[求助]：哪儿不对了?请教!

zcy792096 · 发表于 2004-11-2 09:31:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请各位帮忙看一下，下面程序一运行，就出现ERROR：
; error: Automation Error. Description was not provided.，哪儿不对了？对
不起，指教一下。

(defun setElemXData( / DataType Data)

  (setq acadObject (vlax-get-acad-object))
  (setq acadDocument (vla-get-ActiveDocument acadObject))
  (setq mSpace (vla-get-ModelSpace acadDocument))

  (vlax-for entry mSpace

   (setq DataType (vlax-make-safearray vlax-vbDouble '(0 . 7 )))
   (vlax-safearray-fill DataType
      '(1001 1000 1003 1040 1041 1070 1071 1042)
   )
   (setq Data (vlax-make-safearray vlax-vbVariant '(0 . 7 )))
   (vlax-safearray-fill Data
      (list "App1" "This is Xdata" "0" 1.23432431E+20 12347654 12345
54321 10)
   )
   (vla-SetXData entry DataType Data)
  )
)

aidraft · 发表于 2004-11-2 20:33:34

(setq DataType (vlax-make-safearray vlax-vbInteger '(0 . 7)))

xumaling · 发表于 2004-11-3 08:34:17

有没有加载（vl-load-com）啊？

zcy792096 · 发表于 2004-11-3 09:34:36

加载了(vl-load-com)。按二楼楼主的语句也改了，但还是不行。不知为何？急！！

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：哪儿不对了?请教!

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块