(XD::List->String)表转字符串


http://bbs.xdcad.net/thread-708902-1-1.html

程序代码:

(defun XD::List->String ( lst del )
    (if (cdr lst)
        (strcat (vl-princ-to-string (car lst)) del (XD::List->String (cdr lst) del))
        (vl-princ-to-string (car lst))
    )
)




图名入框



欢迎关注微信公众账号ByCAD