为对象增加扩展数据

zhangq_cai1 · 发表于 2013-8-3 08:16:36

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

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

×

从网上找的，提供给大家

(defun XD-M()
(while (not(setq en (entsel "选择一个实体：")))
(alert "没选中任何实体...")
)
(princ "\n(现有")(princ(XDRoom(car en)))
(princ "\n字节的扩展实体数据空间.)\n")
(setq en (car en)
un (getstring "\n应用名：")
)
(if (XD-C en un)
(progn (textscr)
(princ "\n这个应用名已经存在了，要覆盖它吗？")
(initget 7 "Yes No")
(if (= "Yes" (getkword "Yes/<No>:"))
()
(abcdefg)
)
)
)
(setq ll (list (cons 1002 "}")))
(initget 7 "Real Integer String")
(setq tp (getkword "Real(实数)/Integer(整数)/String(字串)："))
(while (not(or (= tp "End")(= tp "")))
(cond ((= tp "Real")
(setq v (getreal "\n实型数：") l (cons 1040 v))
)
((= tp "String")
(setq v (getstring "\n字符串：") l (cons 1000 v))
)
((= tp "Integer")
(setq v (getint "\n整型数：") l (cons 1071 v))
)
)
(setq ll (cons l ll))
(initget 7 "Real Integer String End")
(setq tp (getkword "Real(实数)/Integer(整数)/String(字串)/<End>："))
)
(setq ll (cons (cons 1002 "{") ll)
ll (list -3 (cons un ll))
el (entget en)
nel (cons ll el)
)
(regapp un)(entmod nel)
)

(defun XD-M() 
       (while (not(setq en (entsel "选择一个实体："))) 
              (alert "没选中任何实体...") 
        ) 
       (princ "\n(现有")(princ(XDRoom(car en))) 
       (princ "\n字节的扩展实体数据空间.)\n") 
       (setq en (car en) 
             un (getstring "\n应用名：") 
       ) 
       (if  (XD-C en un) 
            (progn (textscr) 
                   (princ "\n这个应用名已经存在了，要覆盖它吗？") 
                   (initget 7 "Yes No") 
                   (if (= "Yes" (getkword "Yes/<No>:")) 
                       () 
                       (abcdefg) 
                   ) 
            ) 
        ) 
       (setq ll (list (cons 1002 "}"))) 
       (initget 7 "Real Integer String") 
       (setq tp (getkword "Real(实数)/Integer(整数)/String(字串)：")) 
       (while (not(or (= tp "End")(= tp ""))) 
              (cond ((= tp "Real") 
              (setq v (getreal "\n实型数：") l (cons 1040 v)) 
              ) 
              ((= tp "String") 
              (setq v (getstring "\n字符串：") l (cons 1000 v)) 
              ) 
              ((= tp "Integer") 
              (setq v (getint "\n整型数：") l (cons 1071 v)) 
              ) 
        ) 
        (setq ll (cons l ll)) 
        (initget 7 "Real Integer String End") 
        (setq tp (getkword "Real(实数)/Integer(整数)/String(字串)/<End>：")) 
       ) 
       (setq ll (cons (cons 1002 "{") ll) 
             ll (list -3 (cons un ll)) 
             el (entget en) 
             nel (cons ll el) 
       ) 
       (regapp un)(entmod nel) 
  )

Free-Lancer · 发表于 2013-8-3 08:33:51

更喜欢用ldata,数据灵活容量大来自: Android客户端

GTJ116600 · 发表于 2013-8-3 09:54:47

Free-Lancer 发表于 2013-8-3 08:33
更喜欢用ldata,数据灵活容量大

呵呵，弱弱的问一句，“ldata”是什么东东呀？

GTJ116600 · 发表于 2013-8-3 09:55:33

呵呵，都是初学者，赞一个

laibinwu · 发表于 2013-8-3 11:49:11

Free-Lancer 发表于 2013-8-3 08:33
更喜欢用ldata,数据灵活容量大

请教ldata怎么用

Free-Lancer · 发表于 2013-8-3 11:58:08

vlax-ldata-put
vlax-ldata-get
vlax-ldata-list
vlax-ldata-delete(？)来自: Android客户端

zhangq_cai1 · 发表于 2013-8-3 13:34:31

用字典啊~~~~~~~~~~~~~~~~~~~~~~~~

yoyoho · 发表于 2013-8-4 06:47:05

Free-Lancer 发表于 2013-8-3 11:58
vlax-ldata-put
vlax-ldata-get
vlax-ldata-list

您好!
您有范例介绍这几个函数怎么用吗!
可否分享,谢谢!

st788796 · 发表于 2013-8-4 19:59:28

yoyoho 发表于 13 小时前

 登录/注册后可看大图

您好!
您有范例介绍这几个函数怎么用吗!
可否分享,谢谢!

eachy的工具集有个简单应用来自: Android客户端

xgwl · 发表于 2013-9-26 23:35:43

扩展数据能不能把自定义的，比如线型....等加进去，别的机子看图时不用再加载自定义的线型，就能完整显示呢？

zhangq_cai1 · 发表于 2013-9-27 16:36:29

不能，扩展的不是线型~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

newer · 发表于 2013-9-27 17:45:21

xgwl 发表于 2013-9-26 23:35
扩展数据能不能把自定义的，比如线型....等加进去，别的机子看图时不用再加载自定义的线型，就能完整显示 ...

扩展实体数据只能保存点、整数、实数、字符串。

要保存任意对象，需要用扩展记录。

st788796 · 发表于 2013-9-27 22:05:56

xgwl 发表于 2013-9-26 23:35
扩展数据能不能把自定义的，比如线型....等加进去，别的机子看图时不用再加载自定义的线型，就能完整显示 ...

cad好像有个打包命令，把用到的shx，不知道有没有 .lin ，和dwg做压缩包，把压缩包发出去就没有障碍了

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

[他山之石] 为对象增加扩展数据

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

点评

点评

点评