关于 vla-get-PaperSpace

xsso

我在做插块功能，但正常下没问题但，我突然发现了个问题，当我用新布局的时候，这个命令就不行，所以我发现它只会缓存“模型”和“布局1”（一个布局），当我用“布局2”或者新增的布局时，(vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-acad-object))就会出错，请教这个怎么解决

1. ;;(lyt_bl_insert "名" (getpoint) 1 1 1 0)
   
2. ;;说明:插入块
   
3. ;;参数:block_name:
   
4. ;;返回:ent
   
5. (defun lyt_bl_insert (block_name pt xs ys zs ang / bn doc e2 e1 l-b mspace str)
   
6.   (defun T_220530block (block_name)
   
7.     (vla-insertblock
   
8.       mspace
   
9.       (vlax-3d-point pt)
   
10.       block_name
    
11.       xs
    
12.       ys
    
13.       zs
    
14.       ang
    
15.     )
    
16.   )
    
17.   ;(vl-load-com)
    
18.   ;(vlax-release-object (vlax-get-acad-object))
    
19.   ;(setq doc (cadr(lyt_doc)))
    
20.   (setq str "想插入的文件不存在\n")
    
21.   (setq e1 (entlast))
    
22.   (setq doc (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument));(vla-get-ActiveDocument (vlax-get-acad-object))
    
23.   (if(= 1(vla-get-ActiveSpace doc));(vla-get-ActiveDocument (vlax-get-acad-object))
    
24.     (setq mspace (vla-get-modelspace doc))
    
25.     (setq mspace (vla-get-PaperSpace doc))
    
26.   )
    
27.   (vlax-for block (lyt_vget vla-get-blocks)
    
28.     (setq l-b (cons (vla-get-name block) l-b))
    
29.   )
    
30.   (if(member block_name l-b)
    
31.     (T_220530block block_name)
    
32.     (if (wcmatch block_name "~*.dwg")
    
33.       (if  (findfile block_name);(setq block_name (findfile (strcat block_name ".dwg")))
    
34.         (T_220530block block_name)
    
35.         (progn
    
36.           (setq bn(strcat block_name ".dwg"))
    
37.           (if (findfile bn)
    
38.             (T_220530block bn)
    
39.             (progn
    
40.               (setq bn(strcat block_name ".dxf"))
    
41.               (if (findfile bn)
    
42.                 (T_220530block bn)
    
43.                 (princ str)
    
44.               )
    
45.             )
    
46.           )
    
47.         )
    
48.       )
    
49.       (if (findfile block_name)
    
50.         (T_220530block block_name)
    
51.         (princ str)
    
52.       )
    
53.     )
    
54.   )
    
55.   ;(vl-doc-ref 'vla-get-PaperSpace)
    
56.   ;(vlax-release-object (vla-get-Document (vlax-get-acad-object)))
    
57.   (vlax-release-object doc)
    
58.   (vlax-release-object (vlax-get-acad-object))
    
59.   (setq e2 (entlast))
    
60.   (if (not(equal e1 e2))
    
61.     e2
    
62.     nil
    
63.   )
    
64. )

;;(lyt_bl_insert "名" (getpoint) 1 1 1 0)<br /> ;;说明:插入块<br /> ;;参数:block_name:<br /> ;;返回:ent<br /> (defun lyt_bl_insert (block_name pt xs ys zs ang / bn doc e2 e1 l-b mspace str)<br />   (defun T_220530block (block_name)<br />     (vla-insertblock<br />       mspace<br />       (vlax-3d-point pt)<br />       block_name<br />       xs<br />       ys<br />       zs<br />       ang<br />     )<br />   )<br />   ;(vl-load-com)<br />   ;(vlax-release-object (vlax-get-acad-object))<br />   ;(setq doc (cadr(lyt_doc)))<br />   (setq str "想插入的文件不存在\n")<br />   (setq e1 (entlast))<br />   (setq doc (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument));(vla-get-ActiveDocument (vlax-get-acad-object))<br />   (if(= 1(vla-get-ActiveSpace doc));(vla-get-ActiveDocument (vlax-get-acad-object))<br />     (setq mspace (vla-get-modelspace doc))<br />     (setq mspace (vla-get-PaperSpace doc))<br />   )<br />   (vlax-for block (lyt_vget vla-get-blocks)<br />     (setq l-b (cons (vla-get-name block) l-b))<br />   )<br />   (if(member block_name l-b)<br />     (T_220530block block_name)<br />     (if (wcmatch block_name "~*.dwg")<br />       (if  (findfile block_name);(setq block_name (findfile (strcat block_name ".dwg")))<br />         (T_220530block block_name)<br />         (progn<br />           (setq bn(strcat block_name ".dwg"))<br />           (if (findfile bn)<br />             (T_220530block bn)<br />             (progn<br />               (setq bn(strcat block_name ".dxf"))<br />               (if (findfile bn)<br />                 (T_220530block bn)<br />                 (princ str)<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (if (findfile block_name)<br />         (T_220530block block_name)<br />         (princ str)<br />       )<br />     )<br />   )<br />   ;(vl-doc-ref 'vla-get-PaperSpace)<br />   ;(vlax-release-object (vla-get-Document (vlax-get-acad-object)))<br />   (vlax-release-object doc)<br />   (vlax-release-object (vlax-get-acad-object))<br />   (setq e2 (entlast))<br />   (if (not(equal e1 e2))<br />     e2<br />     nil<br />   )<br /> )

xsso

见鬼了，怪不得没人回复，出现这个估计是个别情况