如何获取块内DOTE图层上全部图元并在块外同样位置新建同样的图元

845245015

如何获取块内DOTE图层上全部图元并在块外同样位置新建同样的图元

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:如何获取块内DOTE图层上全部图元并在块外同样位置新建同样的图元.rar 
下载次数:4  文件大小:76.25 KB 
下载权限: 不限 以上  [免费赚D豆]

marting

API , lisp要很多代码了

1. (defun c:tt ()
   
2.   (if (and (setq
   
3.              e1        (car (xdrx-entsel "\n选择图块<退出>:" '((0 . "insert"))))
   
4.            )
   
5.            (setq ents (xdrx-block-getentities e1 '((8 . "dote"))))
   
6.       )
   
7.     (progn (setq ss (xdrx-entity-copy ents))
   
8.            (xd::drag:move "\n插入点:" ss 5 7)
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )
    
13. 
    

(defun c:tt ()<br />   (if (and (setq<br />              e1        (car (xdrx-entsel "\n选择图块<退出>:" '((0 . "insert"))))<br />            )<br />            (setq ents (xdrx-block-getentities e1 '((8 . "dote"))))<br />       )<br />     (progn (setq ss (xdrx-entity-copy ents))<br />            (xd::drag:move "\n插入点:" ss 5 7)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

marting

LISP用 copyobjects方法

• CopyObjects将现有图块复制为新名称图块
  4 个回复 - 436 次查看
  _$ (cpblk "1" "2")
  2017-3-22 09:39 - st788796 - A/VLISP
• VB.NET下CopyObjects的使用出错
  4 个回复 - 1419 次查看
  Private Sub test() On Error Resume Next Dim blockObj As AcadBlock Dim insertionPnt(0 To 2) As Double Dim circleObj As AcadCircle Dim center(0 To 2) As Doub ...
  2014-11-24 20:23 - zzol9970 - VB.NET/C#
• 请教关于CopyObjects
  0 个回复 - 1200 次查看
  想把另一个文件中的块定义BLOCK,在需要时复制到本文档中，因为中望CAD不支持ARX，所以就想用CopyObjects来实现。 请各位大大帮俺看看，谢谢！！！
  2014-5-11 13:59 - dmdzf - VBA、COM-ActiveX
• 留存一个CopyObjects原地做快方法
  1 个回复 - 830 次查看
  
  
  2014-3-1 11:13 - Free-Lancer - A/VLISP
• [求助]：如何把本图中的BLOCK用VLA-COPYOBJECTS拷贝到另一张图
  2 个回复 - 589 次查看
  (defun Dbx-CopyBlockTo (DwgName BlkName / blocks dbxDoc *ACAD* blk AcadDocument curblocks) (setq *acad* (vlax-get-acad-object) AcadDocument(vla-get-ActiveDocument *acad*) curblocks(vla-get-bloc ...
  2008-5-7 16:53 - LADESIGNER - A/VLISP
• [求助]：vla-copyobjects 怎么没办法拷贝标注?
  8 个回复 - 1005 次查看
  vla-copyobjects 怎么没办法拷贝标注? 其他的比如块都正常,就标注不行,有谁试过可以吗?
  2006-10-11 23:23 - aeo - A/VLISP
• [VBA程序]：用CopyObjects拷贝对象到块中
  1 个回复 - 702 次查看
  在VBA中可以用CopyObjects方法将对象拷贝到块中。 运用此方法可以进行块的重定义等。 函数原型：RetVal = object.CopyObjects(Objects[, Owner][, IDPairs]) Object：文档对象 Objects：要拷 ...
  2002-11-5 13:06 - efan2000 - VBA、COM-ActiveX
  
  

WhoCanSay

lisp也不复杂，拷贝一个块，改名，删除不
要的东西

dnbcgrass

(defun c:cc()
    (If (setq ssa (ssget ":S" '((0 . "insert"))))
        (progn
             (setq obj (vlax-ename->vla-object (ssname ssa 0)))
             (setq inpt0 (vlax-get obj "InsertionPoint"))
             (If (setq inpt1 (getpoint inpt0 "\n插入点:"))
                 (progn
                     (setq newobj (vla-copy obj))
                     (vla-move newobj (vlax-3d-point inpt0) (vlax-3d-point inpt1))
                     (setq objs (vla-Explode newobj))
                     (vla-delete newobj)
                     (foreach newobj (vlax-safearray->list (vlax-variant-value objs))
                         (if (equal  (strcase (vlax-get-property newobj "Layer")) "DOTE")
                             (vla-delete newobj)
                         )

                     )
                 )
             )
        )
     )      
     (princ)
)

aisong220