如何取行 <图元名: 7ef7db18>后面的“7ef7db18”字符串？

yhly555

如题，(cdr (assoc -1 (entget (car (entsel)))))，取行 <图元名: 7ef7db18>，如何得到后面的“7ef7db18”字符串？谢谢！

ll_j

yhly555 发表于 2016-10-24 15:46
转换为十进制。

实体名的是一个完整的对象，是系统自动赋予的，即使显示出一长串字母，也是不可分的，主要是，分开后就没有任何意义了。
实体名是“动态”的，每次系统会自动赋予实体一个实体名，不会保存，环境变化后，可能会变成另一个名字，这也是对这串字符操作没有意义的另一方面。
如果想操作唯一的实体名，应该提取组码5，就是句柄，也被俗称“头”，这是每一个实体（包括非实体）唯一的。

自贡黄明儒

yhly555 发表于 2016-10-25 01:41
组码5是字柄，在这里我并不是需要一个唯一的识别码，我只是需要一个字符串，且这个字符串不当图元来使用 ...

1. (setq str (VL-PRINC-TO-STRING (cdr(assoc -1 (entget(car(entsel)))))))
   
2. (setq str (VL-STRING-LEFT-TRIM "<Entity name: " str))
   
3. (setq str (VL-STRING-right-TRIM ">" str))

(setq str (VL-PRINC-TO-STRING (cdr(assoc -1 (entget(car(entsel)))))))<br /> (setq str (VL-STRING-LEFT-TRIM "<Entity name: " str))<br /> (setq str (VL-STRING-right-TRIM ">" str))

yhly555

434939575 发表于 2016-10-24 17:30
(substr (substr  "" 9) 1

         (1-(strlen(substr  "" 9)))

这样应该是不行的，因这这个获取到的图元名，不是我们给定的字符串，所以用这个命令操作会提示错误，
刚开始我就是这样操作的，但都是提示错误。

自贡黄明儒

你得到后想做什么呢？

yhly555

转换为十进制。

yhly555

自贡黄明儒 发表于 2016-10-24 13:24
你得到后想做什么呢？

转换为十进制。

434939575

(substr (substr  "<图元名: 7ef7db18>" 9) 1

         (1-(strlen(substr  "<图元名: 7ef7db18>" 9)))

         )

yhly555

自贡黄明儒 发表于 2016-10-24 13:24
你得到后想做什么呢？

转换为十进制，用于拆离图像参照。

yhly555

ll_j 发表于 2016-10-24 17:01
实体名的是一个完整的对象，是系统自动赋予的，即使显示出一长串字母，也是不可分的，主要是，分开后就没 ...

我只是想将得到的那字符串转换为十进制，以便于拆离图像参照。

Andyhon

猜您需飘的是组码5
i.e. <Entity name: 7ee72d18>) (5 . "36")