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

/db_自贡黄明儒_ · 发表于 2013-6-3 16:47:45

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

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

×

本帖最后由 /db_自贡黄明儒_ 于 2013-6-14 14:02 编辑

(entmake(entget en)好象不行,各路高手,怎么办?
(vlax-map-collection SS1 'vla-copy);;ss1为vla选择集,好象也不行呢,怎么办?
对以下高手的回复总结如下：

;;(setq en (car (entsel "\n拾取属性块：")))
;;1 command co法(by woman1314)
(command "_.copy" en "" "0,0" "@")
;;2 entmake法(by ll_j)
(defun w2 (en / BOOL ENT NEN)
(setq nen en
bool T
)
(while bool
(entmake (setq ent (entget nen)))
(if (equal (cdr (assoc 0 ent)) "SEQEND")
(setq bool nil)
(setq nen (entnext nen))
)
)
)
;;3 vlax法(by woman1314)
(vlax-invoke-method (vlax-ename->vla-object en) 'Copy)
;;4 vla法(by free-Lancer)
(vla-copy (vlax-ename->vla-object en))
;;5 vla-InsertBlock法(by Lispboy)
(defun w3 (en / IP MSPACE NAME ROT UTIL VLA-EN XSCALE YSCALE ZSCAL)
(setq mspace (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
)
(setq vla-en (vlax-ename->vla-object en))
(setq Name (vla-get-Name vla-en)
ip (vla-get-InsertionPoint vla-en)
xscale (vla-get-XScaleFactor vla-en)
yscale (vla-get-YScaleFactor vla-en)
zscale (vla-get-ZScaleFactor vla-en)
rot (vla-get-Rotation vla-en)
)
(vla-InsertBlock mspace ip Name xscale yscale zscale rot)
)
;;6 选择集法(by Gu_xl)
(defun w4 (ss)
(command "_.select" ss "")
(vlax-map-Collection
(vla-get-ActiveSelectionSet
(vla-get-ActiveDocument (vlax-get-acad-object))
)
'vla-copy
)
)
;;7 entmakex法
未知

;;(setq en (car (entsel "\n拾取属性块："))) 
;;1 command co法(by woman1314) 
(command "_.copy" en "" "0,0" "@") 
 
;;2 entmake法(by ll_j) 
(defun w2 (en / BOOL ENT NEN) 
  (setq  nen en 
  bool T 
  ) 
  (while bool 
    (entmake (setq ent (entget nen))) 
    (if  (equal (cdr (assoc 0 ent)) "SEQEND") 
      (setq bool nil) 
      (setq nen (entnext nen)) 
    ) 
  ) 
) 
 
;;3 vlax法(by woman1314) 
(vlax-invoke-method (vlax-ename->vla-object en) 'Copy) 
 
;;4 vla法(by free-Lancer) 
(vla-copy (vlax-ename->vla-object en)) 
 
;;5 vla-InsertBlock法(by Lispboy) 
(defun w3 (en / IP MSPACE NAME ROT UTIL VLA-EN XSCALE YSCALE ZSCAL) 
  (setq  mspace (vla-get-modelspace 
     (vla-get-activedocument (vlax-get-acad-object)) 
         ) 
  ) 
  (setq vla-en (vlax-ename->vla-object en)) 
  (setq  Name   (vla-get-Name vla-en) 
  ip     (vla-get-InsertionPoint vla-en) 
  xscale (vla-get-XScaleFactor vla-en) 
  yscale (vla-get-YScaleFactor vla-en) 
  zscale (vla-get-ZScaleFactor vla-en) 
  rot    (vla-get-Rotation vla-en) 
  )   
  (vla-InsertBlock mspace ip Name xscale yscale zscale rot) 
) 
 
;;6 选择集法(by Gu_xl) 
(defun w4 (ss) 
  (command "_.select" ss "") 
  (vlax-map-Collection 
    (vla-get-ActiveSelectionSet 
      (vla-get-ActiveDocument (vlax-get-acad-object)) 
    ) 
    'vla-copy 
  ) 
) 
 
;;7 entmakex法 
未知

ll_j · 发表于 2013-6-3 16:56:23

属性块的重心是实体跟随，仅复制一个块是不行的，还需要复制后面跟随的属性ATTRIB，甚至可能还有复制最后的块结束标记。

Lispboy · 发表于 2013-6-3 16:59:17

直接 entmake(entget en) 肯定不行啊，里面的组-1 什么的去掉，不能带着原来的实体名。

ll_j · 发表于 2013-6-3 17:02:50

Lispboy 发表于 2013-6-3 16:59
直接 entmake(entget en) 肯定不行啊，里面的组-1 什么的去掉，不能带着原来的实体名。

entmake是不管那些的，遇到实体名、句柄什么的，都是忽略的。

wowan1314 · 发表于 2013-6-3 17:03:49

本帖最后由 wowan1314 于 2013-6-3 17:07 编辑

(command "_.copy" X "" "0,0" "@")这样呢！(vlax-invoke-method X 'Copy)这样呢！

Lispboy · 发表于 2013-6-3 17:04:44

((-1 . <图元名: 7efe6778>) (0 . "INSERT") (5 . "116DF") (102 .
"{ACAD_REACTORS") (330 . <图元名: 7efe67b8>) (102 . "}") (330 . <图元名:
7ef87c10>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "图框") (62 . 1)
(6 . "Continuous") (100 . "AcDbBlockReference") (66 . 1) (2 . "tuchuo") (10
72700.1 37288.7 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 .
0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

-1,5,330,102,410,都不能有。

/db_自贡黄明儒_ · 发表于 2013-6-3 17:10:20

wowan1314 发表于 2013-6-3 17:03
(command "_.copy" X "" "0,0" "@")这样呢！(vlax-invoke-method X 'Copy)这样呢！

都是lispboy惹的祸:P,我不是写了一个单向阵列吗.lispboy说不用commad,

wowan1314 · 发表于 2013-6-3 17:18:16

/db_自贡黄明儒_ 发表于 2013-6-3 17:10
都是lispboy惹的祸,我不是写了一个单向阵列吗.lispboy说不用commad,

哪有那么多说法！只要速度没什么影响！那就怎么方便怎么来！
不能跟lispboy比呀！他时间比较充裕，精力比较旺盛。

Lispboy · 发表于 2013-6-3 17:22:00

wowan1314 发表于 2013-6-3 17:18
哪有那么多说法！只要速度没什么影响！那就怎么方便怎么来！
不能跟lispboy比呀！他时间比较充裕，精 ...

第一次反对你哦，这话不对:lol

写代码得追求点啥嘛。

Lispboy · 发表于 2013-6-3 17:24:24

/db_自贡黄明儒_ 发表于 2013-6-3 17:10
都是lispboy惹的祸,我不是写了一个单向阵列吗.lispboy说不用commad,

告诉你个方法，G版前几天的帖子写过，好像。

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

用 entmakex ，然后用 vla-transFormby , （不好意思，涉及到矩阵了，不过没啥，一个单位矩阵作用上而已）

wowan1314 · 发表于 2013-6-3 17:25:39

Lispboy 发表于 2013-6-3 16:59
直接 entmake(entget en) 肯定不行啊，里面的组-1 什么的去掉，不能带着原来的实体名。

试了块、线、圆都可直接（entmake (entget x)）这样的！

ll_j · 发表于 2013-6-3 17:31:19

/db_自贡黄明儒_ 发表于 2013-6-3 17:10
都是lispboy惹的祸,我不是写了一个单向阵列吗.lispboy说不用commad,

这样（单属性块示例）：

(defun c:tt()
(setq en (car (entsel "\n拾取属性块：")) ;本体
ent(entget en)
nen(entnext en) ;属性attrib
nee(entnext nen) ;块结束标记seqend
)
(entmake ent)
(entmake (entget nen))
(entmake (entget nee))
)

我也是不建议使用command的，但学习Lisp的过程中，command也是必不可少的环节，不过，通过对acad及Lisp的深入了解，command函数会使用的越来越少，但并不是完全不用。就是acad自带的那些lisp程序，也还是有很多使用command的。

Lispboy · 发表于 2013-6-3 17:33:31

wowan1314 发表于 2013-6-3 17:25
试了块、线、圆都可直接（entmake (entget x)）这样的！

想当然了，收回我的话。{:soso_e163:}

Free-Lancer · 发表于 2013-6-3 17:54:57

经测试 (vla-copy (vlax-ename->vla-object (car (entsel)))) 可以拷贝属性块（Autocad 2014）

QiaoCheng · 发表于 2013-6-3 17:56:04

我也是Lispboy害的，弄的现在写一个都要考虑下面的原则{:soso_e113:}
原则有ZZQQXX和Lispboy总结出来的
1  尽量用mapcar,apply 组合 cons,car,cdr 基本函数
ACAD内部肯定有没公布的秘密对表的操作。要不不能0.01秒就处理完。
2  如果只能用APPEND的，那么程序就不要写了。
3  循环里面也别要 nth 去读表，也很慢的，要一次次的遍历表，循环越多，速度越慢，N*N至少
4  不怕 reverse,也很快。
5  巨量数据的处理，请别用递归
6、能用整数不用浮点；
7、变量名字母长度不要超过6个；
8、用cons代替append；
9、采用好的算法；
10、如可能少用command函数；
11、用乘法代替除法(/ pi 2)-->(* pi 0.5)，用加法代替乘法(* pi 2)--> (+ pi pi)；
12、用空间换时间，设中间变量保存中间计算数值，不重复计算；
13、图形文件不要太大，常使用purge命令进行清理；
14、不要一下子打开太多的图；
15、使用1+函数代替(+ n 1)，1-函数代替(- n 1)；
16、尽量减少程序运算次数
17、尽量直接使用lisp基本函数，如：car、cdr、cons等，近量少用append、length等函数
18、使用递归等方法，速度相对较慢！比直接使用基本函数计算逊色不少！

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

[求助] 原地copy属性块----------总结

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

点评

点评

评分

点评

评分

点评

点评

点评

点评

评分

评分

评分

点评

评分