블록 속성 편집

[mirk]

안녕하세요.

나는 내가 업데이트하고 싶은 블록을 찾을 수 있지만, 나는 속성을 변경할 수 없습니다, 당신은 나를 도울 수있는 예제를 할 수?


관심에 감사드립니다

·

 

[Shape]

안녕하세요.

나는 내가 업데이트하고 싶은 블록을 찾을 수 있지만, 나는 속성을 변경할 수 없습니다, 당신은 나를 도울 수있는 예제를 할 수?


관심에 감사드립니다

·

공공 하위 carica_dati()
오류는 다음을 다시 시작합니다.
dim excel 대상
dim excelsheet 대상
integer로 dim rownum
dim valore 로 문자열
' 시작 excel
오류는 다음을 다시 시작합니다.

엑셀 = getobject (, "excel.application")

if err <> 0 다음
다운로드
excel = createobject("excel.application")를 설정한다.

if err <> 0 다음
msgbox "excel을로드하지.", vbexclamation
이름 *
끝 면
끝 면

오류 goto 0

excel.visible = 거짓

dim cartella 으로 문자열

cartella = 이탈. getvariable("dwgprefix")

excel.workbooks.open (cartella & "\dati_commessa.xls")를 엽니다.

excel.sheets("dati"). 제품정보

excelsheet = excel.activeworkbook.sheets("dati")를 설정한다.

행 = 0
쿨 = 1

dim sset2로 acadselectionset
dim filtertype(0) 정수
dim filterdata(0) 변형

오류는 다음을 다시 시작합니다.

if not isnull(thisdrawing.selectionsets.item("element2")) 그런 다음
설정 sset2 = thisdrawing.selectionsets.item("element2")
sset2. 삭제
끝 면

설정 sset2 = thisdrawing.selectionsets.add("element2")

필터 타입(0) = 0
filterdata(0) = "인출"

sset2.select acselectionsetall, , 필터 타입, 필터 데이터

sset2의 각 element2
만약 element2.hasattributes 그 후에
array2 = 요소2.getattributes

excelsheet는 동안. 세포 (성장 + i, coln).value <> ""
a = excelsheet.cells(rown + i, coln). 제품정보
b = excelsheet.cells(rown + i, coln + 1). 제품정보

u = lbound(array2)를 ubound(array2)로
b <> ""이면
array2(u).tagstring = a then array2(u).textstring = b
끝 면
다음 u
₢ 킹
제품정보


끝 면
엑셀.application.quit
다음 요소2
끝 이하

이것은 포럼의 사용자를 위해 만든 응용 프로그램의 예로 폴더에 입력 될 데이터를 인출합니다. excel 파일에 삽입 된 데이터가있는 속성 라벨을 비교합니다.
라벨이 같은 값을 삽입하는 경우.

나는 그가 당신을 위해 그것을 할 수 있다고 생각합니다.

com 속성의 값을 편집하려면 배열의 블록 엔터티티의 배열을 만들기해야 저장 tagstring (etichette) textstirng (value 속성)

이름 *

 

[mirk]

더 알아보기
내 응용 프로그램을 수행하는 데 필요한 예입니다.
나는 아직도 해결하는 질문이있다, 나는 모든 기존 파일에서 사용할 수있는 응용 프로그램을 만들기 위해, 나는 매크로를 실행하기 위해 "punchant"를 제공했지만 먼저 나는 vba 프로젝트를로드하고 내가 디자인을 열 때마다 그렇게 할 필요가 없습니다.

감사합니다....

안녕하세요.

·

 

[Shape]

업로드 할 필요가 없습니다...... 처음 버튼

^c^c_vbarun;c:/path/macro.dvb!modulo.nomemacro

또는 도구 -> 로드 응용 프로그램 -> 포함 ... 매크로를 추가,이 방법은 모든 autocad 시작에로드됩니다. 매크로는 각 디자인에 업로드 할 필요가 없지만 각 오토 캐드 세션에 ... .