Cần giúp về Lisp Scale 1 chiều !

[ngocduong12210119 8]

Em có dùng Lisp Scale 1 chiều trên 4rum này !

- khi dùng lisp này thì có đoạn yêu cầu nhập tỉ lệ muốn scale !

- Nhưng nếu tỉ lệ mình cần quá lẻ thì ko khả thi lắm

=> Bác nào có thể sửa lại cho nó thành cách click chọn đoạn thẳng ( giống lệnh AL ), lúc này nó lại thành giống như lệnh align nhưng kích thước chỉ thay đổi 1 chiều mình đã chọn !

 

-Áp dụng : Để cho 1 cái cửa 1200 x 2000 vào 1 khung 800 x 1800 chẳng hạn

[Tue_NV 3.912]

Em có dùng Lisp Scale 1 chiều trên 4rum này !

- khi dùng lisp này thì có đoạn yêu cầu nhập tỉ lệ muốn scale !

- Nhưng nếu tỉ lệ mình cần quá lẻ thì ko khả thi lắm => Bác nào có thể sửa lại cho nó thành cách click chọn đoạn thẳng ( giống lệnh AL ), lúc này nó lại thành giống như lệnh align nhưng kích thước chỉ thay đổi 1 chiều mình đã chọn !

 

-Áp dụng : Để cho 1 cái cửa 1200 x 2000 vào 1 khung 800 x 1800 chẳng hạn

Thế nào là tỉ lệ qấ lẻ là không khả thi.

Bạn có thể kết hợp lệnh 'cal để tính toán ra tỉ lệ scale. Điều đó hoàn toàn được.

Bạn đã thử kết hợp lệnh scale 1 chiều với lệnh 'cal chưa?

[ngocduong12210119 8]

Bác hướng dẫn em cách kết hợp Cal đc ko ?

Thank bác !

[Tue_NV 3.912]

Bác hướng dẫn em cách kết hợp Cal đc ko ?

Thank bác !

Chú ý là 'cal. Dấu nháy trước chữ cal. Nếu bạn gõ chữ cal không là sai đấy nhé.

Ví dụ trường hợp của bạn là Áp dụng : Để cho 1 cái cửa 1200 x 2000 vào 1 khung 800 x 1800

thì ta scale 1 chiều theo phương X với tỉ lệ scale là 800/1200 phải không?

-> Kết quả là ta sẽ được cánh cửa 800x2000 nhé.

Sau đó ta scale 1 chiều theo phương Y với tỉ lệ scale là 1800/2000

-> Kết quả là ta sẽ được cánh cửa 800x1800 đúng không bạn?

 

Trình tự thực hiện như sau :

Command: xsc Chon doi tuong can scale: Gõ lệnh Xsc để scale 1 chiều

Select objects: Specify opposite corner: 3 found : Chon doi tuong can scale

 

Select objects: Nhấn enter thôi không chọn đối tượng nữa

 

Chon diem goc:

Scale theo [X,Y,Z,Scale]? :X : gõ X để scale 1 chiều theo phương X

Cho biet he so scale: 'cal Gõ lệnh 'cal

800/1200 : gõ 800/1200

 

Command: >> Expression: *Cancel* : nhấn Esc

nil

 

Command:

Command: xsc Gõ lệnh Xsc để scale 1 chiều

Chon doi tuong can scale:

Select objects: Specify opposite corner: 6 found : Chon doi tuong can scale

 

Select objects: Nhấn enter thôi không chọn đối tượng nữa

 

Chon diem goc:

Scale theo [X,Y,Z,Scale]? :Y : gõ Y để scale 1 chiều theo phương Y

Cho biet he so scale: 'cal : Gõ lệnh 'cal

1800/2000 : gõ 1800/2000

 

Chúc thành công :cry:

[ngocduong12210119 8]

THank bác nhiều !

Em đã thử và thấy là : Ko cần gõ lệnh 'CAL , khi hỏi chọn tỉ lệ em gõ 600/900 luôn vẫn thấy được !

- Nhưng giá mà có cái Lisp dạng pick chọn như kiểu Align thì cũng tiện !

 

