创建扩展数据库失败

DCMZ

请教一下，创建扩展数据库，最后一步为什么返回nil呢，哪里错了。代码如下
(progn
    (setq ss (ssget))
    (setq ename (ssname ss 0))
    (setq vname (vlax-ename->vla-object ename))
    (setq datatype (vlax-make-safearray vlax-vbInteger '(0 . 4)))
    (vlax-safearray-fill datatype '(1001 1000 1000 1040 1040))
    (setq data (vlax-make-safearray vlax-vbvariant '(0 . 4)))
    (vlax-safearray-fill data '("hello" "abc" "hello" 12.5 12.6))
    (vla-setxdata vname datatype data)
)

yaojing38

没先注册？

Saging

函数（vla-getxdata)(vla-setxdata)的返回值都是nil，你代码已经把扩展数据写入对象，可以用（vla-getxdata)读取一下。

yanshengjiang

不会是AI给的代码吧，第一次见到。
我只会用entget  然后加入扩展组码，再entmod

yanshengjiang

没问题，可以正常添加。  测试发现这种方式不需要提前注册扩展名。

(progn
    (setq ss (ssget))  ; 让用户选择对象
    (if ss  ; 增加判断，避免未选择对象时出错
        (progn
            (setq ename (ssname ss 0))  ; 获取第一个对象的实体名
            (setq vname (vlax-ename->vla-object ename))  ; 转换为VLA对象
            
            ; 1. 修改：使用带前缀的自定义应用程序名（降低冲突风险）
            ; 建议格式：公司/个人标识 + 功能标识（如"MYCOMPANY_CLEAN"）
            (setq datatype (vlax-make-safearray vlax-vbInteger '(0 . 4)))
            (vlax-safearray-fill datatype '(1001 1000 1000 1040 1040))
            
            ; 2. 对应修改数据数组中的应用程序名
            (setq data (vlax-make-safearray vlax-vbvariant '(0 . 4)))
            (vlax-safearray-fill data '("SOUTH" "abc" "hello" 12.5 12.6))  ; 替换为"MYAPP_CUSTOM"
            
            (vla-setxdata vname datatype data)  ; 添加XData
            (princ "XData添加成功！")
        )
        (princ "未选择任何对象，操作取消。")
    )
    (princ)  ; 清除命令行多余输出
)



我的南方cass默认注册了south扩展名。



命令: (ASSOC -3(entget(car(entsel)) '("SOUTH")))

选择对象: (-3 ("SOUTH" (1000 . "abc") (1000 . "hello") (1040 . 12.5) (1040 . 12.6)))

yanshengjiang

命令: (nth 4 (vlax-safearray->list (progn (vla-getxdata (vlax-ename->vla-object (car (entsel))) "SOUTH" 'a 'b) b)))
选择对象: #<variant 5 12.6>

yanshengjiang

命令: (vlax-variant-value (nth 4 (vlax-safearray->list (progn (vla-getxdata (vlax-ename->vla-object (car (entsel))) "SOUTH" 'a 'b) b))))
选择对象: 12.6

yanshengjiang

命令: (vlax-safearray->list (progn (vla-getxdata (vlax-ename->vla-object (car (entsel))) "SOUTH" 'a 'b) b))

选择对象: (#<variant 8 SOUTH> #<variant 8 abc> #<variant 8 hello> #<variant 5 12.5> #<variant 5 12.6>)

yanshengjiang

最后才发现，这个方式不需要注册扩展名。  随便取个名字他都能正确添加扩展属性。