bhè se nel code non c'è scritto che è di propietà dell'autore you can edit it and then post it.. . . . . .
: 큰 글린 :
eccola qui sotto입니다.
sub 예제_wblock()
'이 예제는 모델 공간에서 여러 객체를 만듭니다.
'선택 설정에 추가합니다. 이 선택 세트는 그 때입니다
'새로운 그림 파일로 출력.
'gestisce l'errore 에 caso trova gia una selectioset
오류는 다음을 다시 시작합니다.
if not isnull(thisdrawing.selectionsets.item("element")) 그런 다음
설정 sset = thisdrawing.selectionsets.item("element")
다운로드
끝 면
설정 sset = thisdrawing.selectionsets.add("element")
'모델 공간의 레이 객체 만들기
dim rayobj로 acadray
dim basepoint(0에서 2) 더블
dim 두번째 점 (0에서 2) 두 배로
basepoint(0) = 3#: basepoint(1) = 3#: basepoint(2) = 0#
두번째점(0) = 1#: 두번째점(1) = 3#: 두번째점(2) = 0#
set rayobj = thisdrawing.modelspace.addray(basepoint, 두번째 지점)
'모델 공간의 폴리라인 객체 만들기
dim plineobj as acadlwpolyline
dim 점 (0에서 5) 두 배로
포인트(0) = 3: 포인트(1) = 7
점(2) = 9: 점(3) = 2
점(4) = 3: 점(5) = 5
set plineobj = thisdrawing.modelspace.addlightweightpolyline(포인트)
plineobj.closed = 사실
'모델 공간의 라인 객체 만들기
dim lineobj로 acadline
dim startpoint(0에서 2) 더블
dim endpoint(0에서 2) 더블
startpoint(0) = 0: startpoint(1) = 0: startpoint(2) = 0
엔드포인트(0) = 2: 엔드포인트(1) = 2: 엔드포인트(2) = 0
set lineobj = thisdrawing.modelspace.addline(스타트포인트, 엔드포인트)
'모델 공간의 원형 객체 만들기
dim circobj로 acadcircle
dim centerpt (0에서 2) 두 배로
두 배로 dim 반경
centerpt(0) = 20: centerpt(1) = 30: centerpt(2) = 0
반경 = 3
set circobj = thisdrawing.modelspace.addcircle(centerpt, 반경)
'모델 공간의 ellipse 객체 만들기
dim ellobj 로 acadellipse
dim majaxis (0에서 2) 두 배로
dim 중심 (0에서 2) 두 배로
dim radratio 두 배로
중심(0) = 5#: 센터(1) = 5#: 센터(2) = 0#
majaxis(0) = 10: majaxis(1) = 20#: majaxis(2) = 0#
radratio = 0.3
ellobj = thisdrawing.modelspace.addellipse (센터, majaxis, radratio)
팟캐스트
' 선택 설정 만들기
dim ssetobj로 acadselectionset
설정 ssetobj = thisdrawing.selectionsets.add("wblockset")
'모델 공간 수집을 통해 iterate 및 추가
'각 항목은 개체의 배열에 발견
redim objsinmodelspace(0 to thisdrawing.modelspace.count - 1) acadentity로
dim i 로 integer
i = 0 에 thisdrawing.modelspace.count - 1
set objsinmodelspace(i) = thisdrawing.modelspace.item(i)
이름 *
' 개체의 배열을 선택 설정에 추가
JavaScript licenses API 웹 사이트
'새로운 파일로 설정된 선택 출력
계정 만들기 wblock "c:\documents and settings\administrator\desktop\vba_autocad\gino_example.dwg", ssetobj
끝 이하