==> Nhân tiện đây bác có Lisp " nối đường line bị đứt " thì cho em xin với, em tìm trên 4rum này cũng có 1 lisp tương tự nhưng nó lại còn có thêm chức năng là " xoá hết cả các đối tượng trong vùng chọn " nữa ( ứng dụng để " xoá cửa sổ ,..." ). Em muốn lisp chỉ nối line bị đứt trong vùng mình chọn thôi, nhưng gà về Lisp nên ko sửa đc !

Thanks các bác !

[haanh 1.590]

Chon diem goc:

Scale theo [X,Y,Z,Scale]? :Y : gõ Y để scale 1 chiều theo phương Y

Cho biet he so scale: 'cal : Gõ lệnh 'cal

1800/2000 : gõ 1800/2000

Chúc thành công :cry:

Có một thắc mắc nhỏ sao bác 'Tue NV chọn 'cal ??? Trong khi vẫn gõ 1800/2000 được bình thường. Trong CAD nó chỉ không cho nhập dạng số thập phân kiểu như: 2.5/ 2 muốn nhập được phải gõ 25/20.

[Tue_NV 3.912]

Có một thắc mắc nhỏ sao bác 'Tue NV chọn 'cal ??? Trong khi vẫn gõ 1800/2000 được bình thường. Trong CAD nó chỉ không cho nhập dạng số thập phân kiểu như: 2.5/ 2 muốn nhập được phải gõ 25/20.

Cám ơn bạn haanh. Cũng chính vì lí do đó mà mình chỉ cho bạn ngocduong12210119 lệnh 'cal vì nó đúng cho mọi trường hợp.

==> Nhân tiện đây bác có Lisp " nối đường line bị đứt " thì cho em xin với, em tìm trên 4rum này cũng có 1 lisp tương tự nhưng nó lại còn có thêm chức năng là " xoá hết cả các đối tượng trong vùng chọn " nữa ( ứng dụng để " xoá cửa sổ ,..." ). Em muốn lisp chỉ nối line bị đứt trong vùng mình chọn thôi, nhưng gà về Lisp nên ko sửa đc !

Thanks các bác !

Bạn có thể post cái Lisp đó lên đây và có thể post cái file bản vẽ chứa các đường Line bị đứt đó lên diễn đàn. Mọi người sẽ giúp bạn

[haanh 1.590]

Cám ơn bạn haanh. Cũng chính vì lí do đó mà mình chỉ cho bạn ngocduong12210119 lệnh 'cal vì nó đúng cho mọi trường hợp.

Bác thương em thì thương cho chót! Em cảm động lắm rồi! Bác cho em biết những tỷ dụ cụ thể về các trường hợp a, b, c , d ,e, ....

[Tue_NV 3.912]

Bác thương em thì thương cho chót! Em cảm động lắm rồi! Bác cho em biết những tỷ dụ cụ thể về các trường hợp a, b, c , d ,e, ....

tỷ dụ cụ thể về các trường hợp a, b, c , d ,e, ....nghĩa là như thế nào hở bạn?

[haanh 1.590]

tỷ dụ cụ thể về các trường hợp a, b, c , d ,e, ....nghĩa là như thế nào hở bạn?

Nghĩa là các trường hợp phải gõ 'CAL kết hợp với Scale một chiều đó bác.

[Tue_NV 3.912]

Nghĩa là các trường hợp phải gõ 'CAL kết hợp với Scale một chiều đó bác.

Bạn chộ xem bài viết trên của mình đã trình bày lệnh Scale 1 chiều kết hợp với lệnh 'cal ở trên rồi mà.

Sao :cry: ? Chộ thấy không? Bài viết thứ 4 tính từ trên xuống dưới đó.

Đừng nói với mình là mắt bạn bị so le đấy nhé. :cry: :cry: :leluoi:

[haanh 1.590]

Bạn chộ xem bài viết trên của mình đã trình bày lệnh Scale 1 chiều kết hợp với lệnh 'cal ở trên rồi mà.

Sao :cry: ? Chộ thấy không? Bài viết thứ 4 tính từ trên xuống dưới đó.

Đừng nói với mình là mắt bạn bị so le đấy nhé. :cry: :cry: :leluoi:

