테이블 삽입 점 VBA 좌표

[KATERYNA]

안녕하세요.
나는 vba와 그림에서 추출 해야 합니다 테이블의 삽입 점의 좌표, 이전에 getpoint에 삽입 하 고 계속 이동.
테이블의 좌표를 찾을 수있는 가능성이 있습니까?
나는 polylinea 협조 및 다른 Autocad 목표를 가지고 명령을 발견했지만 테이블과 작동하지 않습니다.
누군가가 나를 도울 수 있습니까?
감사합니다!

 

[rpor66]

개인 하위 selecttabella()

dim tabella로 acadtable
변형으로 dim pt
dim ssetobj로 acadselectionset

오류는 다음을 다시 시작합니다.
thisdrawing.selectionsets.item("sset"). 기타 제품
오류 goto 0

설정 ssetobj = thisdrawing.selectionsets.add("sset")
ssetobj.selectonscreen의 경우

설정 tabella = ssetobj.item(0)
pt = tabella.insertionpoint

msgbox "x : " & pt(0) & " - y : " & pt (1)

thisdrawing.selectionsets.item("sset"). 기타 제품

끝 이하

기타

 

[rpor66]

객체의 속성 목록을 원하는 경우 이 명령을 사용하십시오:
(vlax-dump-object (vlax-ename->vla-object (자동차 (문자 "\nsel ent: "))))))))

편의를 위해 상대 명령을 가진 버튼을 만든 것은 많은 경우에 매우 유용합니다.

 

[KATERYNA]

개인 하위 selecttabella()

dim tabella로 acadtable
변형으로 dim pt
dim ssetobj로 acadselectionset

오류는 다음을 다시 시작합니다.
thisdrawing.selectionsets.item("sset"). 기타 제품
오류 goto 0

설정 ssetobj = thisdrawing.selectionsets.add("sset")
ssetobj.selectonscreen의 경우

설정 tabella = ssetobj.item(0)
pt = tabella.insertionpoint

msgbox "x : " & pt(0) & " - y : " & pt (1)

thisdrawing.selectionsets.item("sset"). 기타 제품

끝 이하

기타

감사합니다! 매우 친절!

 

[KATERYNA]

객체의 속성 목록을 원하는 경우 이 명령을 사용하십시오:
(vlax-dump-object (vlax-ename->vla-object (자동차 (문자 "\nsel ent: "))))))))

편의를 위해 상대 명령을 가진 버튼을 만든 것은 많은 경우에 매우 유용합니다.

나는 당신의 첫번째 대답으로 이미 해결했다. 이제 이 명령을 공부하고 있습니다. 감사합니다!