> 1 <

Автор Сообщение

YuraKlimenko

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#7775   2017-05-09 22:38 GMT+3 часа(ов)      
Здравствуйте, не получается использовать стандартную команду автокада fillet, то есть спряжение. Нужно сделать скругления на фигуре. Вроде код правильный, но не получается. В коде выделен комментариями проблемный участок
(command "_-view" "_swiso")
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(command "_vscurrent" "_c")
 
(setq b1 (getpoint "\n Выберите базовую точку: "))
(setq b2 (mapcar '+ b1 (list 44 22 0)))
(command "_box" b1 b2 12)
(setq box (entlast))
(setq c1 (mapcar '+ b1 (list 44 11 0)))
(setq c2 (mapcar '- c1 (list 0 0 11)))
 
(command "_cylinder" c2 12 34)
(setq cyl (entlast))
(command "_subtract" box"" cyl"")
(command "_cylinder" c2 12 34)
(setq cyl2 (entlast))
 
(command "_cylinder" c2 7 34)
(setq cyl3 (entlast))
(command "_subtract" cyl2"" cyl3"")
(setq c3 (mapcar '- c1 (list 24 0 0)))
(command "_cylinder" c3 4 34)
(command "_subtract" box"" (entlast)"")
 
(setq b3 (mapcar '- c3 (list 8 0 0)))
(setq b4 (mapcar '+ b3 (list 0 7 0)))
 
(setq b5 (mapcar '- b4 (list 12 14 0)))
(command "_box" b4 b5 12)
(command "_subtract" box"" (entlast)"")
 
(setq c4 (mapcar '- b4 (list 6 0 0)))
(setq c5 (mapcar '+ c4 (list 0 10 6)))
(command "_cylinder" c5 2.5 34)
(command "_rotate3d" "_l" "" "_xaxis" c5 90)
(command "_subtract" box"" (entlast)"")
 
(setq b6 (mapcar '+ c2 (list 0 2.5 0)))
(setq b7 (mapcar '- b6 (list 9 5 0)))
 
(command "_box" b6 b7 34)
(command "_subtract" cyl2"" (entlast)"")
 
;проблема
(setq b8 (mapcar '+ b1 (list 0 2 0)))
(command "_fillet" b8 "" "" 6 "")
 
(setq b9 (mapcar '+ b8 (list 0 0 12)))
(command "_fillet" b9 "" "" 6 "")
 
(setq b10 (mapcar '+ b1 (list 0 20 0)))
(command "_fillet" b10 "" "" 6 "")
 
(setq b11 (mapcar '+ b10 (list 0 0 12)))
(command "_fillet" b11 "" "" 6 "")
;конец проблемы
 
 
 
;(setvar "osmode" osm)
 
> 1 <


Онлайн :

0 пользователь(ей), 10 гость(ей) :




Реклама на сайте: