Đến nội dung


Hình ảnh
- - - - -

lisp tính góc theo chiều kim đồng hồ


  • Please log in to reply
24 replies to this topic

#1 hoangkieu

hoangkieu

    biết pan

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

Đã gửi 04 June 2014 - 07:45 PM

các a c viết giúp em líp với yêu cầu như sau: ta có 1 đường pline có nhiều góc hợp thành (ảnh minh họa bên dưới). em cần khi đánh lệnh, kích vào pline, chọn điểm đầu, chọn điểm cuối thì lisp sẽ tính cho em từng góc theo chiều kim đồng hồ, theo thứ tự từ điểm đầu đến điểm cuối sau đó xuất sang excel. vd như trên hình vẽ thì điểm 1 là điểm đầu, n là điểm cuối thì em cần các góc 2,3,4,...n-1 theo chiều kim đồng hồ hướng từ 1đến n, hoặc từ n đến 1 tùy vào ta chọn điểm đầu điểm cuối từ lúc ban đầu.

http://www.cadviet.c.../131903_cad.rar


  • -1

#2 hoangkieu

hoangkieu

    biết pan

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

Đã gửi 05 June 2014 - 08:36 PM

up lên đi, có ai giúp mình với ko


  • 0

#3 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 05 June 2014 - 08:47 PM

Bạn nói ngắn gọn quá ai mà hiểu được mà giúp.
  • 0

#4 hoangkieu

hoangkieu

    biết pan

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

Đã gửi 06 June 2014 - 07:38 AM

có anh chị nào ghé ngang giúp em với

 


  • 0

#5 hoangkieu

hoangkieu

    biết pan

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

Đã gửi 06 June 2014 - 08:15 AM

mình cũng đang cần lisp có nội dung như thế này. nếu có cao thủ nào viết giúp thì cho xin thêm 1 tý nũa là có thể tính luôn các cạnh theo thứ tự như trên rồi xuất ra cùng 1 bản excel luôn thi hay wa.hjhjhj


  • 0

#6 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 06 June 2014 - 01:38 PM

các a c viết giúp em líp với yêu cầu như sau: ta có 1 đường pline có nhiều góc hợp thành (ảnh minh họa bên dưới). em cần khi đánh lệnh, kích vào pline, chọn điểm đầu, chọn điểm cuối thì lisp sẽ tính cho em từng góc theo chiều kim đồng hồ, theo thứ tự từ điểm đầu đến điểm cuối sau đó xuất sang excel. vd như trên hình vẽ thì điểm 1 là điểm đầu, n là điểm cuối thì em cần các góc 2,3,4,...n-1 theo chiều kim đồng hồ hướng từ 1đến n, hoặc từ n đến 1 tùy vào ta chọn điểm đầu điểm cuối từ lúc ban đầu.

http://www.cadviet.c.../131903_cad.rar

Chạy thử Lisp này xem sao : http://www.cadviet.c...isepolyline.zip


  • 1

#7 hoangkieu

hoangkieu

    biết pan

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

Đã gửi 06 June 2014 - 02:52 PM

cam on anh gia_bach da quan tam, anh cho em hoi ty, em douwload ve nhung em load len cad ko dc, anh co cach nao giup em voi


  • 0

#8 whatcholingon

whatcholingon

    biết lệnh break

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

Đã gửi 07 June 2014 - 10:12 AM

Chạy thử Lisp này xem sao : http://www.cadviet.c...isepolyline.zip

Lisp chạy tốt. nếu có thể xuất các góc ra bảng trên cad, hay ra file text nữa thì tuyệt.

Thanks!


  • 0

#9 ahuy_ts

ahuy_ts

    biết pan

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

Đã gửi 07 June 2014 - 02:09 PM

sao em load cad không hiểu nhỉ, có bác nào chỉ em với

 


  • 0

#10 ahuy_ts

ahuy_ts

    biết pan

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

Đã gửi 07 June 2014 - 02:16 PM

em load dc nhưng khi đánh lệnh ATP em kick vào đường pline thì ko hiển thị gì hết, vậy là sao có cao thủ nào chỉ em, hoặc có thể viết lại giúp em với, em đang rất cần lisp này. xin cảm ơn

 


  • 0

