关于xdrx_object_setxdata、xdrx_object_getxdata函数问题

dyjwyqz5221

命令: (xdrx_object_setxdata (entlast) "bh" '(10 100 200))
T

命令: (xdrx_object_getxdata (entlast) "bh")
((100.0 200.0 0.0))

用xdrx_object_getxdata提取出的表内值100.0 100.0 0.0与xdrx_object_setxdata的表内值10 100 200
不一致，为何?

之前也发现表内数字大于较大一个数，如50000时，提取出的数值为0的情况。
测试发现将数字字符串放进表内就不出问题了。

newer

把
(10 100 200)
改成
(10.0 100 200)

dyjwyqz5221

看来，数字字符串能转换成实数的尽量不要转换成整数。否则在这里会出问题的，在有数字相除的地方也会出问题。

dyjwyqz5221

newer 发表于 2020-6-13 16:11
把
(10 100 200)
改成

(defun c:tt(/ lst lst1)
        (setq lst
                '(
                        (10.)
                        (10. 100.)
                        (10. 100. 200.)
                        (10. 100. 200. 300.)
                        (10. 100. 200. 300. 400.)
                        ("10")
                        ("10" "100")
                )
        );;;setq
        (mapcar
                '(lambda(x)               
                        (xdrx_object_setxdata (entlast) "bh" x)
                        (setq lst1 (cons (xdrx_object_getxdata (entlast) "bh") lst1))
                )
                lst
        )
        (reverse lst1)
)

命令: TT
((10.0) ((10.0 100.0 0.0)) ((10.0 100.0 200.0)) (10.0 100.0 200.0 300.0) (10.0 100.0 200.0 300.0 400.0) ("10") ("10" "100"))
下面这样更清楚点：
(
        (10.0)
       ((10.0 100.0 0.0))
        ((10.0 100.0 200.0))
        (10.0 100.0 200.0 300.0)
        (10.0 100.0 200.0 300.0 400.0)
        ("10")
        ("10" "100")
)

均为数字的子表，第一个子表为一个数字，未用0.0补位
第二个子表为两个数字的子表，红色部分数字补上了个0.0？
其他子表未出现这个情况。
表格还不一样呢？蓝色部分多一层括号呀

两个、三个数的表似乎是按三维点考虑的？

newer

dyjwyqz5221 发表于 2020-6-13 17:26
(defun c:tt(/ lst lst1)
        (setq lst
                '(

两个数，三个数的表，是按点考虑的
要不你怎么分辨不是点呢？