程序代码: |
(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))
)
)
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! |
|
-博客论坛-|-﨣﨤﨧﨨- -网站导航-|-规范下载- -BelovedFLash欣赏-
|
|
Tiancao Blog All Rights Reserved 田草博客 版权所有 Copyright © |