求大神帮忙看看

被承包的东子

我的需求是 通过这个代码 把对象的颜色 修改一下，可是遇到的问题是，在我操作一次之后，再选下一个对象时候，好像这个代码还会把上次选的对象颜色再改一遍，大神能不能帮我看看，能够让程序不重复选择上一个对象。

(defun c:ys()
  (setq dx nil)
(setq dx (entsel))
  (command "change" dx "P" "" "p" "c" "1" "")
  (prin1)
  )

feng83

(defun c:ys(/dx)
(setq dx (entsel))
  (command "change" dx "" "p" "c" "1" "")
  (prin1)
  )

被承包的东子

feng83 发表于 2016-4-23 21:49
(defun c:ys(/dx)
(setq dx (entsel))
  (command "change" dx "" "p" "c" "1" "")

谢谢你，我的问题得到了解决。我自己再好好研究研究 为什么

被承包的东子

被承包的东子 发表于 2016-4-23 21:55
谢谢你，我的问题得到了解决。我自己再好好研究研究 为什么

我明白了，我这个“P” 和后面的“p"不是一个意思，前面一个”p"是重复上一个选择的意思，谢谢