Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu] nhờ viết lisp Hatch nhanh.


  • Please log in to reply
5 replies to this topic

#1 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 02 November 2011 - 08:53 AM

Mình nhờ các bạn viết lisp hatch nhanh cho một vùng miền. Mình cần hatch nhanh vùng miền đó thành một khối hatch solid. Sau đó mình sẽ matchprop các hatch khác tương tự trong bản vẽ theo ý mình. Mình nghĩ là khá hay dùng vì nếu hatch theo lệnh của cad rất mất time.
Lisp như sau:

Lệnh: hh
Chọn phương pháp hatch: Boundary/ Pick point
(nhập B hoặc P theo phương pháp cần hatch)
Với lựa chọn B thì chọn polyline bao quanh vùng hatch - lựa chọn P thì pick điểm vào vùng cần hatch.
Kết quả tạo ra khối hatch solid đặc quanh vùng miền mình lựa chọn.
Các bạn viết dùm mình với nhé! Cho mình cảm ơn trước các bạn nhiều :)
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 02 November 2011 - 09:07 AM

Tự setvar HPName 1 lần để biết cảm giác viết lisp đi victor :) Cái này quá đơn giản mà
  • 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


#3 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 02 November 2011 - 09:24 AM

Tự setvar HPName 1 lần để biết cảm giác viết lisp đi victor :) Cái này quá đơn giản mà

Cũng thích tự viết lisp lắm, mà mấy lần đọc cái hướng dẫn trên mạng toàn rối tít mù. Mình vốn không rành mấy cái công thức, mấy cái hàm này lắm. Chắc phải có thầy chỉ cho thì may ra ;))
  • 0

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 02 November 2011 - 09:42 AM

Quan trọng là có thích hay không mà thôi!
Rồi thì ai cũng phải tự hiểu những gì mình cần thôi, chứ yêu cầu mãi nghe đâu có ổn :) Các bác khác viết cho victor chắc chỉ mất đến 10p là cùng thôi, nhưng nếu không có bắt đầu thì chẳng bao giờ có kết quả!
VD 2 phút :

(defun c:hh ()
(acet-sysvar-set (list "HPNAME" "SOLID"))
(initget "B P")
(if (= (getkword "Boundary / Point [Boundary/Point] :") "B")(command "-hatch" "S")(command "-hatch"))
(acet-sysvar-restore)
)
Hoàn toàn đâu có khó victor :) ?
Trên diễn đàn đầy người hướng dẫn, mà cơ bản có đọc, làm thử, hỏi để người ta hướng dẫn đâu!
  • 1

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


#5 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 02 November 2011 - 10:02 AM

Mình nhờ các bạn viết lisp hatch nhanh cho một vùng miền. Mình cần hatch nhanh vùng miền đó thành một khối hatch solid. Sau đó mình sẽ matchprop các hatch khác tương tự trong bản vẽ theo ý mình. Mình nghĩ là khá hay dùng vì nếu hatch theo lệnh của cad rất mất time.
Lisp như sau:

Lệnh: hh
Chọn phương pháp hatch: Boundary/ Pick point
(nhập B hoặc P theo phương pháp cần hatch)
Với lựa chọn B thì chọn polyline bao quanh vùng hatch - lựa chọn P thì pick điểm vào vùng cần hatch.
Kết quả tạo ra khối hatch solid đặc quanh vùng miền mình lựa chọn.
Các bạn viết dùm mình với nhé! Cho mình cảm ơn trước các bạn nhiều Hình đã gửi

Đây là dòng hatch solid bằng cách chọn đối tượng.
(command "hatch" "solid" (ssget) "")
Đây là dòng hatch solid bằng cách pick điểm.
(command "bhatch" "p" "solid" (getpoint "\nPick a point:") "")
Bạn thêm vào cho ra lisp nhé!
  • 3

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#6 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 02 November 2011 - 10:36 AM

uh, Cảm ơn ketxu đã góp ý nhé. Để tớ tìm hiểu cách viết lisp chỉn chu từ đầu tập viết lisp cái xem sao!
  • 0