[ruslua]

Здравствуйте. Я новичок в lisp, скорее всего, упускаю какую-то элементарную вещь. Набросал простенькую программку для простановки высотных отметок на поверхности по выделенным точкам:​

Код:

[Выделить все]

 (DEFUN c: otm (/ n name_obj list_obj tip_obj p1)
   (setq set_obj (ssget))
   (setq n (sslength set_obj))

   (setq snp (getvar "Osmode"))
   (setvar "Osmode" 0)

(while (> n 0)
      (setq name_obj (ssname set_obj (setq r (- n 1))))
      (setq list_obj (entget name_obj))
      (setq tip_obj (cdr (assoc 0 list_obj)))
   (if (= tip_obj "POINT")
        (progn
            (setq p1 (trans (cdr (assoc 10 list_obj)) 0 1))
            (command "_Addsurfacespotelevlabel" p1 "")
         );end progn
      ); end if
      (setq n (- n 1))
   ); end while
   (setvar "Osmode" snp)
)

Но программа работает только в том случае, если создана одна поверхность. Если поверхностей несколько, то не работает… При отработке этой программы lisp обращаться к пользователю что бы тот выбрал поверхность, выбираю поверхность - отметки не ставит. Если в проекте создана одна поверхность, то все работает нормально. Подскажите, пожалуйста, что допилить, чтобы работало с несколькими поверхностями. ​

[engngr]

искать программный метод на замену командному для (command "_Addsurfacespotelevlabel" p1 "")