[风之影][讨论]块中图元原位复制

highflybir

byghbcx 发表于 2012-1-6 08:16
高飞鸟写的程序有点像HIGHFILYBIRD的风格，该程序对外部参照、嵌套非等比例块、属性文字等内容暂不支持原位 ...

其实对嵌套非等比例块还是支持的，只不过对非正交变换不支持。

byghbcx

highflybir 发表于 2012-1-6 08:51
其实对嵌套非等比例块还是支持的，只不过对两次以上的非等比变换不支持。

我原来也写过一个，方法原始，没用矩阵转换，但发现对属性文字不支持，近两天修改了一下，支持外部参照、嵌套非等比例块、属性文字。我还有个新想法就是能交互选择嵌套块中的图元、图块提出来。

xshrimp

简单的块内实体复制

1. (defun c:bc (/ e el)
   
2.   (while(and(setq e(nentselp "\n选择块内实体: "))
   
3.               (= (length e) 4)
   
4.          )
   
5.     (setq el (entget (car e)))
   
6.     (entmake el)
   
7.     (vla-transformby
   
8.       (vlax-ename->vla-object (entlast))
   
9.       (vlax-tmatrix (caddr e))
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

(defun c:bc (/ e el)<br />   (while(and(setq e(nentselp "\n选择块内实体: "))<br />               (= (length e) 4)<br />          )<br />     (setq el (entget (car e)))<br />     (entmake el)<br />     (vla-transformby<br />       (vlax-ename->vla-object (entlast))<br />       (vlax-tmatrix (caddr e))<br />     )<br />   )<br />   (princ)<br /> )

xshrimp

再来个稍微复制点的.

1. ;xshrimp 2009.3.13
   
2. (defun c:nn ( / acaddocument acadobject blockobj blockrefobj i mspace n nent obj objent)
   
3. (VL-LOAD-COM)
   
4. (defun make*ublock(obj / blockobj)  
   
5.   (setq blockObj (vla-add (vla-get-Blocks AcadDocument) (vlax-3d-point (list 0 0 0))  "*U" )  )     
   
6.   (vla-CopyObjects AcadDocument
   
7.     (vlax-safearray-fill
   
8.       (vlax-make-safearray vlax-vbObject (cons 0 0) )
   
9.       (list obj)   
   
10.     )
    
11.    blockObj
    
12.   )   
    
13. (vla-delete obj)
    
14. (vla-get-name  blockObj)
    
15. )
    
16. (setq AcadObject (vlax-get-acad-object)
    
17.       AcadDocument (vla-get-ActiveDocument Acadobject)
    
18.       mSpace (vla-get-ModelSpace Acaddocument)
    
19. )
    
20. (if (= (length (setq nent (nentsel))) 4)
    
21. (progn
    
22.   (entmake (entget (car nent)))
    
23.   (setq objent (vlax-ename->vla-object (entlast))i 0)   
    
24.   (foreach n (last nent)  
    
25.   (setq obj (vlax-ename->vla-object n))   
    
26.   (setq blockRefObj
    
27.     ( vla-InsertBlock
    
28.       mSpace
    
29.       (vla-get-InsertionPoint obj)
    
30.       (make*ublock  objent )
    
31.       (vla-get-xScaleFactor   obj)
    
32.       (vla-get-yScaleFactor   obj)
    
33.       (vla-get-zScaleFactor   obj)
    
34.       (vla-get-Rotation       obj)
    
35.     )
    
36.   )
    
37.   (setq i (1+ i))  
    
38.   (if(> i 1)  (command "_.explode" (entlast))  )
    
39.   (setq objent(vlax-ename->vla-object (entlast)))     
    
40.   );end foreach  
    
41. (command "_.explode" (entlast))
    
42. (sssetfirst nil (ssget "p"))  
    
43. )
    
44. )
    
45. (prin1)
    
46. )
    

;xshrimp 2009.3.13<br /> (defun c:nn ( / acaddocument acadobject blockobj blockrefobj i mspace n nent obj objent)<br /> (VL-LOAD-COM)<br /> (defun make*ublock(obj / blockobj)  <br />   (setq blockObj (vla-add (vla-get-Blocks AcadDocument) (vlax-3d-point (list 0 0 0))  "*U" )  )     <br />   (vla-CopyObjects AcadDocument <br />     (vlax-safearray-fill<br />       (vlax-make-safearray vlax-vbObject (cons 0 0) )<br />       (list obj)    <br />     )<br />    blockObj<br />   )    <br /> (vla-delete obj)<br /> (vla-get-name  blockObj) <br /> )<br /> (setq AcadObject (vlax-get-acad-object)<br />       AcadDocument (vla-get-ActiveDocument Acadobject)<br />       mSpace (vla-get-ModelSpace Acaddocument)<br /> )<br /> (if (= (length (setq nent (nentsel))) 4)<br /> (progn<br />   (entmake (entget (car nent)))<br />   (setq objent (vlax-ename->vla-object (entlast))i 0)   <br />   (foreach n (last nent)  <br />   (setq obj (vlax-ename->vla-object n))    <br />   (setq blockRefObj <br />     ( vla-InsertBlock <br />       mSpace <br />       (vla-get-InsertionPoint obj)<br />       (make*ublock  objent ) <br />       (vla-get-xScaleFactor   obj)<br />       (vla-get-yScaleFactor   obj)<br />       (vla-get-zScaleFactor   obj)<br />       (vla-get-Rotation       obj)<br />     )<br />   )<br />   (setq i (1+ i))  <br />   (if(> i 1)  (command "_.explode" (entlast))  )<br />   (setq objent(vlax-ename->vla-object (entlast)))     <br />   );end foreach  <br /> (command "_.explode" (entlast))<br /> (sssetfirst nil (ssget "p"))  <br /> )<br /> )<br /> (prin1)<br /> )<br />

自贡黄明儒

高飞鸟 发表于 2012-1-2 23:13
下面的代码不知道可以吗:

我为了画中垂线，须求得块内曲线与曲线在交点处的交角，我发贴求助，没有人回答。原来这么复杂。现在有望解决了。不过，对于块的坐标变换，我仍不是很清楚。

teykmcqh

提出一个改块名问题：图形中有相同名称的块，只想点选其中一个块，改变其块名，而不影响其它的原块名，谁提一下建议吧

teykmcqh

真搞不懂，明明已经登录，可点击下载byghbcx的ncopy.lsp时，还是不断提示登录，无法下载啊！

goubeishu

谢谢楼主分享！

eversky

谢谢各位提供的插件！！

chleiwu

希望高手们继续优化，搞出可框选的来