블록 관리 by name

[blubossa]

이름이 물자의 유형을 나타냅니다 몇몇 구획이 있습니다,
예를 들면:
·
아아002
bb003의
뚱 베어
모델 번호: cc005
cc006의

재료의 유형을 선택하고 10 열과 10 행으로 구성된 그리드 내부 블레이드를 넣어 싶습니다.

구획의 삽입 점은 디자인 자체의 센터에 관하여 입니다.

분명히 재료의 선택은 combo를 통해 발생합니다.

어떻게 해야 합니까? 나는 그것을하는 방법을 알고, 그러나 나는 모른다.

감사합니다.

 

[Shape]

당신은 조금 더 잘 주장 할 수, 어쩌면 예를 게시함으로써 dwg... 그래서 그것은 매우 명확하지 않습니다.

 

[blubossa]

나는 마음에 있었다 첨부 파일입니다.

summarizing, 나는 그들이 예를 들어 만들어진 물질을 나타내는 첫 번째 두 글자에 의해 특징 몇 블록을 가지고:

·
아아002
아아!
뚱 베어
_ 한국어
cc006의
cc007의
.....
.....
· ...

나는 cartiglio의 두 가지 유형의 블록을 자동으로 삽입하고 싶습니다 :
1. 작은 단면도 손수레
최대 encumbrance가 900*1900인 블록만 삽입해야 합니다.
2. 큰 프로파일 카트
나는 encumbrance가 900*1900 이상인 모든 구획을 삽입해야 합니다

콤보에서 나는 모든 재료를 나타내는 모든 블록을 삽입 할 수 있어야한다, 예를 들어 처음과 동일 :
한국어
뚱 베어
사이트맵
₢ 킹
·
·
또는 물자의 구획만 삽입하기 위하여 선택하십시오
한국어
또는
뚱 베어
.....
·
.....
· ...
ovviamnete 모든 알파벳 orines.

또한 코너에서 블록의 이름을 작성해야합니다.

블록의 인서트 포인트는 상자의 중심과 동전화해야합니다.

 

[Shape]

나는 마음에 있었다 첨부 파일입니다.

summarizing, 나는 그들이 예를 들어 만들어진 물질을 나타내는 첫 번째 두 글자에 의해 특징 몇 블록을 가지고:

·
아아002
아아!
뚱 베어
_ 한국어
cc006의
cc007의
.....
.....
· ...

나는 cartiglio의 두 가지 유형의 블록을 자동으로 삽입하고 싶습니다 :
1. 작은 단면도 손수레
최대 encumbrance가 900*1900인 블록만 삽입해야 합니다.
2. 큰 프로파일 카트
나는 encumbrance가 900*1900 이상인 모든 구획을 삽입해야 합니다

콤보에서 나는 모든 재료를 나타내는 모든 블록을 삽입 할 수 있어야한다, 예를 들어 처음과 동일 :
한국어
뚱 베어
사이트맵
₢ 킹
·
·
또는 물자의 구획만 삽입하기 위하여 선택하십시오
한국어
또는
뚱 베어
.....
·
.....
· ...
ovviamnete 모든 알파벳 orines.

또한 코너에서 블록의 이름을 작성해야합니다.

블록의 인서트 포인트는 상자의 중심과 동전화해야합니다.

질문 ... 블록 그려, 즉, 이미 그림에 삽입하거나 외부에서 삽입 할 수 있습니까? 그 시점에서 그것은 이전의 크기를 정의하는 조금 어렵다

 

[blubossa]

블록은 현재 파일에서 이미 생성되어 외부에서 디자인 할 필요가 없습니다.

 

[Shape]

블록은 현재 파일에서 이미 생성되어 외부에서 디자인 할 필요가 없습니다.

그래서 당신은 그 같은 뭔가가? 당신은 크기로 블록에 넣어해야 블록과 그림.... 당신은 또한 중복 또는하지 않겠습니까? i.e. 같은 이름을 가진 더 동등한 관계가 있는 경우에.

 

[blubossa]

그래서 당신은 그 같은 뭔가가? 당신은 크기로 블록에 넣어해야 블록과 그림.... 당신은 또한 중복 또는하지 않겠습니까? i.e. 같은 이름을 가진 더 동등한 관계가 있는 경우에.

나는 블록 테이블에 존재하는 것에 관심, 즉, 그들은 또한 그림에 삽입 할 수 없습니다, 하지만 블록 테이블에 존재.

 

[Shape]

나는 블록 테이블에 존재하는 것에 관심, 즉, 그들은 또한 그림에 삽입 할 수 없습니다, 하지만 블록 테이블에 존재.

죄송합니다. 이해하지 않습니다. ·

이름으로 블록을 삽입하려면
한국어
뚱 베어
사이트맵
괜찮습니다.
구획은 그림 ok 안쪽에 저장됩니다
당신은 combo ok에서 테이블 낚시 이름에 넣어

