Search the Community
Showing results for tags 'нанокад'.
Found 3 results
-
Здравствуйте, не могли бы вы мне помочь?:) Я видел вы подписаны на nanoCad и хотел бы спросить, не построите ли за хорошую сумму данные чертежи:
-
Доброго времени суток. Подскажите, какие настройки нужно сделать в ПО "НаноКад", чтобы решить следующую проблему: При выгрузке плана из "НаноКад" в PDF файл установлены следующие настройки (скриншот: "Нынешние настройки в Нанокад" выставлялись в соответствии с предыдущими настройками из Автокад (скриншот: "Настройки примененные ранее в Автокад")). При просмотре плана в Adobe Acrobat отображаются информационные сноски, которые в последующем требуются перенести в другой план, который выгружен из программы Автокад. Экспортируемые сноски в другом плане (из Автокада) принимают приближенное, но не точное положение. Прошу помочь в решении вопроса в подборе корректных настроек выгрузки плана в PDF. Добавляю также видео, в котором описывается процесс как должно быть. Заранее благодарю. 20230404_082608_001.mp4
-
Перевожу c VBA на VBScript ковёр Серпинского Платформа ругается: Dim i Dim R Dim x Dim y Dim pointObj For i = 1 To 10000 R = Rnd(1) If R < 0.125 Then x = (x - 0.5) / 3 y = (y - 0.5) / 3 ElseIf R < 0.25 Then x = (x - 0.5) / 3 y = y / 3 ElseIf R < 0.375 Then x = (x - 0.5) / 3 y = (y + 0.5) / 3 If R < 0.5 Then x = x / 3 y = (y + 0.5) / 3 ElseIf R < 0.625 Then x = (x + 0.5) / 3 y = (y + 0.5) / 3 ElseIf R < 0.75 Then x = (x + 0.5) / 3 y = y / 3 ElseIf R < 0.875 Then x = (x + 0.5) / 3 y = (y - 0.5) / 3 Else x = x / 3 y = (y - 0.5) / 3 End If Set pointObj = ThisDrawing.ModelSpace.AddPoint(CStr(x)+","+CStr(y)) Next ZoomExtents Хотя если закомментить цикл If...End If, то какие-то точки строятся К чему бы это?
