明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 946|回复: 19

[讨论] 删除短线---这个程序有时候能删干净,有时候删不干净,有没有大佬能帮忙看看吗?

[复制链接]
发表于 2022-10-4 16:48 | 显示全部楼层 |阅读模式
(defun c:ee1 ()

   (vl-load-com)
(setq ss_n:err *error* *error* *merr*)
  (setq ss (ssget '((0 . "line"))))

  (setq n -1)

(setq util (vla-get-utility
                   (vla-get-activedocument
                        (vlax-get-acad-object))))

(setq dn (vla-GetReal util "\n删除短线长度: "))

(repeat (sslength ss)

     (setq ss_n (Vlax-Ename->Vla-Object (ssname ss (setq n (1+ n)))))

      (setq an (vla-get-length ss_n))

   (if (= an dn)  

     (vla-delete ss_n)

    )

  )


  (princ)

)

发表于 2022-10-6 08:30 | 显示全部楼层
(if        (EQUAL an dn 0.1)  0.1是容差,改成这样就行了,虽然dli量取的是13mm,但是属性可能是13.000001mm

评分

参与人数 1明经币 +1 收起 理由
zhufeng1004 + 1 很给力!

查看全部评分

回复 支持 1 反对 0

使用道具 举报

发表于 2022-10-4 18:08 | 显示全部楼层

删短直线

本帖最后由 XGZS1234 于 2022-10-4 18:17 编辑

(vl-load-com)
(defun C:ee1 (/ ee i minl ss)
  (setq MinL (getdist "\n直线长:"))
  (while (setq ss (ssget ":s" '((0 . "LINE")))
               i 0
         )
    (while (setq ee (ssname ss i))
      (cond
        ((> (vlax-get-property (vlax-ename->vla-object ee) 'Length) MinL))
        (T
          (entdel ee)
        )
      )
      (setq i (1+ i))
    )
  )
  (princ)
)
 楼主| 发表于 2022-10-6 10:03 | 显示全部楼层
liuhe 发表于 2022-10-6 08:30
(if        (EQUAL an dn 0.1)  0.1是容差,改成这样就行了,虽然dli量取的是13mm,但是属性可能是13.000001mm

谢谢了,受教了,问题可以解决了,你的方法可以完成。
发表于 2022-10-4 17:16 | 显示全部楼层
本帖最后由 XGZS1234 于 2022-10-4 17:17 编辑

短线不一定是直线!也可能是圆弧。是直线的时候你当然可以删除,如果包含圆弧呢?
 楼主| 发表于 2022-10-4 17:18 | 显示全部楼层
现在只考虑直线
 楼主| 发表于 2022-10-4 17:20 | 显示全部楼层
C:\Users\Administrator\Desktop\LSP
发表于 2022-10-4 17:29 | 显示全部楼层
是不是选取的时候图形不在屏幕中
 楼主| 发表于 2022-10-4 17:31 来自手机 | 显示全部楼层
tigcat 发表于 2022-10-4 17:29
是不是选取的时候图形不在屏幕中

肯定在可视范围内啊
 楼主| 发表于 2022-10-4 17:35 来自手机 | 显示全部楼层
XGZS1234 发表于 2022-10-4 17:16
短线不一定是直线!也可能是圆弧。是直线的时候你当然可以删除,如果包含圆弧呢?

就是要删掉很多开槽口的小短线!!!

本帖子中包含更多资源

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

x
发表于 2022-10-4 18:18 | 显示全部楼层
zhufeng1004 发表于 2022-10-4 17:31
肯定在可视范围内啊

试试8楼的吧删短直线
 楼主| 发表于 2022-10-4 18:39 来自手机 | 显示全部楼层
XGZS1234 发表于 2022-10-4 18:18
试试8楼的吧删短直线

好的,我先试一下!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 01:13 , Processed in 0.210109 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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