明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1694|回复: 14

[基础] 交换程序

[复制链接]
发表于 2018-7-5 21:46 | 显示全部楼层 |阅读模式
各位高手,看看下面的交换程序,如何把图层也交换过来,看看怎么改才好
每次交换后还要刷一下,好麻烦,
(defun c:kjh()
          (setq obj (ssget '((0 . "INSERT"))) i 0)
          (setq obj1 (entget (ssname obj 0)))
          (setq obj2 (entget (ssname obj 1)))
          (setq een obj1 na (cdr (assoc 2 een)) i (+ i 1))
          (setq name1 na)
          (setq een obj2 na (cdr (assoc 2 een)) i (+ i 1))
          (setq name2 na)
          (setq namet "T")  
          (command "rename" "B" name2 namet)
          (command "rename" "B" name1 name2)
          (command "rename" "B" namet name1)
          (entmod obj1)(entmod obj2)(entupd obj1)(entupd obj2)
          (princ)
);defun end

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2018-7-12 18:36 | 显示全部楼层
(defun c:tt (/ ent1 ent11 ent2 ent22)  
  (setq ent1 (entget (car (entsel "\n选取块1:"))))  
  (setq ent2 (entget (car (entsel "\n选取块2:"))))
  (setq ent11 (entmod (subst (cons 2 (cdr (assoc 2 ent2))) (assoc 2 ent1) ent1)) )
  (entmod (subst (cons 8 (cdr (assoc 8 ent2))) (assoc 8 ent11) ent11))
  (setq ent22 (entmod (subst (cons 2 (cdr (assoc 2 ent1))) (assoc 2 ent2) ent2)) )
  (entmod (subst (cons 8 (cdr (assoc 8 ent1))) (assoc 8 ent22) ent22))
(princ)
)
发表于 2018-7-9 18:59 | 显示全部楼层
357785513 发表于 2018-7-8 14:37
taoyi0727 分享程序有一个小小的缺陷,就是交换后各自己都改变了旋转角度了,因为有时放好的块已经有角度 ...

试试这个
怎么回事,回贴的字节长度不能小于10?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2018-7-8 14:37 | 显示全部楼层
taoyi0727 分享程序有一个小小的缺陷,就是交换后各自己都改变了旋转角度了,因为有时放好的块已经有角度了,交换一下之后块都转成了0度,
发表于 2018-7-5 23:03 | 显示全部楼层
我的水平也就这样了 你看看是不是你要的

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2018-7-5 23:40 | 显示全部楼层
(cons 8 obj2_layer)
服,高手
 楼主| 发表于 2018-7-5 23:41 | 显示全部楼层
这个水平已经非常棒了
发表于 2018-7-6 12:01 | 显示全部楼层
感谢 taoyi0727 分享程序!!!!
发表于 2018-7-9 20:01 | 显示全部楼层
直接换插入点不就行了。
发表于 2018-7-10 09:47 | 显示全部楼层
改了下  把角度加进去了

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2018-7-10 23:30 | 显示全部楼层
角度还是没搞好

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 19:06 , Processed in 0.257132 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表