带单引号的变量怎样传递，是什么类型的
;;*****************************************;;函数名：PUT_ENT_P2（ActiveX方式）
;;描述：更新对象属性
;;参数：ent——对象
;; index——属性索引值
;; newdata——值新
;;返回值：对象
;;*****************************************
(defun PUT_ENT_P2 (ent index newdata / #objectxobjres)
(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，不知道的是什么类型，传递也不正确
哪位高手看下，是怎么回事
直接传送"color" 字符串或符号皆可 "color" or 'color 谢谢楼上，问题解决了
页:
[1]