明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1309|回复: 5

[已解答] 直线删除修改

[复制链接]
发表于 2014-12-17 15:08 | 显示全部楼层 |阅读模式
1明经币
论坛里边找的程序  但是不能满足我的要求  求版主 大神们出手修改下  
  程序现在只能删除直线  我想让它支持CAD所有的线段    选择对象后不管什么线只要小于我输入的数值 就删除掉
  1. (vl-load-com)
  2. (defun C:dell (/ ee i minl ss)
  3.   (setq MinL (getdist "\n直线长:"))
  4.   (while (setq ss (ssget ":s" '((0 . "LINE")))
  5.                i 0
  6.          )
  7.     (while (setq ee (ssname ss i))
  8.       (cond
  9.         ((> (vlax-get-property (vlax-ename->vla-object ee) 'Length) MinL))
  10.         (T
  11.           (entdel ee)
  12.         )
  13.       )
  14.       (setq i (1+ i))
  15.     )
  16.   )
  17.   (princ)
  18. )

最佳答案

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2014-12-17 15:08 | 显示全部楼层
看看
  1. (vl-load-com)
  2. (defun C:tt (/ ee i minl ss dd)
  3.   (setq MinL (getdist "\n输入线长:"))
  4.   (while (setq ss (ssget ":S")
  5.                i 0
  6.          )
  7.     (while (setq ee (ssname ss i))
  8.         (setq dd (vlax-curve-getDistAtParam ee (vlax-curve-getEndParam ee)))
  9.       (if (< dd MinL)
  10.           (entdel ee)
  11.       )
  12.       (setq i (1+ i))
  13.     )
  14.   )
  15.   (princ)
  16. )
回复

使用道具 举报

发表于 2014-12-17 15:28 | 显示全部楼层
(ssget ":s" '((0 . "LINE,LWPOLYLINE""))) 试试 其他对象能获取长度的应该都可以自行添加
回复

使用道具 举报

 楼主| 发表于 2014-12-17 17:15 | 显示全部楼层
aihuyujian 发表于 2014-12-17 15:28
(ssget ":s" '((0 . "LINE,LWPOLYLINE""))) 试试 其他对象能获取长度的应该都可以自行添加

大哥 要删除圆弧的线 该怎么加
回复

使用道具 举报

 楼主| 发表于 2014-12-17 17:51 | 显示全部楼层
kwok 发表于 2014-12-17 15:08
看看

谢谢  正是我需要的  哈哈  感谢大神出手
回复

使用道具 举报

发表于 2015-4-6 22:13 | 显示全部楼层
学习到了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 21:30 , Processed in 0.291228 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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