删除短线---这个程序有时候能删干净，有时候删不干净，有没有大佬能帮忙看看吗？

zhufeng1004 · 发表于 2022-10-4 16:48:11

(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)

)

liuhe · 发表于 2022-10-6 08:30:45

(if (EQUAL an dn 0.1) 0.1是容差，改成这样就行了,虽然dli量取的是13mm，但是属性可能是13.000001mm

XGZS1234 · 发表于 2022-10-4 18:08:03

本帖最后由 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)
)

zhufeng1004 · 发表于 2022-10-6 10:03:53

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

谢谢了，受教了，问题可以解决了，你的方法可以完成。

XGZS1234 · 发表于 2022-10-4 17:16:53

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

短线不一定是直线！也可能是圆弧。是直线的时候你当然可以删除，如果包含圆弧呢？

zhufeng1004 · 发表于 2022-10-4 17:18:19

现在只考虑直线

zhufeng1004 · 发表于 2022-10-4 17:20:59

C:\Users\Administrator\Desktop\LSP

tigcat · 发表于 2022-10-4 17:29:12

是不是选取的时候图形不在屏幕中

zhufeng1004 · 发表于 2022-10-4 17:31:15

tigcat 发表于 2022-10-4 17:29
是不是选取的时候图形不在屏幕中

肯定在可视范围内啊

zhufeng1004 · 发表于 2022-10-4 17:35:01

XGZS1234 发表于 2022-10-4 17:16
短线不一定是直线！也可能是圆弧。是直线的时候你当然可以删除，如果包含圆弧呢？

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

XGZS1234 · 发表于 2022-10-4 18:18:18

zhufeng1004 发表于 2022-10-4 17:31
肯定在可视范围内啊

试试8楼的吧删短直线

zhufeng1004 · 发表于 2022-10-4 18:39:06

XGZS1234 发表于 2022-10-4 18:18
试试8楼的吧删短直线

好的，我先试一下！！！

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

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

评分

删短直线

本帖子中包含更多资源