em đang cần lisp fillet

[banhdau 2]

có bác nào có cái lisp để go~ nhanh bán kính fillet k ạ. tức là chỉ cần gõ FR thay vì gõ f-->space--> r. thanks

[Tue_NV 3.912]

có bác nào có cái lisp để go~ nhanh bán kính fillet k ạ. tức là chỉ cần gõ FR thay vì gõ f-->space--> r. thanks

Sử dụng lệnh FILLETRAD tại dòng Command:

 

Command: filletrad

 

Enter new value for FILLETRAD : 50

 

Bạn thiết lập phím tắt FR cho biến FILLETRAD trong file acad.pgp là được.

 

Command: fr fillet

Current settings: Mode = TRIM, Radius = 50.0000

Select first object or [Polyline/Radius/Trim/mUltiple]: r Specify fillet radius

: nil

Specify fillet radius : 0

 

Select first object or [Polyline/Radius/Trim/mUltiple]:

Select second object:

[banhdau 2]

cảm ơn bạn,nhưng làm cách đấy chỉ thay đổi đc bán kính fillet mà muốn fillet vẫn phải nhập lệnh F, ý em là có thể ấn FR(vi' du),nhập bán kính rồi fillet luôn. thao tác kia lại thêm 1 lệnh nữa,đúng k ạ

[Tue_NV 3.912]

cảm ơn bạn,nhưng làm cách đấy chỉ thay đổi đc bán kính fillet mà muốn fillet vẫn phải nhập lệnh F, ý em là có thể ấn FR(vi' du),nhập bán kính rồi fillet luôn. thao tác kia lại thêm 1 lệnh nữa,đúng k ạ

Không đúng đâu.

 

Khi Bạn thiết lập phím tắt FR cho biến FILLETRAD trong file acad.pgp thì chỉ sử dụng chỉ 1 thao tác là đánh lệnh FR sau đó khai bán kính, kích 2 cạnh cần fillet là OK.

Bạn hãy cứ thử xem.

Lệnh FR mà mình thử đây này :

 

Command: fr fillet

Current settings: Mode = TRIM, Radius = 50.0000

Select first object or [Polyline/Radius/Trim/mUltiple]: r Specify fillet radius

: nil

Specify fillet radius : 0

 

Select first object or [Polyline/Radius/Trim/mUltiple]:

Select second object:

Chúc thành công.

[tuan_thietkedien 15]

có bác nào có cái lisp để go~ nhanh bán kính fillet k ạ. tức là chỉ cần gõ FR thay vì gõ f-->space--> r. thanks

 

Bạn thường sử dụng bán kính bao nhiêu?

[cuongvu 0]

Bạn dùng dòng lệnh như sau thì có thể fillet và trim các đối tượng luôn:

 

(defun c:fr () (initget 6) (command "fillet" "u" "t" "t" "r" "p"))

[phamthanhbinh 3.146]

Bạn thường sử dụng bán kính bao nhiêu?

Bạn thử cái này nhé:

 

(defun C: FR ()

(command "fillet" "r" (getreal " Nhap ban kinh fillet : "))

)

Chúc bạn thành công.