langjs 发表于 2013-5-29 00:31:58

动态剖切线绘制

本帖最后由 langjs 于 2014-1-28 13:24 编辑

本来想这个功能写个小程序就能搞定，谁知程序越写越长，水平有限狂汗



修改一下，貌似解决了楼下多出来线的问题。原因是程序entmake两顶点多段线时，不知为什么CAD2011下生成的是3顶点多段线

程序增加了如下一个子函数

; 按点表顺序更新多段线顶点,无须更换的顶点用nil代替。by:langjs
; 例：(entmod (reent (entget (car (entsel "\n选多段线:"))) '(nil (0.0 0.0) (100.0 100.0))))更新多段线第二第三点。
(defun reent (ent ptlst / i nent x)
    (setq i -1nent '())
    (foreach x ent
      (setq nent (if (and (= (car x) 10) (/= (nth (setq i (1+ i)) ptlst ) nil))
                   (appendnent (list (cons 10 (nth i ptlst))))
                   (appendnent (list x))
               )
      )
    )
)

xyccf 发表于 2017-8-19 11:28:12

浪大师，2010测试出错
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)

szx025 发表于 2016-10-15 09:33:41

可以取消这个箭头吗，因为建筑的制图规范中剖切线是不带箭头的，

cable2004 发表于 2013-5-29 00:42:02

斜角的可以吗！

wowan1314 发表于 2013-5-29 01:13:39

langs兄出品。必须支持！

yoyoho 发表于 2013-5-29 06:22:58

感谢langs兄分享程序,学习了!

lzg8877 发表于 2013-5-29 06:37:43

哦哦　强劲下了收藏

仲文玉 发表于 2013-5-29 07:13:28

支持源码，下载学习

simpleye 发表于 2013-5-29 07:23:39

这个非常不错，这二个功能了正常用的到，谢谢楼主了。

simpleye 发表于 2013-5-29 07:33:15

楼主不行啊，我在AutoCAD2012中使用，出现这种情况。

yoyoho 发表于 2013-5-29 07:39:58

simpleye 发表于 2013-5-29 07:33 static/image/common/back.gif
楼主不行啊，我在AutoCAD2012中使用，出现这种情况。

在autocad2011也有同样情形!

云中孤鹰 发表于 2013-5-29 08:07:00

不错，支持一下
页: [1] 2 3 4 5 6 7 8
查看完整版本: 动态剖切线绘制