당 chi fosse interessato dallo spunto di bolo ho creato la procedura degli express "explode 속성에 텍스트" vba... praticamente fa la stessa cosa, ma non serve avere gli express caricati per farla funzionare.
permette però di visualizzare o meno gli attributi invisili una volta Convertiti 에 testo.
public sub explode_att_text()
dim sset2로 acadselectionset
acadblockreference로 디엠 blocco
dim sset3로 acadselectionset
acadentity로 dim attributo
dim vlabel(0 ~ 100) 변형
dim vtext(0에서 100) 변형
dim kwordlist로 문자열
kwordlist = "n"을
thisdrawing.utility.initializeuserinput 1, 칼리스트
thisdrawing.utility.prompt vblf 및 vblf
dim returnstring 로 문자열
returnstring = thisdrawing.utility.getkeyword("visualizzare attributi nascosti? (s)
: ")
오류는 다음을 다시 시작합니다.
if not isnull(thisdrawing.selectionsets.item("blocco")) 그런 다음
설정 sset2 = thisdrawiang.selectionsets.item("blocco")
sset2. 삭제
끝 면
설정 sset2 = thisdrawing.selectionsets.add("blocco")
dim filtertype(0) 정수
dim filterdata(0) 변형
필터 타입(0) = 0
filterdata(0) = "인출"
필터 타입(1) = 2
' filterdata(1) = "numvan"
sset2.select acselectionsetall, , 필터 타입, 필터 데이터
sset2에 있는 각 blocco
만약 blocco. 다음 것
변형으로 dim array1
배열1 = blocco.getattributes
i = lbound(array1)를 ubound(array1)로
vlabel(i) = 배열1(i).tagstring
vtext(i) = array1(i).textstring
debug.print (vtext (i))를
다음 것 i
blocco. 폭발
blocco.의 특징 기타 제품
오류는 다음을 다시 시작합니다.
if not isnull(thisdrawing.selectionsets.item("attributo")) 그런 다음
설정 sset3 = thisdrawiang.selectionsets.item("attributo")
RSS 피드
끝 면
설정 sset3 = thisdrawing.selectionsets.add("attributo")
dim filtertype1(0) 정수
dim filterdata1(0) 변형
필터 타입1(0) = 0
filterdata1(0) = "attdef"
sset3.select acselectionsetall, , filtertype1, filterdata1
반환 문자열 = ""다음 반환 문자열 = "s"
sset3에 있는 각 attributo를 위해
ucase(returnstring) = "n"이면
if attributo.invisible = true 그때 attributo. 기타 제품
끝 면
i = lbound(array1)를 ubound(array1)로
if attributo.tagstring = vlabel(i) 다음
attributo.tagstring = vtext(i)
끝 면
다음 것 i
다음 attributo
끝 면
RSS 피드
다음 blocco
sset2. 삭제
끝 이하
.name = 설정된 이름