topic Re: in VBA Forum

Pause Symbol

Anonymous — Mon, 21 Feb 2000 16:30:46 GMT

From the Visual Basic help files of VB Design
http://vbdesign.hypermart.net/cadpages/

Hi Tom,
Without seeing the code you have so far, I offer you this:

ThisDrawing.Utility.GetAngle

This will allow the user to enter a number at the command line or pick on
the screen (and it will "pause" code execution until it gets the value)

Randall Rath
VB Design

Re: Pause Symbol

Anonymous — Mon, 21 Feb 2000 16:38:48 GMT

Someone here wrote a Lisp routine that looks something like this:

(defun C:Curbs ()
(defun CURBR ()
(command "insert" "TCBCR" insp (getvar "ltscale") "" pause (rtos
TC)
(rtos BC) (princ)
)
;; Begin Main Program
;;Stuff here to get ins pt , desc info, elev etc & calc TC & BC
values

call CURBR
(princ)
)

I can do everything in VBA except the pause to allow the user to specify
an arbitrary rotation. Is there a way to do this in VBA (A2k - LDD2)?

Thanks - Tom

Re: Pause Symbol

Anonymous — Mon, 21 Feb 2000 17:01:07 GMT

Randall,
Here's the code.

Private Sub insertBlock(blkName As String)
Dim oInsPt As Variant 'User selected insertion point
Dim vAttributes As Variant 'Insertion Block Attributes
Dim vScale As Variant
Dim oBlock As AcadBlockReference
Dim oLine As AcadLine

On Error Resume Next

vScale = ThisDrawing.GetVariable("ltscale")
Me.Hide
oInsPt = ThisDrawing.Utility.GetPoint(, vbCr & "Select Insertion
Point: ")
If Err.Number = 0 Then
Set oBlock = ThisDrawing.ModelSpace.insertBlock(oInsPt, blkName,
vScale, vScale, 1, 0)
vAttributes = oBlock.GetAttributes
vAttributes(0).TextString = txtTop.Text
vAttributes(1).TextString = TxtBottom.Text
Set oLine = ThisDrawing.ModelSpace.AddLine(TB_Curbs.oPt, oInsPt)
End If

Set oInsPt = Nothing
Set vAttributes = Nothing
Set vScale = Nothing
Set oBlock = Nothing
Set oLine = Nothing
End Sub

I can't see a way of interrupting Set oBlock in order to get user
input. There is some mention in the Help about using the \
character with macros but I couldn't make that work either.

- Tom

Randall Rath wrote in message
news:88rq2d$pko9@adesknews2.autodesk.com...
> From the Visual Basic help files of VB Design
> http://vbdesign.hypermart.net/cadpages/
>
> Hi Tom,
> Without seeing the code you have so far, I offer you this:
>
> ThisDrawing.Utility.GetAngle

Re: Pause Symbol

Anonymous — Mon, 21 Feb 2000 18:54:09 GMT

Hi Frank,
I covered all of the system variables for R15 sometime ago..I think it was
last October. If you look in the A.C.A.D. Archives you can find a complete
documentation with sample code for each.
I love the name on that one

Randall Rath

Re: Pause Symbol

Anonymous — Mon, 21 Feb 2000 19:15:47 GMT

Hi Frank,
Marie handles all of that stuff now, she must not have read my sticky note!
If you are still not getting the letter I suggest you re-subscribe,

http://vbdesign.hypermart.net/cadpages/a_code_a_day_acad.htm

that way it will go directly to the boss.

Randall

Re:

Anonymous — Mon, 21 Feb 2000 19:21:22 GMT

Speaking of which, have you stopped cranking out A.C.A.D. or have you just
lost my address due to my ISP Shuffle?

--
Visit me at: http://www2.stonemedia.com/franko

"Randall Rath" wrote in message
news:88s2f4$pl233@adesknews2.autodesk.com...
> Hi Frank,
> I covered all of the system variables for R15 sometime ago..I think it was
> last October. If you look in the A.C.A.D. Archives you can find a
complete
> documentation with sample code for each.
> I love the name on that one
>
> Randall Rath
>
>

Re: Pause Symbol