动态剖切线绘制

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 -1  nent '())
(foreach x ent
   (setq nent (if (and (= (car x) 10) (/= (nth (setq i (1+ i)) ptlst ) nil))
               (append  nent (list (cons 10 (nth i ptlst))))
               (append  nent (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
楼主不行啊，我在AutoCAD2012中使用，出现这种情况。

在autocad2011也有同样情形!

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

不错，支持一下

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

[源码] 动态剖切线绘制

本帖子中包含更多资源

点评

评分

相关帖子

本帖子中包含更多资源

点评