制作匿名块

Free-Lancer

源帖
http://bbs.xdcad.net/forum.php?m ... 652&pid=3123444

1. (defun Nblock (ss pt / i e el blk objs)
   
2.   (setq        i   -1
   
3.         blk (vla-add (fy:acblocks) (vlax-3d-point pt) "*U")
   
4.   ) ;_定义匿名图块)
   
5.   (while (setq e (ssname ss (setq i (1+ i))))
   
6.     (setq el (cons e el))
   
7.   )
   
8.   (setq        objs (vlax-safearray-fill
   
9.                (vlax-make-safearray
   
10.                  vlax-vbobject
    
11.                  (cons 0 (1- (sslength ss)))
    
12.                )
    
13.                (mapcar 'vlax-ename->vla-object el)
    
14.              )
    
15.   )
    
16.   (vla-copyobjects (fy:acdoc) objs blk)
    
17.   (vla-get-name blk)
    
18. )
    
19. ;;(vlax-inovke (fy:acms) 'InsertBlock bname pt 1. 1. 1. 0.)
    

(defun Nblock (ss pt / i e el blk objs)<br />   (setq        i   -1<br />         blk (vla-add (fy:acblocks) (vlax-3d-point pt) "*U")<br />   ) ;_定义匿名图块)<br />   (while (setq e (ssname ss (setq i (1+ i))))<br />     (setq el (cons e el))<br />   )<br />   (setq        objs (vlax-safearray-fill<br />                (vlax-make-safearray<br />                  vlax-vbobject<br />                  (cons 0 (1- (sslength ss)))<br />                )<br />                (mapcar 'vlax-ename->vla-object el)<br />              )<br />   )<br />   (vla-copyobjects (fy:acdoc) objs blk)<br />   (vla-get-name blk)<br /> )<br /> ;;(vlax-inovke (fy:acms) 'InsertBlock bname pt 1. 1. 1. 0.)<br />

/db_自贡黄明儒_

使用匿名块有什么好处呀 ?有名字的块不是更好吗？

牢固

/db_自贡黄明儒_ 发表于 2013-12-20 21:02
使用匿名块有什么好处呀 ?有名字的块不是更好吗？

好处就是块不需要名字！

newer

牢固 发表于 2013-12-20 21:36
好处就是块不需要名字！

神回复。

434939575

我觉得匿名块块比较方便，适合一次性的块块。

friendship12c

正需要，谢谢，学习中

friendship12c

请问 我加载怎么没法使用？

吴外安放

谢谢版主分享

xvjiex

感谢楼主分享制作匿名块