移除块内图元--喵ฅ●ω●ฅ
本帖最后由 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))
1291500406 发表于 2019-5-18 11:06
框选很难，不是一般人能做到的，还不会框选获取块内单个物体对象
1.块外框选
2.获取框选坐标2pt
3.删除非块图元
4.获取块
5.循环每个块
6.根据每个块的插入点计算2pt在块内的坐标转换
7.判断2p是正选还是返选
8.(偏历/历偏)块内所有图元是否在选择内
9.删除块内图元
10.刷新块 1291500406 发表于 2019-5-18 11:06
框选很难，不是一般人能做到的，还不会框选获取块内单个物体对象
写应该能写出来,我技术太水,搞个10天半月能搞出来
就看楼主的了:lol 本帖最后由 1291500406 于 2019-5-18 11:09 编辑
依然小小鸟 发表于 2019-5-18 10:31
删除块内图元的时候点选可以改为框选吗
框选很难，不是一般人能做到的，还不会框选获取块内单个物体对象 建议增加个功能，可以拉伸块内图元，或者编辑块内的节点 小强，居然换成高版本的CAD了 yaokui25 发表于 2019-5-18 10:09
小强，居然换成高版本的CAD了
07CAD不能批量查找替换块内文字，就安装cad2017了 1291500406 发表于 2019-5-18 10:22
07CAD不能批量查找替换块内文字，就安装cad2017了
删除块内图元的时候点选可以改为框选吗 我不会trans 这个一直是蒙的
转换坐标有点恼火 能不能做个向块中添加图元的lisp？
页:
[1]
2