Em biết rồi! Cơ mà từ cái ngày thằng Scale một chiều nó cất tiếng khóc chào đời đến giờ

ko thấy nói đến "Scale 1 chiều kết hợp với lệnh 'cal "

em phải hỏi bác thôi!

Cơ mà sao bác ko đi thẳng vào câu hỏi của em???

Ko biết em mới hỏi.

Em vui mừng cười mỏi răng với cái tên CHỘ được bác vinh danh cho em!

Bác cho em biết nghĩa của từ này được ko???

lol2: :huh: :lol2 lol2: :cry: :lol2 lol2: :cry: :lol2 lol2: :s_big: :lol2 lol2: :wacko: :lol2 lol2: :angry: :lol2 lol2: :lol2: :lol2 lol2: :huh: :lol2 lol2: :cry: :lol2

[duy782006 1.521]

Cám ơn bạn haanh. Cũng chính vì lí do đó mà mình chỉ cho bạn ngocduong12210119 lệnh 'cal vì nó đúng cho mọi trường hợp.

Mình nghỉ khi dùng nên linh hoạt và tránh việc dùng thêm 'cal.

-Cần 12000/18000 thì mình nhập là 12/18 (giản lược bớt phần giống nhau)

-Cần 1,2/5 thì mình nhập 12/50 (thêm đơn vị để bò dấu phẩy đi)

@ngocduong12210119: về cái lisp sửa theo ý bạn ưng thì cũng được nhưng mình nghĩ bạn dùng linh hoạt 1 chút là ổn không nên quá cứng nhắc. Vì lisp này của người khác viết và trong qú trình thao tác có tạo ra block trung gian mình thấy chổ này không thích lắm nên không theo dỏi nhiều.

[haanh 1.590]

Mình nghỉ khi dùng nên linh hoạt và tránh việc dùng thêm 'cal.

-Cần 12000/18000 thì mình nhập là 12/18 (giản lược bớt phần giống nhau)

-Cần 1,2/5 thì mình nhập 12/50 (thêm đơn vị để bò dấu phẩy đi)

@ngocduong12210119: về cái lisp sửa theo ý bạn ưng thì cũng được nhưng mình nghĩ bạn dùng linh hoạt 1 chút là ổn không nên quá cứng nhắc. Vì lisp này của người khác viết và trong qú trình thao tác có tạo ra block trung gian mình thấy chổ này không thích lắm nên không theo dỏi nhiều.

 

Em ko thích kiểu nhập số cho scale một chiều. Các bác có tạo ra được lisp scale một ko cần phải nhập số ko?

Tỷ dụ như đưa nó về chế độ bắt điểm như scale haii chiều chọn R rồi bắt điểm ứ! Chỉnh sửa được lisp kiểu ko cần nhập số mới bố tướng các bác à!

Em CHỘ xin cảm ơn trước!

 

- Nhưng nếu tỉ lệ mình cần quá lẻ thì ko khả thi lắm

Sao không khả thỉ hở bác???

[ngocduong12210119 8]

@ : haanh

 

ý của bác trùng với mục đích mở topic này của em rồi đó !

 

Nếu có thể chọn chế độ bắt điểm thì sẽ dễ dàng hơn !

[Tue_NV 3.912]

Em ko thích kiểu nhập số cho scale một chiều. Các bác có tạo ra được lisp scale một ko cần phải nhập số ko?

Tỷ dụ như đưa nó về chế độ bắt điểm như scale haii chiều chọn R rồi bắt điểm ứ! Chỉnh sửa được lisp kiểu ko cần nhập số mới bố tướng các bác à!

Em CHỘ xin cảm ơn trước!

Em vui mừng cười mỏi răng với cái tên CHỘ được bác vinh danh cho em!

Bác cho em biết nghĩa của từ này được ko???

À. Chộ theo tiếng địa phương của người dân xứ Huế có nghĩa là thấy.

Từ Tri cũng có nghĩa là thấy.

Từ Kiến cũng có nghĩa là thấy

Từ Tri và Kiến cũng còn có nghĩa là tri thức là sự hiểu biết.

 

=> Suy ra Chộ có nghĩa là thấy, là sự hiểu biết đó haanh à. :cry:

 

