Testing code formatting appearance

Anonymous · ‎06-23-2009

Hi,

I've hears from Autodesk that the code formatting for newsreaders has been implemented.

Here's some code (from Frank Oquendo's Curve Class) posted via the web site as plain text and formatted with the website recommended squiggly bracket code squiggly bracket.

We soon see how it looks in a newsreader as well as on the web

{code}
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function GetPointAtDistance(Dist As Double) As Variant
Dim RetVal As Variant, Pt(0 To 2) As Double
Dim i As Long

With clsVLAX
.SetLispSymbol "handle", oAcadEntity.Handle
.SetLispSymbol "dist", Dist
.EvalLispExpression "(setq lst (vlax-curve-getPointAtDist (handent handle) dist))"
RetVal = .GetLispList("lst")
.NullifySymbol "handle", "dist", "lst"
End With

For i = 0 To 2
Pt(i) = RetVal(i)
Next

GetPointAtDistance = Pt

End Function ' GetPointAtDistance

{code}

Regards,

Laurie Comerford

Anonymous · ‎06-23-2009

Hi Laurie,

IT WORKS !!!!!!!!!!

Reply from Thunderbird.

Thank you at last Autodesk.

Regards,

Laurie Comerford

laurie.comerford@cadapps.com.au wrote:
> Hi,
>
> I've hears from Autodesk that the code formatting for newsreaders has been implemented.
>
> Here's some code (from Frank Oquendo's Curve Class) posted via the web site as plain text and formatted with the website recommended squiggly bracket code squiggly bracket.
>
> We soon see how it looks in a newsreader as well as on the web
>
> {code}
> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> Public Function GetPointAtDistance(Dist As Double) As Variant
> Dim RetVal As Variant, Pt(0 To 2) As Double
> Dim i As Long
>
> With clsVLAX
> .SetLispSymbol "handle", oAcadEntity.Handle
> .SetLispSymbol "dist", Dist
> .EvalLispExpression "(setq lst (vlax-curve-getPointAtDist (handent handle) dist))"
> RetVal = .GetLispList("lst")
> .NullifySymbol "handle", "dist", "lst"
> End With
>
> For i = 0 To 2
> Pt(i) = RetVal(i)
> Next
>
> GetPointAtDistance = Pt
>
> End Function ' GetPointAtDistance
>
> {code}
>
>
> Regards,
>
>
> Laurie Comerford

Anonymous · ‎06-23-2009

Laurie, now they have you talking to yourself! 🙂

I sent Eric Wright a big Thank you earlier! For those that don't know, Eric
is one of those Adesk employees whose job description includes trying to
keep us Discussion/News group users happy. I don't envy him at all.....

Thank you again, this time publicly, Eric!

Jeff

"Laurie" wrote in message
news:6207107@discussion.autodesk.com...
> Hi Laurie,
>
> IT WORKS !!!!!!!!!!
>
> Reply from Thunderbird.
>
> Thank you at last Autodesk.
>
>
> Regards,
>
>
> Laurie Comerford
>
> laurie.comerford@cadapps.com.au wrote:
>> Hi,
>>
>> I've hears from Autodesk that the code formatting for newsreaders has
>> been implemented.
>>
>> Here's some code (from Frank Oquendo's Curve Class) posted via the web
>> site as plain text and formatted with the website recommended squiggly
>> bracket code squiggly bracket.
>>
>> We soon see how it looks in a newsreader as well as on the web
>>
>> {code}
>> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>> Public Function GetPointAtDistance(Dist As Double) As Variant
>> Dim RetVal As Variant, Pt(0 To 2) As Double
>> Dim i As Long
>>
>> With clsVLAX
>> .SetLispSymbol "handle", oAcadEntity.Handle
>> .SetLispSymbol "dist", Dist
>> .EvalLispExpression "(setq lst (vlax-curve-getPointAtDist (handent
>> handle) dist))"
>> RetVal = .GetLispList("lst")
>> .NullifySymbol "handle", "dist", "lst"
>> End With
>>
>> For i = 0 To 2
>> Pt(i) = RetVal(i)
>> Next
>>
>> GetPointAtDistance = Pt
>>
>> End Function ' GetPointAtDistance
>>
>> {code}
>>
>>
>> Regards,
>>
>>
>> Laurie Comerford

Anonymous · ‎06-26-2009

