Đến nội dung


Hình ảnh
- - - - -

[ nhờ viết lisp ] hiển thì chiều dài 2 đỉnh khi dùng lệnh PL


  • Please log in to reply
2 replies to this topic

#1 hakhoailang

hakhoailang

    biết lệnh rotate

  • Members
  • PipPipPip
  • 132 Bài viết
Điểm đánh giá: 2 (bình thường)

Đã gửi 03 November 2011 - 09:26 PM

trong quá trình làm việc e gặp phả vấn đề nên nhờ các bác viết hộ e cái lisp với ý tưởng như sau :
e dùng lệnh PL để kẻ đa tuyến
ví dụ e kẻ đa tuyến có các đỉnh là 1,2,3,4,5
khi e pick điểm 2 thì nó hiển thị chiều dài của đoạn 12 trên khung command
khi e pick điểm 3 thì nó hiển thị chiều dài của đoạn 23 trên khung command
khi e pick điểm 4 thì nó hiển thị chiều dài của đoạn 34 trên khung command
khi e pick điểm 5 thì nó hiển thị chiều dài của đoạn 45 trên khung command
mong các bác giúp đỡ hộ e .
cái này là nhu cầu do đặc thù công việc của em mỗi khi kẻ pl xong e phải đo lại chều dài của nó để căn cho đúng tiêu chuẩn .
rất mệt mỏi . vì có hàng nghìn điểm .
mong các bác giúp đỡ hộ em
thank các bác nhiều
  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 03 November 2011 - 10:05 PM

Bạn không nên sáng tạo tiền tố của tiêu đề, vì nó đã theo 1 form rồi.

(defun c:pl()
(command ".pline" (setq p1 (getpoint "\nSpecify start point: ")))
(while (setq p2 (getpoint p1))
(princ (distance p1 p2))
(command p2)
(setq p1 p2)
)
(command "")
(princ)
)

  • 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


#3 hakhoailang

hakhoailang

    biết lệnh rotate

  • Members
  • PipPipPip
  • 132 Bài viết
Điểm đánh giá: 2 (bình thường)

Đã gửi 04 November 2011 - 08:21 AM

cảm ơn bác nhiều .
e se rut kinh nghiệm theo góp ý của bác
  • 0