Đến nội dung


Hình ảnh
- - - - -

Nhờ Viết Lisp Tạo Hình Từ 1 Đường Line (Hoặc Pick 2 Điểm)


  • Please log in to reply
14 replies to this topic

#1 Phan Toàn

Phan Toàn

    biết zoom

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

Đã gửi 20 August 2016 - 10:25 PM

Em có cái file đính kèm thể hiện ý tưởng của em như thế này:

  • Cho trước 1 đường line với 1 layer bất kỳ (hoặc 2 điểm đầu của đoạn thằng).
  • Nhập vào giá trị cần kéo dài mỗi đâu cùa đoạn thằng (có thể ghi nhớ giá trị ny cho lần dùng lệnh tiếp theo), biến đoạn thẳng này về layer "TRUC".
  • Nhập vào giá trị offset 2 bên của đoạn thẳng đó (không quan tâm hướng offset, có thể ghi nhớ giá trị này cho lần dùng lệnh tiếp theo), biến 2 đoạn thẳng này về layer "7" và  layer" KHUAT".
  • Nối các đoạn thẳng sau khi kéo dài và offset thành 1 polyline (giống lệnh "NN" của lisp nối line thành Pline  ạ).
  • Xuất ra 1 dòng text bên cạnh hình đã vẽ (xoay theo trục của nó càng tốt ạ) với chiều cao, layer và style quy định trước thể hiện kích thước như trong file (các bác xem file đính kèm cho dễ hình dung ạ).

W9eaqrm.png

 

 Ngu ý của em để thể hiện ý tưởng này là như thế này: Pick vào 2 điểm của đoạn thằng, lấy ra tọa độ của nó và góc nghiêng của nó so với phương X, từ đó sẽ dùng lượng giác suy ra tọa độ các điểm còn lại và nối lại bằng line nhưng do trình độ còn hạn chế nên không làm nổi, đành lên đây nhờ các bác. Không biết các bác có cao kiến gì không thì giúp em với ạ!

Em biết để thực hiện thành công lisp này sẽ rất tốn thời gian và công sức của các bác, rất mong các bác giúp đỡ!

Cám ơn các bác đã xem bài, chúc các bác vui!

:)

http://www.cadviet.c...154272_vd_1.dwg


  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 20 August 2016 - 10:43 PM

Lisp vẽ thép hình, trên 4R đã có, nhưng không tìm nỗi. Bạn gắng tìm xem.


  • 1

* 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.


#3 Phan Toàn

Phan Toàn

    biết zoom

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

Đã gửi 21 August 2016 - 09:48 PM

Lisp vẽ thép hình, trên 4R đã có, nhưng không tìm nỗi. Bạn gắng tìm xem.

Cám ơn bác! Để em cố gắng tìm ạ.


  • 0

#4 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 23 August 2016 - 10:04 AM

Chưa xong, nhưng cũng "đề-mô" phát: http://www.cadviet.c...thephinhvvv.rar

- Lệnh: VVV

- Hiện tại chỉ được chọn trong bar type để lấy thông số tiết diện.

- Ý tưởng phát triển:

    + Các thông số tiết diện có thể edit trên dialog.

    + User hoặc từ lisp sẽ tự tạo ra 1 file data.txt, => list bar type sẽ lấy từ file data này.

    + Có thể thống kê chiều dài và khối lượng từ lisp.

141736_vvv.jpg


  • 1

#5 Phan Toàn

Phan Toàn

    biết zoom

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

Đã gửi 23 August 2016 - 10:31 PM

Chưa xong, nhưng cũng "đề-mô" phát: http://www.cadviet.c...thephinhvvv.rar    

 Em và mọi người đang chờ bản "Final" của bác đây ạ  :P


  • 0

#6 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 25 August 2016 - 11:24 AM

Bản dùng thử: http://www.cadviet.c...36_vtvtrial.rar

+ Lệnh VTV.

+ Fr-point: Vẽ từ 2 point.

+ Fr-Line: Quét chọn Line.

+ Statistic: Thống kê.

+ Rad-Cir-Mark: Bán kính vòng tròn số hiệu.

+ Single, Double: Phục vụ thống kê

+ F-Length, E-Length: Thêm, bớt chiều dài thanh, điểm đầu, điểm cuối...

+ Edit-SHT: Khi có các thanh giống nhau, muốn đưa về cùng 1 số hiệu, hoặc sửa chiều dài ... để thống kê.

P/s: Để thống kê được, phục thuộc vào Block số hiệu thép (Tích vào Mark).

141736_vtvtrial.jpg


  • 0

#7 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 28 August 2016 - 12:15 AM

Bản Final (cũng chưa biết đã "Nồ" hay chưa :D...​)

+ Giải nén ra có 2 file: VTH.fas và ThepHinhTCVN.txt (File ThepHinhTCVN.txt chép vào thư mục có đường dẫn hỗ trợ của Cad, thì Lisp tự tìm, nếu không hoặc bị đổi tên thì phải tự tìm bằng nút Browse)

+ Lệnh: VTH.

+ Bảng thống kê hỗ trợ font: Unicode, TCVN3, VNI.

+ Vài hình ảnh cùng file nén:

http://www.cadviet.c...hephinhtcvn.rar

141736_thfinal.jpg


  • 3

#8 Phan Toàn

Phan Toàn

    biết zoom

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

Đã gửi 28 August 2016 - 09:59 PM

Bản Final (cũng chưa biết đã "Nồ" hay chưa :D...​)

