iedxwxf 发表于 2006-7-2 16:25:00

iedxwxf 发表于 2006-7-2 16:26:00

iedxwxf 发表于 2006-7-2 16:29:00

wangph 发表于 2006-7-2 16:43:00

<P>(vl-symbol-name '123abc)</P>
<P>"123ABC"</P>

秋枫 发表于 2006-7-2 19:37:00

要纯AutoLISP（非vl）的方式，可以先用Princ写入临时文件，再读出，即可变成字串。

ZZXXQQ 发表于 2006-7-4 12:09:00


(DEFUN VL-SYMBOL-NAME (TT)
(SETQ F (OPEN "TEMP.TXT" "w"))
(PRINC TT)
(CLOSE F)
(SETQ F (OPEN "TEMP.TXT" "r")
       TXT (READ-LINE F))
(CLOSE F)
TXT
)

nameld001 发表于 2006-7-4 20:22:00

<P>不知是不是要这样的:</P>
<P>(vl-princ-to-string "123abc")</P>

liu_kunlun 发表于 2006-7-4 20:47:00

(vl-princ-to-string'123abc)

jxlnlsh 发表于 2006-7-7 15:51:00

学习中
页: [1]
查看完整版本: 谁有这个函数 AUTO LISP 的写法