Hello everyone I wanted to ask you a question as I read from a vb application a string of an autocad file? ?
I hope to be clear, for now I am trying to use the methods
acadselectionset and acadtext but what escapes me...
no clear no.. What do you mean to read a string? .you are what I needed, take the value of a string from a sheet cad...
find a text in the drawing and detect its string value?
with this selection a text and pick the value string.... I don't know if that's what you were asking
Sorry the syntax but I drizzled qlc ready and adapted to the very....
public sub test_to_string()
dim filtertype(0) as integer
dim filterdata(0) as variant
dim sset as acadselectionset
dim element as acadtext
on error resume next
' delete the selection set if it exists
if not isnull(thisdrawing.selectionsets.item("element")) then
set sset = thisdrawing.selectionsets.item("element")
sset.delete
end if
set sset = thisdrawing.selectionsets.add("element")
filtertype(0) = 0
filterdata(0) = "text"
sset.selectonscreen filtertype, filterdata
for each element in sset
msgbox (element.textstring)
next element
end sub
I don't know. or attach the code otherwise so it is difficult to understand what is wrong...
option explicit
private type browseinfo
howner as long
pidlroot as long
pszdisplayname as string
lpsztitle as string
ulflags as long
lpfn as long
lparam as long
iimage as long
end type
private const bif_returnonlyfsdirs = &h1
private declare function shbrowseforfolder lib "shell32.dll" alias "shbrowseforfoldera" (lpbrowseinfo as browseinfo) as long
private declare function shgetpathfromidlist lib "shell32.dll" alias "shgetpathfromidlista" (byval pidl as long, byval pszpath as string) as long
private declare sub cotaskmemfree lib "ole32.dll" (byval pv as long)
public function centrale()
dim prova as string, myname as variant
dim acadapp as new acadapplication
dim fso as variant, f as filesystemobject
set fso = createobject("scripting.filesystemobject")
set f = new filesystemobject
dim folder as variant, files as variant, file as variant, vet() as string
dim i as integer, counter as integer
dim cart as acaddocument, selection as acadselectionset
dim text as acadtext
set cart = new acaddocument
set selection = cart.selectionsets.add("testo")
call l03_browsefolder(prova, "")
set folder = f.getfolder(prova)
set files = folder.files
counter = files.count
redim vet(counter)
i = 0
for each file in files
if instr(1, file.name, ".dwg") <> 0 then
vet(i) = file.name
i = i + 1
end if
next file
dim filtertype(0) as integer
dim filterdata(0) as variant
filtertype(0) = 0
filterdata(0) = "text"
acadapp.visible = true
acadapp.documents.open (prova & "\" & vet(1))
dim var(10) as variant
var(0) = 1
call test_to_string
end function
public function l03_browsefolder(path as string, titolo as string)
dim browseinfo as browseinfo, lpidlist as long
dim sbuffer as string
with browseinfo
.howner = 0&
'.iimage = 3
'.lparam = lstrcat("cerca directory tipici", "")
'.lpfncallback
.lpsztitle = titolo 'lstrcat("cerca directory tipici", "")
'.pidlroot =
.pszdisplayname = titolo
.ulflags = 3 '198
end with
lpidlist = shbrowseforfolder(browseinfo)
if (lpidlist) then
sbuffer = space(2600)
shgetpathfromidlist lpidlist, sbuffer
sbuffer = left(sbuffer, instr(sbuffer, vbnullchar) - 1)
end if
path = sbuffer
end functionyou probably have to set the dtexted variable to 1 otherwise does not write the text but asks you the string.. .
dim acadapp as new acadapplication
acadapp.visible = true
acadapp.documents.open(prova & "\" & vet(1))