请教高手，如何用lsp添加布局？

_rocky

如题！
我试了下用command命令没实现，不知道能用LSP实现不？

_rocky

自己顶一个 高手快来

Gu_xl

_rocky 发表于 2012-6-5 19:50
自己顶一个 高手快来

(VL-CATCH-ALL-APPLY 'vla-add (list (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) "新布局"))

_rocky

Gu_xl 发表于 2012-6-5 20:19
(VL-CATCH-ALL-APPLY 'vla-add (list (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object) ...

这个只是添加了一个新布局吧?
我还想知道如何把 模型空间 比如 （0,0,0） （84100,59400,0）区域的视口添加到布局 这个如何实现呢？

smartstar

同样求解。

smartstar

顶上去，沉得太深了。

328302216

继续来顶！顶到高手来！

xiaxiang

2. ;; lay = 新的布局名称，如果没有则创建(string)
   
3. (defun CopytoLayout (lay / ss NewLay ObjLst)
   
4.   (vl-load-com)
   
5.   (setq *acad* (cond (*acad*) ((vlax-get-acad-object)))
   
6.         *adoc* (cond (*adoc*) ((vla-get-ActiveDocument *acad*))))
   
7.   (cond (  (not (snvalid lay)))
   
8.         (  ;(ssget)
   
9.                     (ssget "c"'(0 0 0) '(84100 59400 0))
   
10.            (vlax-for obj (setq ss (vla-get-ActiveSelectionSet *adoc*))
    
11.              (setq ObjLst (cons Obj ObjLst)))         
    
12.            (vla-delete ss)
    
13.            (if (vl-catch-all-error-p
    
14.                  (setq NewLay (vl-catch-all-apply
    
15.                                 (function vla-item)
    
16.                                   (list (vla-get-Layouts *adoc*) lay))))
    
17.               (setq NewLay (vla-Add (vla-get-Layouts *adoc*) lay)))
    
18.            (vla-CopyObjects *adoc*
    
19.               (vlax-make-variant
    
20.                (vlax-safearray-fill
    
21.                  (vlax-make-safearray vlax-vbObject
    
22.                    (cons 0 (1- (length ObjLst))))
    
23.                     (reverse ObjLst)))
    
24.               (vla-get-Block NewLay)
    
25.                         )
    
26.                 )
    
27.         )
    
28. )
    
29. 
    
30. (CopytoLayout "layout_1")

;; lay = 新的布局名称，如果没有则创建(string)<br /> (defun CopytoLayout (lay / ss NewLay ObjLst)<br />   (vl-load-com)<br />   (setq *acad* (cond (*acad*) ((vlax-get-acad-object)))<br />         *adoc* (cond (*adoc*) ((vla-get-ActiveDocument *acad*))))<br />   (cond (  (not (snvalid lay)))<br />         (  ;(ssget)<br />                     (ssget "c"'(0 0 0) '(84100 59400 0))<br />            (vlax-for obj (setq ss (vla-get-ActiveSelectionSet *adoc*))<br />              (setq ObjLst (cons Obj ObjLst)))         <br />            (vla-delete ss)<br />            (if (vl-catch-all-error-p<br />                  (setq NewLay (vl-catch-all-apply<br />                                 (function vla-item)<br />                                   (list (vla-get-Layouts *adoc*) lay))))<br />               (setq NewLay (vla-Add (vla-get-Layouts *adoc*) lay)))<br />            (vla-CopyObjects *adoc*<br />               (vlax-make-variant<br />                (vlax-safearray-fill<br />                  (vlax-make-safearray vlax-vbObject<br />                    (cons 0 (1- (length ObjLst))))<br />                     (reverse ObjLst)))<br />               (vla-get-Block NewLay)<br />                         )<br />                 )<br />         )<br /> )<br /> <br /> (CopytoLayout "layout_1")

革天明

xiaxiang 发表于 2013-1-10 09:18

$ (CopytoLayout "layout21")
nil

不能成功