Сделай свою работу в Solidworks эффективнее

[Alex8007 27]

51 минуту назад, VOleg сказал:

А зачем первые 4 строчки перед "Sub main()"?

Это остатки от автоматического создания макроса через SolidWorks.

Для черного цвета думаю нужно закомментировать   

'Set Annotation = myNote.GetAnnotation
   'Annotation.Color = vbRed ' устанавливаем цвет

____

я не программист, только начинаю немного разбираться

 

3 минуты назад, malvi.dp сказал:

подскажите как можно регулировать место вставки заметки с датой?

где последний раз курсор был нажат, туда и попадает заметка. Мне так и нужно, т.к разные форматки могут быть, и тогда нужно делать дополнительную привязку. Может можно свойством в форматке, не разбирался.

[Kelny 1 333]

1 час назад, VOleg сказал:

А для черного цвета какие буквы поставить?

Цитата

Annotation.Color = vbBlack ' или просто 0  устанавливаем цвет

 

1 час назад, VOleg сказал:

А зачем первые 4 строчки перед "Sub main()"?

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Для порядку - объявляют объекты и переменные, первые две точно нужны (при желании в данном макросе можно перенести в тело процедуры), третью и четвёртую можно удалить, т.к. данные переменные не используются дальше по коду.

20 минут назад, malvi.dp сказал:

подскажите как можно регулировать место вставки заметки с датой?

А зачем вам датой куда-то попадать? Добавьте заметку на шаблон основной надписи в нужное место, в заметку добавьте ссылку на свойство файла, в свойство файла пропишите необходимый текст или ссылку и всё будет показываться в вашей заметке.

 

Ну а если очень хочется, то для данного макроса myNote.SetTextPoint X, Y, Z 'где X, Y, Z переменные с координатами в метрах или просто числа в метрах, для чертежа Z=0, например: myNote.SetTextPoint 0.01, 0.02, 0

 

 

[Alex8007 27]

38 минут назад, Kelny сказал:

Ну а если очень хочется, то для данного макроса myNote.SetTextPoint X, Y, Z 'где X, Y, Z переменные с координатами в метрах или просто числа в метрах, для чертежа Z=0, например: myNote.SetTextPoint 0.01, 0.02, 0

думаю, на разных форматках не будет попадать в нужную ячейку основной надписи, т.к. ее координаты меняются,лучше через свойство

[VOleg 228]

Спасибо!

Цвет я поменял.

А как сделать короткий формат даты? (28.11.19)

