[RastaMANNN]

Есть циллиндр (заготовка для колеса), в котором выдавлены и круговым массивом сделаны профили зубьев.. Теперь нужно выбрать сам циллиндр, а затем выбрать примитивы профилей зубьев, которые будут из этого циллиндра вычитаться при выполнении команды "subtract"...

Подскажите, пожалуйста, как это можно сделать в AutoLISP?

Заранее спасибо!

[fixo]

Смотри пример

Код:

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

(defun C:demo(/ cil p0 p1 p2 p3 p4 ss zub)
(command "_.plan" "_w")
(command "_shademode" "_2")  
(setq p0 '(0 0))
(command "_.circle" "_non" p0 100.)
(command "_.zoom" "_c" p0 200.)
(command "extrude" "L" "" 600.)
;;задаем метку для цилиндра
(setq cil (entlast))
(setq p1 '(110.9061 0)
      p2 '(70 0)
      p3 '(64.6716 -26.7878)
      p4 '(102.4639 -42.4419)
      )
(command "_.pline")(mapcar 'command (list p1 p2 p3 p4))(command "_C")
(command "extrude" "L" "" 600.)
;;задаем метку для зуба
(setq zub (entlast))
;;создаем пустой набор
(setq ss (ssadd))
;;добавляем первый зуб в набор
(ssadd zub ss)
(command "_.-array" "L" "" "_P" "_non" p0 8 360 "Y"); число зубьев - 8
;;добавляем все что отрисовано после первого зуба
;;с помощью команды "array" в цикле
(while (setq zub (entnext zub))
(ssadd zub ss))
;; вырезаем все шлицы в цилиндре 
(command "_.subtract" cil "" ss "")
;;устанавливаем вид
(command "_.view" "_swiso")
;;устанавливаем стиль визуализации
(command "_vscurrent" "_C");;<==эта команда может не работать в ранних версиях
;;увеличиваем весь чертеж
(command "_.zoom" "_e")
  (princ)
  )
(C:demo)

~'J'~

[RastaMANNN]

Большое спасибо!!!! Все работает Вы мне очень помогли

[fixo]

Успехов

~'J'~