선택된 항목과 비교의 대체 좌표

  • Thread starter Thread starter piratabobo
  • Start date Start date

piratabobo

Guest
안녕하세요.
나는 프로그램을 만들기를 원하지만, 나는 시작 할 곳을 모른다, 디자인에 나는 polylinea와 같은 여러 개의 사각형을 설계, 이제 내가 알고 싶은 그들을 선택, 각 사각형의 vertices의 좌표.
나는 vba를 통해 수행하고 가능한 것입니까?
내가 할 수 있다면, 나는 어떤 제안에 대해 감사 할 것이다.
감사합니다.
안녕하세요.
 
서브 cad3d_poly()

변형 된 변형
dim sset 으로 acadselectionset
설정 sset = thisdrawing.selectionsets.add("ss1")

sset.selecton스크린

strtxt = sset.item(0).objectname의 경우
strtxt = "acdbpolyline"이면
설정 plineobj = sset.item(0)
끝 면

coord = plineobj.co 협조
msgbox " 좌표 1° vertice " & coord(0) & ", " & coord(1) & ", " & coord(2)
msgbox " 좌표 2° vertice " & coord(3) & ", " & coord(4) & ", " & coord(5)
기타...
끝 이하

시아오
 
답변에 대한 모든 감사의 첫 번째
나는 코드를 시도하고 나는 undefined 변수, 유형 strtxt 및 plineobj 같은 몇 가지 오류를 가지고, 또한 sset.selecton스크린 나는 오류를 unseen autocad 주요 창·
두 변수의 경우 나는 선언 할 변수의 유형이 무엇인지 모른다, sset.selectonscreen의 오류에 대한 나는 이해하지 않는다.
또한이 코드를 잘 이해하면 비디오에 대한 모든 것을 자동 선택해야합니다. 내 직사각형을 선택하면 수동으로 할 수 있습니다.
 
1) 명세 옵션 명시 변수를 선언할 수 있습니다.

2) 문자열로 dim strtxt
3) 객체로 dim plineobj

4) selectonscreen는 영상에 “화면에”, 그 후에 당신이 나타내는 것을 선택합니다.

나는 무언가를 잊어 버린거야, 그러나 당신이 직면 한 문제가 없습니다 :
thisdrawing.selectionsets.item("s1").
"end sub"의 앞에 추가하십시오

이것은 단지 첫번째로 작동하지 않고.

활성 디자인, 상금 alt+f8로 매크로를 호출합니다.

안녕하세요.
 
나는 당신의 방향에 따라 코드를 고정하지만 항상 같은 오류를 얻을 : unseen autocad 주요 창 나는 왜이 오류가 나올지 이해 할 수 없다 : 혼란 :
 
plannerroad 팁 감사
예를 들어, 이론에서이 vertext가 우수하고, 내가 필요로하는 것, 유일한 문제와 내가 vba에서 같은 일을 수행하고 대신에 polylinea를 선택할 때 나는 polylinese의 정의되지 않은 번호를 선택할 수있는 가능성을 가질 수있다.
누군가가 나를 도울 수 있다면, 나는 정말 감사 할 것입니다.
 
plannerroad 팁 감사
예를 들어, 이론에서이 vertext가 우수하고, 내가 필요로하는 것, 유일한 문제와 내가 vba에서 같은 일을 수행하고 대신에 polylinea를 선택할 때 나는 polylinese의 정의되지 않은 번호를 선택할 수있는 가능성을 가질 수있다.
누군가가 나를 도울 수 있다면, 나는 정말 감사 할 것입니다.
그러나 plist는 여러 폴리 라인을 선택할 수 있습니다. 더 많은 polylinee에 대신 exportcoords 나는 그것을 시도하지 않았다.
 
나는 다시 시도한다.

작동 할 수없는 경우 ... : 혼합 :

나는 dwg 및 dvb 파일을 첨부하고 dwg에서 다운로드하고 dvb를로드하고 매크로를 던져.

더 많은 폴리라인을 선택할 수 있습니다.

담당자: 이것은 당신이 vba를 배우는 것을 봉사해야 하는 예입니다, 당신의 필요에 적응시키기 위하여 까지 입니다.

안녕하세요.
 

Attachments

안녕하세요.
나는 ita에서 설명서를 구입 할 수있는 필요한 경우 요청 할 수있는 기회를 가지고, 이미 나는 jeffrey e. clark의 autocad에 "vba를 샀다"
 
Last edited:
·
나는 당신의 좋을 남길 원했습니다, 그것은 동등한 크기와 vertices의 10의 장방형, 4에 예를 들면 가지고 있습니다, 그들 사이 장방형을 비교하고 동등한 장방형의 총 수를 얻고, 다른 장방형의 수?
 
