请求高手解决(批量修改填充图案名称)

samshs

请高手帮我修改一下 看下那里错啦！程序结果是想：输入命令ED 选择多个填充物体后回车，把刚选择的填充图案名称都改名“ANSI31”。十分感谢！

(defun C:ED(/ ha n e e1)
  (setq ha (ssget '((0 . "HATCH"))))
  (setq n 0)
  (repeat (sslength ha)
    (setq e (ssname ha n))
  (setq e1 (entget e))
    (if (="HATCH" (cdr (assoc 0 e1))
   (progn
    (setq e1 (subst (cons 2 "ANSI31") (assoc 2 e1) e1))
    (entmod e1)
    ))
      (setq n (1+n))))
 
  (command "-hatchedit" ha "p" e1 ))

ZZXXQQ

有时候空格是必须的。先试试看。

3. (defun C:ED (/ ha n e1)
4. (if (setq ha (ssget '((0 . "HATCH")))) (progn
5.   (setq n 0)
6.   (repeat (sslength ha)
7.    (setq e1 (entget (ssname ha n)))
8.    (setq e1 (subst (cons 2 "ANSI31") (assoc 2 e1) e1))
9.    (entmod e1)
10.    (setq n (1+ n))
11.   )
12. ))
13. (princ)
14. )

(defun C:ED (/ ha n e1) (if (setq ha (ssget '((0 . "HATCH")))) (progn   (setq n 0)   (repeat (sslength ha)    (setq e1 (entget (ssname ha n)))    (setq e1 (subst (cons 2 "ANSI31") (assoc 2 e1) e1))    (entmod e1)    (setq n (1+ n))   ) )) (princ) )

samshs

可以用啦　非常感謝！ZZXXQQ

happyboy75

不错 收集

894560869

请问如果A，B，C种图案呢？