测试 Xdata

/db_自贡黄明儒_ · 发表于 2016-8-17 11:41:40

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

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

×

Free-Lancer Xdata很是诱人，但没有示例，看起来头痛。具体用处也不清楚，可能是将一部小说附着在对象上。但删除方法好像有问题（也许是不会使用）。newer 版主提供的删除方法是可靠的。不知提示给kqqt6236删除“超级链接”去试过没有？
今测试如：

;;附着
(defun C:w1 (/ E)
(setq e (car (entsel)))
(Obj:SetXdata
e
"my1"
'(("string" "a" "b" "c") ("position" (1.0 2.0 2.0) (1.2 1.2 0.0)))
)
)
;;查看
(defun C:w2 ()
;;(setq e (car (entsel)))
;;(setq el (entget e '("*")))
(OBJ:GetXdataName (car (entsel)))
)
;;删除w1中加入的my1
(defun C:w3 (/ E)
(setq e (car (entsel)))
(Obj:RemoveXdata
e
"my1"
'(("string" "a" "b" "c") ("position" (1.0 2.0 2.0) (1.2 1.2 0.0)))
)
)
;;产生xdata(同w1)
(defun c:w4 ()
(regapp "FREDS")
(entmake ; makes entity
'((0 . "CIRCLE") ; entity type
(8 . "0") ; layer name
(62 . 3) ; color
(39 . 2.75) ; thickness
(10 8.0 6.0 0.0) ; center point
(40 . 2.0) ; radius
; create and add xdata
(-3
("FREDS"
(1002 . "{")
(1000 . "This is my data")
(1000 . "More Data")
(1000 . "and some more data")
(1040 . 12.345)
(1010 8.97197 6.8436 0.0)
(1040 . 2.75013)
(1002 . "}")
)
)
)
)
)
;;删除w4中加入的"FREDS"
(defun C:w5 (/ E)
(setq e (car (entsel)))
(Obj:RemoveXdata
e
"FREDS"
'(("string" "This is my data" "More Data" "and some more data") ("Real" 12.345 2.75013)("Position" 8.97197 6.8436 0.0)("CTRL" "{" "}"))
)
(entget e '("*"))
)
;;此法不行，有问题
;;删除w6中加入的"FREDS"
(defun C:w6 (/ A E)
(setq e (car (entsel)))
(Setq a (entget e '("FREDS")))
(entmod (setq a (subst '(-3 ("FREDS")) (assoc -3 a) a)))
(entget e '("*"))
)
;;删除w1中加入的my1
(defun C:w7 (/ A E)
(setq e (car (entsel)))
(Setq a (entget e '("my1")))
(entmod (setq a (subst '(-3 ("my1")) (assoc -3 a) a)))
(entget e '("*"))
)
;;删除对象上的所以Xdata

;;附着 
(defun C:w1 (/ E) 
  (setq e (car (entsel))) 
  (Obj:SetXdata 
    e 
    "my1" 
    '(("string" "a" "b" "c") ("position" (1.0 2.0 2.0) (1.2 1.2 0.0))) 
  ) 
) 
;;查看 
(defun C:w2 () 
  ;;(setq e (car (entsel))) 
  ;;(setq el (entget e '("*"))) 
  (OBJ:GetXdataName (car (entsel))) 
) 
;;删除w1中加入的my1 
(defun C:w3 (/ E) 
  (setq e (car (entsel))) 
  (Obj:RemoveXdata 
    e 
    "my1" 
    '(("string" "a" "b" "c") ("position" (1.0 2.0 2.0) (1.2 1.2 0.0))) 
  ) 
) 
;;产生xdata(同w1) 
(defun c:w4 () 
  (regapp "FREDS") 
  (entmake                ; makes entity 
    '((0 . "CIRCLE")              ; entity type 
      (8 . "0")                ; layer name 
      (62 . 3)                ; color 
      (39 . 2.75)              ; thickness 
      (10 8.0 6.0 0.0)              ; center point 
      (40 . 2.0)              ; radius 
                  ; create and add xdata 
      (-3 
       ("FREDS" 
  (1002 . "{") 
  (1000 . "This is my data") 
  (1000 . "More Data") 
  (1000 . "and some more data") 
  (1040 . 12.345) 
  (1010 8.97197 6.8436 0.0) 
  (1040 . 2.75013) 
  (1002 . "}") 
       ) 
      ) 
     ) 
  ) 
) 
 
;;删除w4中加入的"FREDS" 
(defun C:w5 (/ E) 
  (setq e (car (entsel))) 
  (Obj:RemoveXdata 
    e 
    "FREDS" 
    '(("string" "This is my data" "More Data" "and some more data") ("Real" 12.345 2.75013)("Position" 8.97197 6.8436 0.0)("CTRL" "{" "}")) 
  ) 
  (entget e '("*")) 
) 
;;此法不行，有问题 
 
;;删除w6中加入的"FREDS" 
(defun C:w6 (/ A E) 
  (setq e (car (entsel))) 
  (Setq a (entget e '("FREDS"))) 
  (entmod (setq a (subst '(-3 ("FREDS")) (assoc -3 a) a))) 
  (entget e '("*")) 
) 
 
;;删除w1中加入的my1 
(defun C:w7 (/ A E) 
  (setq e (car (entsel))) 
  (Setq a (entget e '("my1"))) 
  (entmod (setq a (subst '(-3 ("my1")) (assoc -3 a) a))) 
  (entget e '("*")) 
) 
 
;;删除对象上的所以Xdata

游客，如果您要查看本帖隐藏内容请回复

HLCAD · 发表于 2016-8-17 11:58:48

哈哈，沙发我来座，谢谢黄大侠！

lucas3 · 发表于 2016-8-17 12:10:24

搬个凳子坐下来慢慢学

csharp · 发表于 2016-8-17 15:26:19

xdata在arx是resbuf，链表，不过每个注册部分是以1001起始，修改xdata就是重新赋值(全部删除，再组合)

yoyoho · 发表于 2016-8-17 17:47:43

感谢黄老师分享学习,3Q!

qyming1996 · 发表于 2016-8-18 20:10:51

？？？？？？？？？

spp_wall · 发表于 2016-8-19 09:02:24

谢谢分享！！！！！！！！！！

q3_2006 · 发表于 2016-8-22 14:30:32

只会简单的..并没深入研究..学习..

lhtfhc · 发表于 2017-1-22 17:00:37

学习学习,谢谢

yaokui25 · 发表于 2017-1-30 14:02:02

谢谢黄大侠！

laiz3000 · 发表于 2017-2-4 10:24:12

确实是难得好帖啊，顶先

flydyt · 发表于 2017-3-5 16:29:34

正需要，学习学习。谢谢

hhhlike · 发表于 2017-3-15 18:53:18

学习一下!!!

范建威 · 发表于 2017-5-24 14:23:22

向楼主学习

freefor5127 · 发表于 2017-5-24 20:52:54

向楼主学习。。。

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

[每日一码] 测试 Xdata

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