Некоторые без када жить не могут...В новой версии есть экспорт в DFX, накой хрен он нужен....
Что? в версии 3,70 бил експорт? в каком формате? какой конвертер? у меня эсть 3,51, 4,16, 4,26 и 4,28 версии, давайте 3,70 с этом конвертер - мне нужен експорт, чтоб сделал чертежи с отверстия для всех детали в автокаде....
Tnx Zheka for the DXF convertor for PRO100.
But it works only with versions 3.xx.
Do you have convertor for versions 4.16, 4.28, ... ?
У меня PRo100 4.26.8 при выводе на печать из меню форма
саму деталь и размеры выводит а вот сетку нет. Подскажите плиз
чё делать. Без сетки труднее повторить деталь(столешницу например)
на ДСП
Ага добрался, да только вижу что уже нашлиcthu, добрался до дома то?
Всё то ты знаешьZheka сказал(а):......Похоже cthu не скоро доберется...)))))............
Sub blank()
'///////////////////////
' Макрос1
' Макрос записан 06.07.2007 Yason
' http://forum.yason.org.ua
'///////////////////////
'Очистка спецификации
Sheets("Спецификация").Select
Range("B16:E70,H16:K70").Select
Selection.ClearContents
Range("B16").Select
Sheets("Импорт PRO100").Select
'Вставка копированного текста из PRO100
Range("E1").Select
ActiveSheet.PasteSpecial Format:="Текст", Link:=False, DisplayAsIcon:= _
False
Range("E1").Select
' Поиск пустой ячейки
Do While Not IsEmpty(ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
'Выделение заданных ячеек листа
Dim strSelTop As String, strSelBottom As String
' Перемещение на один курсор вверх
strSelBottom = ActiveCell(0, 1).Address
strSelTop = Cells(1, ActiveCell.Column + 3).Address
Range(strSelTop & ":" & strSelBottom).Select
'Фильтровка по алфавиту
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' Вставка списка в спецификацию
Selection.Copy
Sheets("Спецификация").Select
Range("B16").Select
Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _:=False,
Transpose:=False
Sheets("Импорт PRO100").Select
Columns("E:K").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E1").Select
End Sub
Может быть из-за старого принтера.В редакторе форм сетку видно хорошо. При выводе на печать она еле различима. А из самой программы ложу деталь на пол или на стену
делаю прозрачной(контуры) на печать выходит деталь сетки нет вообще.
Если детали не прозрачные сетка есть но тогда от неё пользы мало.
Вид план использовал-сетку на печать не даёт.