删除 文件里面的直线，只能删除横线，不能删除竖线

酷酷提

删除 文件里面的直线，只能删除横线，不能删除竖线请问这是哪里出问题了呢？

(defun c:tes ( / &ang1 &k1 &kw1 &ob1)
(if (null vlax-dump-object) (vl-load-com) )
(princ "\n请选择水平的直线")
(if (setq &kw1 (ssget '((0 . "LINE"))))
  (progn
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1))
    (setq &ob1 (vlax-ename->vla-object &k1))
    (setq &ang1 (vla-get-Angle &ob1));取得直线角度
    (setq &ang1 (angtos &ang1 0 0));转换为角度
    (if (member &ang1 '("0" "180")) (vla-delete &ob1) );如果角度是0或180，就删除
   );while
  )
)
(princ)
);复制到记事本，以【.lsp】为后缀命名，命令APPLOAD加载，框选直线就删除水平直线。

start4444

(if (member &ang1 '("0" "180")) (vla-delete &ob1) )  改为 (if (member &ang1 '("0" "180" "90" "270")) (vla-delete &ob1) )

酷酷提

start4444 发表于 2022-4-26 23:47
(if (member &ang1 '("0" "180")) (vla-delete &ob1) )  改为 (if (member &ang1 '("0" "180" "90" "270") ...

非常感谢，可以用了