用途:把实体填充变成斜线填充. (defun c:aa ( / e eee n ss) (setq SS (ssget '((0 . "SOLID")))) (if ss (progn (setq n -1) (repeat (sslength SS) (setq eee (ssname SS (setq n (+ n 1))) e (entget eee)) (setq e (subst (cons 100 "AcDbEntity") (assoc 100 e) e)) (setq e (subst (cons 100 "AcDbHatch") (assoc 100 e) e)) (setq e (subst (cons 0 "HATCH") (assoc 0 e) e)) (setq e (subst (cons 2 "ANSI31") (assoc 2 e) e)) (setq e (append e (list (cons 41 55)))) (entmod e) ) (PRINC "\n已更新完成!") )) (princ) ) 为何不起作用? |