Выделение элементов массива - Lisp
Формулировка задачи:
Проблема вот в чем
у меня есть окружность - я сделала круговой массив из 6 элементов, и теперь мне надо их выдавить, но имя у меня имеет только один "родоначальник" этих кругов. и я уже не знаю что и делать
вот само создание круга:
Листинг программы
- (command "_circle" o4 (/ b7 2)) (setq circle (entlast))
- (command "_rotate3d" circle "" o4 s1 "90")
- (command "_array" circle "" "_p" p12 "6" "360" "")
Решение задачи: «Выделение элементов массива»
textual
Листинг программы
- (defun lastents ( EN / lst)
- ;;; --------------------------- ;;;
- ;;; Find List of Last Entities ;;;
- ;;; --------------------------- ;;;
- (while (setq EN (entnext EN))
- (setq lst (cons EN lst))
- )
- )
- ;; Get Last Entity
- (setq en (entlast))
- ;; Make Make a Circle & an Array of Circles
- ;; ...
- ;; Get Circles
- (setq lst (lastents en))
- ;; Process Circles
- ;; ...
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