선택된 이름에 따라 멀티 인서트 매크로를 만들려면 실제로? 그게 정확합니까?

 

[blubossa]

죄송합니다. 이해하지 않습니다. ·

이름으로 블록을 삽입하려면
한국어
뚱 베어
사이트맵
괜찮습니다.
구획은 그림 ok 안쪽에 저장됩니다
당신은 combo ok에서 테이블 낚시 이름에 넣어

선택된 이름에 따라 멀티 인서트 매크로를 만들려면 실제로? 그게 정확합니까?

연습에서 선택한 자료를 기반으로 한 다음 크기의 상자에 따라 두 개의 카트 안쪽에 배치됩니다.

 

[blubossa]

chi mi aiuta a capire perchè questo codice mi va 에 오류?

private 서브 commandbutton1_click()

dim i, j, btot as 정수
dim bnam 로 문자열
객체로 dim ent


비트 = thisdrawing.blocks.count

i = 0 에 btot - 1
bnam = thisdrawing.blocks.item(1).이름
if not mid$(bnam, 1, 1) = ""다음 목록box1.additem bnam
다음 것 i

i = 0 에 listbox1.listcount - 1
bnam = listbox1.list(i): btot = 0
j = 0 에 thisdrawing.modelspace.count - 1
설정 ent = thisdrawing.modelspace.item(j)
if ent.entitytype = acblockreference 및 ent.name = bnam
다음 btot = btot + 1
다음 j
목록box2.additem btot
다음 것 i

끝 이하

 

[Shape]

chi mi aiuta a capire perchè questo codice mi va 에 오류?

private 서브 commandbutton1_click()

dim i, j, btot as 정수
dim bnam 로 문자열
객체로 dim ent


비트 = thisdrawing.blocks.count

i = 0 에 btot - 1
bnam = thisdrawing.blocks.item (으)로1개).이름
if not mid$(bnam, 1, 1) = ""다음 목록box1.additem bnam
다음 것 i

i = 0 에 listbox1.listcount - 1
bnam = listbox1.list(i): btot = 0
j = 0 에 thisdrawing.modelspace.count - 1
설정 ent = thisdrawing.modelspace.item(j)
if ent.entitytype = acblockreference 및 ent.name = bnam
다음 btot = btot + 1
다음 j
목록box2.additem btot
다음 것 i

끝 이하

bhè 확실하게 내가하지 않는 1

 

[blubossa]

bhè 확실하게 내가하지 않는 1

이 시점에서 구문의 오류를 제공합니다:
if ent.entitytype = acblockreference 및 ent.name = bnam
다음 btot = btot + 1

 

[Shape]

private 서브 commandbutton1_click()
dim i, j, btot as 정수
dim bnam 로 문자열
객체로 dim ent

비트 = thisdrawing.blocks.count

i = 0 에 btot - 1
bnam = thisdrawing.blocks.item(i).name을 호출합니다.
if not mid$(bnam, 1, 1) = ""다음 목록box1.additem bnam
다음 것 i


dim filtertype(0) 정수
dim filterdata(0) 변형
dim sset 으로 acadselectionset
dim 요소로 acadblockreference

오류는 다음을 다시 시작합니다.
'설정을 삭제하면
if not isnull(thisdrawing.selectionsets.item("element")) 그런 다음
설정 sset = thisdrawing.selectionsets.item("element")
다운로드
끝 면

설정 sset = thisdrawing.selectionsets.add("element")


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

userform1.hide는

sset.selectonscreen filtertype, 필터데이터
msgbox (sset.count)를

sset에 있는 각 성분
i = 0 에 listbox1.listcount - 1
bnam = 목록 상자1.list(i)
만약 요소. 이름 = bnam 그때 btot = btot + 1
다음 것 i
목록box2.additem btot
다음 요소

userform1.show의 특징

끝 이하

così funziona, non so cosa tu voglia Fare però di preciso, 비 ho capito bene il senso

se mi spieghi meglio 티 sistemo

 

[Shape]

se la tua intenzione 시대 confrontare se i blocchi memorizzati nel disegno e quelli presenti fisicamente nello spazio attivo forse devi 운임 una cosa del genere

private 서브 commandbutton1_click()
dim i, j, btot as 정수
dim bnam 로 문자열
객체로 dim ent

비트 = thisdrawing.blocks.count

i = 0 에 btot - 1
bnam = thisdrawing.blocks.item(i).name을 호출합니다.
if not mid$(bnam, 1, 1) = ""다음 목록box1.additem bnam
다음 것 i


dim filtertype(0) 정수
dim filterdata(0) 변형
dim sset 으로 acadselectionset
dim 요소로 acadblockreference

오류는 다음을 다시 시작합니다.
'설정을 삭제하면
if not isnull(thisdrawing.selectionsets.item("element")) 그런 다음
설정 sset = thisdrawing.selectionsets.item("element")
다운로드
끝 면

설정 sset = thisdrawing.selectionsets.add("element")


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

