View Single Post
  #13  
Old 03-01-2021, 03:20 AM
tom kirkman's Avatar
tom kirkman tom kirkman is offline
Registered User
 
Join Date: Oct 2002
Location: Perrysburg, Ohio
Posts: 397
Re: OSD => Save current WP into .mi file

I have this macro, that takes a workplane, saves it as an MI file and then loads it into annotation.

Code:
(sd-defdialog 'wp2anno
 
 	:dialog-title "WP to Annotation"
  
	:variables
 	'(
		(wptje :initial-value (sd-inq-curr-wp) :value-type :wp :title "Workplane")
	)

 	:local-functions
  	'(
   		(doit ()  
			(mi_out :select :workplane wptje :FILENAME "C:/working/out/plot.mi" :OVERWRITE )
			(AM_LOAD_ANY_MI :FILENAME "C:/working/out/plot.mi")  
		)
	)
	:ok-action 
	'(doit)
)
__________________
Tom Kirkman

Creo Elements/Direct 20.1
Dell Precision 3581
https://www.o-i.com
Reply With Quote