[Yura Agafonov]

Сервис -> Порядок прорисовки -> На задний план
В результате запускается команда "AI_DRAWORDER"
Пробую запустить ее через функцию Command-s

Код:

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

 (Command-s "_AI_DRAWORDER")

Результат - Неизвестная ошибка.
Далее пробую использовать команду "draworder"

Код:

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

 (defun _PutToBack (ent /)
  (command "draworder" ent "" "А" "")
)

(setq _nabor (ssget '((0 . "INSERT"))))
  (setq _n (sslength _nabor))
  (setq i -1)
  (repeat _n
    (setq i (+ i 1)) 
    (setq _ent (cdr (assoc -1 (entget (ssname _nabor i)))))    
      (_PutToBack _ent)   
  )					;end repeat

И данный код не работает. В чем моя ошибка?

[VVA]

Пробуй так

Код:

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

(ai_draworder "_f") ;_send to front
(ai_draworder "_b") ;_send to back

Перед этим сделай набор предварительно выбранным

Код:

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

(if (setq ss (ssget "_:L" '((0 . "INSERT"))))
  (progn
    (SSSETFIRST ss ss)
    (ai_draworder "_b") ;_send to back
    )
  )

По лисперски

Код:

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

(if (setq ss (ssget "_:L" '((0 . "INSERT"))))
    (LM:movetobottom ss)
  )

Недостающее смотреть здесь Draw Order Functions

[Yura Agafonov]

Спасибо. Единственное SSSETFIRST работает только для набора.
А как сделать предварительно выбранным не весь набор, а i-ый элемент набора _ent , то есть

Код:

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

 (setq _ent (cdr (assoc -1 (entget (ssname _nabor i)))))  

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

http://autolisp.ru/2011/12/16/draworder/ ?

[VVA]

Сообщение от Yura Agafonov А как сделать предварительно выбранным не весь набор, а i-ый элемент набора _ent

создать из этого элемента набор. Но лучше проштудировать ссылку в #4

Код:

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

(SSSETFIRST  nil (ssadd _ent))