关于AutoCAD中扩展图元数据的疑问

mj520plus · 发表于 2013-7-19 21:30:19

本帖最后由 mj520plus 于 2013-7-20 07:24 编辑

不知大家有没有用过台湾的PRESSCAD冲模设计软件，其中的“标签”功能是其精华所在！
其原理应该是运用了AuotCAD的扩展图元数据(Xdata)，用户能将用户自己定义的数据
添加到任何AutoCAD图元中。

就参考网上的代码写了一个测试程序，如下：
(defun c:AddBQ ()
  (regapp "solar5") ;_注册应用程序
  (command "circle" '(4000 4000) 15) ;_画一个圆
  (setq ed (entget (entlast))) ;_设置变量ed为圆图元的数据表
;_创建xdata表，连接到变量ex
  (setq
ex '(-3
      ("solar5" (1000. "earth") (1002. "{") (1041.15) (1002. "}"))
      )
  )
  (setq edx (append ed (list ex))) ;_将新xdata数据表接在原图元数据表后，并连接到edx
  (entmod edx) ;_联合后的表数据更新新图元，并返回该表
  (entget (entlast) '("solar5")) ;_返回上一个实体的应用程序名为solar5的图元数据表和xdata
  (princ)
)
问题：经过调试代码，发现程序在(entmod edx)这一行会报错退出程序!
不知什么原因？期待高手帮忙解答！

mj520plus · 发表于 2013-7-20 07:28:10

不要让帖子沉下去呀！

ZZXXQQ · 发表于 2013-7-20 12:07:54

少了空格

'(-3
      ("solar5" (1000. "earth") (1002. "{") (1041.15) (1002. "}"))
      )
改成：
'(-3
      ("solar5" (1000 . "earth") (1002 . "{") (1041 . 15) (1002 . "}"))
      )

mj520plus · 发表于 2013-7-21 18:17:24

谢谢ZZXXQQ,真的是“细节决定成败”呀！

zhangcan0515 · 发表于 2019-8-31 21:13:43

mj520plus 发表于 2013-7-21 18:17
谢谢ZZXXQQ,真的是“细节决定成败”呀！

现在研究的咋样了

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

[讨论] 关于AutoCAD中扩展图元数据的疑问

本帖子中包含更多资源

相关帖子

浏览过的版块