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

xyz518mm

[求助]：[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) ;这样呼叫出了问题?

ll_j

(CNT 6 PT2 pt) 中 PT2 应该为字符串，如果不是变量，至少应该有一组引号。

xyz518mm

(CNT 6 "PT2" pt)  这样吗?

xyp1964

2. [FONT=courier new](defun CNT (NUMBER POINT:NB POINT / TXT)
   
3.   (setq        NUMBER (itoa NUMBER)
   
4.         txt    (strcat NUMBER ":" POINT:NB)
   
5.   )
   
6.   (setvar "cecolor" NUMBER)
   
7.   (command "_.point" POINT)
   
8.   (command "_.text"
   
9.            "j"
   
10.            "bc"
    
11.            (polar POINT (* pi 1.5) 30)
    
12.            "15"
    
13.            "0"
    
14.            txt
    
15.   )
    
16. )
    
17. 
    
18. (CNT 6 "PT2" (getpoint "\n point:"))[/FONT]

[FONT=courier new](defun CNT (NUMBER POINT:NB POINT / TXT)<br />   (setq        NUMBER (itoa NUMBER)<br />         txt    (strcat NUMBER ":" POINT:NB)<br />   )<br />   (setvar "cecolor" NUMBER)<br />   (command "_.point" POINT)<br />   (command "_.text"<br />            "j"<br />            "bc"<br />            (polar POINT (* pi 1.5) 30)<br />            "15"<br />            "0"<br />            txt<br />   )<br /> )<br /> <br /> (CNT 6 "PT2" (getpoint "\n point:"))[/FONT]

xyz518mm

感谢版主的修正,
另再请教一个问题,
如果我想将 (CNT 6 "PT2" (getpoint "\n point:")) 改成抓取设定的变数名称,
如 (setq pt (getpoint "\n point:")) 中的 pt 变数名称转为字串,
带入此格式 (CNT NUMBER POINT:NB POINT/ TXT) 中的 POINT:NB ,
那该怎样处理呢?
烦请各位高手解答一下
谢谢~