[LISP函数]：Vlisp版批量插图

eachy

2. 
   
3. ;; xd-string_parse xd-getfilse 参见以下连接
   
4. ;;[url]http://www.xdcad.net/forum/forumdisplay.php?s=&forumid=50[/url]
   
5. (defun c:Minsert (/ fl path fn)
   
6.   (setvar "cmdecho" 0)
   
7.   (if (setq fl (xd-string_parse (xd-getfiles) " "))
   
8.     (progn
   
9.       (setq path (car fl)
   
10.             fn         (cdr fl)
    
11.             fn         (mapcar '(lambda (x) (strcat path x)) fn)
    
12.       )
    
13.       (mapcar '(lambda (x) (command ".insert" x '(0. 0. 0.) "1" "" "0"))
    
14.               fn
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

<br /> ;; xd-string_parse xd-getfilse 参见以下连接<br /> ;;[url]http://www.xdcad.net/forum/forumdisplay.php?s=&forumid=50[/url]<br /> (defun c:Minsert (/ fl path fn)<br />   (setvar "cmdecho" 0)<br />   (if (setq fl (xd-string_parse (xd-getfiles) " "))<br />     (progn<br />       (setq path (car fl)<br />             fn         (cdr fl)<br />             fn         (mapcar '(lambda (x) (strcat path x)) fn)<br />       )<br />       (mapcar '(lambda (x) (command ".insert" x '(0. 0. 0.) "1" "" "0"))<br />               fn<br />       )<br />     )<br />   )<br />   (princ)<br /> )

lc88126

运行不了。

xmas45318

是这样的！

lotsnow

感谢论坛与楼主提供知识的学习场所，获得知识的途径比获得的知识还重要

jx2008

运行不了？不会吧，你是怎么运行的？