合并图纸lsp，不能多选，麻烦大佬们帮忙看看

偶尔郁闷

2. 
   
3. (defun c:CD (/ *error* filelst cols colgap rowgap i x y pmax pmin dx dy cdy rows)
   
4.   (vl-load-com)
   
5.   
   
6.   (defun *error* (msg)
   
7.     (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
   
8.       (princ (strcat "\n错误: " msg))
   
9.     )
   
10.     (setvar "CMDECHO" 1)
    
11.     (setvar "OSMODE" 0)
    
12.     (princ)
    
13.   )
    
14. 
    
15.   (defun GetSingleFile (/ fname)
    
16.     (setvar "FILEDIA" 1)
    
17.     (setq fname (getfiled "选择要合并的图纸" "" "dwg;dxf" 1)) ; 0表示单选模式
    
18.     (if fname (list fname))
    
19.   )
    
20. 
    
21.   (setvar "CMDECHO" 0)
    
22.   (command "._UNDO" "_BEGIN")
    
23.   
    
24.   (if (setq filelst (GetSingleFile))
    
25.     (progn
    
26.       (initget 7)
    
27.       (setq cols (getint "\n请输入列数: "))
    
28.       
    
29.       (initget 6)
    
30.       (setq colgap (getdist "\n列间距<10000>: "))
    
31.       (if (not colgap) (setq colgap 10000))
    
32.       
    
33.       (initget 6)
    
34.       (setq rowgap (getdist "\n行间距<10000>: "))
    
35.       (if (not rowgap) (setq rowgap 10000))
    
36.       
    
37.       (setq i 0 x 0 y 0 cdy 0
    
38.             rows (fix (1+ (/ (length filelst) cols)))
    
39.       )
    
40.       
    
41.       (foreach file filelst
    
42.         (if (and (< i (* cols rows)) (findfile file))
    
43.           (progn
    
44.             (princ (strcat "\n正在插入: " (vl-filename-base file)))
    
45.             (command "_.INSERT" file (list x y) "" "" "")
    
46.             
    
47.             (if (entlast)
    
48.               (progn
    
49.                 (vla-getboundingbox (vlax-ename->vla-object (entlast)) 'mi 'ma)
    
50.                 (setq pmax (vlax-safearray->list ma)
    
51.                       pmin (vlax-safearray->list mi)
    
52.                       dx (- (car pmax) (car pmin))
    
53.                       dy (- (cadr pmax) (cadr pmin))
    
54.                 )
    
55.                 (if (> dy cdy) (setq cdy dy))
    
56.                
    
57.                 (setq i (1+ i))
    
58.                 (if (= (rem i cols) 0)
    
59.                   (setq x 0 y (- y cdy rowgap) cdy 0)
    
60.                   (setq x (+ x dx colgap))
    
61.                 )
    
62.               )
    
63.             )
    
64.           )
    
65.         )
    
66.       )
    
67.       (princ (strcat "\n成功插入 " (itoa i) " 个文件"))
    
68.     )
    
69.     (princ "\n取消文件选择")
    
70.   )
    
71.   
    
72.   (command "._UNDO" "_END")
    
73.   (princ)
    
74. )
    

<br /> (defun c:CD (/ *error* filelst cols colgap rowgap i x y pmax pmin dx dy cdy rows)<br />   (vl-load-com)<br />   <br />   (defun *error* (msg)<br />     (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))<br />       (princ (strcat "\n错误: " msg))<br />     )<br />     (setvar "CMDECHO" 1)<br />     (setvar "OSMODE" 0)<br />     (princ)<br />   )<br /> <br />   (defun GetSingleFile (/ fname)<br />     (setvar "FILEDIA" 1)<br />     (setq fname (getfiled "选择要合并的图纸" "" "dwg;dxf" 1)) ; 0表示单选模式<br />     (if fname (list fname))<br />   )<br /> <br />   (setvar "CMDECHO" 0)<br />   (command "._UNDO" "_BEGIN")<br />   <br />   (if (setq filelst (GetSingleFile))<br />     (progn<br />       (initget 7)<br />       (setq cols (getint "\n请输入列数: "))<br />       <br />       (initget 6)<br />       (setq colgap (getdist "\n列间距<10000>: "))<br />       (if (not colgap) (setq colgap 10000))<br />       <br />       (initget 6)<br />       (setq rowgap (getdist "\n行间距<10000>: "))<br />       (if (not rowgap) (setq rowgap 10000))<br />       <br />       (setq i 0 x 0 y 0 cdy 0 <br />             rows (fix (1+ (/ (length filelst) cols)))<br />       )<br />       <br />       (foreach file filelst<br />         (if (and (< i (* cols rows)) (findfile file))<br />           (progn<br />             (princ (strcat "\n正在插入: " (vl-filename-base file)))<br />             (command "_.INSERT" file (list x y) "" "" "")<br />             <br />             (if (entlast)<br />               (progn<br />                 (vla-getboundingbox (vlax-ename->vla-object (entlast)) 'mi 'ma)<br />                 (setq pmax (vlax-safearray->list ma)<br />                       pmin (vlax-safearray->list mi)<br />                       dx (- (car pmax) (car pmin))<br />                       dy (- (cadr pmax) (cadr pmin))<br />                 )<br />                 (if (> dy cdy) (setq cdy dy))<br />                 <br />                 (setq i (1+ i))<br />                 (if (= (rem i cols) 0)<br />                   (setq x 0 y (- y cdy rowgap) cdy 0)<br />                   (setq x (+ x dx colgap))<br />                 )<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (princ (strcat "\n成功插入 " (itoa i) " 个文件"))<br />     )<br />     (princ "\n取消文件选择")<br />   )<br />   <br />   (command "._UNDO" "_END")<br />   (princ)<br /> )<br />

ai生成得，有大佬帮忙看下不 哪里的问题 现在选择文件只能单选无法多选。谢谢

liuhe

lisp原生不支持多选

wwwswallow

可以用opendcl的选择框，大海哥等大神都分享过多选对话框，可以自行搜索。

dcl1214

帮你找ai的错误？

Andyhon

借力Doslib--->dos_getfilem

Example
Command: (dos_getfilem "Select a file" "C:\\Program Files\\Autocad 2010\\" "Drawing files (*.dwg)|*.dwg|All files (*.*)|*.*||")

("C:\\Program Files\\AutoCAD 2010\\Sample\\" "A-01.dwg" "A-02.dwg" "A-03.dwg" "A-04.dwg" "A-05.dwg")