sketched symbol

[Anonymous]

I have a "last saved" symbol. I'd like to put it
in the template.idw so every time i creat a new
drawing the symbol will be inserted automatically.

Seems it's not working the way i expected.

Anybody any idea?

Thanks

[Anonymous]

You can copy it from you original drawing, and
paste it into the idw but both have to be open.  Highlight it in the
original drawing in the browser.  highlight the item control c. 
Go to the idw templates browser and go to sketch section in the browser, control
v.

Ole

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"lijieliang" <
href="mailto:lijieliang@yahoo.com">lijieliang@yahoo.com> wrote in
message
href="news:f17f799.-1@WebX.maYIadrTaRb">news:f17f799.-1@WebX.maYIadrTaRb...

I
have a "last saved" symbol. I'd like to put it
in the template.idw so
every time i creat a new
drawing the symbol will be inserted
automatically.

Seems it's not working the way i expected.

Anybody any idea?

Thanks

[Anonymous]

I think what he want is the ability to hit "New" and have the symbols show up.
By default, this does not work (a big failure, if you ask me). BUT, Kent Keller
has created a routine that will do what you want. Basicly, it OPENS the
template, save copy as..., close template, open new file. This keeps all symbols
(and rev block) inserts. Just paste this into your "default.ivb" (Change path to
YOUR template directory)

Public Sub NewDrawing()

Dim oDoc As DrawingDocument

Set oDoc = ThisApplication.Documents.Open("C:\AutoDesk\Inventor
7\Templates\Standard.idw", True)

Dim oFileDlg As FileDialog

Call ThisApplication.CreateFileDialog(oFileDlg)

oFileDlg.Filter = "Inventor Drawing File (*.idw)|*.idw|All Files (*.*)|*.*"

oFileDlg.DialogTitle = "New File Name"

oFileDlg.CancelError = True
On Error Resume Next
oFileDlg.ShowSave

oDoc.SaveAs oFileDlg.FileName, True

oDoc.Close True
Set oDoc = ThisApplication.Documents.Open(oFileDlg.FileName, True)

End Sub


--
Dave Jacquemotte
Automation Designer
www.autoconcorp.com



"Ole Germer" wrote in message
news:FD7B564EFC7FF72C127523470882A6A3@in.WebX.maYIadrTaRb...
> You can copy it from you original drawing, and paste it into the idw but both
have to be open. Highlight it in the original drawing in the browser.
highlight the item control c. Go to the idw templates browser and go to sketch
section in the browser, control v.
>
> Ole
> "lijieliang" wrote in message
news:f17f799.-1@WebX.maYIadrTaRb...
> I have a "last saved" symbol. I'd like to put it
> in the template.idw so every time i creat a new
> drawing the symbol will be inserted automatically.
> Seems it's not working the way i expected.
>
> Anybody any idea?
>
> Thanks
>

[Anonymous]

Oh yeah, I forgot. After pasting this into your default, you should close IV,
re-start IV, go into customize and put the macro icon in your toolbars. Read S.
Dotson's tutorial on creating icons for futher info.

--
Dave Jacquemotte
Automation Designer
www.autoconcorp.com



"Dave Jacquemotte" wrote in message
news:AD8B3CB886F0D66915E46BA46E5C112D@in.WebX.maYIadrTaRb...
> I think what he want is the ability to hit "New" and have the symbols show up.
> By default, this does not work (a big failure, if you ask me). BUT, Kent
Keller
> has created a routine that will do what you want. Basicly, it OPENS the
> template, save copy as..., close template, open new file. This keeps all
symbols
> (and rev block) inserts. Just paste this into your "default.ivb" (Change path
to
> YOUR template directory)
>
> Public Sub NewDrawing()
>
> Dim oDoc As DrawingDocument
>
> Set oDoc = ThisApplication.Documents.Open("C:\AutoDesk\Inventor
> 7\Templates\Standard.idw", True)
>
> Dim oFileDlg As FileDialog
>
> Call ThisApplication.CreateFileDialog(oFileDlg)
>
> oFileDlg.Filter = "Inventor Drawing File (*.idw)|*.idw|All Files
(*.*)|*.*"
>
> oFileDlg.DialogTitle = "New File Name"
>
> oFileDlg.CancelError = True
> On Error Resume Next
> oFileDlg.ShowSave
>
> oDoc.SaveAs oFileDlg.FileName, True
>
> oDoc.Close True
> Set oDoc = ThisApplication.Documents.Open(oFileDlg.FileName, True)
>
> End Sub
>
>
> --
> Dave Jacquemotte
> Automation Designer
> www.autoconcorp.com
>
>
>
> "Ole Germer" wrote in message
> news:FD7B564EFC7FF72C127523470882A6A3@in.WebX.maYIadrTaRb...
> > You can copy it from you original drawing, and paste it into the idw but
both
> have to be open. Highlight it in the original drawing in the browser.
> highlight the item control c. Go to the idw templates browser and go to
sketch
> section in the browser, control v.
> >
> > Ole
> > "lijieliang" wrote in message
> news:f17f799.-1@WebX.maYIadrTaRb...
> > I have a "last saved" symbol. I'd like to put it
> > in the template.idw so every time i creat a new
> > drawing the symbol will be inserted automatically.
> > Seems it's not working the way i expected.
> >
> > Anybody any idea?
> >
> > Thanks
> >
>
>