button to add "x45°"

[cop1]

Hello everyone,
I would like to create a button that adds the suffix "x45°" to the portion that select: Does anyone know how to do it?
Thank you.
Coptics

 

[delki]

in the draft environment there is the bevel quaota that does it automatically

 

[cop1]

in the draft environment there is the bevel quaota that does it automatically

Yes, it is.
but I would like to have the opportunity to add this suffix if I mistakenly quoted with automatic quotation, or in old drawings that I find in archive. I would also like to understand the mechanism to expand the quotation bar.
greetings
Coptics

 

[delki]

the quota bar cannot expand, for the rsto use the suffix of the quotas.

 

[cop1]

the quota bar cannot expand, for the rsto use the suffix of the quotas.

sin!
I thought he offered these possibilities.
greetings
Coptics

 

[vespa_83]

There are several ways to jump a few steps, so it doesn't seem convenient to make a macro.
when you open the window for the prefix/suffix, if you click on the suffix and scroll with the wheel you will re-propose the last writings you used recently.
If you select so many quotas before changing the suffix, apply the change to multiple quotas.
within the same draft and sheet you can also use the attribute copy (type and/or prefix).

 

[Be_on_edge]

sin!
I thought he offered these possibilities.
greetings
Coptics

I did not understand how you would like to expand the quota bar. Tell me?

 

[cop1]

I did not understand how you would like to expand the quota bar. Tell me?

My intention is to add some custom button.
flow the curtain every time I need prefix or suffix, I would like to avoid it.
Coptics

 

[cacciatorino]

I did not understand how you would like to expand the quota bar. Tell me?

I believe having one or more dedicated workshops each to add a certain prefix/postfix combination to the quota. for example I touch the quota, then I press the button and the cad adds "x45°", or "n.4 to 90°", or things like that. It's something that would be convenient to me, but I don't think it's possible. It would be faster than opening two or three menus in sequence as you have to do now.

 

[delki]

I believe having one or more dedicated workshops each to add a certain prefix/postfix combination to the quota. for example I touch the quota, then I press the button and the cad adds "x45°", or "n.4 to 90°", or things like that. It's something that would be convenient to me, but I don't think it's possible. It would be faster than opening two or three menus in sequence as you have to do now.

you can only do with a macro

 

[Be_on_edge]

you can only do with a macro

easily writeable add, it could be a good exercise to start studying the vba.

 

[cacciatorino]

could be a good exercise to start studying the vba.

at our age, now aware that the time we have left is not infinite, we must learn how to select the goals to focus on! :finger:

 

[vespa_83]

for some healthy personal pride I tried to spulciate with the utility "com object browser" fields and here is the macro in less than an hour:

save the content in a file named e.g.: "dftprefissosuffisso.vbs"
the name is customizable, the extension is always .vbs
from customizing the controls of the ribbon bar, add an icon, macro section,..... (usual procedure),... select type: "all files (*.*)" or similar.

' dftprefissosuffisso.vbs
' gianluca vespignani 19/06/2013 
' cambia prefisso suffisso
' scritto con notepad ++ : \linguaggio\vb

const sedimension = 488188096

call main()

' il codice che segue può essere incollato su vba-excel per ulteriori sviluppi
sub main()

	dim prefisso ' as string
	dim suffisso ' as string
	dim sovrascrivi

	' prefisso e suffisso impostati dall'utente
	prefisso = ""
	suffisso = "x 45°"
	sovrascrivi = true ' attenzione cancella e sovrascrive se i campi = "" 

	dim objapp 'as solidedgeframework.application
	dim objdoc 'as solidedgedraft.draftdocument
	dim objsel 'as solidedgeframework.selectset

	dim objlist 'as ...
	dim objitem 'as ...

	' create/get the application with specific settings
	'on error resume next
	set objapp = getobject(, "solidedge.application")
	objapp.visible = true
	if err then
		err.clear
		msgbox ("prima apri solid edge!!!")
		'set objapp = createobject("solidedge.application")
		'set objdoc = objapp.documents.add("solidedge.draftdocument")
		'call objdoc.close
		'set objdoc = objapp.documents.open(filedft)
		'objapp.visible = true
		' todo: verificare se sono nell'ambiente draft o terminare con exit sub
	else
		set objdoc = objapp.activedocument
	end if
	on error goto 0   'rigestisce gli errori

	' get the active selection
	set objsel = objapp.activeselectset
	if objsel.count < 1 then
		msgbox ("selezionare almeno una quota.")
		exit sub
	else
		for each objitem in objsel
			' filtra gli oggetti seleziona e restituisci solo le quote
			if objitem.type = sedimension then
				'campi:
				if sovrascrivi or prefisso <> "" then
					objitem.prefixstring = prefisso
				end if
				if sovrascrivi or suffisso <> "" then
					objitem.suffixstring = suffisso
				end if
				' campi di tipo string utilizzabili, tested by "com object browser"
				'.superfixstring = "apice" (string)
				'.subfixstring = "pedice" (string)
				'.subfixstring2 = "pedice2" (string)
			end if
		next
	end if


	' release objects
	set objapp = nothing
	set objdoc = nothing
	set objsel = nothing
	' msgbox("finito.")
end sub

 

[vespa_83]

at our age, now aware that the time we have left is not infinite, we must learn how to select the goals to focus on! :finger:

Like family, ortho and hobbies? ;

 

[cacciatorino]

Like family, ortho and hobbies? ;

Something like that.... At present my free time I mainly dedicate it to the racing bike, but for someone else the hobby can be programming. It's a purely subjective fact! :smile:

 

[Be_on_edge]

Something like that.... At present my free time I mainly dedicate it to the racing bike, but for someone else the hobby can be programming. It's a purely subjective fact! :smile:

Ah a bitumaro!

All I'm planning in the summer is for mtb:finger:

 

[cacciatorino]

All I'm planning in the summer is for mtb:finger:

Mtb is something I've been thinking about for a while... :biggrin:

 

[cop1]

Thank you vespa_83!
I tried to launch the macro from excell and it works perfect but... I ask vein... I tried to save it from notespad++ as "45.vb" and it doesn't work: mad:
Is it because I have a x64 version? Are there any other solutions?
Coptics

 

[vespa_83]

then, in the meantime try with vbs extension and not vb (as I wrote above).
I have a 64bit, too.
if it does not go on the 64 bit then you have to run the script through c:\windows\syswow64\wscript.exe
But we'll talk about it tomorrow, but I don't think it's necessary.

Hi.

 

[vespa_83]

So? Renamed to "45.vbs" works?