探索者2011钢筋符号批量改旧版
本帖最后由 doro 于 2012-4-11 20:55 编辑;—————————— 探索者2011钢筋符号替换——————————
;子函数
;——————————
(defun subst2(en n1 n2 /)
(setq b(entget en))
(setq d (assoc n1 b))
(setq d2 (cons n1 n2))
(setq en2 (Subst d2 d b))
(entmod en2)
)
(defun subst3(en s1 s2 /)
(setq b(entget en))
(setq d (assoc '1 b))
(setq str (cdr d));内容
(setq str (vl-string-subst s1 s2 str))
(setq d2 (cons '1 str))
(setq en2 (Subst d2 d b))
(entmod en2)
)
;——————————
(setq ss (ssget "x" '((0 . "TEXT") (-4 . "<OR") (1 . "**,**,**,**") (-4 . "OR>"))) sl (sslength ss))
;—————
(setq index 0)
(repeat sl
(setq en (ssname ss index) );图元en-数值n
(subst3 en "%%130" "")
(subst3 en "%%131" "")
(subst3 en "%%132" "")
(subst3 en "%%133" "")
(setq index (+ index 1) )
)
;—————
没有用过“探索者2011”。 Error: 参数类型错误: lselsetp nil
页:
[1]