[求助]如何才能用VL创建一个现存的Layout的Copy ?

e2002

发现一个问题:
layout命令生成的NewLayout保持了和SourceLayout相同的系统变量psltscale的值
程序生成的NewLayout如果不作一些工作,系统变量psltscale的值是系统默认值1

这看起来系统变psltscale是随Layout对象保存的?
如果是,Layout对象怎么没有这个属性?也就是没有方法通过Layout对象来设定这个值?

龙龙仔

再試試看

2. 
   
3. ;|
   
4. (setq *ACADOBJECT* (vlax-get-acad-object))
   
5. (setq *CDOC* (vla-get-activedocument *ACADOBJECT*))
   
6. (setq *SOURCELAYOUT* (vla-get-activelayout *CDOC*))
   
7. (setq SNEWLAYOUTNAME "LAI")
   
8. (setq *LAYOUTS* (vla-get-layouts *CDOC*))
   
9. |;
   
10. 
    
11. ;;(LKPT:LAYOUT:MULTICOPY:COPYFROM *SOURCELAYOUT* SNEWLAYOUTNAM)
    
12. 
    
13. (defun LKPT:LAYOUT:MULTICOPY:COPYFROM (SOURCELAYOUT SNEWLAYOUTNAM)
    
14.   (setq        SOURCELAYOUTBLOCK
    
15.          (vla-get-block SOURCELAYOUT)
    
16. ;;; iCount (vla-get-Count SourceLayoutBlock)
    
17. ;;; SourceLayoutBlock-Objects-list '()
    
18.   )
    
19. ;;;  (vlax-for item SourceLayoutBlock
    
20. ;;;    (setq SourceLayoutBlock-Objects-list (cons item SourceLayoutBlock-Objects-list))
    
21. ;;;  )
    
22.   (setq        NEWLAYOUT      (vla-add *LAYOUTS* SNEWLAYOUTNAME)
    
23.         NEWLAYOUTBLOCK (vla-get-block NEWLAYOUT)
    
24.   )
    
25. ;;;  (vla-copyobjects
    
26. ;;;    CDoc
    
27. ;;;    (vlax-safearray-fill
    
28. ;;;      (vlax-make-safearray
    
29. ;;; vlax-vbobject
    
30. ;;; (cons 0 (1- iCount))
    
31. ;;;      )
    
32. ;;;      SourceLayoutBlock-Objects-list
    
33. ;;;    )
    
34. ;;;    NewLayoutBlock
    
35. ;;;  )
    
36. 
    
37.   (vlax-for ITEM SOURCELAYOUTBLOCK
    
38.     (vla-copyobjects
    
39.       *CDOC*
    
40.       (vlax-safearray-fill
    
41.         (vlax-make-safearray vlax-vbobject '(0 . 0))
    
42.         (list ITEM)
    
43.       )
    
44.       NEWLAYOUTBLOCK
    
45.     )
    
46.   )
    
47. 
    
48.   (vla-copyfrom NEWLAYOUT SOURCELAYOUT)
    
49.   (mapcar 'vlax-release-object
    
50.           (list SOURCELAYOUTBLOCK NEWLAYOUTBLOCK NEWLAYOUT)
    
51.   )
    
52. )
    
53. 
    

<br /> ;|<br /> (setq *ACADOBJECT* (vlax-get-acad-object))<br /> (setq *CDOC* (vla-get-activedocument *ACADOBJECT*))<br /> (setq *SOURCELAYOUT* (vla-get-activelayout *CDOC*))<br /> (setq SNEWLAYOUTNAME "LAI")<br /> (setq *LAYOUTS* (vla-get-layouts *CDOC*))<br /> |;<br /> <br /> ;;(LKPT:LAYOUT:MULTICOPY:COPYFROM *SOURCELAYOUT* SNEWLAYOUTNAM)<br /> <br /> (defun LKPT:LAYOUT:MULTICOPY:COPYFROM (SOURCELAYOUT SNEWLAYOUTNAM)<br />   (setq        SOURCELAYOUTBLOCK<br />          (vla-get-block SOURCELAYOUT)<br /> ;;; iCount (vla-get-Count SourceLayoutBlock)<br /> ;;; SourceLayoutBlock-Objects-list '()<br />   )<br /> ;;;  (vlax-for item SourceLayoutBlock<br /> ;;;    (setq SourceLayoutBlock-Objects-list (cons item SourceLayoutBlock-Objects-list))<br /> ;;;  )<br />   (setq        NEWLAYOUT      (vla-add *LAYOUTS* SNEWLAYOUTNAME)<br />         NEWLAYOUTBLOCK (vla-get-block NEWLAYOUT)<br />   )<br /> ;;;  (vla-copyobjects<br /> ;;;    CDoc<br /> ;;;    (vlax-safearray-fill<br /> ;;;      (vlax-make-safearray<br /> ;;; vlax-vbobject<br /> ;;; (cons 0 (1- iCount))<br /> ;;;      )<br /> ;;;      SourceLayoutBlock-Objects-list<br /> ;;;    )<br /> ;;;    NewLayoutBlock<br /> ;;;  )<br /> <br />   (vlax-for ITEM SOURCELAYOUTBLOCK<br />     (vla-copyobjects<br />       *CDOC*<br />       (vlax-safearray-fill<br />         (vlax-make-safearray vlax-vbobject '(0 . 0))<br />         (list ITEM)<br />       )<br />       NEWLAYOUTBLOCK<br />     )<br />   )<br /> <br />   (vla-copyfrom NEWLAYOUT SOURCELAYOUT)<br />   (mapcar 'vlax-release-object<br />           (list SOURCELAYOUTBLOCK NEWLAYOUTBLOCK NEWLAYOUT)<br />   )<br /> )<br /> <br />

e2002

这个CopyObjects不是复制多个对象吗?
怎么不能把多个对象fill到SafeArray中来作呢?
一定要一个一个来for ?

龙龙仔

;;TRY因看來也不會比較快!

2. 
   
3. (defun TTT (NEWLAYOUTNAME)
   
4.   (setq ACADOBJECT (vlax-get-acad-object))
   
5.   (setq CDOC (vla-get-activedocument ACADOBJECT))
   
6.   (setq LAYOUTS (vla-get-layouts CDOC))
   
7.   (setq CLAYOUT (vla-get-activelayout CDOC))
   
8.   (setq CLAYOUT_BLK (vla-get-block CLAYOUT))
   
9.   (setq NEWLAYOUT (vla-add LAYOUTS NEWLAYOUTNAME))
   
10.   (setq NEWLAYOUT_BLK (vla-get-block NEWLAYOUT))
    
11.   (setq ELIST '())
    
12.   (setq        SSARRAY        (vlax-safearray-fill
    
13.                   (vlax-make-safearray
    
14.                     vlax-vbobject
    
15.                     (cons 0 (- (vla-get-count CLAYOUT_BLK) 1))
    
16.                   )
    
17.                   (vlax-for ENT        CLAYOUT_BLK
    
18.                     (setq ELIST (cons ENT ELIST))
    
19.                   )
    
20.                 )
    
21.   )
    
22.   (vla-copyobjects CDOC SSARRAY NEWLAYOUT_BLK)
    
23.   (vla-copyfrom NEWLAYOUT CLAYOUT)
    
24.   (princ)
    
25. )
    

<br /> (defun TTT (NEWLAYOUTNAME)<br />   (setq ACADOBJECT (vlax-get-acad-object))<br />   (setq CDOC (vla-get-activedocument ACADOBJECT))<br />   (setq LAYOUTS (vla-get-layouts CDOC))<br />   (setq CLAYOUT (vla-get-activelayout CDOC))<br />   (setq CLAYOUT_BLK (vla-get-block CLAYOUT))<br />   (setq NEWLAYOUT (vla-add LAYOUTS NEWLAYOUTNAME))<br />   (setq NEWLAYOUT_BLK (vla-get-block NEWLAYOUT))<br />   (setq ELIST '())<br />   (setq        SSARRAY        (vlax-safearray-fill<br />                   (vlax-make-safearray<br />                     vlax-vbobject<br />                     (cons 0 (- (vla-get-count CLAYOUT_BLK) 1))<br />                   )<br />                   (vlax-for ENT        CLAYOUT_BLK<br />                     (setq ELIST (cons ENT ELIST))<br />                   )<br />                 )<br />   )<br />   (vla-copyobjects CDOC SSARRAY NEWLAYOUT_BLK)<br />   (vla-copyfrom NEWLAYOUT CLAYOUT)<br />   (princ)<br /> )<br />

e2002

e2002发表于2003-9-17 16:40:00发现一个问题:
layout命令生成的NewLayout保持了和SourceLayout相同的系统变量psltscale的值
程序生成的NewLayout如果不作一些工作,系统变量psltscale的值是系统默认值1

这看起来系统变

看书上这一节终于明白了....
"AutoCAD 2000 对象开发从入门到精通" 真是绝版好书!
原版书名 ：　Mastering AutoCAD 2000 Objects
作者 : Dietmar Rudolph
书号 : isbn7-5053-6172-4/TP.3312

自贡黄明儒

顶起来 ，这么好的东西不能被人遗忘了。

liuhaixin88

自贡黄明儒 发表于 2014-10-23 14:08
顶起来 ，这么好的东西不能被人遗忘了。

呵呵，黄大哥又发现好东西了，具体有什么作用呢？