[编程交流] 关于entmod

(defun c:ELEVAZIONE (/ ss i sn pts txt d di e ent)
;;;   ==-- Author : Tharwat Al Shoufi --==         ;;;
;;; Entmod the Z value of Points according        ;;;
;;;           to the nearest text's value                 ;;;
 (if (setq ss (ssget '((0 . "POINT,*TEXT"))))
   (repeat (setq i (sslength ss))
     (setq sn (ssname ss (setq i (1- i))))
     (if (eq (cdr (assoc 0 (entget sn))) "POINT")
       (setq pts (cons (list (cdr (assoc 10 (entget sn))) sn) pts))
       (setq txt (cons (list (cdr (assoc 10 (entget sn))) sn) txt))
     )
   )
 )
 (foreach p pts
   (foreach x txt
     (if (not d)
       (setq d (distance (car p) (car x))
             e (cadr x)
       )
       (if (< (setq di (distance (car p) (car x))) d)
         (setq d di
               e (cadr x)
         )
       )
     )
   )
   (setq d nil)
   
(if (numberp (read (cdr (assoc 1 (entget e)))))
   (progn 
  (entmod
       (subst
         (cons 10
               (list (car (cdr (assoc 10 (setq ent (entget (cadr p))))))
                     (cadr (cdr (assoc 10 ent)))
                     (read (cdr (assoc 1 (entget e))))
                                          )
         )
         (assoc 10 ent)
         ent
       )
  )
        (entmod (subst (cons 62 1) (assoc 62 ent) ent)) ; this is my code
 ))
 )
 (princ "\n Written by Tharwat Al Shoufi")
 (princ)
)

(defun c:ELEVAZIONE (/ ss i sn pts txt d di e ent)
;;;   ==-- Author : Tharwat Al Shoufi --==         ;;;
;;; Entmod the Z value of Points according        ;;;
;;;           to the nearest text's value                 ;;;
 (if (setq ss (ssget '((0 . "POINT,*TEXT"))))
   (repeat (setq i (sslength ss))
     (setq sn (ssname ss (setq i (1- i))))
     (if (eq (cdr (assoc 0 (entget sn))) "POINT")
       (setq pts (cons (list (cdr (assoc 10 (entget sn))) sn) pts))
       (setq txt (cons (list (cdr (assoc 10 (entget sn))) sn) txt))
     )
   )
 )
 (foreach p pts
   (foreach x txt
     (if (not d)
       (setq d (distance (car p) (car x))
             e (cadr x)
       )
       (if (< (setq di (distance (car p) (car x))) d)
         (setq d di
               e (cadr x)
         )
       )
     )
   )
   (setq d nil)
   
(if (numberp (read (cdr (assoc 1 (entget e)))))
   (progn 
(setq elist 
        (subst
         (cons 10
               (list (car (cdr (assoc 10 (setq ent (entget (cadr p))))))
                     (cadr (cdr (assoc 10 ent)))
                     (read (cdr (assoc 1 (entget e))))
                                                  )
         )
         (assoc 10 ent)
         ent
       ))
(setq elist (subst (cons 62 1) (assoc 62 elist) elist))
(entmod elist)
 ))
 )
 (princ "\n Fatto!")
 (princ)
)

[b][color=BLACK]([/color][/b]setq elist [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]assoc 62 elist[b][color=NAVY])[/color][/b]
               [b][color=NAVY]([/color][/b]subst [b][color=MAROON]([/color][/b]cons 62 1[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]assoc 62 elist[b][color=MAROON])[/color][/b] elist[b][color=NAVY])[/color][/b]
               [b][color=NAVY]([/color][/b]append elist [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 62 1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]