+ Giải nén ra có 2 file: VTH.fas và ThepHinhTCVN.txt (File ThepHinhTCVN.txt chép vào thư mục có đường dẫn hỗ trợ của Cad, thì Lisp tự tìm, nếu không hoặc bị đổi tên thì phải tự tìm bằng nút Browse)

+ Lệnh: VTH.

+ Bảng thống kê hỗ trợ font: Unicode, TCVN3, VNI.

+ Vài hình ảnh cùng file nén:

http://www.cadviet.c...hephinhtcvn.rar

141736_thfinal.jpg

 

Có lẽ sẽ có ích cho người khác, với em thế này thì thừa thãi quá ạ :D


  • 0

#9 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5684 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 29 August 2016 - 09:24 AM

Bác làm e nhớ phần mềm tra thép hình v2.0 ^^ :)

P/s : phần ảnh dùng slide hay vector image bác, nếu vector thì qua page e hỏi chút 


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#10 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 673 Bài viết
Điểm đánh giá: 315 (khá)

Đã gửi 29 August 2016 - 04:14 PM

Cái đó dùng vector, file fas mà.

 

Có lẽ sẽ có ích cho người khác, với em thế này thì thừa thãi quá ạ :D

@Phan Toàn: Mình thiệt là hồ đồ quá đi... :D! Vậy mà mình còn tính chuyện phát triển vẽ trên mặt bằng (tức là các thép hình chữ H, U, C vẽ lật lại...)


  • 0

#11 Phan Toàn

Phan Toàn

    biết zoom

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

Đã gửi 29 August 2016 - 09:54 PM

Cái đó dùng vector, file fas mà.

 

@Phan Toàn: Mình thiệt là hồ đồ quá đi... :D! Vậy mà mình còn tính chuyện phát triển vẽ trên mặt bằng (tức là các thép hình chữ H, U, C vẽ lật lại...)

Em nghĩ chắc chắn sẽ có người cần ạ, nhưng thực sự nó chưa phù hợp với em lắm. Chúc bác sớm hoàn thiện phần mềm!

 

Bác @ketxu : Bác có thể giúp em đoạn code làm sao để chọn 2 điểm bất kỳ, hoặc chọn 1 đường line (polyline) thì sẽ chuyển trục tọa độ về theo trục của đường thẳng hoặc 2 điểm đó, đồng thời gán tọa độ điểm đầu, điểm cuối vào biến để sau này dùng lại được không ạ.

Ngoài ra em có 1 block là 1 đường tròn (để thể hiện bulong đó ạ), có thể dùng code nào để đo đường kính của nó rồi gán vào biến không ạ?


  • 0

#12 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 29 August 2016 - 11:06 PM

Chia buồn chú QM khi gặp những comment như thế. <_<


  • 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.


#13 Phan Toàn

Phan Toàn

    biết zoom

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

Đã gửi 30 August 2016 - 06:29 AM

Chia buồn chú QM khi gặp những comment như thế. <_<

Sao chú lại nói vậy ạ? Thực sự thì phần mềm của bác QM rất hay, nhưng cháu thấy thật sự thì nó chưa phù hợp với cháu vì:

  • Thứ nhất: cháu không biết chỉnh sửa file .fas (không tường minh như file .lisp) nên khó tùy biến.
  • Thứ hai: Cháu chỉ cần vẽ hình chiếu cạnh của thép góc đều cánh, các chức năng còn lại là không thực sự cần thiết ạ.

Cháu là người thẳng tính, có sao nói vậy nên có lẽ dễ làm phật ý người khác. Chú nói vậy làm cháu mất lòng với anh em CADViet quá ạ  :(!

Thân gửi chú vài lời, có gì không phải với người trên, chú bỏ quá cho cháu ạ!


  • 0

#14 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 30 August 2016 - 06:34 PM

Lý do góp ý với bạn là:

1). Lisp viết rộng, dù chưa dùng hết chức năng, nhưng nói thừa thãi e tác giả dễ phật lòng. Trích ý tác giả:

@Phan Toàn: Mình thiệt là hồ đồ quá đi...  :D! Vậy mà mình còn tính chuyện phát triển vẽ trên mặt bằng (tức là các thép hình chữ H, U, C vẽ lật lại...)

2). Đang nhờ tác giả thì nhờ tiếp chứ không nên chỉ đích danh người khác, dễ chạm tự ái.

Chỉ góp ý vậy thôi chứ chẳng có gì quá to tát đâu. Rất thích tính cầu thị của bạn! Chúc vui!


  • 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.


#15 Phan Toàn

Phan Toàn

    biết zoom

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

Đã gửi 30 August 2016 - 06:47 PM

Lý do góp ý với bạn là:

1). Lisp viết rộng, dù chưa dùng hết chức năng, nhưng nói thừa thãi e tác giả dễ phật lòng. Trích ý tác giả:

@Phan Toàn: Mình thiệt là hồ đồ quá đi...  :D! Vậy mà mình còn tính chuyện phát triển vẽ trên mặt bằng (tức là các thép hình chữ H, U, C vẽ lật lại...)

2). Đang nhờ tác giả thì nhờ tiếp chứ không nên chỉ đích danh người khác, dễ chạm tự ái.

Chỉ góp ý vậy thôi chứ chẳng có gì quá to tát đâu. Rất thích tính cầu thị của bạn! Chúc vui!

 

Chân thành cám ơn chú đã có những góp ý sâu sắc!

Có lẽ ngoài học kiến thức người ta còn cần phải học cách đối nhân xử thế.

Chúc chú sức khỏe để giúp đỡ anh em CADViet nhiều hơn nữa!


  • 0