Đến nội dung


Hình ảnh
- - - - -

cần giúp lisp vẽ pline


  • Please log in to reply
2 replies to this topic

#1 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 13 August 2010 - 08:43 AM

các bác giúp em cái lisp vẽ pline, xong rồi mình có thể chọn nó để hatch. tại vì cái đường bao hacth là pline ko có giới hạn số đỉnh. do đó ko thể viết theo kiểu (setq pt1... pt2...) dc các bác ah!
nhờ giúp giùm em! thanks
  • 0
Hình đã gửi

#2 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 13 August 2010 - 08:54 AM

các bác giúp em cái lisp vẽ pline, xong rồi mình có thể chọn nó để hatch. tại vì cái đường bao hacth là pline ko có giới hạn số đỉnh. do đó ko thể viết theo kiểu (setq pt1... pt2...) dc các bác ah!
nhờ giúp giùm em! thanks

Đây là đoạn vẽ pl bạn tham khảo. Còn đoạn hatch chắc bạn tiếp được. (pline khi vẽ ko cần khép kín. bạn enter kết thúc lệnh thì nó tự khép kín lại.

(DEFUN C:ndiem ( )
(command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")

(setq a (getpoint "\nChon diem dau tien: "))
(setq b (getpoint a"\nChon diem tiep theo: "))

(command "pline" a b "")
(setq plhoinay (entlast))
(setq diemdong a)
(setq a b)

(while (setq b (getpoint a"\nChon diem tiep theo : "))
(command "pline" a b "")
(command "pedit" "m" "L" plhoinay "" "j" "0" "")
(setq plhoinay (entlast))
(setq a b)

)
(command "pedit" plhoinay "c" "")
(princ)
)


À bạn thêm phẩn lưu và trả osmode nhé
  • 1

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


#3 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 13 August 2010 - 11:45 AM

Đây là đoạn vẽ pl bạn tham khảo. Còn đoạn hatch chắc bạn tiếp được. (pline khi vẽ ko cần khép kín. bạn enter kết thúc lệnh thì nó tự khép kín lại.

(DEFUN C:ndiem ( )
(command "-style" "thep" "VNI-HELVE" "0" "1" "0" "n" "n")
(princ "\nPHAM QUOC DUY Binh Son - Quang ngai")

(setq a (getpoint "\nChon diem dau tien: "))
(setq b (getpoint a"\nChon diem tiep theo: "))

(command "pline" a b "")
(setq plhoinay (entlast))
(setq diemdong a)
(setq a :(

(while (setq b (getpoint a"\nChon diem tiep theo : "))
(command "pline" a b "")
(command "pedit" "m" "L" plhoinay "" "j" "0" "")
(setq plhoinay (entlast))
(setq a :undecided:

)
(command "pedit" plhoinay "c" "")
(princ)
)


À bạn thêm phẩn lưu và trả osmode nhé

thanks A Duy nha
  • 0
Hình đã gửi