疑惑：DXF组码与Car，Cdr的配合使用？

meflying

可能是那个’用了全角，看你以前问的那些问题，这个你应该能明白的啊。

runkeji

(ssname  "选择集" 0)为什么会出错。
而(defun c:test(/ tt t1 t2)
  (setq tt (entget(car(entsel ""))))
  (setq t1 (cdr (assoc 1 tt)))
  (setq z (atof t1))
  (setq t2 (- z 0.5 ))
  (setq z (rtos t2 ))
  (setq tt (subst (cons 1 z)(assoc 1 tt ) tt))
  (entmod tt)
  (princ)
  )
可以运行

meflying

如果你的选择集是空的，当然就会错了。
看了你很多的提问， 知道你对这个很用心，不过你的方法似乎不是很对， 很多问题你自己应该多琢磨琢磨的，有些东西不是很困难，只要你多测试一下就可以找出问题的。
自己琢磨多了，对自己提高才会有帮助。

runkeji

对于程序的大意没搞清，现在调好了。