带单引号的变量怎样传递，是什么类型的

54256

;;*****************************************
;;函数名：PUT_ENT_P2（ActiveX方式）
;;描述：更新对象属性
;;参数：ent——对象
;;      index——属性索引值
;;      newdata——值新
;;返回值：对象
;;*****************************************
(defun PUT_ENT_P2 (ent index newdata / #object  xobj  res)
(vl-load-com)
(setq #object  (car ent))
(setq xobj (vlax-ename->vla-object #object))
(setq res (vlax-put-property xobj index newdata))
(vlax-release-object xobj)
res
)
;;DEMO
(defun c:D4( / en)
(setq en  (entsel "选择对象颜色改为6:"))
(PUT_ENT_P2 en "\'color" 6)
(princ)
)


要传递的是'color，不知道的是什么类型，传递也不正确
哪位高手看下，是怎么回事

danxingpen

直接传送"color"

淮上

字符串或符号皆可 "color" or 'color

54256

谢谢楼上，问题解决了