고전적인 autolisp 기능 (entsel, entget ...)과 기계에서 객체의 데이터의 쿼리는 인코딩 된 데이터의 목록을 얻습니다.좋은 아침 나는 기계 데스크탑 Autocad 블록의 기하학적 데이터를 추출 할 수있는 문제가있어 블록을 조절하는 매개 변수가 저장된 곳을 찾을 수 없습니다
객체와 타입 "amgstdpart"
불행히도 나는 발견하지 않고 나는 누군가가이 문제로 나를 도울 수 있다면 오토 데스크 포럼에서 아무것도 발견하지 않았다. 나는 매우 감사한다.
감사합니다. 내가 그 값을 vba 배열로 가져올 수있는 방법 어떤 아이디어가 있습니까? 내 생각은 클릭 (getobject) 한 개 이상의 객체에 그리고 그 코드를 계산의 나머지.. .고전적인 autolisp 기능 (entsel, entget ...)과 기계에서 객체의 데이터의 쿼리는 인코딩 된 데이터의 목록을 얻습니다.
결과를 보여 주는 txt를 첨부합니다.
목록에는 (300 . "2100")과 (300 . "1000")과 같은 필드가 있으며 더 큰 구성 요소의 높이와 너비를 나타냅니다.
그래서 나는 진행을하고 있지만 나를 포기하지 않습니까?고전적인 autolisp 기능 (entsel, entget ...)과 기계에서 객체의 데이터의 쿼리는 인코딩 된 데이터의 목록을 얻습니다.
결과를 보여 주는 txt를 첨부합니다.
목록에는 (300 . "2100")과 (300 . "1000")과 같은 필드가 있으며 더 큰 구성 요소의 높이와 너비를 나타냅니다.
공공 하위 provarecuperopartistandard()
' acadmapplication에 대한 참조
dim mcad로 acadmapplication
mcad = thisdrawing.application.getinterfaceobject("acadmauto.acadmapplication")를 설정합니다.
' mcad2dstructuremgr 받기
mcad2dstructuremgr로 디엠 structmgr
structmgr = mcad.activedocument.structuremgr2d를 설정
' 만들기 mcad2dstdpartcompgroupdescriptor의
dim compgroup1 으로 mcad2dstdpartcomponentdescriptor
set compgroup1 = structmgr.create2dstdpartcomponentdescriptor
dim powviews1() mcadstdpartcomponentviewdescriptor로
powviews1 = structmgr.getsinglestdpartviewsformigr
dim view1의 변형
mcadstdpartcomponentviewdescriptor로 디엠 powview1
powviews1의 각 view1에 대 한
'if typeof view1 은 mcadstdpartcomponentviewdescriptor 그 후
'set powview1 = 보기1
'icompgroup.addview powview1
'msgbox ""
이름 *
설정 powview1 = 보기1
msgbox view1.fullviewname & "-" & view1.name
이름 *
끝 이하미안 해요. 나는 당신을 도울 수 없습니다.그래서 나는 진행을하고 있지만 나를 포기하지 않습니까?
아래 코드는 디자인 "amgstdpart"에 모든 표준 부품의주기를 만듭니다 ...보기의 이름과 설명을 보여줍니다. ... 이제 매개 변수를 변경하기 위해 더 많은 작업을 수행 할 수 있습니다. 그리고 심지어 코드를 통해 그림을 삽입 할 수 있습니다....
Code:공공 하위 provarecuperopartistandard() ' acadmapplication에 대한 참조 dim mcad로 acadmapplication mcad = thisdrawing.application.getinterfaceobject("acadmauto.acadmapplication")를 설정합니다. ' mcad2dstructuremgr 받기 mcad2dstructuremgr로 디엠 structmgr structmgr = mcad.activedocument.structuremgr2d를 설정 ' 만들기 mcad2dstdpartcompgroupdescriptor의 dim compgroup1 으로 mcad2dstdpartcomponentdescriptor set compgroup1 = structmgr.create2dstdpartcomponentdescriptor dim powviews1() mcadstdpartcomponentviewdescriptor로 powviews1 = structmgr.getsinglestdpartviewsformigr dim view1의 변형 mcadstdpartcomponentviewdescriptor로 디엠 powview1 powviews1의 각 view1에 대 한 'if typeof view1 은 mcadstdpartcomponentviewdescriptor 그 후 'set powview1 = 보기1 'icompgroup.addview powview1 'msgbox "" 이름 * 설정 powview1 = 보기1 msgbox view1.fullviewname & "-" & view1.name 이름 * 끝 이하