chandoll
-
Số lượng nội dung
8 -
Đã tham gia
-
Lần ghé thăm cuối
Bài đăng được đăng bởi chandoll
-
-
Đây là đoạn lisp em lập để xoay một đối tượng Mtext quanh tâm của nó một goc 90. Nhưng nó không chạy được . Nhờ bác sửa giùm em .
(Defun C:quay ( )
(setq DT (entsel "\nChon text mau"))
(while
(or
(null DT)
(/= "MTEXT" (cdr (assoc 0 (entget (car DT)))))
)
(princ "\nDoi tuong khong phai la MTEXT! Chon lai")
(setq DT (entsel "\nChon MTEXT mau"))
)
(setq DT (car DT))
(setq DT (entget DT))
(setq DD (cdr (assoc 10 DT)))
(setq DC (cdr (assoc 11 DT)))
(princ DD)
(princ dc)
(setq dx1 (distof car(dd) 2))
(setq dx2 (distof car(dc) 2))
(setq dx (+ dx1 dx2))
(setq dx (/ dx 2)
(setq dy1 (distof cadr(dd) 2))
(setq dy2 (distof cadr(dc) 2))
(setq dy (+ dy1 dy2))
(setq dy (/ dy 2))
(command "rotate" dt "" '(dx dy) 90)
)
-
Bạn hãy post file dwg chứa các toạ độ điểm mà bạn muốn. Và nói rõ dạng text kết quả mà bạn muốn (đối tượng text hay file text).Cảm ơn bác đã quan tâm , sau một hồi mày mò diễn đàn em đã làm được yêu cầu này . <_< . Yêu cầu của em chỉ là xuất toạ độ ra đối tượng text. Còn file text thì em chưa dùng đến và có lẽ em sẽ nghiên cứu sau . Cảm ơn bác .
-
Bác Hoành ơi , nhờ bác bày cho em đoạn lisp để xuất toạ độ của điểm đầu và điểm cuối của một đoạn thẳng mà mình chọn.
-
Có ai co Lisp xuất toạ độ điểm chọn ra dạng text không ?
-
Nếu bạn tạo block kết hợp với dùng lệnh insert block thì bạn sẽ gặp tiện lợi trong việc vẽ lặp đi lặp lại nhiều lần nhiều đối tượng trong một bản vẽ . Ngoài ra , nó cũng giúp cho bạn cố định một nhóm đối tượng nếu bạn không muốn thay đổi . Nó còn nhiều công dụng lắm ... ^^!
-
Xài lệnh Id rồi pick điểm cần xd toạ độBạn có biết làm cách nào để có thể xuất toạ độ ấy dưới dạng text ngay trên bản vẽ không ?
-
Có ai biết làm cách nào để cho hiển thị tự động toạ độ các điểm trên cad ( không phải trong cửa sổ property) bày cho mình với .
Viết Lisp theo yêu cầu
trong AutoLisp
Đã đăng · Trả lời báo cáo
Bac Hoanh sua cho em cái này với