Cách scale nhiều đối tượng một lúc?

[thong_kt 0]

Ví dụ mình có nhiều hình tròn trong bản vẽ. Giờ mình muốn scale tất cả cùng một lúc nhưng có tâm scale là tâm của từng đường tròn. Liệu có cách nào không? Mong các bác chỉ giúp.

[42cd79 0]

Ví dụ mình có nhiều hình tròn trong bản vẽ. Giờ mình muốn scale tất cả cùng một lúc nhưng có tâm scale là tâm của từng đường tròn. Liệu có cách nào không? Mong các bác chỉ giúp.

đặt các đối tượng của bạn thành 1 block với tâm bất kỳ, sau đó insert block đó ra với tỉ lệ Scale

[duy782006 1596]

Ví dụ mình có nhiều hình tròn trong bản vẽ. Giờ mình muốn scale tất cả cùng một lúc nhưng có tâm scale là tâm của từng đường tròn. Liệu có cách nào không? Mong các bác chỉ giúp.

Với những yêu cầu như này thì có thể viết lisp nhưng các bạn cứ ví dụ thì chẳng ai giúp bạn được pahỉ là yêu cầu cụ thể là circle, text, block thì người ta mới giúp được

[haanh 1590]

đặt các đối tượng của bạn thành 1 block với tâm bất kỳ, sau đó insert block đó ra với tỉ lệ Scale

Ko hiểu ý của anh nhưng em nghĩ sẽ lâu hơn là scale từng hình một

[Tue_NV 3916]

Với những yêu cầu như này thì có thể viết lisp nhưng các bạn cứ ví dụ thì chẳng ai giúp bạn được pahỉ là yêu cầu cụ thể là circle, text, block thì người ta mới giúp được

Tue_NV đồng ý với ý kiến của anh Duy782006.

Đây là lisp scale tất cả đường tròn cùng một lúc nhưng có tâm scale là tâm của từng đường tròn

