矩阵变换从图块中原位拷贝出实体的VLISP代码

Lisphk

下面代码能从图块中，原位复制出一个LWPOLYLINE实体。
vla-transformby, vlax-tmatrix 矩阵变换的VLISP用法。

1. (defun c:tt (/ e new)
   
2.   (if (and
   
3.         (setq e (nentselp "\n选取图块中的 LWPolyline: "))
   
4.         (eq (length e) 4)
   
5.         (eq (cdr (assoc 0 (entget (car e)))) "LWPOLYLINE")
   
6.         (setq new (entmakex (entget (car e))))
   
7.       )
   
8.     (vla-transformby (vlax-ename->vla-object new) (vlax-tmatrix
   
9.                                                                 (caddr e)
   
10.                                                   )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    
15. 
    

(defun c:tt (/ e new)<br />   (if (and<br />         (setq e (nentselp "\n选取图块中的 LWPolyline: "))<br />         (eq (length e) 4)<br />         (eq (cdr (assoc 0 (entget (car e)))) "LWPOLYLINE")<br />         (setq new (entmakex (entget (car e))))<br />       )<br />     (vla-transformby (vlax-ename->vla-object new) (vlax-tmatrix<br />                                                                 (caddr e)<br />                                                   )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

longer1000

支持源码

HLCAD

这个功能很实用，记得EXPRESS中有一个原位COPY（命令NC）功能。

cable2004

源码看看，有用！

yoyoho

感谢分享!支持源码!

gdslqs

这是个好例子

Highflybird

嵌套的呢？就是套了几层的东西。

Lispboy

Highflybird 发表于 2016-9-12 16:58
嵌套的呢？就是套了几层的东西。

测试了， 楼主的代码嵌套的也可以。

ssyfeng

不等比例的块不行

434939575

大师这个怎样把块内东西全部复制一次，图元很多的块比例变换后有的炸不开，想所有复制一次。谢谢！

sicky111

不等比例的块不行！！

caoliu023

感觉任督二脉打通了一脉，感谢楼主分享