| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Не получается сделать фаски

Не получается сделать фаски

Ответ
Поиск в этой теме
Непрочитано 06.04.2017, 16:26 #1
Не получается сделать фаски
YuraKlimenko
 
Регистрация: 06.04.2017
Сообщений: 1

В общем, на lisp написал код построения турбины, но огромные проблемы с созданием фасок (скругление)!
Каждый раз при построении они ведут себя по-разному.
Помогите найти ошибку. Это мой первый код, не судите строго.

Приложил скриншот и файл lisp. На скриншоте видно проблему. Два раза выполнил программу — две разные фаски. Правый вариант правильный, левый нет. При этом первоначально всегда отображается неправильный вариант.
Код:
[Выделить все]
 (command "_-view" "_swiso")
(setq osm (getvar "osmode")) 
(setvar "osmode" 0)	

(setq b1 (getpoint "\n Базовая точка: ")) 
(setq b2 (mapcar '+ b1 (list 44 23 0)))
(command "_box"  b1 b2  12)
(setq box (entlast))
(setq c1 (mapcar '+ b1 (list 44 12 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 22 0)))
(command "_fillet" b10 "" "" 6 "")

(setq b11 (mapcar '+ b10 (list 0 0 12)))
(command "_fillet" b11 "" "" 6 "")

(setvar "osmode" osm)

Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.png
Просмотров: 27
Размер:	26.4 Кб
ID:	186180  

Вложения
Тип файла: lsp 4.LSP (1.6 Кб, 10 просмотров)


Последний раз редактировалось YuraKlimenko, 06.04.2017 в 19:11.
Просмотров: 1709
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Не получается сделать фаски

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
AutoCAD 2008: Проблема при печати файла с неизвестным форматом листа Fredyk AutoCAD 3 12.07.2012 12:26
Редактор блоков, проблема при двойном клике Klim007 AutoCAD 4 22.11.2011 16:43
Проблема с командой оффсет на Автокаде 2011 DWG2004 AutoCAD 3 04.08.2011 14:46
Проблема в Ansys с командой NUMMRG,ALL Taran84 ANSYS 2 11.04.2011 09:45
Проблема с ксероксом Canon PC860 _Oleg_ Разное 5 26.12.2007 10:18