请问 如何得到 Entity name 后面的数字

c_czy

((-1 . <Entity name: 1a707a8>)。。。。。中的1a707a8



看说明到半夜，也没找到办法


另外如何把 1a707a8 转换为10进制的数。。。
多谢，vlisp 初学者..

alin

1. if ENT is ((-1 . <Entity name: 1a707a8>)。。。。。 (vl-string-right-trim ">" (vl-string-left-trim "<Entity name: " (vl-princ-to-string (cdr (assoc -1 ENT))))) 2. ;Usage: (dec "7ef7cd40") ;-----------------------------------------------------
(defun dec (hex / result idx hexp)
(defun val (x)
(cond ((and (>= x 48) (<= x 57))
(- x 48))
((and (>= x 97) (<= x 102))
(- x 87))
(t
nil)
)
)
(setq idx -1 result 0 hexp t)
(foreach atm (reverse (vl-string->list (strcase hex T)))
(if (val atm)
(setq result (+ result (* (val atm)
(expt 16 (setq idx (1+ idx))))))
(setq hexp nil)
)
)
(if hexp result nil)
)

c_czy

佩服佩服，这么快就解决了


要学的东西太多了。。。。

无痕

要那个有什么用呢？每次打开图形都不一样的


你用handle吧