И лучше ее записать в свойство чертежа (например, datasozd, а уже в форматке я вставлю заметку со ссылкой на это свойство. И дата будет всегда там, где надо.

[Kelny 1 333]

23 минуты назад, Alex8007 сказал:

думаю, на разных форматках не будет попадать в нужную ячейку основной надписи, т.к. ее координаты меняются

Если форматки относительно стандартные, что ни что не мешает по размерам листа вычислять положение нужной ячейки и попадать куда надо, если оно требуется.

 

23 минуты назад, VOleg сказал:

А как сделать короткий формат даты? (28.11.19)

Как вариант: 

Цитата

 

Dim MyDate
MyDate = Format(Date, "dd.mm.yy") ' MyDate contains the current system date.

 

 

[VOleg 228]

1 час назад, Kelny сказал:

Как вариант: 

 

Краткий формат отлично получился. Спасибо!

А как эту дату в свойства чертежа записать?

[Kelny 1 333]

11 минуту назад, VOleg сказал:

А как эту дату в свойства чертежа записать?

https://kelnyproject.ucoz.ru/load/6-1-0-8

 

Есть варианты с более новыми методами, например глянуть по ключевым словам:

http://help.solidworks.com/SearchEx.aspx?q=custom+property&nresults=5&sort=&version=2010&lang=english&prod=api

[VOleg 228]

8 минут назад, Kelny сказал:

https://kelnyproject.ucoz.ru/load/6-1-0-8

 

Есть варианты с более новыми методами, например глянуть по ключевым словам:

http://help.solidworks.com/SearchEx.aspx?q=custom+property&nresults=5&sort=&version=2010&lang=english&prod=api

Это Вы хорошо обо мне думаете.

Я еще на Аксесе несколько лет назад с испугу написал базу данных СП, но там по большей степени формы да отчеты в Визуал. Так по Аксесу учебников на русском до дури.

А здесь какая-то непонятная для меня каша... А Хелп на басурманском я не шпрехаю...

[alek77 222]

В 11/28/2019 в 00:47, Maik812 сказал:

Интересует макрос или программа которая пршерстит папку и в файлах свойствах поставит размеры основные. так сказать образмерит содержимое и запишет в свойствах детали.. потом можно будит искать нужную деталь по этому свойству или разгребать . Поиск по геометрии вопщем.

Можно допилить макрос 

Расчет размеров там есть, Вам нужно прописать эти размеры в свойства пользователя, а дальше можно Task использовать для кучи файлов

 

 

[Maik812 309]

2 минуты назад, alek77 сказал:

Можно допилить макрос 

А можешь допилить? я просто не владею...написанием макросов

[alek77 222]

5 часов назад, VOleg сказал:

здесь какая-то непонятная для меня каша... А Хелп на басурманском я не шпрехаю...

Я вот тоже  такой же, но мне очень помогает использование онлайн справки апи sw через хром на смартфоне с автоматическим переводом, лучшего и желать нечего

Попробуйте

 

http://help.solidworks.com/2017/english/api/sldworksapiprogguide/Welcome.htm?id=9cc5c10c23f04011a0be84cacef4d2b4#Pg0

 

 

[Maik812 309]

4 минуты назад, alek77 сказал:

Расчет размеров там есть, Вам нужно прописать эти размеры в свойства пользователя, а дальше можно Task использовать для кучи файлов

 

 

А можно чтоб отдельно прописывалась строчка по каждому значению, но так чтоб понятно было .. ну скаюем по x>Y =100mm  по X->Z =255mm , это пример..чтоб представление иметь.

мне верся солида 2014 нужно

 

[alek77 222]

6 минут назад, Maik812 сказал:

А можешь допилить? я просто не владею...написанием макросов

Пишите версию SW,  и как должны назваться эти свойства пользователя, и куда писать? В настройки или в конфигурации? или по всем конфигурациям надо пройтись?

[Maik812 309]

2 минуты назад, alek77 сказал:

Я вот тоже  такой же

Автор макроса ты или кто то другой ? Если другой то давай попросим вместе.

[alek77 222]

4 минуты назад, Maik812 сказал:

Автор макроса ты или кто то другой ? Если другой то давай попросим вместе.

Макрос мой, часть кода заимствованная

[Maik812 309]

SolidWorks 2014 свойство в поля пользовательские где обозначение и наименование тужа же. в конфигурации наверно, та как я могу сортировать их по активной или последней закрытой.

Запись как Размер по X -> Y  

Только чтоб точно было везде записано без изменений только x\y\z

 

Отдельно по каждой стороне Наверно так

Размер по оси X

Размер по оси Y

Размер по оси Z

Потом их выводить можно , сортировать и искать по ним.

Наверно нужно проходить все конфигурации. и как то автоматизировать чтоб прочесывать было проще , желательно через командную строку.

Выделил фаилы и образмерил все что выделил.

Короче геометрический поиск короче. Вопщето в NX вроде есть таблица параметров туда все заносятся. Почему в SW нет не знаю. Было бы удобно все сводить в свойства вписывать автоматом.

[VOleg 228]

1 час назад, alek77 сказал:

Я вот тоже  такой же, но мне очень помогает использование онлайн справки апи sw через хром на смартфоне с автоматическим переводом, лучшего и желать нечего

Попробуйте

 

http://help.solidworks.com/2017/english/api/sldworksapiprogguide/Welcome.htm?id=9cc5c10c23f04011a0be84cacef4d2b4#Pg0

 

 

Что-то мне не найти функцию присвоения переменной чертежа какого-то значения....

[Snake 60 757]

del

 

Изменено 29 ноября 2019 пользователем Snake 60

[alek77 222]

В 11/29/2019 в 20:03, VOleg сказал:

Что-то мне не найти функцию присвоения переменной чертежа какого-то значения....

Возможно я Вас правильно понимаю, но не могли бы вы добавить конкретики? Если моих знаний не хватит, тут на форуме такие светлые головы есть, что не раз своими советами  из тупиков выводили. Вы же сами мне не раз советы давали, с базами данных  однажды мне помогли хорошо. Я в свое время делал генератор чертежа под листовой металл, 3 вида, размеры, изометрия, развертка, ТТ, шероховатость, примечания, блоки, как все это вставить и т.д. Расчет масштаба вида от размеров детали и выбранного формата. По этим пунктам, что знаю  - подскажу,  пример дам с комментами. Все изучал по примерам, вставку примечаний с одного, вставку размеров с другого. По-тихоньку набрал практически весь код необходимый для создания чертежа по нажатию кнопки. Не смог победить вставку размеров в развертку, времени не хватило, да и сложно такие вещи для новичка, потом работу сменил. Требования к чертежам сменились, переписать хочу вот прямо завтра, но так и пишу, уже почти год. Сначала писал на C#,  на новой работе частично переписал на vba в урезанном варианте, так сказать необходимый минимум. Методы в обоих языках одни и те же, легко справимся, базовые знания у Вас есть, да и люди подскажут,  на то он и форум

[VOleg 228]

19 часов назад, alek77 сказал:

Возможно я Вас правильно понимаю, но не могли бы вы добавить конкретики? 

В свойства чертежа необходимо добавить новое свойство (или создать новое свойство чертеже) с именем, например, daterazrab

затем этому свойству присвоить значение  mydate 

и обновить чертеж

В шаблон основной надписи я добавлю поле с значением daterazrab