VLobanov
размещено: 21 Декабря 2017
Хочу поделиться лиспом для создания труб (железно-сварочных) ду 6 - ду 300
Очень легко рисовать в 2д. при построении котельной очень удобно.
Так же в архиве есть лисп на отводы.
что бы они заработали - просто перенесите их в экран Автокада. для создания трубы нажимаете P (Pipe) и впишите нужный диаметр. например (P+enter+150+enter начинаем рисовать)
Для создания отвода тоже самое (DRS+enter+150 клик мыши начинаем рисовать)
0.1 МБ
СКАЧАТЬ
Комментарии
Авторизоваться
В лиспе команды лучше писать не, например, как "line", а как, например, "_.line", и опции их, например, не как "c", а как "_с". Тогда наверняка будут работать.
Если кто то улучшит или добавит что то новое в эти лиспы - я думаю все будут только рады...
Boru (DIN 2440) nominal capini giriniz (DN)..150
Boru merkezini giriniz...:circle Неизвестная команда "CIRCLE". Для вызова справки нажмите F1.
Команда:
Команда: d Неизвестная команда "D". Для вызова справки нажмите F1.
Команда: 168.3
Команда: ; ошибка: Функция прервана.
https://www.upload.ee/files/7808996/dnl14431___2.rar.html
Пробуйте.
Увы, действительно не работает.
Boru (DIN 2440) nominal capini giriniz (DN)..150
Boru merkezini giriniz...:circle Неизвестная команда "CIRCLE". Для вызова справки нажмите F1.
Команда:
Команда: d Неизвестная команда "D". Для вызова справки нажмите F1.
Команда: 168.3
Команда: ; ошибка: Функция прервана.
Странно, у меня все работает.
Command: p Boru (DIN 2440) nominal capini giriniz (DN)..150
Boru merkezini giriniz...:circle
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]:
Specify radius of circle or [Diameter]: d Specify diameter of circle: 168.3
Command: circle
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]:
Specify radius of circle or [Diameter] : d Specify diameter of circle : 158.75
Command: mline
Current settings: Justification = Top, Scale = 20.00, Style = STANDARD
Specify start point or [Justification/Scale/STyle]: s
Enter mline scale : 168.3
Current settings: Justification = Top, Scale = 168.30, Style = STANDARD
Specify start point or [Justification/Scale/STyle]: j
Enter justification type [Top/Zero/Bottom] : z
Current settings: Justification = Zero, Scale = 168.30, Style = STANDARD
Specify start point or [Justification/Scale/STyle]:
Specify next point:
Specify next point:
Specify next point or [Undo]: *Cancel*
Цитата:Сообщение #3 от Denver-22Увы, действительно не работает.
Boru (DIN 2440) nominal capini giriniz (DN)..150
Boru merkezini giriniz...:circle Неизвестная команда "CIRCLE". Для вызова справки нажмите F1.
Команда:
Команда: d Неизвестная команда "D". Для вызова справки нажмите F1.
Команда: 168.3
Команда: ; ошибка: Функция прервана.
Странно, у меня все работает.
Command: p Boru (DIN 2440) nominal capini giriniz (DN)..150
Boru merkezini giriniz...:circle
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]:
Specify radius of circle or [Diameter]: d Specify diameter of circle: 168.3
Command: circle
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]:
Specify radius of circle or [Diameter] : d Specify diameter of circle : 158.75
Command: mline
Current settings: Justification = Top, Scale = 20.00, Style = STANDARD
Specify start point or [Justification/Scale/STyle]: s
Enter mline scale : 168.3
Current settings: Justification = Top, Scale = 168.30, Style = STANDARD
Specify start point or [Justification/Scale/STyle]: j
Enter justification type [Top/Zero/Bottom] : z
Current settings: Justification = Zero, Scale = 168.30, Style = STANDARD
Specify start point or [Justification/Scale/STyle]:
Specify next point:
Specify next point:
Specify next point or [Undo]: *Cancel*
НА турецком или азербайджанском