eksodus

Макросы в Power Mill

415 posts in this topic

4 часа назад, Konstantin_VP сказал:

Если речь о траекториях в активной папке, то:

Показать содержимое

FUNCTION MAIN {

ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT //отключение эхо

STRING $nmb = '1' //счётчик

STRING $FolderName = ACTIVE_FOLDER() //определяет путь по активной папке

STRING $T_Folder = substring($FolderName, 0, 8) //отображает строчку с позиции 0 до 8

//Если нет активной папки в "Toolpath"
If $T_Folder !='Toolpath' {
$FolderName = 'Toolpath'
}

FOREACH t IN folder ($FolderName) {
STRING $OneName = $t.Name              //имя активной траектории
//Вызов функции
CALL TolpathCount($OneName, $nmb, $OneName)
}

RESET LOCALVARS // очистить временные переменные


} //FUNCTION MAIN


//счётчик траекторий
FUNCTION TolpathCount (STRING OneName, output STRING nmb, STRING OneName) {

string $newname=$nmb
string $uline = '_'

//Сравнение оригинальной и полученной траектории
IF $newname != $OneName {

//проверка наличия дубликатов
IF entity_exists('Toolpath',$newname) {

While entity_exists('Toolpath',$newname) == 1 {
$newname = $newname+$uline
}

RENAME TOOLPATH $OneName $newname

} else {
RENAME TOOLPATH $OneName $newname
}

} else {
//ничего не делать если названия совпадают
}

$nmb =  int (nmb) + 1 //счётчик траекторий

}

 

Hide

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

Безымянный.png

Share this post


Link to post
Share on other sites


Добрый день. Подскажите пожалуйста по макросу... В этом деле конечно дуб дубом, но я попытался как мог. Хочу добиться чтобы (как на картинке) был выплывающий список, выбирая нужный мне пункт, значение, которое я выберу, применялось бы ко всем траекториям. Выведения данного окна я добился, а вот как дальше не могу осилить.

 

Безымянный.jpg

изменение безопасной точки.rar

Share this post


Link to post
Share on other sites

ID: 403   Posted (edited)

3 часа назад, Павел1 сказал:

Добрый день. Подскажите пожалуйста по макросу... В этом деле конечно дуб дубом, но я попытался как мог. Хочу добиться чтобы (как на картинке) был выплывающий список, выбирая нужный мне пункт, значение, которое я выберу, применялось бы ко всем траекториям. Выведения данного окна я добился, а вот как дальше не могу осилить.

 

 

Создайте процедуру , которую вызывайте при создании траектории, в качестве аргумента передавайте значение переменной I. В самой процедуре делайте проверку через iF и выполнение команды

Типа 

 CALL bezop_z(I)

EDIT TOOLPATH $nameX CALCULATE

 

