原地copy属性块----------总结

Lispboy

QiaoCheng 发表于 2013-6-3 17:56
我也是Lispboy害的，弄的现在写一个都要考虑下面的原则
原则有ZZQQXX和Lispboy总结出来的
1 ...

别忘了，还有葛老，LL-J老总结的一些

while 代码不要太多，不必要的放循环外面
......

还有发源码帖，必要时候修改成求助;P

Lispboy

还有啊

用 foreach , repeat 改 while 循环，循环里面尽量别判断条件

Free-Lancer

QiaoCheng 发表于 2013-6-3 17:56
我也是Lispboy害的，弄的现在写一个都要考虑下面的原则
原则有ZZQQXX和Lispboy总结出来的
1 ...

总结的很好，但是也不要束缚了手脚，还有一个原则，选用最短的代码解决实际问题，不是每个程序要经常用的

QiaoCheng

呵呵，又多了几条经验

Lispboy

QiaoCheng 发表于 2013-6-3 18:11
呵呵，又多了几条经验

还有啊，表是LISP的灵魂，灵活的构造参数表，事情就成功了大半。

Lispboy

QiaoCheng 发表于 2013-6-3 18:11
呵呵，又多了几条经验

还有啊，表是LISP的灵魂，灵活的构造参数表，事情就成功了大半。

Free-Lancer

在某些应用中还要巧妙的应用实体的生成顺序构造表，尤其在对一些专业软件生成的图进行二次处理时会事半功倍

Lispboy

好像给歪楼了。{:soso_e120:}

牢固

(vlax-map-Collection (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))) 'vla-copy)

/db_自贡黄明儒_

Lispboy 发表于 2013-6-3 17:24
告诉你个方法，G版前几天的帖子写过，好像。

别用ENTMAKE,也别用VLA-COPY方法。

我用(entmakex (entget (car (entsel))))没有成功呀,到底怎么做的说一说呀,你话到嘴边又咽下了.

Lispboy

/db_自贡黄明儒_ 发表于 2013-6-4 08:17
我用(entmakex (entget (car (entsel))))没有成功呀,到底怎么做的说一说呀,你话到嘴边又咽下了.

一个晚上没来，论坛很多好帖子啊，刚在看帖子了。

你去看看我以前发过的一个帖子，窗口选择拷贝XREF里面实体的，有 entmakex vla-transform的用法

http://www.xdcad.net/forum/forum ... 679&pid=3446218

Lispboy

/db_自贡黄明儒_ 发表于 2013-6-4 08:17
我用(entmakex (entget (car (entsel))))没有成功呀,到底怎么做的说一说呀,你话到嘴边又咽下了.

entmakex和entmake不同的地方就是，entmakex生成的实体还没 ownerid，就是不属于任何块表容器，需要你把他“放”好，指定它的 父亲是模型空间，还是图纸空间，还是块。

所以，你entmakex 是看不到结果的。因为还没变成可见的实体。

/db_自贡黄明儒_

Lispboy 发表于 2013-6-4 09:33
entmakex和entmake不同的地方就是，entmakex生成的实体还没 ownerid，就是不属于任何块表容器，需要你把 ...

看了半天,还是没有搞明白,你能不能写一个呀?
下面的办法,但属性丢失了

1. (defun C:w1 (/ LISTENTITYDXF LISTINSERTPOINT STRBLOCKNAME STRENTITYNAME)
   
2.   (defun InsertBlock (strBlockName listInsertPoint floatRotateAngle)
   
3.     (entmake (list '(0 . "INSERT")
   
4.                    '(100 . "AcDbEntity")
   
5.                    '(100 . "AcDbBlockReference")
   
6.                    (cons 2 strBlockName)
   
7.                    (cons 10 listInsertPoint)
   
8.                    (cons 50 floatRotateAngle)
   
9.              )
   
10.     )
    
11.   )
    
12.   (setq strEntityName (car (entsel)))
    
13.   (setq listEntityDXF (entget strEntityName))
    
14.   (setq strBlockName (cdr (assoc 2 listEntityDXF)))
    
15.   (setq listInsertPoint (cdr (assoc 10 listEntityDXF)))
    
16.   (InsertBlock strBlockName listInsertPoint 0)
    
17. )

