[编程申请]：一次性去掉钢筋弯钩的工具

ln2127105

最初由 eachy 发布
[B][code]
(defun c:tt (/ ss ssl el)
  (if (setq ss (ssget '((90 . 4))))
    (progn
      (setq ssl (sslength ss))
      (while (> ssl 0)
        (setq el (entget (ssname ss (setq ssl (1- ssl))))
              e... [/B]

在R14中加载，不能用。不能选中钢筋。

gongzhuke

是啊，我的也有这个问题:
在R14中加载，不能用。不能选中钢筋。

xyp1964

R14不支持诸如vl-remove 类函数!

ln2127105

大家继续深入吧，我找了本书，看了一半了，应该可以改成能给R14用的！
(defun c:tt (/ ss ssl el)
  (if (setq ss (ssget '((90 . 4))))
    (progn
      (setq ssl (sslength ss))
      (while (> ssl 0)
        (setq el (entget (ssname ss (setq ssl (1- ssl))))
              el (vl-remove (assoc 10 el) el)
              el (vl-remove (assoc 10 (reverse el)) el)
              el (subst '(90 . 2) '(90 . 4) el)
        )
        (entmod el)
      )
    )
  )
  (princ)
)