lisp простановка высотных отметок

Здравствуйте. Я новичок в 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 должен обращаться к пользователю что бы тот выбрал поверхность из списка/выбором на чертеже :)
По теме лиспов попробуйте обратиться с вопросом к нейросетям (например, бесплатный DeepSeek), на форуме есть целая тема лиспов от нейросети. Думаю если скормите ей свой код и зададите вопрос она его не только отредактирует но и доходчиво объяснит

 

При отработке этой программы lisp обращаться к пользователю что бы тот выбрал поверхность, выбираю поверхность - отметки не ставит

 

Только непонятно зачем вообще нужен такой лисп если отметки по поверхности ставятся штатными средствами.

 

ruslua, в Civil есть штатная команда "опустить точки на поверхность". Выбираешь скопом все нужные точки и опускаешь все автоматом.