[求助]：[0222]请问函数中带有实数及字串或其他格式问题?

vken7az2p

[求助]：[0222]请问函数中带有实数及字串或其他格式问题?

请问如果要个呼叫函数中,呼叫值可以带有实数及字串或其他格式时,
此函数该怎样撰写程式呢?
烦请各位高手解答一下
谢谢~

如:
NUMBER => 整数
POINT:NB => 字串
POINT => LIST
(defun CNT (NUMBER POINT:NB POINT / TXT)
(setq NUMBER (itoa NUMBER))
(setq POINT:NB POINT:NB)
(setvar "cecolor" NUMBER)
(command "_.point" POINT)
(setq txt (strcat NUMBER ";" POINT:NB))
(command "_.text" "j" "bc" (polar POINT (angtof "270") 30) "15" "0" txt)
)

(setq pt (getpoint "\n point:"))
(CNT 6 PT2 pt) ;这样呼叫出了问题?

lazybug

(CNT 6 PT2 pt)

这一句中的PT2是什么？是变量的话没有给它赋值，是字串的话应该为“PT2”（漏引号了）

citykunan

程序太乱了：(setq POINT:NB POINT:NB)这一句就不太好了。(command "_.point" POINT)这一句中POINT是什么？(setq pt (getpoint "\n point:"))怎么写在程序之外？

你想要达到什么效果？

vken7az2p

谢谢版主的解答问题以解决了,

但顺便问一下是否有办法将 (setq pt (getpoint "\n point:"))
中的 pt 变数值名称,传入给 (NUMBER POINT:NB POINT / TXT) 中的 POINT:NB
使用呢?有人说要用 (vl-symbol-name  symbol)

_$ (progn (setq sym 'my-var) (vl-symbol-name sym))
"MY-VAR"

但我不太会用,不知道是否可行呢?

另外我这函数只是用来显示做图的点位而已.顺便练习写副程式.