Đến nội dung


Hình ảnh
- - - - -

XIN lisp về lệnh scale


  • Please log in to reply
6 replies to this topic

#1 tuyendcc

tuyendcc

    biết zoom

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

Đã gửi 10 November 2008 - 08:07 PM

Em rất hay phải dùng lệnh scale với tỉ lệ khác nhau, thường thì em vẫn thường dùng lệnh scale->"r" rồi nhập 2 kích thước. Dùng cách này cũng được nhưng khi hay phải dùng thi mất thời gian quá. Bác có cái lisp mỗi khi dùng thì mình chỉ cần chọn hình cần phải scale, sau đó pick vào 2 cạnh (vd: 2 cạnh của 2 hình chữ nhật, hoặc 2 đường line) thì nó tự chia chiều dài cạnh (hoặc line) của hình này cho hình kia và scale hình minh cần scale đúng theo tỉ lệ đó không các anh?
thankssss!!!!
  • 0

#2 tuyendcc

tuyendcc

    biết zoom

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

Đã gửi 10 November 2008 - 08:25 PM

Em rất hay phải dùng lệnh scale với tỉ lệ khác nhau, thường thì em vẫn thường dùng lệnh scale->"r" rồi nhập 2 kích thước. Dùng cách này cũng được nhưng khi hay phải dùng thi mất thời gian quá. Bác có cái lisp mỗi khi dùng thì mình chỉ cần chọn hình cần phải scale, sau đó pick vào 2 cạnh (vd: 2 cạnh của 2 hình chữ nhật, hoặc 2 đường line) thì nó tự chia chiều dài cạnh (hoặc line) của hình này cho hình kia và scale hình minh cần scale đúng theo tỉ lệ đó không các anh?
thankssss!!!!

Sao không có Bác nào chịu giúp em một chút đi. Em nghĩ lisp này rất hay, (mà cũng có thể là đã có ở đâu đó từ lâu rồi), vì khi muốn scale 1 hình gì đó ta chỉ cần pick và 2 cạnh bất kỳ của 2 hình bất kỳ và sẽ scale cái hình ban đầu mình đã trọn.
Các bác mỗi người nhúng tay vào 1 tí đi
cám ơn các bác
  • 0

#3 thoclep

thoclep

    biết lệnh offset

  • Members
  • PipPipPip
  • 170 Bài viết
Điểm đánh giá: 142 (tàm tạm)

Đã gửi 11 November 2008 - 01:08 AM

Sao không có Bác nào chịu giúp em một chút đi. Em nghĩ lisp này rất hay, (mà cũng có thể là đã có ở đâu đó từ lâu rồi), vì khi muốn scale 1 hình gì đó ta chỉ cần pick và 2 cạnh bất kỳ của 2 hình bất kỳ và sẽ scale cái hình ban đầu mình đã trọn.
Các bác mỗi người nhúng tay vào 1 tí đi
cám ơn các bác

Bạn dùng lênh ALIGN trong cad thu xem. Nó có tác dụng như bạn mong muốn đó
  • 0

#4 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 11 November 2008 - 01:28 PM

Em rất hay phải dùng lệnh scale với tỉ lệ khác nhau, thường thì em vẫn thường dùng lệnh scale->"r" rồi nhập 2 kích thước. Dùng cách này cũng được nhưng khi hay phải dùng thi mất thời gian quá. Bác có cái lisp mỗi khi dùng thì mình chỉ cần chọn hình cần phải scale, sau đó pick vào 2 cạnh (vd: 2 cạnh của 2 hình chữ nhật, hoặc 2 đường line) thì nó tự chia chiều dài cạnh (hoặc line) của hình này cho hình kia và scale hình minh cần scale đúng theo tỉ lệ đó không các anh?
thankssss!!!!

Mình mới viết được đoạn lisp này. Hy vọng nó chạy theo đúng ý bạn :

(defun C:SCC ()
(prompt "Ban chon doi tuong scale")
(princ "\nSelect object :")
(setq obj (ssget))
(setq base (getpoint "Diem goc scale :")) (terpri)
(prompt "Ban nhap ti le scale = canh thu 1 chia cho canh thu 2") (terpri)
(setq c1 (getpoint "Pick vao canh 1:")) (terpri)
(command "lengthen" c1 "")
(setq L1 (getvar "perimeter"))
(setq c2 (getpoint "Pick vao canh 2:")) (terpri)
(command "lengthen" c2 "")
(setq L2 (getvar "perimeter"))
(setq TL (/ L1 L2))
(command "scale" obj "" base TL)
)
.
Các bạn cho ý kiến. Thanks động viên nhé.
  • 1

#5 ndtnv

ndtnv

    biết lệnh minsert

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

Đã gửi 14 November 2008 - 10:55 AM

Em rất hay phải dùng lệnh scale với tỉ lệ khác nhau, thường thì em vẫn thường dùng lệnh scale->"r" rồi nhập 2 kích thước. Dùng cách này cũng được nhưng khi hay phải dùng thi mất thời gian quá. Bác có cái lisp mỗi khi dùng thì mình chỉ cần chọn hình cần phải scale, sau đó pick vào 2 cạnh (vd: 2 cạnh của 2 hình chữ nhật, hoặc 2 đường line) thì nó tự chia chiều dài cạnh (hoặc line) của hình này cho hình kia và scale hình minh cần scale đúng theo tỉ lệ đó không các anh?
thankssss!!!!

Nếu làm như vậy thì chỉ có new length
còn Specify reference length
thì chiều dài hình là kích thước nào
VD line thì có thể là chiều dài, cũnng có thể là dx hoặc dy
còn nếu nhiều đối tượng thì chịu thua
Nếu nhập vào cả reference length thì chỉ giảm bớt 1 lần đánh chữ r
  • 0

#6 tuyendcc

tuyendcc

    biết zoom

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

Đã gửi 17 November 2008 - 09:43 PM

uh, cám ơn anh nhé, em chưa xem thử lại. cứ cám ơn anh trước cái đã
nhiều khi công việc cần phải có lòng đam mê thi mới thành công được, nhưng em mới chỉ có lòng đam mê không thôi, chưa đủ, vì khả năng của mình còn kém qua
thankssss
  • 0

#7 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 18 November 2008 - 06:37 AM

uh, cám ơn anh nhé, em chưa xem thử lại. cứ cám ơn anh trước cái đã
nhiều khi công việc cần phải có lòng đam mê thi mới thành công được, nhưng em mới chỉ có lòng đam mê không thôi, chưa đủ, vì khả năng của mình còn kém qua
thankssss

Về khả năng thì bạn phải bắt đầu từ những bước cơ bản mới được.
Một căn nhà được xây dựng phải bắt đầu từ việc xây phần móng trước tiên.
Nhưng nếu bạn không bắt tay vào làm thì sự đam mê hoá ra vô nghĩa.
Chúc bạn làm được những điều đam mê của bạn.
  • 0