Đến nội dung


Hình ảnh
- - - - -

Làm sao để duyệt qua tất cả các pl trong vùng trọn


  • Please log in to reply
3 replies to this topic

#1 rungxanhonline

rungxanhonline

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 08 October 2010 - 02:24 PM

Giả sử mình có một bản vẽ gồm các được polyline và một số các đối tượng khác. Mình muốn hỏi làm thế nào để duyệt qua tất cả các đường polyline trong vùng mình chọn từ chuột và đếm xem bao nhiêu đường sau đó set cho mỗi đường thuộc một layer.

Ví dụ em muốn áp dụng với các đường pl trong bản vẽ này: http://www.mediafire...m3qa1atb826f7gr

Xin chân thành cảm ơn các bác!
  • 0

#2 jick

jick

    biết lệnh hatchedit

  • Members
  • PipPipPipPip
  • 264 Bài viết
Điểm đánh giá: 82 (tàm tạm)

Đã gửi 08 October 2010 - 02:31 PM

Giả sử mình có một bản vẽ gồm các được polyline và một số các đối tượng khác. Mình muốn hỏi làm thế nào để duyệt qua tất cả các đường polyline trong vùng mình chọn từ chuột và đếm xem bao nhiêu đường sau đó set cho mỗi đường thuộc một layer.

Ví dụ em muốn áp dụng với các đường pl trong bản vẽ này: http://www.mediafire...m3qa1atb826f7gr

Xin chân thành cảm ơn các bác!

bạn quét chọn tất cả nhấn Ctrl+1 sau đó chọ lấy các pl như hình vẽ dưới,sau đó đưa tất cả các pl đấy về layer nào tùy bạn thôi(cũng chỉnh nó trog bảng này luôn)

Hình đã gửi
  • 1
Hình đã gửi
______________________Civil___________________________________________________

___ ^_^ ___


#3 rungxanhonline

rungxanhonline

    biết zoom

  • Members
  • Pip
  • 15 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 08 October 2010 - 11:09 PM

Thank nhé! Nhưng ý mình muốn hỏi về phần code VBA để thực thi công việc đó!
  • 0

#4 nvson

nvson

    biết vẽ ellipse

  • Members
  • PipPip
  • 52 Bài viết
Điểm đánh giá: 4 (bình thường)

Đã gửi 21 October 2010 - 11:26 AM

Thank nhé! Nhưng ý mình muốn hỏi về phần code VBA để thực thi công việc đó!


Bạn sử dụng code sau:
Public Sub PLine_Change()
Dim ssPolyline As AcadSelectionSet
Dim PLine

Dim FilterType(0) As Integer
Dim FilterData(0) As Variant

Set ssPolyline = ThisDrawing.SelectionSets.Add("ssPLine")
FilterType(0) = 0
FilterData(0) = "LWPOLYLINE"
ssPolyline.Select acSelectionSetAll, , , FilterType, FilterData

'Ban phai tao 1 lop co ten New layer truoc, hoac thay doi "New Layer" thanh ten lop ma ban da tao
For Each PLine In ssPolyline
PLine.Layer = "New layer"
Next

ssPolyline.Delete

End Sub

  • 0