userform1.hide는

sset.selectonscreen filtertype, 필터데이터
msgbox (sset.count)를

sset에 있는 각 성분
i = 0 에 listbox1.listcount - 1
bnam = 목록 상자1.list(i)
만약 요소. name = bnam 그때 listbox2.additem bnam
다음 것 i
다음 요소

userform1.show의 특징

끝 이하

 

[Shape]

연결하지 않습니다. 나는 지금 서있다 ... 팁 ... 초기 선택 사이에 또한 제외 * 그래서 당신은 모델 공간과 종이 공간을 감지하지 않습니다

심지어 약간 거친하지만 효과적인 방법으로

왼쪽 (남, 1) < ) 다음
if left(bnam, 1) < '''' 를 다음
리스트박스1.additem bnam
끝 면
끝 면

좋은 일!!!

 

[blubossa]

연결하지 않습니다. 나는 지금 서있다 ... 팁 ... 초기 선택 사이에 또한 제외 * 그래서 당신은 모델 공간과 종이 공간을 감지하지 않습니다

심지어 약간 거친하지만 효과적인 방법으로

왼쪽 (남, 1) < ) 다음
if left(bnam, 1) < '''' 를 다음
리스트박스1.additem bnam
끝 면
끝 면

좋은 일!!!

여기에 dxw와 상대적인 dvb를 첨부, 내가 결론을 시도하는 일상에. ·

안녕하세요.

 

[Shape]

dim는 acadentity로 ent

if ent.objectname = "acdbblockreference" 의 경우
if ent.name = bnam 다음 btot = btot + 1
끝 면

사용자 정의

편집... 그리기에서 모든 블록이 오류가 발생하기 전에 그 자리에 더 변경했습니다.

지금 그것은 ok

 

[blubossa]

dim는 acadentity로 ent

if ent.objectname = "acdbblockreference" 의 경우
if ent.name = bnam 다음 btot = btot + 1
끝 면

사용자 정의

편집... 그리기에서 모든 블록이 오류가 발생하기 전에 그 자리에 더 변경했습니다.

지금 그것은 ok

그것은 완벽하게 작동하고, 나는 또한 당신이 건의한 것처럼 필터 "*"에서 제외됩니다.

감사합니다.

 

[Shape]

:36_1_11: 그것은 기쁨이었다

단지 조언.. . .
dim 필터(0) 정수로
dim filterdata(0) 변형
dim sset 으로 acadselectionset
dim 요소로 acadblockreference

오류는 다음을 다시 시작합니다.
'설정을 삭제하면
if not isnull(thisdrawing.selectionsets.item("element") 그 다음
설정 sset = thisdrawing.selectionsets.item("element")
다운로드
끝 면

설정 sset = thisdrawing.selectionsets.add("element")


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

필터 선택 세트를 사용하면이 경우와 같은 엔티티티와 문제를 피할 수 있습니다 당신이 찾고있는 속성이 없습니다 ... 실수를 생성, 그래서 당신이 물고기를 원한다면 ... 필터를 사용하여 너무 정교한 다음 더 적은 정보 ... 설정에서 이미 당신이 필요로하는 것은, 사용하지 않는 엔티티티를 분석하지 않고.

이제 차이의 기계가 느껴지지 않지만 5 년 뒤로 갈 생각하고 근본적으로 쓸모없는 작업의 계산기를 만드는 생각....

사이클처럼 ... 그러나 그들은 얼마나 많은 리소스를 알고 ... 그래서 그들은 필요한 경우에만 사용.

 

[blubossa]

:36_1_11: 그것은 기쁨이었다

단지 조언.. . .
dim 필터(0) 정수로
dim filterdata(0) 변형
dim sset 으로 acadselectionset
dim 요소로 acadblockreference

오류는 다음을 다시 시작합니다.
'설정을 삭제하면
if not isnull(thisdrawing.selectionsets.item("element") 그 다음
설정 sset = thisdrawing.selectionsets.item("element")
다운로드
끝 면

설정 sset = thisdrawing.selectionsets.add("element")


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

필터 선택 세트를 사용하면이 경우와 같은 엔티티티와 문제를 피할 수 있습니다 당신이 찾고있는 속성이 없습니다 ... 실수를 생성, 그래서 당신이 물고기를 원한다면 ... 필터를 사용하여 너무 정교한 다음 더 적은 정보 ... 설정에서 이미 당신이 필요로하는 것은, 사용하지 않는 엔티티티를 분석하지 않고.

이제 차이의 기계가 느껴지지 않지만 5 년 뒤로 갈 생각하고 근본적으로 쓸모없는 작업의 계산기를 만드는 생각....

사이클처럼 ... 그러나 그들은 얼마나 많은 리소스를 알고 ... 그래서 그들은 필요한 경우에만 사용.

견적 요청
시작 블록 만 계산하려면 연습 :

한국어
뚱 베어
사이트맵

필터 적용 방법?