[求助]：属性变普通文字

skywaycao

属性从一个文件中插入另外一个文件中，总要填很多东西，很麻烦

在别人的lisp程序基础上修改了一下，把属性变成普通的text，

不知道问题在那，麻烦高手指点

[PHP]
(defun c:aw( / e e1 a1 a2 e2 e3 k1 k2 k3 k4 k12 k123 k1234)    ;;;;属性转文字
  (command "undo" "begin")
  (setq a1 0 )
  (if (setq e (ssget '((0 . "attdef"))))
    (while (setq e1 (ssname e a1))
      (setq e2 (entget e1))
      ;(setq e2 (entget (car e1)))
      (setq a2 (assoc '1 e2))
      (setq e2 (append (reverse (cdr (member a2 (reverse e2))))(cdr (member a2 e2))))
      (setq a2 (assoc '3 e2))
      (setq e2 (append (reverse (cdr (member a2 (reverse e2))))(cdr (member a2 e2))))
      (setq a2 (assoc '70 e2))
      (setq e2 (append (reverse (cdr (member a2 (reverse e2))))(cdr (member a2 e2))))
      (setq a2 (assoc '73 e2))
      (setq e2 (append (reverse (cdr (member a2 (reverse e2))))(cdr (member a2 e2))))
      (setq e3 (subst (cons 0 "text")(assoc '0 e2) e2))
      (setq e3 (subst (cons 1 (cdr (assoc '2 e3)))(assoc '2 e3) e3))
      (if (setq a2 (assoc '74 e3))
        (setq e3 (subst (cons 73 (cdr a2)) a2 e3))
      )

      (setq a2 (assoc '40 e3))
      (setq k1 (reverse (member a2 (reverse e3))))
      
      (setq a2 (assoc '1 e3))
      (setq k2 (cdr (reverse (member a2 e3))))
      
      (setq a2 (assoc '50 e3))
      (setq k3 (reverse (cddr (reverse (member a2 e3)))))
      
      (setq a2 (assoc '73 e3))
      (setq k4 (member a2 e3))
      
      (setq k12 (append k1 k2))
      (setq k123 (append k12 k3))
      (setq k1234 (append k123 k4))
      ;(setq k5 (append k1 k2 k3 k4))
      ;(setq k5 (append k1 (append k2 (append k3 k4))))

      (setq e3 k1234)
      (setq e2 e3)
      
      (entmod e2)
      (setq a1 (1+ a1))
    )
  )
  (command "undo" "end")
  (princ "\n有")(princ a1)(princ "个属性被改成文字")
  (princ)
)
   
([/PHP]

后半段是我改的，将所有的参数顺序都调过来了
entmod  就是不更新，不知道为什么？
谢谢了

aeo

attdef直接变为text
大变活人:)
用entmake吧