#11 whatcholingon

whatcholingon

    biết lệnh break

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

Đã gửi 07 June 2014 - 02:27 PM

bạn load lisp xong, gõ lênh ATP  rồi pick vào đường LWPOLYLINE.

nếu là đường POLYLINE thì không được nhé.

để chuyển đường POLYNINE thành LWPOLYLINE thì bạn làm như sau:

cách 1: gõ lệnh PLINETYPE để là 1.

sau đó EXPLODE đường PL đó ra, rồi dùng lệnh PE nối lại.

cách 2: tìm trên diễn đàn LSP chuyển POLYLINE sang LWPOLYLINE.

Chúc bạn thành công.


  • 0

#12 hoangkieu

hoangkieu

    biết pan

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

Đã gửi 07 June 2014 - 11:23 PM

thank a nhiều nhiều


  • 0

#13 ahuy_ts

ahuy_ts

    biết pan

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

Đã gửi 07 June 2014 - 11:45 PM

anh gia_bach có thể giúp em viết thêm cho xuất ra excel ko anh. thank anh


  • 0

#14 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 08 June 2014 - 06:47 AM

bạn load lisp xong, gõ lênh ATP  rồi pick vào đường LWPOLYLINE.

nếu là đường POLYLINE thì không được nhé.

để chuyển đường POLYNINE thành LWPOLYLINE thì bạn làm như sau:

cách 1: gõ lệnh PLINETYPE để là 1.

sau đó EXPLODE đường PL đó ra, rồi dùng lệnh PE nối lại.

cách 2: tìm trên diễn đàn LSP chuyển POLYLINE sang LWPOLYLINE.

Chúc bạn thành công.

 

Sao ban không sử dụng lệnh CONVERT ?


  • 1

#15 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 09 June 2014 - 10:42 AM

Update thêm tùy chọn xuất file CSV : http://www.cadviet.c...epolyline_1.zip

- kích thước lấy theo DimStyle hiện hành

- ch/cao Text lấy theo biến hệ thống TextSize

- định dạng chiều dài và số đo góc theo Format-> Units... :

15454_format_number.jpg

 


  • 2

#16 whatcholingon

whatcholingon

    biết lệnh break

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

Đã gửi 09 June 2014 - 07:10 PM

Update thêm tùy chọn xuất file CSV : http://www.cadviet.c...epolyline_1.zip

- kích thước lấy theo DimStyle hiện hành

- ch/cao Text lấy theo biến hệ thống TextSize

- định dạng chiều dài và số đo góc theo Format-> Units... :

15454_format_number.jpg

Khi xuất ra file CSV thì cạnh và góc nó dính liền nhau, bạn gia bach có thể bổ sung thêm cạnh và góc được ngăn cách bằng dấu cách or dấu Tab được không ạ,

Thanks!


  • 0

#17 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5449 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 09 June 2014 - 10:05 PM

Khi xuất ra file CSV thì cạnh và góc nó dính liền nhau, bạn gia bach có thể bổ sung thêm cạnh và góc được ngăn cách bằng dấu cách or dấu Tab được không ạ,

Thanks!

Có lẽ do định dạng dấu thập phân là dấy phẩy?


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#18 whatcholingon

whatcholingon

    biết lệnh break

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

Đã gửi 09 June 2014 - 11:34 PM

Có lẽ do định dạng dấu thập phân là dấy phẩy?


Khi mình mở trên notebad thì vẫn dính liền nhau. Không có dấu phẩy ngăn cách bạn ạ.
  • 0

#19 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5449 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 10 June 2014 - 06:48 AM

Khi mình mở trên notebad thì vẫn dính liền nhau. Không có dấu phẩy ngăn cách bạn ạ.

Dòm code thì hình như là thiếu dấu phẩy rồi. Chắc phải chờ sửa thôi.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#20 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 10 June 2014 - 07:31 AM

Khi xuất ra file CSV thì cạnh và góc nó dính liền nhau, bạn gia bach có thể bổ sung thêm cạnh và góc được ngăn cách bằng dấu cách or dấu Tab được không ạ,

Thanks!

File CSV đang dùng kí tự Tab để ngăn cách hai giá trị.


  • 1