Đến nội dung


Hình ảnh
- - - - -

Xin lisp copy align


  • Please log in to reply
22 replies to this topic

#21 Phiphi-

Phiphi-

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 434 Bài viết
Điểm đánh giá: 175 (tàm tạm)

Đã gửi 14 September 2009 - 04:17 PM

*Đây bạn:
-Tên lệnh: NALL (new algin line)
-Chọn đối tượng mốn copy và rotate (1 hoặc nhiều đối tượng) enter.
-Chọn các line (1 hoặc nhiều đối tượng, chỉ nhận đối tượng line) enter ==>Xong.
*Ở đây thì lisp sẽ copy đối tượng từ điểm đích thứ nhất đến điểm đầu của line và quay nó song song với line. Nếu bạn muốn copy đối tượng từ điểm đích thứ nhất đến điểm cuối của line thì sửa
(setq diem1m (cdr (assoc 10 ttdt)))
(setq diem2m (cdr (assoc 11 ttdt)))

Thành
(setq diem1m (cdr (assoc 11 ttdt)))
(setq diem2m (cdr (assoc 10 ttdt)))

Là được.

*Sẳn tiện mình viết luôn lệnh NALCL:
Giống lệnh trên nhưng thay vì chọn 2 điểm nguồn thì lisp hỏi chọn line nguồn (line này có thể nằm trong tập hợp chọn hoặc không gì cũng được). Lisp sẽ lấy điểm đầu và điểm cuối của line này làm 2 điểm nguồn.

Tuyệt vời quá. nay mai khi model các tháp thép khác PP sẽ ứng dụng LISP này. Công việc chằc chắn sẽ nhanh chóng hơn. Thank you bác Duy782006 rất nhiều.
Model PP đã làm: http://www.cadviet.c...showtopic=11939
  • 0

#22 duy782006

duy782006

    PHẠM QUỐC DUY

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

Đã gửi 14 September 2009 - 04:32 PM

Tuyệt vời quá. nay mai khi model các tháp thép khác PP sẽ ứng dụng LISP này. Công việc chằc chắn sẽ nhanh chóng hơn. Thank you bác Duy782006 rất nhiều.
Model PP đã làm: http://www.cadviet.c...showtopic=11939

Ủa nó chạy đúng trong 3d lun ha bạn. Mình cũng không ngờ há há!
  • 0

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


#23 qtc1096

qtc1096

    biết vẽ arc

  • Members
  • PipPip
  • 44 Bài viết
Điểm đánh giá: 24 (tàm tạm)

Đã gửi 09 November 2009 - 03:05 PM

Ủa nó chạy đúng trong 3d lun ha bạn. Mình cũng không ngờ há há!

Command:
hãy chon điẻm chuan 1
"Hay chon doi tuong :
Select objects: 1 found

Select objects:
Diem chuan thu nhat: >>
Diem chuan thu nhat:
Diem chuan thu hai:
Hay chon cac LINE dich :; error: too many arguments"
xuất hiện lỗi này a. Duy ơi. bạn dùng cad 2010 và sau khi thực hiện hiện lệnh mất hết các lựa chọn trong Object snap.
chỉ dùng được cái lisp cũ lệnh nal.
em không biết viết lisp nên hay sưu tầm copy tất vào 1 cái, không biết có lỗi khi các câu lệnh đá nhau không. A có thể chỉnh sửa gọt bớt cài em đang dùng này không. thanks.
http://www.mediafire...jm/FULL.V15.LSP
  • 0