(defun c:SCT(/ ci tl n i)
(prompt "\n Moi ban chon CIRCLE")
(setq ci (ssget '((0 . "CIRCLE"))))
(setq tl (getreal "\n Nhap ti le scale :") n (sslength ci) i 0)

(while ((setq ent (ssname ci i))
(command "scale" ent "" (cdr(assoc 10 (entget ent))) tl)
(setq i (1+ i))
)
(princ)
)

:s_big:

[thong_kt 0]

Tue_NV đồng ý với ý kiến của anh Duy782006.

Đây là lisp scale tất cả đường tròn cùng một lúc nhưng có tâm scale là tâm của từng đường tròn

(defun c:SCT(/ ci tl n i)
(prompt "\n Moi ban chon CIRCLE")
(setq ci (ssget '((0 . "CIRCLE"))))
(setq tl (getreal "\n Nhap ti le scale :") n (sslength ci) i 0)

(while (< i n)
(setq ent (ssname ci i))
(command "scale" ent "" (cdr(assoc 10 (entget ent))) tl)
(setq i (1+ i))
)
(princ)
)

:s_big:

Cảm ơn anh. Với text thì em đã thấy lisp scale tại điểm chèn của text rùi. Với block thì việc scale là đơn giản. Em muôn hỏi với một hình bất kỳ. Nếu là hình scale nhiều hình chữ nhật, wipeout một lúc. Tâm scale tại điểm pick chuột trên cạnh của hình chữ nhật. Cũng giống như với hình tròn nhưng giơ tâm scale là điểm pick chuột trên cạnh hình chữ nhật hay một điểm lằm bên cạnh hình chữ nhật. Mong anh giúp đỡ.

[duy782006 1596]

Cảm ơn anh. Với text thì em đã thấy lisp scale tại điểm chèn của text rùi. Với block thì việc scale là đơn giản. Em muôn hỏi với một hình bất kỳ. Nếu là hình scale nhiều hình chữ nhật, wipeout một lúc. Tâm scale tại điểm pick chuột trên cạnh của hình chữ nhật. Cũng giống như với hình tròn nhưng giơ tâm scale là điểm pick chuột trên cạnh hình chữ nhật hay một điểm lằm bên cạnh hình chữ nhật. Mong anh giúp đỡ.

Bạn có thể chia sẽ cái đơn giản này cho mình học hỏi không mình phải dùng lisp cho nó cơ đấy!

[xuantran15 112]

Bạn có thể chia sẽ cái đơn giản này cho mình học hỏi không mình phải dùng lisp cho nó cơ đấy!

Cái này chắc Thong_kt dùng cách scale theo hai phương x và y trong bảng properties đó bác Duy à. :s_big: em nghĩ cái này chắc bác biết rồi :s_big:

[duy782006 1596]

Cái này chắc Thong_kt dùng cách scale theo hai phương x và y trong bảng properties đó bác Duy à. :s_big: em nghĩ cái này chắc bác biết rồi :s_big:

Cách đấy làm sao tác dụng với tất cả block trong khi tỉ lệ và góc quay khác nhau được. Thế mình mới ngạc nhiên. :s_big:

[thong_kt 0]

Cách đấy làm sao tác dụng với tất cả block trong khi tỉ lệ và góc quay khác nhau được. Thế mình mới ngạc nhiên. :s_big:

Ui. Mình dùng lệnh BE rùi scale block thui. Như vậy tất cả block sẽ có tác dụng. Không biết làm vậy có vấn đề gì không.

[duy782006 1596]

Ui. Mình dùng lệnh BE rùi scale block thui. Như vậy tất cả block sẽ có tác dụng. Không biết làm vậy có vấn đề gì không.

Nó có tác dụng với mọi block cùng tên như vậy không có hay.

[thong_kt 0]

Nó có tác dụng với mọi block cùng tên như vậy không có hay.

ùh. Còn nếu chỉ scale những block muốn chọn thì mình dùng lisp của bác Hoành. Thế còn trường hợp mình đưa ra đấy. Không phải là block mà chỉ là đối tường như hình rectang thui. Thi có lệnh hay lisp gì không vậy hả bạn duy 782006. Mong bạn chỉ giúp.

[duy782006 1596]

ùh. Còn nếu chỉ scale những block muốn chọn thì mình dùng lisp của bác Hoành. Thế còn trường hợp mình đưa ra đấy. Không phải là block mà chỉ là đối tường như hình rectang thui. Thi có lệnh hay lisp gì không vậy hả bạn duy 782006. Mong bạn chỉ giúp.

Với hình bấy kỳ thì khó lắm vì không xác định được điểm làm cơ sở.

Mặc dù bạn đề nghị chọ 1 điểm cơ sở bằng cách pick điểm nhưng với chỉ 1 đối tượng thôi cón các đối tượng khác nó (lisp) không biết lấy gì để làm tương quan mà suy ra cái điểm cơ sở này được.

[thong_kt 0]

Với hình bấy kỳ thì khó lắm vì không xác định được điểm làm cơ sở.

Mặc dù bạn đề nghị chọ 1 điểm cơ sở bằng cách pick điểm nhưng với chỉ 1 đối tượng thôi cón các đối tượng khác nó (lisp) không biết lấy gì để làm tương quan mà suy ra cái điểm cơ sở này được.

Ùh. Mình cũng nghĩ vậy. Với đường tròn thì có điểm tẩm. Mình không biết viết lisp nhưng với hình chũ nhật ABCD. Giả sử điểm pick M lằm trên đoạn AB. Lisp sẽ tính tỉ lệ AM và BM rùi áp dụng cho với tất cả các hình chữ nhật khác. Không biết thế có đuớc không. Làm phiền bác và mọi người quá.

[Tue_NV 3916]

Ùh. Mình cũng nghĩ vậy. Với đường tròn thì có điểm tẩm. Mình không biết viết lisp nhưng với hình chũ nhật ABCD. Giả sử điểm pick M lằm trên đoạn AB. Lisp sẽ tính tỉ lệ AM và BM rùi áp dụng cho với tất cả các hình chữ nhật khác. Không biết thế có đuớc không. Làm phiền bác và mọi người quá.

Thế tâm scale của các hình chữ nhật này ở đâu hở bạn? Nói rõ ra nhé.

[thong_kt 0]

Thế tâm scale của các hình chữ nhật này ở đâu hở bạn? Nói rõ ra nhé.

Với hình chữ nhật ABCD thì tâm scale là điểm M. Còn các hình chữ nhật khác A'B'C'D' thì tâm scale là điểm M'. Điểm M' sẽ đuợc lisp xác định dựa vào tỉ lệ AM / BM. Tức A'M'/B'M' = AM/BM. Không biết có thễ làm đuợc lisp như vậy không. Bạn Tue_NV xém có làm đuợc không.

[longnhi35 0]

Với hình chữ nhật ABCD thì tâm scale là điểm M. Còn các hình chữ nhật khác A'B'C'D' thì tâm scale là điểm M'. Điểm M' sẽ đuợc lisp xác định dựa vào tỉ lệ AM / BM. Tức A'M'/B'M' = AM/BM. Không biết có thễ làm đuợc lisp như vậy không. Bạn Tue_NV xém có làm đuợc không.

Vấn đề này mình rất hay gặp khi nhận bản vẽ từ nguời khác và cần chỉnh sửa lại. Mình thấy rất nhiều nguời quan tâm vào đọc topic này vậy mà không bác nào giúp ah?

[Tue_NV 3916]

Với hình chữ nhật ABCD thì tâm scale là điểm M. Còn các hình chữ nhật khác A'B'C'D' thì tâm scale là điểm M'. Điểm M' sẽ đuợc lisp xác định dựa vào tỉ lệ AM / BM. Tức A'M'/B'M' = AM/BM. Không biết có thễ làm đuợc lisp như vậy không. Bạn Tue_NV xém có làm đuợc không.

Cái này scale theo ý của bạn nè :

(defun c:scn()

(setq hcnc (entget(car(entsel "\n Chon hinh chu nhat chuan :"))))
(setq a (cdr(nth 14 hcnc)))
(setq b (cdr(nth 18 hcnc)))
(setq m (getpoint "\n Chon diem tam scale tren hinh chu nhat chuan :"))
(setq TL (/ (distance m a) (distance m b)))

(prompt "\n Moi ban chon cac hinh chu nhat :")
(setq ssg (ssget '((0 . "LWPOLYLINE"))) n (sslength ssg) i 0)

(while ((setq sn (ssname ssg i))
(setq ent (entget sn))
(setq c (cdr(nth 14 ent)))
(setq d (cdr(nth 18 ent)))
(setq md (/ (distance c d) (+ 1 TL)))
(setq mp (list (- (car d) md) (cadr d) 0))

(command "scale" sn "" mp tl)
(setq i (1+ i))

)
(princ)
)

[tigertiger 1]

Với hình chữ nhật ABCD thì tâm scale là điểm M. Còn các hình chữ nhật khác A'B'C'D' thì tâm scale là điểm M'. Điểm M' sẽ đuợc lisp xác định dựa vào tỉ lệ AM / BM. Tức A'M'/B'M' = AM/BM. Không biết có thễ làm đuợc lisp như vậy không. Bạn Tue_NV xém có làm đuợc không.

 

Vấn đề dđuwọc Tue_NV giải quyết

Nhưng theo mình hay hơn cả là chọn tập các điểm tương ứng các hình,

 

nếu không phải hình chữ nhật thì cách của tue_NV cũng khó thành?

[Tue_NV 3916]

Vấn đề dđuwọc Tue_NV giải quyết

Nhưng theo mình hay hơn cả là chọn tập các điểm tương ứng các hình,

 

nếu không phải hình chữ nhật thì cách của tue_NV cũng khó thành?

Bạn thử Code này xem :

(defun c:scn()
(prompt "\n Moi ban chon cac doi tuong :")
(setq ssg (ssget))

(setq tl (getreal "\n Ti le scale :"))

(setq n (sslength ssg) i 0)

(while ((setq sn (ssname ssg i))
(HLI sn)
(setq ent (entget sn))
(setq mp (getpoint "\n Ban chon tam cho doi tuong nay :"))

(command "scale" sn "" mp tl)
(setq i (1+ i))

)
(princ)
)
;
(defun HLI(ent)
(sssetfirst (ssadd ent (ssadd)) (ssadd ent (ssadd)))
)

[thong_kt 0]

Cái này scale theo ý của bạn nè :

(defun c:scn()

(setq hcnc (entget(car(entsel "\n Chon hinh chu nhat chuan :"))))
(setq a (cdr(nth 14 hcnc)))
(setq b (cdr(nth 18 hcnc)))
(setq m (getpoint "\n Chon diem tam scale tren hinh chu nhat chuan :"))
(setq TL (/ (distance m a) (distance m b)))

(prompt "\n Moi ban chon cac hinh chu nhat :")
(setq ssg (ssget '((0 . "LWPOLYLINE"))) n (sslength ssg) i 0)

(while (< i n)
(setq sn (ssname ssg i))
(setq ent (entget sn))
(setq c (cdr(nth 14 ent)))
(setq d (cdr(nth 18 ent)))
(setq md (/ (distance c d) (+ 1 TL)))
(setq mp (list (- (car d) md) (cadr d) 0))

(command "scale" sn "" mp tl)
(setq i (1+ i))

)
(princ)
)

Lai làm phiền bạn. Lisp sau mình đã dùng đuợc còn lisp này minh không sử dụng được . sao vậu nhỉ bạn. khi chương trình báo chọn các hình chữ nhật khác. Chọn xong thấy nó hết lệnh luôn.

[Tue_NV 3916]

Lai làm phiền bạn. Lisp sau mình đã dùng đuợc còn lisp này minh không sử dụng được . sao vậu nhỉ bạn. khi chương trình báo chọn các hình chữ nhật khác. Chọn xong thấy nó hết lệnh luôn.

Đoạn Code trên của Tue_NV không có lỗi . Bạn test lại xem.

Chon hinh chu nhat chuan : Pick chon hinh chu nhat (pick trúng nhé)

Chon diem tam scale tren hinh chu nhat chuan :

Moi ban chon cac hinh chu nhat :

Select objects:

 

 

Tuy nhiên, Tue_NV đồng ý với ý kiến của bạn tigertiger và đã viét ra code dưới để xác định tâm tương ứng của các hình

Nhưng theo mình hay hơn cả là chọn tập các điểm tương ứng các hình,

nếu không phải hình chữ nhật thì cách của tue_NV cũng khó thành?

 

Bạn thử Code này xem :

(defun c:scn()
(prompt "\n Moi ban chon cac doi tuong :")
(setq ssg (ssget))

(setq tl (getreal "\n Ti le scale :"))

(setq n (sslength ssg) i 0)

(while ((setq sn (ssname ssg i))
(HLI sn)
(setq ent (entget sn))
(setq mp (getpoint "\n Ban chon tam cho doi tuong nay :"))

(command "scale" sn "" mp tl)
(setq i (1+ i))

)
(princ)
)
;
(defun HLI(ent)
(sssetfirst (ssadd ent (ssadd)) (ssadd ent (ssadd)))
)

[thong_kt 0]

Đoạn Code trên của Tue_NV không có lỗi . Bạn test lại xem.

Chon hinh chu nhat chuan : Pick chon hinh chu nhat (pick trúng nhé)

Chon diem tam scale tren hinh chu nhat chuan :

Moi ban chon cac hinh chu nhat :

Select objects:

Tuy nhiên, Tue_NV đồng ý với ý kiến của bạn tigertiger và đã viét ra code dưới để xác định tâm tương ứng của các hình

Mình không thấy dòng nhập tỉ lệ scale đâu. Muốn chỉnh sửa tỉ lệ scale thỉ sửa thế nào trong lisp vậy bạn. Hình như lisp scale theo tỉ lệ cố định rùi đúng không bạn.

[Tue_NV 3916]

Mình không thấy dòng nhập tỉ lệ scale đâu. Muốn chỉnh sửa tỉ lệ scale thỉ sửa thế nào trong lisp vậy bạn. Hình như lisp scale theo tỉ lệ cố định rùi đúng không bạn.

Yeuu cầu của bạn đây nè :

Với hình chữ nhật ABCD thì tâm scale là điểm M. Còn các hình chữ nhật khác A'B'C'D' thì tâm scale là điểm M'. Điểm M' sẽ đuợc lisp xác định dựa vào tỉ lệ AM / BM. Tức A'M'/B'M' = AM/BM. Không biết có thễ làm đuợc lisp như vậy không. Bạn Tue_NV xém có làm đuợc không.

 

Theo ý kiến của Tue_NV thì bạn nên sử dụng Code ở bài viết số 22 là hay nhất

[sangtaoladiemmanhcuatoi 0]

Mọi người cho e hỏi lệnh cắt chân DIM với ah.E cảm ơn