sasufa 发表于 2017-10-23 10:24:27

自己写的一些小程序

本帖最后由 sasufa 于 2018-1-10 18:25 编辑

由于论坛被黑,帖子丢了,再发一下。1、根据设定长度和模式,分割多段线。





2、图层管理。11显示全部图层,22隐藏所选对象所属图层,33仅显示所选对象所属图层


3、分割多段线中的圆弧
      大转折处打断多段线
      删除平滑节点



4、中线法求多边形内部一点
(来源一篇文章,文章中代码有点小问题,修改了
http://www.doc88.com/p-4931544312400.html)



5、程序用来提取某个文件夹下所有dwg文件中某一个图层
比如有3000张地形图,只想要其中的高程点这个图层,并且把图都拼到一起去。
原理是把图作为块插入,炸开,删除无效图层,然后下一张。

插入的时候要注意,插入比例和单位!否则可能出现图分成好几块的情况。
可以通过批处理工具,对所有图纸都执行某个命令(命令忘了)后,再拼接

6、cad中高程点提取。可以是文字,也可以是有Z的点


7、多边形根据内部文字分配图层



8、分割填充(使用了G版的“选择直线 园弧 园自动生成边界”的程序)

使用时需注意:
1、填充需有颜色,不能是bylayer
2、分割线相互之间不能形成闭合区域
3、好像填充不能自己有边界线

这些问题我自己不想改进了。


9、分图层批量生产填充边界线(更新了代码)


本来想修改下程序思路,通过填充的组码获取创建边界所需的信息,然后通过entmake直接创建边界,而不是用command,但是失败了,下面是修改的代码,有兴趣的可以研究下。


测试用的CAD文件


tryagain1911 发表于 2017-10-27 13:38:55

赞一个,特别是最后一个

beigoong 发表于 2018-5-14 13:37:55

您好,看了你发的你自己写的程序,非常棒,想请教个问题,就是能不能把曲线的等分和多段线的等分放在一起处理闭合的图形,然后导出到excel中去,只需要坐标,然后坐标能按照一定运动轨迹顺序排列,能麻烦帮下忙吗?

sasufa 发表于 2018-1-10 18:15:52

sasufa 发表于 2018-1-10 00:18
有时间代码更新下

本来想修改下程序思路,直接获取填充的边界点坐标规则,然后通过entmake直接生成边界线,而不是通过command,但获取填充边界规则的时候发现规则很乱,没能成功。

liunian0524 发表于 2017-10-24 13:19:19

感谢楼主分享

hhh454 发表于 2017-10-24 23:51:37

代码都很好,感谢楼主分享

yoyoho 发表于 2017-10-25 08:07:55

感谢楼主分享!!!!!

石井鱼 发表于 2017-10-25 13:53:25

谢谢楼主分享

xcz123m 发表于 2017-10-26 09:44:53

非常好谢谢分享

pengfei2010 发表于 2017-10-26 15:20:58

回帖是一种美德!感谢楼主的无私分享 谢谢

sdbaijiao 发表于 2017-10-28 16:16:10

谢谢楼主分享

fsafaffa 发表于 2017-10-28 23:38:54

这么多好东西,必须顶
页: [1] 2 3 4 5 6 7 8
查看完整版本: 自己写的一些小程序