[LISP函数]：求助:用vla-getxdata 不成功？？？

zxf5411 · 发表于 2005-7-18 11:05:04

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

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

×

代码如下：
   (defun c:GetX ( / xType XData)
(vl-load-com)
  ;(setq appid (regapp "myapp"))
  (setq vlaobj (car(entsel"\\n）选择环：")))
(cond ((= (type vlaObj) 'ENAME) (SETQ vlaObj (vlax-ename->vla-object vlaObj)))
((= (type vlaObj) 'VLA-OBJECT) (SETQ vlaObj vlaObj))
(t (setq olderror *error*)))
(vla-getxdata vlaObj appid 'xType 'xData) ；此处监视时，其值为nil
(mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))
(vlax-safearray->list xType)
(vlax-safearray->list xData)
)
)
请高手指点

舟自横 · 发表于 2005-7-18 11:24:22

(defun c:GetX (/ xType XData)
(vl-load-com)
(setq appid "myapp")
(setq vlaobj (car(entsel"\\n）选择环：")))
(cond ((= (type vlaObj) 'ENAME) (SETQ vlaObj (vlax-ename->vla-object vlaObj)))
((= (type vlaObj) 'VLA-OBJECT) (SETQ vlaObj vlaObj))
(t (setq olderror *error*)))
(vla-getxdata vlaObj appid 'xType 'xData) ；此处监视时，其值为nil
(mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))
(vlax-safearray->list xType)
(vlax-safearray->list xData)
)
)
注意APPID是一个已经注册的应用程序名称..是REGAPP以后的名称,是字符串.

qq1254582201 · 发表于 2021-3-16 22:26:36

好东西，读取Xdata的好东西！！！！

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

[求助] [LISP函数]：求助:用vla-getxdata 不成功？？？

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

相关帖子