留存一个CopyObjects原地做快方法

Free-Lancer · 发表于 2014-3-1 11:13:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun Block:Add (bn ss / el bp)
(if (not (tblsearch "Block" bn))
(progn
(vla-add (fy:acblocks) (vlax-3d-point '(0. 0. 0.)) bn)
(setq el (ss->objs ss)
bp (car
(pnts:box (apply 'append
(mapcar '(lambda (x / up bp)
(vla-getboundingbox x 'up 'bp)
(list (safearray-value up)
(safearray-value bp)
)
)
el
)
)
)
)
)
(vl-cmdf "move" ss "" bp '(0. 0. 0.))
(vla-copyobjects
(fy:acdoc)
(list->variantarray
el
vlax-vbobject
)
(vla-item (fy:acblocks) bn)
)
(vl-cmdf ".erease" ss "")
(vla-insertblock
(fy:acspace)
(vlax-3d-point bp)
bn
1.
1.
1.
0.
)
)
)
)

(defun Block:Add (bn ss / el bp) 
  (if (not (tblsearch "Block" bn)) 
    (progn 
      (vla-add (fy:acblocks) (vlax-3d-point '(0. 0. 0.)) bn) 
      (setq el (ss->objs ss) 
            bp (car 
                 (pnts:box (apply 'append 
                                  (mapcar '(lambda (x / up bp) 
                                             (vla-getboundingbox x 'up 'bp) 
                                             (list (safearray-value up) 
                                                   (safearray-value bp) 
                                             ) 
                                           ) 
                                          el 
                                  ) 
                           ) 
                 ) 
               ) 
      ) 
      (vl-cmdf "move" ss "" bp '(0. 0. 0.)) 
      (vla-copyobjects 
        (fy:acdoc) 
        (list->variantarray 
          el 
          vlax-vbobject 
        ) 
        (vla-item (fy:acblocks) bn) 
      ) 
      (vl-cmdf ".erease" ss "") 
      (vla-insertblock 
        (fy:acspace) 
        (vlax-3d-point bp) 
        bn 
        1. 
        1. 
        1. 
        0. 
      ) 
    ) 
  ) 
)

ysq101 · 发表于 2014-3-1 17:52:33

大师。。。。。要不来个中文介绍？？
或来点函数用法吧。。。
新手表示看不懂啊

账号		自动登录	找回密码
密码			立即注册

[教学] 留存一个CopyObjects原地做快方法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分