Excel 값에서 폴리 라인 그리기

[afazio]

:4404:

:hahah : 농담 ... 이전 게시물에서 나는 매크로를 발견하고 내부 코드를 읽었다. ... (버튼 중 하나 : 파이퍼 . ·

그리고 매크로는 먼저 dxf 파일을 생성합니다 (그 끝에 텍스트 파일) 그리고 그 후에 autocad로 열다 (shellexecute 0, vbnullstring, nprofile, vbnullstring, "", 1)

그런 다음 qlc를 편집하거나 추가하려면 객체에 dxf 코드를 삽입하여 파일을 추가해야합니다.

그게 바로!
나는이 3d의 출판에 의해 보낸 시간을 알고하지 않습니다 지금 내 개입을 보장합니다. 나는 지루하지 않는다.

그 파일의 저자는 나를 것이다.
파일은 구부리기 순간의 다이어그램을 그리는 데 필요한 학생에 의해 특정 요청에서 발생 (보통 패기 형태) 그리고 오토 캐드에서 잘라하지만 엑셀의 도움으로 여전히 수행 elaborations에서 데이터를 복용. 생각, 예를 들어, 빔의 해상도는 계속 지원한다. 나는 단순히 다른 목적으로 작성된 코드의 일부에 적응 (엑셀에서 얻은 데이터와 금속 프로파일의 그림).
사실, 코드는 파일 형식을 작성 *.dxf polylines에 대한 유일한 정보를 포함 하 고 autocad에 오픈.
텍스트, 서식 텍스트, 스타일, 레이어, 색상 및 기타를 삽입 할 수있는 가능성을 제공함으로써 코드를 변경하려고합니다.
나는 모든 사람이 읽을 수있는 코드와 함께 무료 형태로 파일을 게시했습니다. 누군가가 그것을 가지고 변경하면 문제가 없습니다.

이름 *

 

[afazio]

나는 dxf 전문가가 quotas를 추가 할 필요가 없습니다. acad가 dxf에 할당량을 작성하고 vba를 변경합니다. 너무 이른 그것은 조금 시간이 걸리고 나는 내를 사용 하 고 싶은 방향으로 정확 하지 않습니다.

나는 이전 파일에 열을 요구 한대로 추가, 그들은 원하는만큼 많은 추가 할 수 있다면 그것은 삼관이다.

vba 내부 나는 선택 사례에서 세 개의 행을 추가, 나는 그들에게 의견을 그래서 그들은 쉽게 식별 할 수 있습니다.

엑셀 시트 내부 7 열을 추가하려면 3 참조 열을 복사하고 붙여야합니다.

그런 다음 다음과 같은 변수를 정의해야합니다.

n_7는 ac11에서 발견 될 점의 수를 나타내는
c_7 에 aa14
tab_7은 변수 정의 형태로 정의되며 다음과 같습니다. =carto(c_7;0;n_7;3)

셀 u8을 변경하고 새로운 열의 존재를 추가해야합니다.

Incidentally, 나는 일반적으로 vba에 쓰기를 선호, 오히려 dxf보다 autocad 스크립트, 나중에 더 쉽게 편집 할 수 있습니다. 복잡한 명령을 입력하는 것도 쉽습니다. 맛의 질문!

뚱 베어

코드를 완벽하게 이해합니다.

 

[erot79]

내가 늦은 경우에도, 이제 나는 당신에게 감사 할 수 있습니다 : 파이버 :, 당신이 생산하고 둘 다 당신이 주제를 공부하기 위해 나를 격려하기 때문에 나는 vba와 vb.net과 함께 더 많은 것을 프로그래밍. 곧 봐! !

 

[tracciatura.net]

아직 매크로가 필요하면, 나는 그것을 할 것입니다.
나를 알고.

 

[cecco13]

autocad 명령줄에 나타나는 것과 같이 excel 순서 쓰기, autocad 명령 줄에 붙여넣기

 

[Alessandro De Fusco]

나는 dxf 전문가가 quotas를 추가 할 필요가 없습니다. acad가 dxf에 할당량을 작성하고 vba를 변경합니다. 너무 이른 그것은 조금 시간이 걸리고 나는 내를 사용 하 고 싶은 방향으로 정확 하지 않습니다.

나는 이전 파일에 열을 요구 한대로 추가, 그들은 원하는만큼 많은 추가 할 수 있다면 그것은 삼관이다.

vba 내부 나는 선택 사례에서 세 개의 행을 추가, 나는 그들에게 의견을 그래서 그들은 쉽게 식별 할 수 있습니다.

엑셀 시트 내부 7 열을 추가하려면 3 참조 열을 복사하고 붙여야합니다.

그런 다음 다음과 같은 변수를 정의해야합니다.

n_7는 ac11에서 발견 될 점의 수를 나타내는
c_7 에 aa14
tab_7은 변수 정의 형태로 정의되며 다음과 같습니다. =carto(c_7;0;n_7;3)

셀 u8을 변경하고 새로운 열의 존재를 추가해야합니다.

Incidentally, 나는 일반적으로 vba에 쓰기를 선호, 오히려 dxf보다 autocad 스크립트, 나중에 더 쉽게 편집 할 수 있습니다. 복잡한 명령을 입력하는 것도 쉽습니다. 맛의 질문!

뚱 베어

안녕하세요 모든 소년에, 나는 포럼에 새로운 것을 누르고 나는 또한 vba의 초보자입니다.
나는 파 질문이있다.
우선, 그것은 나에게 원래 파일에 많은 수정을 돕습니다.
내 유일한 의심 (우리가 항상 지진 영역에서 32의 최소를 가지고 있다는 사실에서 발생) 테이블 문에 있습니다.
나는 c_7과 n_7을 정의하기 위해 관리하지만, tab_7 및 셀 u8의 변경은 잘하지 않았다, 당신은 코드를 보내서 나를 도울 수?

 

[afazio]

alessandro, 32 다이어그램을 동시에 추적 할 수있는 능력을 가진 파일을 필요로한다면 다음 링크에서 다운로드하십시오.
https://app.box.com/s/y827gn6jknmj6jbrh7010p9bp87a075u시아오

 

[Alessandro De Fusco]

이 코드 덕분에 얼마나 많은 시간을 알 수 없습니다, 당신은 나를 저장. 감사합니다. :

 

[afazio]

자주적으로 수행하는 방법을 이해하려면 지침을 따르십시오.

세 가지 다른 이름은 속성이어야한다 :

이름 n_xx 노란색 세포에. 여기에 상대 테이블에 포인트의 수입니다
c_xx 각 테이블의 첫번째 세포에 이름 (번호 1)가 보고되는 세포. 동적 테이블의 시작 지점을 설정하는이 봉사
각 테이블에 있는 tab_xx 이름. 그러나 테이블은 동적이어야하며 따라서 명령 "formule"->"이름 관리에 의해 정의해야합니다. 이름은 공식 "=scarto (c_xx;0;0;n_xx;3)에 의해 정의되어야 합니다.
물론 "xx"는 테이블의 순차적 숫자를 나타냅니다.

마지막으로, 당신은 코드에 약간의 변화를 만들 필요가있다. 테이블의 더 큰 수의 경우를 예측:

집 선택
집 1
number_r = 범위(n_1).value
좌표 = 범위("tab_1")
집 2
number_r = 범위(n_2).value
좌표 = 범위("tab_2")
· ...
· ...
· ...

집 31
number_r = 범위(n_31).value
좌표 = 범위("tab_31")
32개 하우스
number_r = 범위(n_32).value
좌표 = 범위("tab_32")

집 기타
msgbox "도착 수의 오류"
출구 sub
끝 선택

안녕하세요.

 

[rpor66]

suggerimento:
선택 케이스 conta_poly
케이스 1
numero_r = 범위("n_1"). 제품정보
좌표 = 범위("tab_1")
.....
끝 선택

puoi trasformarlo 에

선택 케이스 conta_poly
케이스 1에서 32
numero_r = 범위("n_" & conta_poly). 제품정보
좌표 = 범위("tab_" & conta_poly)
끝 선택

utilizzare il 소프트웨어 anche con 사무실 x64 includi queste righe 당:
#if vba7 다음
개인 선언 ptrsafe 기능 shellexecute lib "shell32.dll" 별칭 "shellexecutea"(긴으로 hwnd, 문자열로 lpoperation, 문자열로 lpfile, 문자열로 lpparameters, 문자열로 lpparameters, 문자열로 lpdirectory, 긴으로 fshowcmd)
한국어
private 선언 함수 shellexecute lib "shell32.dll" alias "shellexecutea" (가로 hwnd, 문자열로 바이벌 lpoperation, 문자열로 바이벌 lpfile, 문자열로 바이벌 lpparameters, 문자열로 바이벌 lpdirectory, 긴으로 바이벌 nshowcmd)
로그인

이름 *

 

[afazio]

감사 rpor66
많은 줄을 절약하는 제안.

사무실 x64를 위해 코드를 실행하는 행은, 당신이 보고한 줄은 단지 지금 포탄 통화에 관하여 출석하?

 

[afazio]

견적 요청
두 줄의 첫 번째가 excel x32에 대한 vba 오류로 인식되고, 빨간색으로 강조 (그것은 단어 prtsafe를 인식하지 않습니다) 하지만 코드를 잘못하지 않습니다.
감사합니다.

 

[rpor66]

사이트맵
기타