Dạo này mình hơi bận. Để khi nào rảnh mình sẽ chỉnh lại cái Lisp này theo ý của bạn.

Chào bạn. Chúc bạn vui nhiều.

[haanh 1.590]

À. Chộ theo tiếng địa phương của người dân xứ Huế có nghĩa là thấy.

Từ Tri cũng có nghĩa là thấy.

Từ Kiến cũng có nghĩa là thấy

Từ Tri và Kiến cũng còn có nghĩa là tri thức là sự hiểu biết.

 

=> Suy ra Chộ có nghĩa là thấy, là sự hiểu biết đó haanh à. :cry:

 

Dạo này mình hơi bận. Để khi nào rảnh mình sẽ chỉnh lại cái Lisp này theo ý của bạn.

Chào bạn. Chúc bạn vui nhiều.

 

Ôi ! CHỘ ơi! Biết rùi! Khổ nhắm! Nói mãi! He he he!

 

Bác có nghe thấy em hát gì ko ???

 

Chưa có bao giờ đẹp như hôm nay

non nước mây trời lòng ta mê say

sóng nước trùng dương dài theo bờ cát

(những cánh buồm rong chạy theo dòng cá)

những dãy đảo xa nằm nghe biển hát

(những dãy đảo xa đẹp như bài thơ)

theo những cánh chim bầu trời bao la

con sóng "đung đưa thuyền ra khơi xa"

(con sóng đi theo thời gian mênh mông)

vẫn mang tình em mùa xuân rực rỡ

giếng nước bờ tre đồng thơm rạ lúa

(náo nức lòng trai ngày đi biển xa)

biển sóng yêu thương màu xanh yêu thương

đất nước quê ta lồng lộng gió muôn phương

những câu hát về hòn đảo xa hùng vĩ

những năm tháng là bản hùng ca biển khơi

dũng sĩ như ngọn hải đăng sáng chói chiến công

 

Bác hứa rồi nhá! Đừng quên viết cái lisp Scale một chiều ko cần nhập KT nhá! Em sẽ chờ...lisp của bác với lời đề tặng:

Viết tặng riêng bạn CHỘ !

[Tue_NV 3.912]

Em ko thích kiểu nhập số cho scale một chiều. Các bác có tạo ra được lisp scale một ko cần phải nhập số ko?

Tỷ dụ như đưa nó về chế độ bắt điểm như scale haii chiều chọn R rồi bắt điểm ứ! Chỉnh sửa được lisp kiểu ko cần nhập số mới bố tướng các bác à!

Em CHỘ xin cảm ơn trước!

Đây là đoạn Code Scale 1 chiều, Tue_NV đã cải tiến lại với lựa chọn thêm tham số R giống như Scale 2 chiều. Các bạn sử dụng và cho biết ý kiến thêm để Tue_NV hoàn thiện nhé.

Cảm ơn các bạn

