多个相同组码下的GetEntDxf

st788796

newer 发表于 2013-12-6 09:32
330的试过，可以，

420的是什么，你试试，原理应该都能吧。

420 的不能， Window7 + AutoCAD 2012 64bit

_$ (setq e (car (Entsel)))
<图元名: 7ffffb1c880>
_$ (xdrx_setenttodb e)
T
_$ (xdrx_getentdxf 420)
nil
_$ (xdrx_getpropertyvalue e "Color")
(79 176 171)
_$ (cdr (assoc 420 (entget e)))
5222571
_$ (xdrx_getpropertyvalue e "ObjectID")
-5126016
_$ (xdrx_document_getversionex)
"2013.12.8"
_$

XDSoft

什么实体？

牢固

XDSoft 发表于 2013-12-9 20:04
什么实体？

真彩色对象！

st788796

XDSoft 发表于 2013-12-9 20:04
什么实体？

AcDbLine 只不过改成了TrurColor

XDSoft

牢固 发表于 2013-12-9 20:33
真彩色对象！

测试了下，ARX返回的和ENTGET的值不同，帮看看数据间有什么内在关系

命令: (xdrx_setenttodb (entlast))
T

命令: (xdrx_getentdxf 420)
31963

命令: (entget (entlast))*取消*

命令: (xdrx_getpropertyvalue (entlast) "color")
(36 124 219)

命令: (entget (entlast))
((-1 . <图元名: 7ef93fb8>) (0 . "LINE") (330 . <图元名: 7ef93c10>) (5 . "C7") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 152) (420 . 2391259)
(100 . "AcDbLine") (10 26004.0 13375.2 0.0) (11 20748.4 7177.95 0.0) (210 0.0
0.0 1.0))

st788796

entget也是ARX写的吧
按ARX规则获取后输出lisp类型

牢固

XDSoft 发表于 2013-12-9 22:00
测试了下，ARX返回的和ENTGET的值不同，帮看看数据间有什么内在关系

命令: (xdrx_setenttodb (entlast ...

(xdrx_getentdxf 420)返回的只是截取了420组码直的16位数字！也就是说rgb只返回了gb，r色值被忽略了！看书说arx不能直接向lisp返回长整形数！

XDSoft

牢固 发表于 2013-12-9 22:52
(xdrx_getentdxf 420)返回的只是截取了420组码直的16位数字！也就是说rgb只返回了gb，r色值被忽略了！ ...

ARX不能返回LONG整数给LISP，API变通了下，对于420组码 直接发回(R G B)表

下面是测试数据

命令: (xdrx_setenttodb (entlast))
T

命令: (xdrx_getentdxf 420)
(36 124 219)

命令: (entget (entlast))
((-1 . <图元名: 7ef93fb8>) (0 . "LINE") (330 . <图元名: 7ef93c10>) (5 . "C7") (100 .
"AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 152) (420 . 2391259)
(100 . "AcDbLine") (10 26004.0 13375.2 0.0) (11 20748.4 7177.95 0.0) (210 0.0
0.0 1.0))

命令: (xdrx_getpropertyvalue (entlast) "color")
(36 124 219)

XDSoft

2391259的由来

36=0x24
124=0x7C
219=0XDB

0x00RRGGBB=0x00247CDB=(十进制)2391259

st788796

XDSoft 发表于 2013-12-9 23:25
2391259的由来

36=0x24124=0x7C

看惯了 0-9 ，其他的头大，转换下输出就可以

st788796

刚试了下 用 Entmod 修改真彩色很方便，比 VLA-setrgb 好用

命令: (setq el (entget (car (Entsel))))

选择对象: ((-1 . <图元名: 7ffffb13b60>) (0 . "LINE") (330 . <图元名: 7ffffb039f0>) (5 .
"40E") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbLine") (10 2227.53 1187.71 0.0) (11 2257.22 1172.88 0.0) (210 0.0 0.0 1.0))

命令: (entmod (append el '((420 . 2807128))))
((-1 . <图元名: 7ffffb13b60>) (0 . "LINE") (330 . <图元名: 7ffffb039f0>) (5 . "40E")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10
2227.53 1187.71 0.0) (11 2257.22 1172.88 0.0) (210 0.0 0.0 1.0) (420 . 2807128))

牢固

XDSoft 发表于 2013-12-9 23:20
ARX不能返回LONG整数给LISP，API变通了下，对于420组码 直接发回(R G B)表

下面是测试数据

1. struct resbuf *rbVar = acutBuildList(RTLONG,rb->resval.rlong,RTNONE);
   
2.             acedRetVal(rbVar);
   
3.             acutRelRb(rbVar);

struct resbuf *rbVar = acutBuildList(RTLONG,rb->resval.rlong,RTNONE);<br />             acedRetVal(rbVar);<br />             acutRelRb(rbVar);

这样就可以直接返回长整型数了！

XDSoft

牢固 发表于 2013-12-10 10:02
这样就可以直接返回长整型数了！

这样，还是一个表，前面的是组码 (420 . xxxxxxxxx)这样的。API现在是返回(高16位整数 低16位整数)

牢固

XDSoft 发表于 2013-12-10 10:46
这样，还是一个表，前面的是组码 (420 . xxxxxxxxx)这样的。API现在是返回(高16位整数 低16位整数)

返回的不是表，返回的直接就是长整型数，你试下就知道了！

st788796

ObjectID不也返回了吗，7位数