Hỏi về code Lisp

[nhunhapro123 7]

Nhờ các Anh chị chỉnh sửa code lisp thay thế Text này với ạ.

(Defun c:DEMT ( )
(setq ttthay (assoc 1 (entget (car(entsel "\nChon Text nguon thay: ")))))
(prompt "\nChon Text mau.")
    (setq DT (car (entsel "\nChon Text mau: ")))

    (setq DT (entget DT))

    (setq NDT (cdr (assoc 1 DT)))

    (Princ "\nHay chon vung :")

    (setq SS (ssget (list (cons 0 "text") (cons 1 NDT)))

    )

    (if (Null ss)

    (princ "\nKhong tim thay doi tuong nao")

    )

    (IF (/= NIL SS)
    
    (setq sl (SSLength SS))
      (progn
           (setq i 0)
            (repeat sl
                (setq e (ssname SS i))
              (setq elst (entget e))
              (setq old (assoc 1 elst)) 
;;;                      x (cdr (assoc 1 (entget e)))
            (setq elst (subst ttthay old elst))
            (entmod elst)
            (setq i (1+ i))
            
          ;;(print x)
          )
;;;    (alert (strcat "\nTim thay: <" (itoa sl) "> doi tuong la Text co noi dung: <" NDT ">"))
;;;    (setq pt (getpoint "\nChon diem dat text: "))
;;;    (command "osmode" 0)
;;;    (command "text" "m" Pt 1 0  sl)
    )

    )

(princ)

)

[alisp 72]

tmp.lsp

[nhunhapro123 7]

9 phút trước, alisp đã nói:

tmp.lsp

Cảm ơn #alisp đã giúp đỡ. Code mình gửi bị nhầm lẫn chỗ nào vậy ạ?

 

[alisp 72]

Sau (/= nil ss) thì tới (progn liền