;XSCALE Scale the mot chieu lenhtat :XSC
(DEFUN EXCUTE()
 (setq oldvalue (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)

 (princ "Chon doi tuong can scale: ")
 (setq ss (ssget))
 (setq P0 (getpoint "\n Base point: "))
 (initget 1 "X Y X S")
 (setq C (getkword "\nScale theo [X,Y,Z,Scale]? :"))
(setq hstr (getstring "\n Cho biet he so scale or Reference "))

(if (/= hstr "R") (setq hs (distof hstr 2)))
(if (or (= hstr "R") (= hstr ""))
(progn
(setq po1 (getdist p0 "\n Nhap chieu dai cua doan 1 hay Pick diem thu 2 cua canh thu 1:"))
(setq po2 (getdist p0 "\n Nhap chieu dai cua doan 2 hay Pick diem thu 2 cua canh thu 2:"))
(setq hs (/ po2 po1))
))

 (DELBLOCK "VKC_TEMP")
 (CREATEBLOCK ss P0)  
 (Command "-Insert" "VKC_TEMP" C hs P0 "")   
 (setq dt (entlast))
 (Command "Explode" dt)

 (setvar "CMDECHO" oldvalue)
 (princ)
)
(DEFUN CREATEBLOCK(ss P)
 (command "-Block" "VKC_TEMP" P ss "")
)

(DEFUN DELBLOCK (bname)
 (if (IsExistBlock bname)
   (Command "-Purge" "B" bname "Y" "Y")    
 )
)
(DEFUN IsExistBlock(bname / kq)
 (setq kq Nil)
 (setq n (length LiBlk))
 (setq i 0)
 (while (    (if (= bname (nth i LiBlk))
     (progn
   (setq i n)
   (setq kq T)
     )    
   )
   (setq i (1+ i))
 )
 kq
)
(DEFUN CREALIBLK (/ NL)
 (setq LiBlk (List))
 (setq NL (tblnext "BLOCK" T))  
 (while NL    
   (setq LiBlk (append LiBlk (list (cdr (assoc 2 NL)))))
   (setq NL (tblnext "BLOCK"))
 )
 (setq LiBlk (Acad_strlsort LiBlk))
)
(DEFUN C:XSCALE()
 (CREALIBLK)
 (EXCUTE)
)
(DEFUN C:XSC()
 (CREALIBLK)
 (EXCUTE)
)

[duy782006 1.521]

*Cái lisp này là scale với tỉ lệ x và y khác nhau nên gọi là scale x y.

-Tên lệnh: SCXY

-Thao tác:

+Nhập lệnh SCXY.

+Chọn đối tượng.

+Chọn điểm chuẩn (để phóng)

+Chọn 2 điểm chuẩn theo phương x.

+Chọn 2 điểm đến theo phương x.

+Chọn 2 điểm chuẩn theo phương y.

+Chọn 2 điểm đến theo phương y.

Xong!

Đây!!!!!!!

[haanh 1.590]

Xài cái thằng x, y của bác Duy sướng kịch đường tàu luôn! Giá mà có cái scalexy3D các bác nhẩy… Đừng nghĩ oan cho em CHỘ thấy bở đào mãi ! Cơ mà em vẫn hy vọng sẽ có ngày được xài scalexy3D

[phamthanhbinh 3.146]

Xài cái thằng x, y của bác Duy sướng kịch đường tàu luôn! Giá mà có cái scalexy3D các bác nhẩy… Đừng nghĩ oan cho em CHỘ thấy bở đào mãi ! Cơ mà em vẫn hy vọng sẽ có ngày được xài scalexy3D

Hơ hơ,

Quả thật là xài cái lisp của bác Duy sướng thật, nhưng mà chửa hiểu cái kịch đường tàu của bác Haanh. Oan chi nữa mà bác còn kêu nhỉ, rõ ràng là quá bở nên bác vẫn đào đấy thôi. Chả biết khi bác vớ được cái lisp S.....exy3D thì bác sướng cỡ nào nữa nhẩy.

Rất mong mọi người trên diễn đàn sớm cho ra đời cái lisp S....exy3D để bác Haanh bớt khổ và mình được sướng lây.

Thanks các bác, thanks Cadviet nhiều nhiều.

[haanh 1.590]

Rõ chán cái nhà bác BÌNH này nhá. Cho em hỏi một phát là lisp S....exy3D dùng để làm gì hở bác? Bác viết tặng em cái lisp ứ nhá .Em đâu có khổ lúc nào em cũng cười vui như tết ,đó là phương châm sống của em. Mẹ em bảo hồi em lọt lòng mẹ, em cứ nhìn cô y tá không chịu khóc cô y tá điều dưỡng tát cho em một phát vào mông để em khóc cho khí lưu thông và giãn nở phế quảnvà em cất cao tiếng cười chào đời.

Ai trêu ghẹo em chỉ cười thôi, vui vì mình có người trêu ghẹo. Hôm nọ buồn cười nhắm bác à, tự dưng có một bác trên diễn bảo em là "gay" thế mới lại gay go chớ bác. Hôm ấy em buồn cười quá cơ dưng mờ cũng phải phanh cái nụ cười ấy lai ko dám cười kịch đường tàu, chỉ sợ ông xã em lại bảo em 2 lần chín là hâm.

Em đã phải viết câu: Mong các bác thông cảm đừng đùa em phải tội! Em là gái đã có chồng!

Thiếu gì cách đùa mà phải đùa cách như thế bác nhể? Trên đời này em chỉ sợ những người ko biết đùa thôi.

[phamthanhbinh 3.146]

Rõ chán cái nhà bác BÌNH này nhá. Cho em hỏi một phát là lisp S....exy3D dùng để làm gì hở bác? Bác viết tặng em cái lisp ứ nhá .Em đâu có khổ lúc nào em cũng cười vui như tết ,đó là phương châm sống của em. Mẹ em bảo hồi em lọt lòng mẹ, em cứ nhìn cô y tá không chịu khóc cô y tá điều dưỡng tát cho em một phát vào mông để em khóc cho khí lưu thông và giãn nở phế quản và em cất cao tiếng cười chào đời.

Ai trêu ghẹo em chỉ cười thôi, vui vì mình có người trêu ghẹo. Hôm nọ buồn cười nhắm bác à, tự dưng có một bác trên diễn bảo em là "gay" thế mới lại gay go chớ bác. Hôm ấy em buồn cười quá cơ dưng mờ cũng phải phanh cái nụ cười ấy lai ko dám cười kịch đường tàu, chỉ sợ ông xã em lại bảo em 2 lần chín là hâm.

Em đã phải viết câu: Mong các bác thông cảm đừng đùa em phải tội! Em là gái đã có chồng!

Thiếu gì cách đùa mà phải đùa cách như thế bác nhể? Trên đời này em chỉ sợ những người ko biết đùa thôi.

Ô hay, cái nhà bác Haanh này chóng quên thế nhẩy,

Cái lisp ấy nà do bác yêu cầu, dùng làm gì bác chả nói, chỉ bảo là muốn được xài thôi. Chả qua nà mình bớt đi mấy cái chữ ở giữa cho nó dễ đọc thôi, đỡ phải uốn nưỡi dăm ba cái chứ còn nội dung đâu có gì khác mà bác nại hỏi vậy. Tên lisp là tí hay tèo đâu có quan trọng chi mà bác, cái cần là lội dung của ló chứ bác nhẩy.

Còn cái việc viết thì thực ra mình cũng mới tập tọng chút ít, nói như các cụ nà chưa sạch nước cản. Bởi vậy mà chửa thể hứa với bác được là ứ hay ừ. Dưng mà bác cứ trình bày rõ cái ý tưởng của bác ra, biết đâu phải ngày đẹp giời, tâm ý phấn khởi, thông minh đột xuất mình lại tòi ra được thằng cu lisp ấy cũng nên. Biết đâu được ấy bác nhẩy.

Cứ nghe nhà bác nói thì té ra bác củng lì đáo để. Cô y tá ấy hiền chứ phải mình thì ...... Ở nhà mình, từ bé đến nhớn, các cụ toàn lôi mình ra dọa ma trẻ con thôi. Đứa nào mà ọ ẹ là, " Thằng, anh, chú, bác, ông Bình đến kìa" thế là chúng nó im ngay tắp lự. Hề hề, oai chưa?

Chả cứ ông xã, mà đến ông huyện, ông tỉnh cũng bảo vậy cả ấy mà. Chứ còn mình thì mình bảo hai lần chín thì nhừ hết còn gì.

Ghét của nào trời trao của ấy, thế nào cũng vớ được của không biết đùa là gì cho mà xem. Hề hề, hãy đợi đới.

[haanh 1.590]

Ý của em muốn nhờ các bác Bình nói riêng và các bác khác trên diễn đàn làm cho cái lisp đơn giản cái khung ảnh có họa tiết trang trí, các loại cửa tủ, cửa tủ bếp chỉ cấn Scale theo hai chiều x, y vì chiều dầy Z luôn cố định.

[duy782006 1.521]

Hiện mình đã chỉnh lại cái lisp này 1 chút cho tiện dùng

-Tên lệnh: SCXY

-Thao tác:

+Nhập lệnh SCXY.

+Chọn đối tượng.

+Chọn điểm chuẩn (để phóng)

+Vẽ hình chử nhật chuẩn (bằng cách chọn 2 điểm chéo góc).

+Vẽ hình chử nhật đích (bằng cách chọn 2 điểm chéo góc).

Xong!

 

Đây !!!