Posted as plain text from ie8 Newgroup reader

{code}
//CodeHimBelongaKdub © June2009

[CommandMethod("testOPEN", CommandFlags.Session)]
static public void testyOpen()
{
DocumentCollection dm = AcadApp.DocumentManager;
Editor ed = dm.MdiActiveDocument.Editor;

PromptOpenFileOptions POFO = new PromptOpenFileOptions(
"Select a drawing file" );

POFO.InitialDirectory = "F:\\_KDUB_DEV";
POFO.Filter = "AutoCAD DWG Files|*.dwg|AutoCAD DXF Files|*.dxf";

POFO.DialogCaption = "Select a file, dude.";

PromptFileNameResult pr = ed.GetFileNameForOpen(POFO);

if (pr.Status == PromptStatus.OK)
{
dm.Open(pr.StringResult);
}
}

{code}

/// kdub

wrote in message
news:6207123@discussion.autodesk.com...
> Hi,
>
> I've hears from Autodesk that the code formatting for newsreaders has been
> implemented.
>
> Here's some code (from Frank Oquendo's Curve Class) posted via the web
> site as plain text and formatted with the website recommended squiggly
> bracket code squiggly bracket.
>
> We soon see how it looks in a newsreader as well as on the web
>
> {code}
> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
> Public Function GetPointAtDistance(Dist As Double) As Variant
> Dim RetVal As Variant, Pt(0 To 2) As Double
> Dim i As Long
>
> With clsVLAX
> .SetLispSymbol "handle", oAcadEntity.Handle
> .SetLispSymbol "dist", Dist
> .EvalLispExpression "(setq lst (vlax-curve-getPointAtDist (handent
> handle) dist))"
> RetVal = .GetLispList("lst")
> .NullifySymbol "handle", "dist", "lst"
> End With
>
> For i = 0 To 2
> Pt(i) = RetVal(i)
> Next
>
> GetPointAtDistance = Pt
>
> End Function ' GetPointAtDistance
>
> {code}
>
>
> Regards,
>
>
> Laurie Comerford

kerry_w_brown · ‎06-26-2009

Posted as plain text from forums

{code}
//CodeHimBelongaKdub © June2009

[CommandMethod("testOPEN", CommandFlags.Session)]
static public void testyOpen()
{
DocumentCollection dm = AcadApp.DocumentManager;
Editor ed = dm.MdiActiveDocument.Editor;

PromptOpenFileOptions POFO = new PromptOpenFileOptions(
"Select a drawing file" );

POFO.InitialDirectory = "F:\\_KDUB_DEV";
POFO.Filter = "AutoCAD DWG Files|*.dwg|AutoCAD DXF Files|*.dxf";

POFO.DialogCaption = "Select a file, dude.";

PromptFileNameResult pr = ed.GetFileNameForOpen(POFO);

if (pr.Status == PromptStatus.OK)
{
dm.Open(pr.StringResult);
}
}

{code}

/// kdub

// Called Kerry or kdub in my other life.

Everything will work just as you expect it to, unless your expectations are incorrect. ~ kdub
Sometimes the question is more important than the answer. ~ kdub

NZST UTC+12 : class keyThumper<T> : Lazy<T>; another Swamper

kerry_w_brown · ‎07-02-2009

I wonder how much it would cost to have the code pane (and text pane) the FULL width of the forum interface
... to help eliminate the squished presentation ..

??

// Called Kerry or kdub in my other life.

Everything will work just as you expect it to, unless your expectations are incorrect. ~ kdub
Sometimes the question is more important than the answer. ~ kdub

NZST UTC+12 : class keyThumper<T> : Lazy<T>; another Swamper

arcticad · ‎07-02-2009

Lets fix all the current problems, before we make new ones.

Although I would like it to fit the size of the screen.

---------------------------

(defun botsbuildbots() (botsbuildbots))

Anonymous · ‎04-20-2010

Hi everyone,

I have a different issue that i need to add my option e.g. "SourceSafe" in the lookin dropdown of open Dialog. and on seletction of this link i will get the list of files from sourcesafe and load them on the open dialog for the user to select.

Please guide me in case if anyone has idea on this.

Thanks

Regards,

Vikas Edited by: vikashajela on Apr 20, 2010 9:13 AM

Community

Testing code formatting appearance

Testing code formatting appearance

Testing code formatting appearance