明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 22680|回复: 74

[源码] 动态剖切线绘制

    [复制链接]
发表于 2013-5-29 00:31 | 显示全部楼层 |阅读模式
本帖最后由 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))
                 )
      )
    )
  )

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

狼版,不支持复合剖啊  发表于 2014-6-5 16:14

评分

参与人数 2明经币 +4 收起 理由
Gu_xl + 3 赞一个!
wowan1314 + 1 赞一个

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2017-8-19 11:28 | 显示全部楼层
浪大师,2010测试出错
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)
发表于 2016-10-15 09:33 | 显示全部楼层
可以取消这个箭头吗,因为建筑的制图规范中剖切线是不带箭头的,
发表于 2013-5-29 00:42 | 显示全部楼层
斜角的可以吗!
发表于 2013-5-29 01:13 | 显示全部楼层
langs兄出品。必须支持!
发表于 2013-5-29 06:22 | 显示全部楼层
感谢langs兄分享程序,学习了!
发表于 2013-5-29 06:37 | 显示全部楼层
哦哦 强劲下了收藏
发表于 2013-5-29 07:13 | 显示全部楼层
支持源码,下载学习
发表于 2013-5-29 07:23 | 显示全部楼层
这个非常不错,这二个功能了正常用的到,谢谢楼主了。
发表于 2013-5-29 07:33 | 显示全部楼层
楼主不行啊,我在AutoCAD2012中使用,出现这种情况。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

以解决  发表于 2013-5-31 20:08
加载了这个线型也是这个问题  发表于 2013-5-30 16:27
可能是线型没有Bylayer所致  发表于 2013-5-29 15:33
应该是图形未加载dashed线型导致的!  发表于 2013-5-29 08:32
发表于 2013-5-29 07:39 | 显示全部楼层
simpleye 发表于 2013-5-29 07:33
楼主不行啊,我在AutoCAD2012中使用,出现这种情况。

在autocad2011也有同样情形!
发表于 2013-5-29 08:07 | 显示全部楼层
不错,支持一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 00:55 , Processed in 0.236867 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表