[求助]：请问可以实现批量删除斜线的插件开发吗?

cad_xw

刚接触cad，想学习cad的插件开发，请教一下前辈们如何实现批量删除斜线的功能，跪求指导，万分感谢！
   注：附件是刚上传的dwg和截图

截图

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:ck.zip 
下载次数:2  文件大小:1.89 MB 
下载权限: 不限 以上  [免费赚D豆]

Lisphk

斜线是什么？

ssyfeng

最好贴个图，这样才直观。或者上个dwg文件说明下。

/db_自贡黄明儒_

多斜的线才算斜线？？？

sicky111

应该除了水平或垂直的线，都算斜线。

炫翔

获取起点与终点的角度，判断角度是否水平垂直...

Lisphk

判断Y坐标或者X坐标相等也行吧

cad_xw

斜线包括非水平和垂直的所有线段

marting

按HK说的

1. (defun c:tt ()
   
2.   (princ "\n选择斜线<退出>:")
   
3.   (if (setq ss (ssget '((0 . "LINE"))))
   
4.     (progn (setq i -1)
   
5.            (while (setq e (ssname ss (setq i (1+ i))))
   
6.              (setq ed  (entget e)
   
7.                    p10 (cdr (assoc 10 ed))
   
8.                    p11 (cdr (assoc 11 ed))
   
9.              )
   
10.              (if (not (or (equal (car p10) (car p11) 1e-3)
    
11.                           (equal (cadr p10) (cadr p11) 1e-3)
    
12.                       )
    
13.                  )
    
14.                (command ".erase" e "")
    
15.              )
    
16.            )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    
21. 
    

(defun c:tt ()<br />   (princ "\n选择斜线<退出>:")<br />   (if (setq ss (ssget '((0 . "LINE"))))<br />     (progn (setq i -1)<br />            (while (setq e (ssname ss (setq i (1+ i))))<br />              (setq ed  (entget e)<br />                    p10 (cdr (assoc 10 ed))<br />                    p11 (cdr (assoc 11 ed))<br />              )<br />              (if (not (or (equal (car p10) (car p11) 1e-3)<br />                           (equal (cadr p10) (cadr p11) 1e-3)<br />                       )<br />                  )<br />                (command ".erase" e "")<br />              )<br />            )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

marting

cad_xw 发表于 2018-1-24 12:22

lhmlhmlhm21

楼上的大神好厉害，要是支持多段线就更完美啦

newer

lhmlhmlhm21 发表于 2019-2-10 16:19
楼上的大神好厉害，要是支持多段线就更完美啦

多段线？ 只有一段的？
如果很多段的，你说哪段斜哪段直啊