[求助]：如何获取图元的数据关联列表

c3a139

(setq layername (strcase (getstring "\n指定层： ")))
  (setq layerobj (ssget "X" (list (cons 8 layername))))
  (setq layertext (list layerobj '(0 . "TEXT")))
  (setq zfc "text" str "183")
  (setq layertext1 (ssget "p" (list (cons 0  zfc)(cons 1 str))))

先建个选择集，183可从文本中读取。在图中找到图元183，如何能过（1.183）获得图元的关联列表，并取得坐标

((-1 . <图元名: 7ef804f0>) (0 . "TEXT") (330 . <图元名: 7ef7ccc8>) (5 . "176E")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ZDMCX-DK-六") (100 .
"AcDbText") (10 3756.93 41.5 0.0) (40 . 2.5) (1 . "183") (50 . 0.0) (41 .
0.7) (51 . 0.0) (7 . "ZDMWZ7") (71 . 0) (72 . 1) (11 3760.0 44.0 0.0) (210 0.0
0.0 1.0) (100 . "AcDbText") (73 . 3))

oyxx_1023

不知是我水平有限还是你没写清楚,我看了两遍还是没搞懂你想要问什么?
183图元是编号183还是指句柄为183的实体?
什么叫图元的关联列表?是指附加在其上的反应器关联的列表?

c3a139

是我没说清楚，读取的183为一字符串或实数，然后在图中找到实体的183，获得实体定义数据
((-1 . <图元名: 7ef804f0>) (0 . "TEXT") (330 . <图元名: 7ef7ccc8>) (5 . "176E")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ZDMCX-DK-六") (100 .
"AcDbText") (10 3756.93 41.5 0.0) (40 . 2.5) (1 . "183") (50 . 0.0) (41 .
0.7) (51 . 0.0) (7 . "ZDMWZ7") (71 . 0) (72 . 1) (11 3760.0 44.0 0.0) (210 0.0
0.0 1.0) (100 . "AcDbText") (73 . 3))
不知道说清楚没有

animal212

呵呵，我看懂他的意思了，这问题有点意思。有点创意，但我不懂。
楼下的继续努力呀，期待中。。。。

yshf

(entget "183字符串那个图元名" '("*")),看一看有什么不同。

oyxx_1023

1. (ssget '((0 . "TEXT") (1 . "183")))

复制代码

c3a139

好像我还是没说明白，从文本文件中读取183，然后在图中找到图元183，怎样获得它在图中的坐标？

adisonmaster

你还是没有说明白，不过我看你的意思是从文本中读取字符串“183”，再在图纸中找到TEXT对象其文本内容为“183”，如果是这样的话，(ssget "X" '((0 . "TEXT") (1 . "183")))可以获得途中所有文本内容为“183”的text对象选择集，然后使用ssname和entget函数就可以获得其关联数据表了，再从表中取得坐标数据就可以来。

c3a139

我的嘴真够笨!请问用SSNAME如何得其数据关联表，索引码还不知道

adisonmaster

试试下面的程序：
(defun c:listpro (/ s1 n1 t1 m1)        ;显示属性
  (princ "\n请选择:")
  (setq s1 (ssget))                        ;选择
  (setq n1 (sslength s1))                ;选择集
  (setq m1 0)
  (while (< m1 n1)
    (setq t1 (entget (ssname s1 m1)))
    (princ "\n图元")
    (princ m1)
    (princ ":")
    (princ t1)
    (setq m1 (1+ m1))
  )
)

c3a139

谢谢，通过它就可以了(setq t1 (entget (ssname s1 0)))
((-1 . <图元名: 7ef804f0>) (0 . "TEXT") (330 . <图元名: 7ef7ccc8>) (5 . "176E")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "ZDMCX-DK-六") (100 .
"AcDbText") (10 3756.93 41.5 0.0) (40 . 2.5) (1 . "183") (50 . 0.0) (41 .
0.7) (51 . 0.0) (7 . "ZDMWZ7") (71 . 0) (72 . 1) (11 3760.0 44.0 0.0) (210 0.0
0.0 1.0) (100 . "AcDbText") (73 . 3))

leeyuan

[php](setq pt10 (assoc 10 t1))[/php]获取左下点文本坐标值