删除对象lisp。所有选择的参照都无效！

希望的田野

大家好麻烦看下这个程序问题出在哪？所有选择的参照都无效！

选参照删除与参照同类对象(比较对象与参照对象之类型,颜色,线型)
(defun c:FTE() (setq cmd(getvar "cmdecho"))(setvar "cmdecho" 0)
  (setq obj_ref(entsel "\n请选择参照对象:"))
  (setq ref_dxf(entget (car obj_ref)))
  (setq obj_sel(ssget ":s"))
  (while obj_sel
    (setq make_aggr (ref_filter ref_dxf obj_sel)) (setq number (sslength make_aggr))
    (command "erase" make_aggr "")
    (prompt (strcat "\n共" (itoa number) "个对象被删除!!!"))
    (setq obj_sel(ssget ":s"))
    )
  (setvar "cmdecho" cmd)(princ))

tigcat

ref_filter没有定义

希望的田野

tigcat 发表于 2021-11-10 22:10
ref_filter没有定义

你好我在AUTO cad 上面能用，现在改用中望CAD上面就用不了。

tigcat

这个ref_filter可能是某个软件加载后才有的函数.

wudechao

希望的田野 发表于 2021-11-12 15:30
你好我在AUTO cad 上面能用，现在改用中望CAD上面就用不了。

什么是自定义函数还不明白？多看书，你现在lisp连门都没有进（从入门到精通，你连门口还没有摸到，就开始飞奔了！），先学基本概念，扎扎实实地学。