怎么给直线、多线等实体添加自定义属性呢？

lanyf

在cad中，选中直线、多线等实体后，ctr+1可以查看该实体的特性
能不能自定义特性呢
比如一条直线，想定义如下信息
用途：道路
材质：金属
名称：延安路
客户：某某客户

能实现吗？

newer

用 扩展实体数据 或者 xdata 搜索论坛

lanyf

newer 发表于 2017-6-19 19:23

(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 . "}")))
    )
)
(Setq a (entget (entlast) '("FREDS")))
;; gets the assoc list with attached
;; extended entity data that belongs
;; to the regapp "FREDS"

(princ a) ;; prints assoc list to screen
(princ "\n\n") ;; two blank lines

(setq z (assoc -3 a)) ;; save xdata that belongs to the
;; regapp "FREDS" to z variable

(setq a (subst'(-3 ("FREDS")) (assoc -3 a) a)) ;; new assoc list without
;; xdata. The -3 assoc code has only
;; the regapp name without any data.
;; This gets substituted for the assoc
;; -3 list that has data.

(entmod a) ;; modifies entity removing the
;; xdata because feeding a entmod
;; an assoc list with only the regapp
;; name for the -3 assoc code removes
;; the extended entity data from the
;; entity.

(Setq a (entget (entlast) '("FREDS")))
;; gets the new assoc list to verify
;; the xdata has been removed

(princ a) ;; prints the new assoc list without
;; the xdata to screen.




如何设置扩展实体数据呢？
上面的代码有获取，那如何设置呢？
论坛上找了个类似的
代码如下：
(setx (entlast) "PRICE"  ((1040.123.45) (1040.321.54)))

(defun setx(entname appname xdata / x0 x1)

(setq appname(strcase appname))

(if (= (type entname) 'ENAME)

(if (tblsearch "APPID" appname)

(if (setq x0 (entget entname))

(progn

(setq x1 (list -3 (append (list appname) xdata)))

(setq x0 (append (entget entname) (list x1)))

(entmod x0)

)

)

)

)

)


但提示 函数错误： (1040.321.54)，不知道该怎么用啊~~~~~··

Lisphk

lanyf 发表于 2017-6-19 20:48

从你的错误提示看

((1040.123.45)

这个前面应该加上 '

变成这样：

'((1040.123.45)....

lanyf

Lisphk 发表于 2017-6-19 20:51

追加了 ’ ，又提示 setx 函数未定义但下面已经定义了啊，为什么呢

Lisphk

lanyf 发表于 2017-6-19 20:56

不知道你CAD什么版本呢， 那你就把setx函数提到最前面去。

st788796

vlax-ldata-put 更简单灵活

lanyf

st788796 发表于 2017-6-20 00:25

有具体的例子吗？不是特别知道

lanyf

st788796 发表于 2017-6-20 00:25

我按vlax-ldata-put试了一下代码如下：


(regapp "project")
(setq e (car (entsel)))
(vlax-ldata-put e "project" '("北京项目"))

然后用
(entget (car (entsel)) '("*"))查看了一下组码

并没有给相应的实体加上扩展的实体数据，什么原因呢？还是使用错了