yhly555 发表于 2016-10-25 01:41:55

Andyhon 发表于 2016-10-24 18:02
猜您需飘的是组码5
i.e. ) (5 . "36")

组码5是字柄，在这里我并不是需要一个唯一的识别码，我只是需要一个字符串，且这个字符串不当图元来使用。

自贡黄明儒 发表于 2016-10-25 08:47:44

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

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

yhly555 发表于 2016-10-25 09:27:26

自贡黄明儒 发表于 2016-10-25 08:47


非常感谢！

clinber 发表于 2016-10-28 11:00:10

yhly555 发表于 2016-10-24 17:49
我只是想将得到的那字符串转换为十进制，以便于拆离图像参照。

怎么拆离呢求方法

yhly555 发表于 2016-10-29 08:49:22

clinber 发表于 2016-10-28 11:00
怎么拆离呢求方法

12楼有拆离的方法

clinber 发表于 2016-10-30 22:22:34

yhly555 发表于 2016-10-29 08:49
12楼有拆离的方法

我的意思是拆离图像参照

wyl219 发表于 2018-6-2 00:54:53

yhly555 发表于 2016-10-25 09:27
非常感谢！

请问,如何在autolisp中将十六进制转换为十进制?

lenlenq 发表于 2018-6-6 20:39:31

(setq en(car(entsel)))
(vl-string-trim "<>"(vl-string-trim "()"(vl-princ-to-string (list en))))
页: 1 [2]
查看完整版本: 如何取行 <图元名: 7ef7db18>后面的“7ef7db18”字符串？