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

[mua_buon12 0]

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.com/upfiles/2/test.lsp

[anhcos 196]

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.

[mua_buon12 0]

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.com/upfiles/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.

[anhcos 196]

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

[mua_buon12 0]

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