Search found 251 matches

Re: DVB file

Hi Steven,
Please be sure that you add a reference to the "VisualBasic For Application" library.
VBA7.png
VBA7.png (9.58 KiB) Viewed 22 times

Re: DVB file

Hi Steven, The Trim$ works on my IntelliCAD 11. We can rewrite the Trim$ function using the basic function (LTrim, RTrim). This's a simple function: Function TrimFunction(str As String) While Left(str, 1) = " " str = Replace(str, " ", "", 1, 1) Wend str = StrReverse(str...

Re: DVB file

Try this: Sub DynamicFormLoad(d_Form As Variant, d_Handle As String) Dim t_SREF As BlockInsert 'was AcadBlockReference Dim t_SATT As Attributes Dim t_Index As Integer Dim t_FATT As Variant Set t_SREF = ActiveDocument.HandleToObject(d_Handle) 'was ThisDrawing If (t_SREF.HasAttributes) Then Set t_SATT...

Re: DVB file

Hi Steve, Please use this function to get the block in the attached drawing. Function SSetCreate(d_SetName As String, d_Mode As Integer, d_Data As String) As SelectionSet Dim t_SSET As SelectionSet Dim t_Point1 As Point Dim t_Point2 As Point Dim t_Code As Variant Dim t_Value As Variant Dim FilterTyp...

Re: DVB file

Not sure what is the issue!

Try to replace the "If (t_SSET.Count = 1) Then" by "If (t_SSET.Count >0) Then"

Can you attach the drawing having the block named "DAPDRB00" for reference?

Go to advanced search

cron