Đến nội dung


Hình ảnh
- - - - -

Lisp làm được sao VBA không làm được?


  • Please log in to reply
4 replies to this topic

#1 mua_buon12

mua_buon12

    biết vẽ circle

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

Đã gửi 08 December 2009 - 12:56 PM

Các Bác chuyển giúp em lisp nhập elevation tự động cho pline sang VBA với. Em Cảm ơn các bác rất nhiều.

Đây là đường link tới file Lisp:
http://www.cadviet.c...iles/2/test.lsp
  • 0
Khi Lập Trình Kiến Thức Là Một Phần, Nghệ Thuật Mới Là Tất Cả.

#2 anhcos

anhcos

    biết lệnh hatchedit

  • Advance Member
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 170 (tàm tạm)

Đã gửi 08 December 2009 - 10:45 PM

Thực tình là tôi chẳng buồn đọc cái file bạn gởi.

Bạn có thể mô tả công việc cần làm + thêm VD hay hình minh họa là được thôi.
  • 0
Clear sky!

MF Rock collection.

#3 mua_buon12

mua_buon12

    biết vẽ circle

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

Đã gửi 09 December 2009 - 07:28 AM

Cảm ơn anhcos đã quan tâm giúp đỡ tôi
Dưới đây tôi up file ví dụ lên nhờ anhcos và mọi người viết giúp tôi nhé.Thank!
http://www.cadviet.c...les/2/vidu1.jpg



Thực tình là tôi chẳng buồn đọc cái file bạn gởi.

Bạn có thể mô tả công việc cần làm + thêm VD hay hình minh họa là được thôi.


  • 0
Khi Lập Trình Kiến Thức Là Một Phần, Nghệ Thuật Mới Là Tất Cả.

#4 anhcos

anhcos

    biết lệnh hatchedit

  • Advance Member
  • PipPipPipPip
  • 260 Bài viết
Điểm đánh giá: 170 (tàm tạm)

Đã gửi 09 December 2009 - 08:30 AM

Tôi nghĩ cái này đâu có quá khó khăn đối với bạn.

1. Dùng Utility.GetReal để nhập cao độ đầu tiên (lưu trong biến FirstEle chẳng hạn)

2. Sử dụng SelectionSet để chọn PLine (biến tập chọn là selset)

3. Duyệt qua từng đối tượng trong tập chọn và đặt lại cao độ
for i = 0 to selset.Count - 1
selset.Item(i).Elevation = FirstEle+ i
next i
  • 1
Clear sky!

MF Rock collection.

#5 mua_buon12

mua_buon12

    biết vẽ circle

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

Đã gửi 09 December 2009 - 10:06 AM

Cảm ơn anhcos. anhcos đã giúp đỡ tôi từ trước rất nhiệt tình. Những gì anhcos đã giúp đỡ rất hữu dụng đối với tôi. Xin chân thành cảm ơn. Chúc anhcos và gia đình luôn gặp nhiều may mắn trong cuộc sống.




Tôi nghĩ cái này đâu có quá khó khăn đối với bạn.

1. Dùng Utility.GetReal để nhập cao độ đầu tiên (lưu trong biến FirstEle chẳng hạn)

2. Sử dụng SelectionSet để chọn PLine (biến tập chọn là selset)

3. Duyệt qua từng đối tượng trong tập chọn và đặt lại cao độ
for i = 0 to selset.Count - 1
selset.Item(i).Elevation = FirstEle+ i
next i


  • 0
Khi Lập Trình Kiến Thức Là Một Phần, Nghệ Thuật Mới Là Tất Cả.