entmake创建问题

张大锤

(entmake (list '(0 . "TEXT") '(10 29080.2 30.1374 0.0) '(7 . "ＭＳＰ明朝") '(62 . 3) '(40 . 150.0) (cons 1 (ITOA (SSLENGTH ss)))))
这么读取数量 创建文字OK

但是我想把座标写出来 读取10 是错误的
(entmake (list '(0 . "TEXT") '(10 20925.0 -4478.22 0.0) '(7 . "ＭＳＰ明朝") '(62 . 3) '(40 . 150.0)
(cons 1 (cdr (assoc 10 (entget (ssname ss 0)))))))

(cons 1 (cdr (assoc 10 (entget (ssname ss 0)))))))这里要怎么写额 这么读出来的10 用不了
有朋友知道用什么函数(19920.4 -4142.92 0.0)变换成"19920.4 -4142.92 0.0 "吗?

张大锤

這麼尷尬嗎....

masterlong

strcat  rtos

evayleung

(cdr (assoc 10 (entget (ssname ss 0)))这个出来的结构还是一个表吧，这肯定不行啦，你得把表的坐标变成string才能创建得了吧。

pzweng

(setq str (vl-princ-to-string '(19920.4 -4142.92 0.0)))
(substr str 2 (- (strlen str) 2))

张大锤

evayleung 发表于 2018-7-12 17:02
(cdr (assoc 10 (entget (ssname ss 0)))这个出来的结构还是一个表吧，这肯定不行啦，你得把表的坐标变成s ...

对啊 说的就是怎么变啊

张大锤

pzweng 发表于 2018-7-12 17:03
(setq str (vl-princ-to-string '(19920.4 -4142.92 0.0)))
(substr str 2 (- (strlen str) 2))

谢谢版主 可以使用

namezg

(setq lst (mapcar 'vl-princ-to-string '(1.0 2.0 3.0)))
;方法1
(setq str (strcat (car lst) " " (cadr lst) " " (caddr lst)))
;方法2
(setq str (strcat (car lst) " " (cadr lst) " " (last lst)))
;方法3
(setq str (strcat (nth 0 lst) " " (nth 1 lst) " " (nth 2 lst)))
;方法4
(setq str (apply 'strcat (mapcar 'strcat lst '(" " " " ""))))