关于坐标修改

xiaomihu

我在一幅图中有许多坐标，如x-1234,y-3123,现在想把所有的x和y坐标都增加一个增量，请问这个lisp程序怎么写，这些坐标都在一个层里

xiaomihu

我自己有个思路是：先选择所有的文字，判断是否有x-这个字符串，有就增加一个增量，对y坐标也是如此，请问用lisp怎么实现，是否还有更好的算法实现呢

meflying

(defun c:test( / ss i ent ents str num distx disty)
(setq ss (ssget '((0 . "TEXT"))))
(setq distx (getdist "\n输入x增加量:"))
(setq disty (getdist "\n输入y增加量:"))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq ents (entget ent))
(setq str (cdr (assoc 1 ents)))
(cond
((= (substr str 1 1) "x")
(setq num (atof (substr str 3 (strlen str))))
(setq num (+ num distx))
(setq ents (subst (cons 1 (strcat "x-" (rtos num))) (assoc 1 ents) ents))
(entmod ents)
)
((= (substr str 1 1) "y")
(setq num (atof (substr str 3 (strlen str))))
(setq num (+ num disty))
(setq ents (subst (cons 1 (strcat "y-" (rtos num))) (assoc 1 ents) ents))
(entmod ents)
)
)
(setq i (1+ i))
)
(princ)
)