(defun C:w1 (/ LISTENTITYDXF LISTINSERTPOINT STRBLOCKNAME STRENTITYNAME)<br />   (defun InsertBlock (strBlockName listInsertPoint floatRotateAngle)<br />     (entmake (list '(0 . "INSERT")<br />                    '(100 . "AcDbEntity")<br />                    '(100 . "AcDbBlockReference")<br />                    (cons 2 strBlockName)<br />                    (cons 10 listInsertPoint)<br />                    (cons 50 floatRotateAngle)<br />              )<br />     )<br />   )<br />   (setq strEntityName (car (entsel)))<br />   (setq listEntityDXF (entget strEntityName))<br />   (setq strBlockName (cdr (assoc 2 listEntityDXF)))<br />   (setq listInsertPoint (cdr (assoc 10 listEntityDXF)))<br />   (InsertBlock strBlockName listInsertPoint 0)<br /> )

Lispboy

/db_自贡黄明儒_ 发表于 2013-6-4 17:28
看了半天,还是没有搞明白,你能不能写一个呀?
下面的办法,但属性丢失了

对INSERT实体的entmake,还有个方法啊，比命令也快

vla-insertblock

你也不用担心属性什么的问题，建议用这个替代INSERT的entmake

1. 
   
2. InsertBlock Method
   
3. 
   
4. 
   
5. Inserts a drawing file or a named block that has been defined in the current drawing.
   
6. 
   
7. Signature
   
8. 
   
9. VBA :RetVal = object.InsertBlock(InsertionPoint, Name, Xscale, Yscale, ZScale, Rotation)
   
10. 
    
11. VL : RetVal = (vla-InserBlock object InsertionPoint Name Xscale Yscale ZScale Rotation)
    
12. 
    
13. (vla-InsertBlock mspace ip thename xscale yscale zscale rot)
    
14. 
    
15. Object : ModelSpace, PaperSpace, Block
    
16. The object or objects this method applies to.
    
17. 
    
18. InsertionPoint : Variant (three-element array of doubles); input-only
    
19. The 3D WCS coordinates specifying the location in the drawing to insert the block.
    
20. 
    
21. Name : String; input-only
    
22. The name of the AutoCAD drawing file or the name of the block to insert. If it is a file name, include any path information necessary for AutoCAD to find the file and the .dwg extension.
    
23. 
    
24. Xscale : Double; input-only; optional
    
25. The default equals 1.0. Must be a positive number.
    
26. 
    
27. Yscale : Double; input-only; optional
    
28. The default equals 1.0. Must be a positive number.
    
29. 
    
30. Zscale : Double; input-only; optional
    
31. The default equals 1.0. Must be a positive number.
    
32. 
    
33. Rotation : Double; input-only; optional
    
34. The default equals 0.0 radians.
    
35. 
    
36. RetVal : BlockRef object
    
37. The placed block as a Block Reference object.
    
38. 
    
39. Remarks
    
40. 
    
41. Inserting a block into another block will create nested blocks.
    
42. 
    
43. Attempting to call the InsertBlock method with an uninitialized Name parameter results in unexpected behavior.
    

复制代码

1. ;Example :
   
2. (defun c:al-insertblock ()
   
3.   (vl-load-com)
   
4.   (setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))
   
5.   (setq mspace (vla-get-modelspace thisdrawing))
   
6.   (setq util (vla-get-utility thisdrawing))
   
7.   (setq ip (vla-GetPoint util nil "\nInsertion Point: "))
   
8.   (setq thename (vla-GetString util 1 "\nBlock Name: "))
   
9.   (setq xscale (vla-GetReal util "\nX Scale Factor : "))
   
10.   (setq yscale (vla-GetReal util "\nY Scale Factor : "))
    
11.   (setq zscale (vla-GetReal util "\nZ Scale Factor : "))
    
12.   (setq rot (vla-GetReal util "\nRotation Angle : "))
    
13.   (setq theblock (vla-InsertBlock mspace ip thename xscale yscale zscale rot))
    
14.   (princ)
    
15. )
    

;Example :<br /> (defun c:al-insertblock ()<br />   (vl-load-com)<br />   (setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq mspace (vla-get-modelspace thisdrawing))<br />   (setq util (vla-get-utility thisdrawing))<br />   (setq ip (vla-GetPoint util nil "\nInsertion Point: "))<br />   (setq thename (vla-GetString util 1 "\nBlock Name: "))<br />   (setq xscale (vla-GetReal util "\nX Scale Factor : "))<br />   (setq yscale (vla-GetReal util "\nY Scale Factor : "))<br />   (setq zscale (vla-GetReal util "\nZ Scale Factor : "))<br />   (setq rot (vla-GetReal util "\nRotation Angle : "))<br />   (setq theblock (vla-InsertBlock mspace ip thename xscale yscale zscale rot))<br />   (princ)<br /> )<br />

Lispboy

/db_自贡黄明儒_ 发表于 2013-6-4 17:28
看了半天,还是没有搞明白,你能不能写一个呀?
下面的办法,但属性丢失了

我刚测试了，可以插入啊。 提示的块名，是块定义的名字。