移除块内图元--喵ฅ●ω●ฅ

1291500406 · 发表于 2019-5-17 19:38

本帖最后由 1291500406 于 2019-5-18 12:45 编辑

(defun c:bb ()(vl-load-com)(while (setq en(car(nentsel "\n删除块内" )))(vla-delete(vlax-ename->vla-object en))(entupd en)(command "regen"))(princ))

taoyi0727 · 发表于 2019-5-18 11:57

1291500406 发表于 2019-5-18 11:06
框选很难，不是一般人能做到的，还不会框选获取块内单个物体对象

1.块外框选
2.获取框选坐标2pt
3.删除非块图元
4.获取块
5.循环每个块
6.根据每个块的插入点计算2pt在块内的坐标转换
7.判断2p是正选还是返选
8.(偏历/历偏)块内所有图元是否在选择内
9.删除块内图元
10.刷新块

taoyi0727 · 发表于 2019-5-18 12:02

1291500406 发表于 2019-5-18 11:06
框选很难，不是一般人能做到的，还不会框选获取块内单个物体对象

写应该能写出来,我技术太水,搞个10天半月能搞出来
就看楼主的了

1291500406 · 发表于 2019-5-18 11:06

本帖最后由 1291500406 于 2019-5-18 11:09 编辑

依然小小鸟发表于 2019-5-18 10:31
删除块内图元的时候点选可以改为框选吗

框选很难，不是一般人能做到的，还不会框选获取块内单个物体对象

alexmai · 发表于 2019-5-18 09:02

建议增加个功能，可以拉伸块内图元，或者编辑块内的节点

yaokui25 · 发表于 2019-5-18 10:09

小强，居然换成高版本的CAD了

1291500406 · 发表于 2019-5-18 10:22

yaokui25 发表于 2019-5-18 10:09
小强，居然换成高版本的CAD了

07CAD不能批量查找替换块内文字，就安装cad2017了

依然小小鸟 · 发表于 2019-5-18 10:31

1291500406 发表于 2019-5-18 10:22
07CAD不能批量查找替换块内文字，就安装cad2017了

删除块内图元的时候点选可以改为框选吗

taoyi0727 · 发表于 2019-5-18 12:07

我不会trans 这个一直是蒙的
转换坐标有点恼火

bai2000 · 发表于 2019-5-18 14:32

能不能做个向块中添加图元的lisp？

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

[源码] 移除块内图元--喵ฅ●ω●ฅ

本帖子中包含更多资源