0711的API，xdrx_xdata_get有问题

liuyj · 发表于 2020-7-11 17:30:05

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

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

×

扩展数据是字符串时，显示ERROR: Could not translate handle to object Id.(<图元名: 0>)

newer · 发表于 2020-7-11 18:21:52

请把代码贴上来

liuyj · 发表于 2020-7-11 18:42:25

如下图所示，风口的扩展数据中风口名称是字符串，用(xdrx_xdata_get (car (entsel)) "风口名称")提取名称时出错，试过类似的情况，发现只要扩展数据是字符串都一样。

aisong220 · 发表于 2020-7-12 00:02:08

liuyj · 发表于 2020-7-14 07:11:40

这个问题难道只有我遇到了？

XDSoft · 发表于 2020-7-15 00:02:32

liuyj 发表于 2020-7-14 07:11
这个问题难道只有我遇到了？

下载15日更新的API，试试

liuyj · 发表于 2020-7-15 00:40:44

这次好像是xdrx_xdata_set有问题了，写入时把数据加入名为XDRX的扩展数据内，读取时内容都不全了

XDSoft · 发表于 2020-7-15 02:51:34

liuyj 发表于 2020-7-15 00:40
这次好像是xdrx_xdata_set有问题了，写入时把数据加入名为XDRX的扩展数据内，读取时内容都不全了

正常读，你怎么写的，怎么读

(xdrx-xdata-set (car (entsel)) "abc" 1.0 2.0 3.0 4.0)
(xdrx-xdata-get (car (entsel)) "abc")

如果你不正常，就再下载一次API

liuyj · 发表于 2020-7-15 10:16:22

还是不行，用0711及以前的API，对如下的风管写入数据，是图一的样子，可是0715的就成了图二的样子

liuyj · 发表于 2020-7-15 10:18:27

这XDRX是从哪里来的？扩展数据名称怎么变成内容了

newer · 发表于 2020-7-15 10:47:47

本帖最后由 newer 于 2020-7-15 10:48 编辑

liuyj 发表于 2020-7-15 10:18
这XDRX是从哪里来的？扩展数据名称怎么变成内容了

别只上图，你代码是怎么写扩展数据和读的？
你代码怎么写扩展数据的？
自己试下
(xdrx-xdata-set (car (entsel)) "abc" 1.2 3.0)
(xdrx-xdata-get (car (entsel)) "abc")

看看读出来不

liuyj · 发表于 2020-7-15 11:26:43

写入代码如下

(defun WriteX (ename xd AppName)
(if (= (type xd) 'INT)
(setq xd (float xd))
)
(xdrx_xdata_set ename AppName xd)
)
(defun addfgdata (en fglay fgfl fgw fg_h fgfs bmz mx_fgbg mx_flct / lxqz)
(if (and (listp en) (= (type (car en)) 'ENAME))
(setq en (car en))
)
(cond ((= fglx "R") (setq lxqz "(\"R\""))
((= fglx "C") (setq lxqz "(\"C\""))
)
(WriteX en (list 0) "竖管填充")
(WriteX en (list (float (+ mx_fgbg (/ fg_h 2)))) "顶部标高")
(cond ((= fglx "R") (WriteX en (list 0) "直径"))
((= fglx "C") (WriteX en (list (float fgw)) "直径"))
)
(WriteX en (list (float fg_h)) "高度")
(WriteX en (list (float fgw)) "宽度")
(WriteX en (list 1) "截面")
(WriteX en (list (float fgfl)) "流量")
(WriteX en (list (float mx_fgbg)) "标高")
(WriteX en (list (list (float 0))) "JBSS")
(WriteX en (list (list (float (* fglen bmz)))) "YCSS")
(WriteX en (list (list (float (+ (* fglen bmz) 0)))) "SS")
(WriteX en (list (list bmz)) "BMZ")
(WriteX en (list (list fgfs)) "GXFS")
(WriteX en (list (list fgfl)) "GXFL")
(WriteX en
(list (list (strcat lxqz
" "
(rtos fgw 2 0)
" "
(rtos fg_h 2 0)
" "
(rtos mx_fgbg 2 0)
" "
(rtos mx_fgbg 2 0)
" "
"\"M\""
"0.00"
")"
)
)
)
"TFGX"
)
(WriteX en (list (list 2 fglay)) "KTGX")
)

(defun WriteX (ename xd AppName) 
  (if (= (type xd) 'INT) 
    (setq xd (float xd)) 
  ) 
  (xdrx_xdata_set ename AppName xd) 
) 
(defun addfgdata (en fglay fgfl fgw fg_h fgfs bmz mx_fgbg mx_flct / lxqz) 
  (if (and (listp en) (= (type (car en)) 'ENAME)) 
    (setq en (car en)) 
  ) 
  (cond        ((= fglx "R") (setq lxqz "(\"R\"")) 
        ((= fglx "C") (setq lxqz "(\"C\"")) 
  )   
  (WriteX en (list 0) "竖管填充") 
  (WriteX en (list (float (+ mx_fgbg (/ fg_h 2)))) "顶部标高") 
  (cond        ((= fglx "R") (WriteX en (list 0) "直径")) 
        ((= fglx "C") (WriteX en (list (float fgw)) "直径")) 
  ) 
  (WriteX en (list (float fg_h)) "高度") 
  (WriteX en (list (float fgw)) "宽度") 
  (WriteX en (list 1) "截面") 
  (WriteX en (list (float fgfl)) "流量") 
  (WriteX en (list (float mx_fgbg)) "标高") 
  (WriteX en (list (list (float 0))) "JBSS") 
  (WriteX en (list (list (float (* fglen bmz)))) "YCSS") 
  (WriteX en (list (list (float (+ (* fglen bmz) 0)))) "SS") 
  (WriteX en (list (list bmz)) "BMZ") 
  (WriteX en (list (list fgfs)) "GXFS") 
  (WriteX en (list (list fgfl)) "GXFL") 
  (WriteX en 
          (list        (list (strcat lxqz 
                              " " 
                              (rtos fgw 2 0) 
                              " " 
                              (rtos fg_h 2 0) 
                              " " 
                              (rtos mx_fgbg 2 0) 
                              " " 
                              (rtos mx_fgbg 2 0) 
                              " " 
                              "\"M\"" 
                              "0.00" 
                              ")" 
                      ) 
                ) 
          ) 
          "TFGX" 
  ) 
  (WriteX en (list (list 2 fglay)) "KTGX") 
)

newer · 发表于 2020-7-15 12:29:14

liuyj 发表于 2020-7-15 11:26
写入代码如下

(xdrx-xdata-set (car (entsel)) "abc" 1.2 3.0)
(xdrx-xdata-get (car (entsel)) "abc")

用上面的，你那不正常吗？读不出来abc?

liuyj · 发表于 2020-7-15 14:37:33

用上面那句，扩展数据部分如下：
(-3
   ("XDRX"
      (1000 . "abc")
      (1002 . "{")
      (1040 . 1.2)
      (1040 . 3.0)
      (1002 . "}")
   )
)
而正常的格式应该为
(-3
   ("abc"
      (1002 . "{")
      (1040 . 1.2)
      (1040 . 3.0)
      (1002 . "}")
   )
)

liuyj · 发表于 2020-7-15 14:38:37

之前的版本都没有问题

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

[BUG报告] 0711的API，xdrx_xdata_get有问题

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

点评

点评

点评

点评

点评