LISP đối xứng đối tượng

[đặng phụng 5]

nhờ các ace trên diễn đàn giúp mình 1 lisp đối xứng đối tượng chọn, giống như dùng lệnh Mirro chọn yes vậy

-gõ lệnh

-chọn đối tượng đối xứng

-chọn điểm đối xứng

-kết thúc

cảm ơn các anh em nhiều.

[huunhantvxdts 195]

3 giờ trước, đặng phụng cho biết:

nhờ các ace trên diễn đàn giúp mình 1 lisp đối xứng đối tượng chọn, giống như dùng lệnh Mirro chọn yes vậy

-gõ lệnh

-chọn đối tượng đối xứng

-chọn điểm đối xứng

-kết thúc

cảm ơn các anh em nhiều.

Quá khó cho 1 yêu cầu????

Phải có thêm 1 phương nữa mới làm được

[đặng phụng 5]

Bác cứ cho e phương nằm ngang đi bác.

[Danh Cong 422]

Mình hỏi ngu tí: Mục đích lisp theo yêu cầu của bạn là gì? Chẳng lẽ bớt thao tác đi 1 lần gõ "cách". @@

[đặng phụng 5]

mình muốn đối xứng mũi tên có ghi chú  text  cho nhanh í mà, dùng lệnh mirro cũng được thôi nhưng phải bấm chọn thêm lựa chọn yes rồi bấm enter nữa nhiều thao tác khi vẽ quá. Bạn giỏi về lisp giúp mình và mọi người trên diễn đàn với, mình nghỉ có rất nhiều người cần lisp này khi vẽ đấy.

[Doan Van Ha 3202]

Nè vua làm biếng!

	(defun C:MR()
 (command "mirror" (ssget) "" (setq p (getpoint "\nPick point: ")) (list (+ (car p) 1.0) (cadr p)) "y") (princ))
	

[đặng phụng 5]

Hic bác nói cũng đúng, thank bác Ha nhiều nha.

[đặng phụng 5]

ôi bác Ha ơi lisp bác viết chỉ đối xứng theo trục ngang thôi,cái e cần là đối xứng theo trục đứng ý.

[Danh Cong 422]

Tìm chỗ mà thay (list (car p) (+ (cadr p) 1.0))