여러 블록을 그림으로 삽입

[ale]

나는 더 많은 블록을 그림으로 삽입하기 위해 일상을 제안합니다.
예를 들어, .dwg 파일 내부에서 나는 01과 02의 이름을 가지고 두 블록을 삽입합니다.
그것을 삽입:
공공 하위 blocco()
acadblock로 dim objblock
dim insblock 으로 acadblockreference
문자열로 dim strname
dim p (0에서 2) 두 배로
p(0) = 0 : p(1) = 0 : p(2) = 0
각 objblock에 대한 이탈. 제품정보
이름 = objblock.name
계정 만들기 sendcommand "._-insert" & vbcr & objblock. 이름 & vbcr & "0,0,0" & vbcr _
& 1 & vbcr & 1 & vbcr & 1 & vbcr & 0 & vbcr

벌레.print objblock. 이름 *
이름 *
끝 이하즉시 창 쇼:
*model_space는
*paper_ 공간
*paper_ 공간0
01월
02월모델 공간에서 일련의 윈도우가 삽입 작업을 느리게합니다.

이 시점에서, 나는 회원국 간의 협력의 더 큰 정도가 필요한 것을 지적해야한다.
왼쪽 (strname, 1) = "1"다음모두는 일 경이 보인다.

이 절차를 쉽게 만들 수있는 다른 방법이 있습니까?

 

[Shape]

이 매크로의 의미를 이해하지 않습니다. dwg에 존재하는 모든 블록을 삽입 ...

cmq는 블록으로 처리 된 모델 공간과 종이 공간을 전달합니다.

공중 sub 구획 ()
acadblock로 dim objblock
dim insblock 으로 acadblockreference
문자열로 dim strname
dim p (0에서 2) 두 배로
p(0) = 0 : p(1) = 0 : p(2) = 0
각 objblock에 대한 이탈. 제품정보
이름 = objblock.nameif left(strname, 1) <> "*"이면thisdrawing.sendcommand "._-insert" & vbcr & objblock. 이름 & vbcr & "0,0,0" & vbcr _
& 1 & vbcr & 1 & vbcr & 1 & vbcr & 0 & vbcr
벌레.print objblock.name끝 면이름 *
이름 *


그런 다음 sendcommand 대신 블록을 삽입합니다 ... 작은 거친 퍼티입니다

set blockrefobj = thisdrawing.modelspace. 삽입 블록 (p, strname, 1#, 1#, 1#, 0)

나는 강력한 차를 가지고 있지만 나는 느슨한 것을 알 수 없습니다. ·

 

[ale]

저에게 대답을 위한 감사합니다 모양.
이 루틴, 그것은 내가 개발하는 약간 더 미립자 작업의 일부입니다.
그것은 vba에서 내 첫 번째가 될 것입니다.
그것은 vba와 내 군대 이후 오랜 시간이 지났습니다. 초보자를위한 몇 가지 운동 .
나는 몰랐다 <> "*" ; 이 일 나는 연습하려고합니다.
안녕하세요.

 

[Shape]

<> "*"는 모델 공간과 종이 공간의 이름부터 "다른 것들"을 의미합니다. * 나는 필터를 선택하지 못했습니다 ... 그들 모두 ... 다소 거친 방법이지만 작동합니다. ...

 

[ale]

..... ok !
시아오