[LISP函数]：求助：用vla-setxdata出现错误？？？

zxf5411

程序如下：
(setq startPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))
(vlax-safearray-fill startPnt st_point)
(setq endPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))
(vlax-safearray-fill endPnt p3)
(setq Line_Obj(vla-AddLine mSpace startPnt endPnt))


       (setq xtype (vlax-make-safearray vlax-vbvariant '(0 . 1)))
   (setq xdata (vlax-make-safearray vlax-vbvariant '(0 . 1)))
          (vlax-safearray-fill xtype '(1001 1000))
          (vlax-safearray-fill xdata '("loop" "loop"))
           (vla-setxdata line_obj xtype xdata)

运行后出现：错误: Automation 错误。未提供说明。

eachy

http://www.xdcad.net/forum/showt ... 1366120#post1366120

fools

(setq xtype (vlax-make-safearray vlax-vbvariant '(0 . 1)))有误！！！
应该将vlax-vbvariant 改为vlax-vbInteger
(setq xtype (vlax-make-safearray vlax-vbInteger '(0 . 1)))

下面是引用ActiveX/VBA Reference的内容，注意黑体部分
Signature object.SetXData XDataType, XData
Object:...
XDataType:Variant [U][I][B](array of short)[/B][/I][/U]; input-only
XData:Array of Variant; input-only

树櫴希德

2. ;(setq startPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))
   
3. ;(vlax-safearray-fill startPnt st_point)
   
4. ;(setq endPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))
   
5. ;(vlax-safearray-fill endPnt p3)
   
6. ;(setq Line_Obj(vla-AddLine mSpace startPnt endPnt))
   
7. (vl-load-com )
   
8. ;(vlax-dump-object(vlax-ename->vla-object(car(entsel)))T)   (entget(car(entsel))'("*"))
   
9.        ;(setq xtype (vlax-make-safearray vlax-vbvariant '(0 . 1)))
   
10. (setq xtype (vlax-make-safearray vlax-vbInteger '(0 . 1)))
    
11.    (setq xdata (vlax-make-safearray vlax-vbvariant '(0 . 1)))
    
12.           (vlax-safearray-fill xtype '(1001 1000))
    
13.           (vlax-safearray-fill xdata '("loop" "loop"))
    
14.            (vla-setxdata (vlax-ename->vla-object(car(entsel))) xtype xdata)
    
15. 
    
16. ;(-3 ("loop" (1000 . "loop")))
    
17. 
    
18. (defun c:GetX (/ xType XData)
    
19. (vl-load-com)
    
20. (setq appid "south")
    
21. (setq vlaobj (car(entsel"\\n）选择环：")))
    
22. (cond ((= (type vlaObj) 'ENAME) (SETQ vlaObj (vlax-ename->vla-object vlaObj)))
    
23. ((= (type vlaObj) 'VLA-OBJECT) (SETQ vlaObj vlaObj))
    
24. (t (setq olderror *error*)))
    
25. (vla-getxdata vlaObj appid 'xType 'xData) ;；此处监视时，其值为nil
    
26. (mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))
    
27. (vlax-safearray->list xType)
    
28. (vlax-safearray->list xData)
    
29. )
    
30. )
    
31. 
    
32. ;(VLAX-VARIANT-value (vlax-safearray->list xData))
    
33. 
    
34. ; (apply 'append(mapcar '(lambda (x) (list (cdr x))) (mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))(vlax-safearray->list xType)(vlax-safearray->list xData)))) ;;; ("SOUTH" "202101")
    
35. 
    
36. ;(apply 'append '(("SOUTH") ("202101")))
    
37. 
    
38. ; (mapcar '(lambda (x) (append (cdr x))) '((1001 . "SOUTH") (1000 . "202101")) )
    
39. ;注意APPID是一个已经注册的应用程序名称..是REGAPP以后的名称,是字符串.
    
40. 
    
41. 
    
42. (defun zhnfbm (oldobj newobj / xType  xData  xType1 xData1)
    
43.     (vl-load-com)
    
44. (setq appid "south")
    
45.   (vla-getxdata oldobj appid 'xType 'xData) ;；此处监视时，其值为nil  
    
46. (setq xType1 (vlax-safearray->list xType) )
    
47. 
    
48. (setq xData1 (apply 'append(mapcar '(lambda (x) (list (cdr x))) (mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))(vlax-safearray->list xType)(vlax-safearray->list xData)))) )
    
49. 
    
50. (setq xtype (vlax-make-safearray vlax-vbInteger '(0 . 1)))
    
51.    (setq xdata (vlax-make-safearray vlax-vbvariant '(0 . 1)))
    
52.           (vlax-safearray-fill xtype xType1)
    
53.           (vlax-safearray-fill xdata xData1)
    
54.            (vla-setxdata newobj xtype xdata)
    
55.   
    
56.   )
    
57. 
    
58. ;; (zhnfbm (vlax-ename->vla-object(car(entsel)))  (vlax-ename->vla-object(car(entsel)))  )

;(setq startPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))<br /> ;(vlax-safearray-fill startPnt st_point)<br /> ;(setq endPnt(vlax-make-safearray vlax-vbDouble '(0 . 2)))<br /> ;(vlax-safearray-fill endPnt p3)<br /> ;(setq Line_Obj(vla-AddLine mSpace startPnt endPnt))<br /> (vl-load-com )<br /> ;(vlax-dump-object(vlax-ename->vla-object(car(entsel)))T)   (entget(car(entsel))'("*"))<br />        ;(setq xtype (vlax-make-safearray vlax-vbvariant '(0 . 1)))<br /> (setq xtype (vlax-make-safearray vlax-vbInteger '(0 . 1)))<br />    (setq xdata (vlax-make-safearray vlax-vbvariant '(0 . 1)))<br />           (vlax-safearray-fill xtype '(1001 1000))<br />           (vlax-safearray-fill xdata '("loop" "loop"))<br />            (vla-setxdata (vlax-ename->vla-object(car(entsel))) xtype xdata)<br /> <br /> ;(-3 ("loop" (1000 . "loop")))<br /> <br /> (defun c:GetX (/ xType XData)<br /> (vl-load-com)<br /> (setq appid "south")<br /> (setq vlaobj (car(entsel"\\n）选择环：")))<br /> (cond ((= (type vlaObj) 'ENAME) (SETQ vlaObj (vlax-ename->vla-object vlaObj)))<br /> ((= (type vlaObj) 'VLA-OBJECT) (SETQ vlaObj vlaObj))<br /> (t (setq olderror *error*)))<br /> (vla-getxdata vlaObj appid 'xType 'xData) ;；此处监视时，其值为nil<br /> (mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))<br /> (vlax-safearray->list xType)<br /> (vlax-safearray->list xData)<br /> )<br /> )<br /> <br /> ;(VLAX-VARIANT-value (vlax-safearray->list xData))<br /> <br /> ; (apply 'append(mapcar '(lambda (x) (list (cdr x))) (mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))(vlax-safearray->list xType)(vlax-safearray->list xData)))) ;;; ("SOUTH" "202101")<br /> <br /> ;(apply 'append '(("SOUTH") ("202101")))<br /> <br /> ; (mapcar '(lambda (x) (append (cdr x))) '((1001 . "SOUTH") (1000 . "202101")) )<br /> ;注意APPID是一个已经注册的应用程序名称..是REGAPP以后的名称,是字符串.<br /> <br /> <br /> (defun zhnfbm (oldobj newobj / xType  xData  xType1 xData1)<br />     (vl-load-com)<br /> (setq appid "south")<br />   (vla-getxdata oldobj appid 'xType 'xData) ;；此处监视时，其值为nil  <br /> (setq xType1 (vlax-safearray->list xType) )<br /> <br /> (setq xData1 (apply 'append(mapcar '(lambda (x) (list (cdr x))) (mapcar '(lambda (key val) (cons key (VLAX-VARIANT-value val)))(vlax-safearray->list xType)(vlax-safearray->list xData)))) )<br /> <br /> (setq xtype (vlax-make-safearray vlax-vbInteger '(0 . 1)))<br />    (setq xdata (vlax-make-safearray vlax-vbvariant '(0 . 1)))<br />           (vlax-safearray-fill xtype xType1)<br />           (vlax-safearray-fill xdata xData1)<br />            (vla-setxdata newobj xtype xdata)<br />   <br />   )<br /> <br /> ;; (zhnfbm (vlax-ename->vla-object(car(entsel)))  (vlax-ename->vla-object(car(entsel)))  )