[P4s8x]

Имеется деталь (3D solid)на ней есть отверстия. Как сделать следующее, Нажимаю на пиктограмку, Программа спрашивает "Введите количество отверстий", я ввожу например 5, далее вопрос "Выберите окружность" я мышкой навожу и нажимаю, и у меня ставится диаметр и заранее внесённый текст после диаметра, например 4 отв. D5 H12.
Я это сделал, но работает только на 2D отверстиях

Код:

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

(defun c:h12 ()
(setvar "cmdecho" 0)
(setq i (getstring "Количество отверстий:" ))
(setq e (entsel "Выберите окружность: "))
(setq otv (strcat i "отв."))
(if (= i "1") (setq otv ""))
(command "_dimdiameter" e "text" (strcat otv "<> h12"))
)

Помогите сделать и на 3D, что надо изменить тут?

[P4s8x]

ENTSEL не хочет выбирать 3D отверстие, какая функция выбирает окружность?

[P4s8x]

Код:

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

(defun C:insblock12 (/ kol ED NEW)
(setvar "cmdecho" 0)
(setq kol (GETINT "\nКоличество отверстий: "))
(command "_dimdiameter" "\" "\")
(setq ED (ENTGET (ENTLAST )))
(setq NEW (CONS 1 "<>h12"))
(setq NEW (CONS 1 (STRCAT (RTOS kol 2 0) "отв.<>h12")))
(setq ED (SUBST Then OR Else (ASSOC 1 ED) ED))
(ENTMOD ED)

вот в этой выделенной строке чтото не так
Ребят помогите кто разбирается...

[Кулик Алексей aka kpblc]

Код:

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

(command "_.dimdiameter" pause pause)

[P4s8x]

Код:

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

(defun C:otv ()
(setvar "cmdecho" 1)
(setq i (getstring "Количество отверстий:" ))
(setq otv (strcat i "отв."))
(command "_dimdiameter" "\\")
(if (= i "1") (setq otv ""))
(command "TEXt" (strcat otv "<>"))
)

вот так надо было
всем спасибо