Last edited:
내가 먼저 모든 직사각형을 저장해야하는 경우 다음 비교하거나 그림에서 그들을 읽는 동안 비교
 
내가 먼저 모든 직사각형을 저장해야하는 경우 다음 비교하거나 그림에서 그들을 읽는 동안 비교
나는 처음부터 토론을 따랐다, 그러나이 문제에 대해 나는 먼저 vertices의 모든 값과 confontarli의 배열을 기억해야합니다. ·

그것은 그들이 순서 "equal-different"에서 촬영 한 선택에서 그들이 가지고 있다고 말했다, 따라서 그것은 당신이 가치를 기억하지 않고 원하는 것을 할 수 없습니다. 어딘가.
 
하지만 배열에서 모든 것을 기억하는 것은 내가해야 할 제어, 좌표, 지역, vertices 또는 모든 것? 그리고 나는 또한 100 장방형을 가질 수있는이 절차의 만들려고하는 사용에서 고려, 그래서 나는 오류를 실행하지 않고 나중에 문제가되지 않는 최적의 솔루션을 찾을 것입니다.
 
하지만 배열에서 모든 것을 기억하는 것은 내가해야 할 제어, 좌표, 지역, vertices 또는 모든 것? 그리고 나는 또한 100 장방형을 가질 수있는이 절차의 만들려고하는 사용에서 고려, 그래서 나는 오류를 실행하지 않고 나중에 문제가되지 않는 최적의 솔루션을 찾을 것입니다.
bhè on the area I will exclude it since it is a b*h ratio and it is not tell that two rectangles that has the same area have the same size, 에 따라 나를 polylinea의 포인트에서 벡터를 식별하고 다음 b와 h의 길이를 찾을 수 있습니다. 그 점에서 제어 당신은 두 측면에하지 않는 포인트...

포인트의 순서에주의, 그것은 모든 retts가 같은 선행을 사용하여 생성 된 것이라고 말했다....

당신이 알고있는 유일한 것은 내가 90°에서 믿는 4 가지 vertices가 있습니다 ... 당신은 거기에서 떠나야 ...

소 ... p0, p1, p2, p3

p1-p0는 당신에게 1개의 옆 운반대를 줍니다
p2-p1은 다른 것을 제공합니다 ... .

그들을 저장하고 두 개의 캐리어가 똑같이 경고
 
Last edited:
나는 생각하고, 내가 당신과 같은 또는 아닙니다에 따라 그리드에 넣어 경우, 나는 그리드에 그것을 수행하고 개념과 동일하지만, 실행 시간의 측면에서 더 나은 것일 것입니다?
 
나는 생각하고, 내가 당신과 같은 또는 아닙니다에 따라 그리드에 넣어 경우, 나는 그리드에 그것을 수행하고 개념과 동일하지만, 실행 시간의 측면에서 더 나은 것일 것입니다?
나는 dvb에 포함 된 변수를 참조.비교될 수 있는 그림은 동일한 x-y 비행기에 직사각형 당겨집니다·
rectangles의 산출 기초와 고도:
직사각형 또는 폴리롤라의 1과 3 vertices
base=abs(coord(0)-coord(4)))
height=abs(coord(1)-coord(5))
의 사용 뚱 베어 방향의 문제를 해결합니다.
행렬에 넣어:
디엠 매트릭스 (1 ~ 200, 1 ~ 2) 더블
행렬(1,1)=base
행렬(1,2)=높이

같은 것을 찾을 수:
matrice(1,1)=matrice(2,1)과 matrix(1,2)=matrice(2,2)를 한다면
이름 *
끝 면

이것은 당신이 확대의 부담에 포인트입니다.

안녕하세요.
 
·
무엇에 나는 완벽하게 동의하지만, 내 dilemma 발생 예를 들어 나는 세 번째와 함께 첫 번째를 비교, 세 번째와 첫 번째, 네 번째와 함께 첫 번째. 세 번째와 두 번째, 네 번째 등. 예를 들어 세 번째 사각형과 같은 첫 번째 비교에서 나는 첫 번째 사각형과 세 번째 사각형의 검증을 제외하고 나는 어떻게 첫 번째 사각형의 검증을 제외하고 어떻게 첫 번째를 위해 어떻게해야합니까?
나는 내가 무엇을 의미하는 것에 대해 조금 분명했다.
다시
 

Forum statistics

Threads
58,191
Messages
495,938
Members
103,104
Latest member
FabioFrontini

Members online

No members online now.

Back
Top