FUNCTION bezop_z(string I){

IF I=="текст"{

EDIT TOOLPATH START TYPE POINT_SAFE

}ELSE IF I=="овомалворваолр"{

EDIT TOOLPATH START TYPE BLOCK

...итд

}

 

Edited by scorpion1007

Share this post


Link to post
Share on other sites
9 часов назад, scorpion1007 сказал:

Создайте процедуру , которую вызывайте при создании траектории, в качестве аргумента передавайте значение переменной I. В самой процедуре делайте проверку через iF и выполнение команды

Типа 

 CALL bezop_z(I)

EDIT TOOLPATH $nameX CALCULATE

 

FUNCTION bezop_z(string I){

IF I=="текст"{

EDIT TOOLPATH START TYPE POINT_SAFE

}ELSE IF I=="овомалворваолр"{

EDIT TOOLPATH START TYPE BLOCK

...итд

}

 

Все это делает оператор SWITCH. Он уже прописан с текущем макросе. Не в этом соль. В текущем макросе как минимум неверное обращение к элементу списка в операторе SWITCH.

В приложении мой черновик.

@Павел1

изменение безопасной точки.mac

Share this post


Link to post
Share on other sites

Спасибо большое, scorpion1007 и Kinematik за помощь в данном вопросе. Макрос от Kinematik'а работает, буду его использовать. Чутка его доработаю, если получится, в плане выбора абсолютной точки... чтобы выводилось еще окно для ввода координат. Как предложил вариант scorpion1007 я изначально через операторы if тоже хотел сделать, но потом увидел оператор switch и упор сделал на него.

Share this post


Link to post
Share on other sites

Доброго всем времени! Пишу макрос для расчета массы заготовки. В конечном итоге создаю пользовательский параметр и присваиваю ему вычисленную переменную "massa" в PM. При повторном запуске выдает ошибку что параметр с таким именем "massZag" уже существует, оно и понятно. Думаю нужно через оператор IF записать условие: если "massZag" не существует то создать и вычислить, иначе просто вычислить. Не могу записать данное условие, подскажите пожалуйста.


//Вычисление размеров
REAL dlinaX=Block.Limits.XMax-Block.Limits.XMin
REAL dlinaY=Block.Limits.YMax-Block.Limits.YMin
REAL dlinaZ=Block.Limits.ZMax-Block.Limits.ZMin

 

//Вычисление массы
REAL $massa=((dlinaX*dlinaY*dlinaZ)/1000000000)*2700 //масса в кг

 

//Создание пользовательского параметра
EDIT USERPAR project  TYPE 'Real'
EDIT USERPAR project NAME "massZag"
CREATE USERPAR project
EDIT USERPAR project SELECT 'massZag'
 
//Присвоение массы
$massZag=massa

Share this post


Link to post
Share on other sites
1 час назад, kvint62 сказал:

Не могу записать данное условие, подскажите пожалуйста.

 

Попробуйте что-то такое

IF NOT member($TP.UserParameters._keys,"<имя параметра>" )
  {
  	do smth
  }

 

Share this post


Link to post
Share on other sites
23 часа назад, Kinematik сказал:

Попробуйте что-то такое


IF NOT member($TP.UserParameters._keys,"<имя параметра>" )
  {
  	do smth
  }

 

В моем случае ошибку выдает. Что я мог сделать не так?

 

//Вычисление размеров
REAL dlinaX=Block.Limits.XMax-Block.Limits.XMin
REAL dlinaY=Block.Limits.YMax-Block.Limits.YMin
REAL dlinaZ=Block.Limits.ZMax-Block.Limits.ZMin

 

//Вычисление массы
REAL $massa=((dlinaX*dlinaY*dlinaZ)/1000000000)*2700 //масса в кг

 
IF NOT member($TP.UserParameters._keys,"massZag" )
  {
//Создание пользовательского параметра
EDIT USERPAR project  $TP.Name TYPE 'Real'
EDIT USERPAR project $TP.Name NAME "massZag"
CREATE USERPAR project $TP.Name
EDIT USERPAR project SELECT 'massZag'
 
//Присвоение массы
$massZag=massa
} ELSE {
//Присвоение массы
$massZag=massa
}

Share this post


Link to post
Share on other sites

Подсказали на форуме Autodesk:

IF NOT member($project._keys,"massZag") {
   EDIT PAR CREATE REAL 'massZag'
}

Share this post


Link to post
Share on other sites
Показать содержимое  
ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT

DIALOGS ERROR OFF
GRAPHICS LOCK //отключение обновления экрана


//Проверка на наличие активного Featureset
 BOOL $err = 0
 $err = ERROR $entity("Featureset","").Name

    IF $err {
        MESSAGE WARN "2D модель не акивирована!"
        RETURN
    }

    //Подготовка активного FEATURESET
	EDIT FEATURESET ; DESELECT ALL
	UNDRAW FEATURESET ALL
	DRAW FEATURESET ;

    //ENTITY $sourceFeatureset = $entity("Featureset","")


	//список всех диаметров в активном Featureset
	REAL LIST diameters = extract(components(entity('featureset','')), 'Diameter')
	//Удаление дубликатов из $diameters
    int diameDublicate = remove_duplicates(diameters)

	int i=0
	int j=0

	//список всех Featureset
	STRING LIST $FR = extract(folder('Featureset'), 'name')
	//количество всех Featureset
	int $SizeFR = size($FR)
	
	FOREACH $R IN $FR {
	
	   IF $entity("Featureset","").Name == $R {
	   $j=i+1
       }
			$i=i+1
			}
	$i=j-1

    FOREACH $d IN $diameters {
	
		    EDIT SELECTION DELETE
			EDIT SELECTION FILTER DIAMETER MIN $d
			EDIT SELECTION FILTER DIAMETER MAX $d
			EDIT SELECTION APPLY
			
			COPY FEATURESET $entity("Featureset","").Name SELECTED
			
			$FR = extract(folder('Featureset'), 'name')
			
			
			 string $path = macro_path(0) + "\2DHoles.txt" //путь
			
			// Put the stockmodel info into a tracefile
			//ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT
			TRACEFILE OPEN $path
			//вывод в эхо значения угла и последующая запись его в .txt
			print formvalue EditHole.Shell.Geom.DraftAngle
			TRACEFILE CLOSE
			
			// Put the lines of the textfile into a list
			STRING LIST $States = {}
			FILE OPEN $path FOR READ AS "input"
			FILE READ $States FROM "input"
			FILE CLOSE "input"
			
			
			 BOOL $err = 0
			 $err = ERROR $States[0]
			 IF $err {
			 $States[0] = '0'
			 }
			
            real $DraftAngle = abs(real($States[0]))
			
			
			If $DraftAngle != 0 {
			
			$DraftAngle = $DraftAngle - 0.01
			ACTIVATE Featureset $FR[j]
			EDIT SELECTION DELETE
			EDIT SELECTION FILTER DRAFT_ANGLE MIN $DraftAngle
			EDIT SELECTION APPLY
		    DELETE FEATURESET $FR[j] SELECTED	
			ACTIVATE Featureset $FR[i]
			}
			

			int $HoleDiamCount = size(extract(components(entity('featureset',$FR[j])), 'Diameter'))
			
			//если количество отв. в Featureset = 0 
			If $HoleDiamCount == 0 {
			
			DELETE Featureset $FR[j]
			
			} else {
			
			STRING $featuresetName = "DIAMETER "+$d +'_('+ $HoleDiamCount + ')'
		    RENAME FEATURESET $FR[j] $featuresetName
			
			EDIT SELECTION DELETE
			EDIT FEATURESET ; DESELECT ALL
			
			}
 }
 

UNDRAW FEATURESET ALL
DIALOGS ERROR On
RESET LOCALVARS // очистить временные переменные
GRAPHICS UNLOCK //включение обновления экрана

 

Hide  
Макрос разделяющий отверстия в активной 2D модели по диаметрам и исключающий фаски. Подписывает все диаметры и их количество
1 person likes this

Share this post


Link to post
Share on other sites
Показать содержимое  
ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT

DIALOGS ERROR OFF
GRAPHICS LOCK //отключение обновления экрана


//Проверка на наличие активного Featureset
 BOOL $err = 0
 $err = ERROR $entity("Featureset","").Name

    IF $err {
        MESSAGE WARN "2D модель не акивирована!"
        RETURN
    }

	    //Подготовка активного FEATURESET
		EDIT FEATURESET ; DESELECT ALL
		UNDRAW FEATURESET ALL
		DRAW FEATURESET ;
	
	    //фильтр отв. с углом (фаски, конусы, конические отв.)
		real $DraftAngle = 0.5
	    EDIT SELECTION DELETE
		EDIT SELECTION FILTER DRAFT_ANGLE MIN $DraftAngle
		EDIT SELECTION APPLY
		DELETE FEATURESET ; SELECTED


	//список всех диаметров в активном Featureset
	REAL LIST diameters = extract(components(entity('featureset','')), 'Diameter')
	//Удаление дубликатов из $diameters
    int diameDublicate = remove_duplicates(diameters)	
	
	
	

    FOREACH $d IN $diameters {
	
		    EDIT SELECTION DELETE
			EDIT SELECTION FILTER DIAMETER MIN $d
			EDIT SELECTION FILTER DIAMETER MAX $d
			EDIT SELECTION APPLY
			//копирование 2D модели с выбранными отв.
			COPY FEATURESET $entity("Featureset","").Name SELECTED
			
			RENAME FEATURESET # '2DHole'
			
			int $HoleDiamCount = size(extract(components(entity('featureset','2DHole')), 'Diameter'))

			STRING $featuresetName = "DIAMETER "+$d +'_('+ $HoleDiamCount + ')'
		    RENAME FEATURESET 2DHole $featuresetName

			}
			
	EDIT FEATURESET ; DESELECT ALL
 

UNDRAW FEATURESET ALL
DIALOGS ERROR On
RESET LOCALVARS // очистить временные переменные
GRAPHICS UNLOCK //включение обновления экрана

 

Hide  

макрос такой же как и предыдущий, просто понял что нет смысла в точном значении угла, я задал его просто как минимальный для всех (0.5). 

Что делает макрос:

из активной 2D модели исходя из минимального угла удаляются все угловые отв. (фаски, конусы и конические отв).После чистки 2D модель разбивается по диаметрам отверстий. Полученные 2D модели переименовываются в Diameter + значение диаметра + (количество отв) .

Макрос работает довольно шустро.

2 people like this

Share this post


Link to post
Share on other sites
Показать содержимое  
ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT
GRAPHICS LOCK
DIALOGS ERROR OFF
DIALOGS MESSAGE OFF


//Проверка на наличие активного NC
 BOOL $err = 0
 $err = ERROR $entity("ncprogram","").Name

    IF $err {
        MESSAGE WARN "Активируйте NC-файл!"
        RETURN
    }


STRING $dirpath = project_pathname(0) + "\SetupSheets_files\snapshots"
MKDIR $dirpath //создаёт не существующие папки

//счётчик
int $Count = 1
//имя файла
string $BITMAPname ='_ncp' + '-' + entity('ncprogram','').Name+ '.png'
//путь файла
string $FilePath = $dirpath+'\'+ $Count + $BITMAPname

//наращивать счётчик пока существует под данным номером файл 
While FILE_EXISTS($FilePath) == true {
$Count = $Count + 1
$FilePath = $dirpath+'\'+ $Count + $BITMAPname
}

//фото текущего положения
KEEP BITMAP ${FilePath} Yes

DIALOGS ERROR On
DIALOGS MESSAGE On
GRAPHICS UNLOCK //включение обновление экрана

 

Hide  

Макрос создаёт фото текущего положения детали. Путь сохранения: текущий проект\SetupSheets_files\snapshots. Шаблон названия скриншота: счётчик+_ncp+название активного NC +.png 

1 person likes this

Share this post


Link to post
Share on other sites

Добрый день. Макрос после запуска импортирует модель, которую я укажу. Как сделать, что при select открывалась сразу рабочая папка. Текущую рабочую папку меняю примерно раз в месяц, задана под кнопкой 1. Хочу чтоб сделать так, чтоб папка автоматом открывалась

2019-10-11_132920.png

Share this post


Link to post
Share on other sites

Добрый день. Хотел бы узнать как удалять элементы без перемещения в корзину?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.



  • Сообщения

    • zelinder
      ... возможно включен соответствующий фильтр?
    • Крутой инвестор из ЕС
      Пророк всем нам грозится кулаком     А также Турта обещает русским британцам, что скоро у них будет повод для гордости     Давайте порадуемся за них!   
    • co11ins
      Пошляк. 
      сосать, в смысле нефть.  В идеале ртом, а не как в видосе. 
    • Guterfreund
      Честно говоря, меня смутила цифра 4.75 :)... Я на старте писал о скорости 4-5 м/с. Почему именно 4.75? 
    • Надежда Бал
      Российская САПР-платформа nanoCAD Plus, содержащая все необходимые инструменты базового проектирования, прошла внутреннее тестирование совместимости с операционной системой «Лотос» от российского разработчика ООО «Энстрим». Подтверждена полная совместимость и корректность работы как 32-, так и 64-разрядной версии nanoCAD Plus, а также модулей, входящих в состав платформы, включая модуль параметрического трехмерного моделирования. Проведены испытания многопользовательской инфраструктуры с поддержкой «плавающих» сетевых лицензий. Результаты испытаний позволяют уверенно рекомендовать применение САПР-платформы nanoCAD Plus в операционной системе «Лотос». Это позволит госструктурам и корпорациям эффективно использовать протестированное программное обеспечение для организации более продуктивной работы.     На базе операционной системы «Лотос» и САПР-платформы nanoCAD Plus организации могут создавать готовые рабочие места госслужащих и офисных сотрудников, оснащенные полным набором необходимого программного обеспечения для работы в САПР. Программный комплекс может применяться в органах государственной власти, государственных корпорациях, образовательных учреждениях и бизнес-структурах.     ОС «Лотос» позволяет администраторам поддерживать групповые политики в домене службы каталогов Active Directory и Lotos Directory. Графическая консоль администрирования упрощает сотрудникам управление ИТ-инфраструктурой. Дополнительно разработчики предусмотрели инструменты для простого перехода на ОС с ранее установленных систем. «Лотос» поддерживает популярные средства защиты информации (СЗИ), в том числе криптографическую защиту (СКЗИ). Система полностью соответствует требованиям законодательства в области защиты информации.     О компании «Нанософт»
      Компания «Нанософт», созданная в 2008 году, ориентируется на инновационные методы разработки и распространения программного обеспечения. Цель компании – создание доступного отечественного САПР. «Нанософт» создает условия для массового перехода от использования нелицензионного программного обеспечения САПР к цивилизованной работе с легальными продуктами и делает все от него зависящее, чтобы затраты пользователей на этот переход были минимальными. Сайт компании: www.nanocad.ru   О компании «Энстрим»
      ООО «Энстрим» – российский разработчик операционных систем, который осуществляет свою деятельность с 2009 года. С 2017 года компания входит в Реестр разработчиков Минкомсвязи РФ, с 2018-го является членом АРПП «Отечественный софт» и Комитета по интеграции прикладных программ. Входит в Экспертный совет производителей российских информационно-коммуникационных технологий Временной комиссии Совета Федерации по развитию информационного общества и Центра компетенций по импортозамещению в сфере информационно-коммуникационных технологий. Основными пользователями решений «Энстрим» являются органы государственной власти, бюджетные учреждения, предприятия ОПК. Операционная система «Лотос» включает четыре редакции для серверов, рабочих станций, терминальных станций, инфокиосков. Поддерживает архитектуры x64, x86, MIPS, ARM и предлагает: пользователям – привычный интерфейс, предсказуемое поведение системы, нативный запуск приложений Win32, работу с корпоративной почтой, адресной книгой, календарем, общими сетевыми ресурсами; администраторам – уникальные инструменты администрирования: поддержку групповых политик как в домене Active Directory, так и в собственной реализации службы каталогов Lotos Directory, наличие графической консоли администрирования, простые инструменты миграции с ранее установленных систем, поддержку популярных СЗИ и СКЗИ. Операционная система «Лотос» совместима с большинством государственных информационных систем. Следите за новостями компании на сайте и в Facebook.  
    • Надежда Бал
      Компания «Нанософт» объявляет о выходе новой версии программного продукта nanoCAD Геоника, предназначенного для автоматизации проектно-изыскательских работ и адресованного специалистам отделов изысканий, проектным отделам генплана и инженерных сетей. nanoCAD Геоника 11.0 – специализированное решение на новой версии платформы nanoCAD, предназначенное для специалистов отделов изысканий и генплана, проектировщиков инженерных коммуникаций и автодорог.   Обновленный пакет программы по-прежнему состоит из шести модулей-компонентов («Топоплан», «Генплан», «Сети», «Трассы», «Сечения» и «Геомодель»), сохранена и идеология их взаимосвязи. Модуль «Топоплан» является ядром программного комплекса и необходим для работы других модулей.   Право коммерческого использования предоставляется при покупке годовой или бессрочной лицензии. Стоимость временной или бессрочной лицензии складывается из стоимости выбранных компонентов. Ознакомиться с ценами вы можете в разделе «Купить» на сайте компании «Нанософт».   «Функциональная часть nanoCAD Геоника 11.0 полностью идентична ПК GeoniCS 2020. В новой версии у нас появилась поддержка IFC-формата для цифровых моделей рельефа и инженерных коммуникаций, добавлены ведомости общего вида, а также линейных объектов, включена возможность работы с семантикой (определение, присоединение, просмотр и редактирование набора семантических свойств) и многое другое. За обновлением следует обратиться к своему авторизованному партнеру», – говорит директор направления землеустройства, изысканий и генплана Светлана Пархолуп.   nanoCAD Геоника 11.0 можно загрузить с сайта. Используя Личный кабинет, зарегистрированные пользователи имеют возможность получить 30-дневную пробную (оценочную) лицензию, позволяющую в полнофункциональном режиме, но без права коммерческого использования ознакомиться с инструментами программы.   Владельцам годовых лицензий будет выдан новый серийный номер для обновления лицензии. Обновление производится в объеме используемых модулей. Также получат новый серийный номер и смогут обновить лицензию владельцы бессрочных лицензий с действующей подпиской. Владельцам бессрочных лицензий без действующей подписки будет доступна функция апгрейда.   Купить   Скачать
    • piden
      @verddan скачал, просчитал, посмотрел) Чуть позже отпишусь детальней. Пока кажется, что расчет верен, а виновата геометрия и/или расположение роликов - они слишком далеко друг от друга.  
    • Kazuki
      Подскажите пожалуйста, как правильно настроить групповую СП на чертеже СБ, чтобы отображалось исполнение 01 (зерк. отражение)?
    • verddan
      UPD - зазоры убрал, не повлияло на результаты
    • Kazuki
      Вы не так поняли, СБ чертёж перед тем как выдать в работу нужно найти и распечатать (это не всегда делает конструктор/разработчик), если обозначение файла будет заканчиваться на 000, 100, и.т.п. это не значит что это файл СБ, это не правильно, поэтому в окончании файла всегда СБ, пришёл допустим мастер из цеха, нашёл нужный чертёж, распечатал, он знает что это СБ, а что такое 000 нет, скажет не нашёл СБ чертежа. А макрос работает только без СБ в имени файла.