Hỏi về đối tượng Region?

[redsea_tq 16]

Em chào các bác!

các bác cho em hỏi cách lấy toạ độ các đỉnh của một region, nếu là polyline thì sẽ có coordinates còn region thì là gì ah? có cách nào lấy được toạ độ các đỉnh giống như polyline không ah? mong các bác chỉ giúp, em xin cám ơn!

[anhcos 197]

Cái này hơi lằng nhằng đây, trong phần Help không thấy nói đến.

 

Bạn thử cách này xem thử:

- Copy nó, sau đó explode ra

- Duyệt qua từng đối tượng vừa explode để lấy tọa độ các đỉnh.

 

dim new_region as TAcadRegion

set new_region = old_region.Copy

 

Dim explodedObjects As Variant

explodedObjects = new_region.Explode

[uce46 0]

Cái này hơi lằng nhằng đây, trong phần Help không thấy nói đến.

 

Bạn thử cách này xem thử:

- Copy nó, sau đó explode ra

- Duyệt qua từng đối tượng vừa explode để lấy tọa độ các đỉnh.

 

dim new_region as TAcadRegion

set new_region = old_region.Copy

 

Dim explodedObjects As Variant

explodedObjects = new_region.Explode

bạn có thể hướng dẫn thêm đoạn duyệt qua từng đối tượng vừa explode đc không? mình ko rõ phải làm ntn cả

[redsea_tq 16]

Đúng như ban Anhcos nói, mình phải explode ra thành các đoạn thẳng rồi duyệt qua các đoạn thẳng đó để lấy tọa độ đỉnh. nhưng khi explode ra các đoạn thẳng xếp không theo quy luật nào cả nên mình phải xắp xếp lại.Cám ơn bạn Anhcos nhiều!

[redsea_tq 16]

bạn có thể hướng dẫn thêm đoạn duyệt qua từng đối tượng vừa explode đc không? mình ko rõ phải làm ntn cả

Ban Uce46 đã tìm ra cách làm chưa? nếu chưa tìm ra cách làm thì theo đường dẫn dưới đây lấy file về xem thử nhé.

http://www.cadviet.com/upfiles/3/projectregion.rar