cách offset nhanh

by **furious** 16/04/11, 12:03 pm

Khi tôi vẽ tường 100 tôi chỉ cần nhấn lệnh Q1, vẽ tường 200 tôi chỉ cần nhấn lệnh Q2... nhờ vậy mà tiết kiệm thời gian hơn khi dùng đúng lệnh offset theo mặc định là:

O - S (enter)
1 - 0 - 0(enter)
Còn tôi chỉ cần Q1 rất nhanh vì nút chữ Q và nút số 1 rất gần nhau.

Bạn có thể nghiên cứu đoạn lisp và tải về dùng:

(defun c:q1 () (command "offset" "100"))
(defun c:q2 () (command "offset" "200"))
(defun c:q3 () (command "offset" "300"))
(defun c:q5 () (command "offset" "500"))
(defun c:q55 () (command "offset" "50"))
(defun c:q6 () (command "offset" "600"))
(defun c:q8 () (command "offset" "800"))
(defun c:q9 () (command "offset" "900"))
(defun c:q11 () (command "offset" "1000"))
(defun c:q12 () (command "offset" "1200"))

đoạn tải thỉ thông cảm link die nhưng mà có thể tự mình thêm vào cad cũng được.

trước tiên chọn 1 folder để chứa mấy cái lisp đã tạo chỗ mô cũng được miễn sau này nhớ chỗ mà tìm để dùng thôi tớ để ở trong folder autocad luôn
vd: D:\Program Files\AutoCAD 2007\addon ( ko cần tên "addon" đạt tên "furious " cũng ok rồi Razz

cos 2 cách để tạo file lisp
cách 1 :
- mở notepad ra thêm đoạn trên vào

Code:: (defun c:q1 () (command "offset" "100")) (defun c:q2 () (command "offset" "200")) (defun c:q3 () (command "offset" "300")) (defun c:q5 () (command "offset" "500")) (defun c:q55 () (command "offset" "50")) (defun c:q6 () (command "offset" "600")) (defun c:q8 () (command "offset" "800")) (defun c:q9 () (command "offset" "900")) (defun c:q11 () (command "offset" "1000")) (defun c:q12 () (command "offset" "1200"))

q1,q2,q3,... là phím tắt

-lưu lại với đuôi là .lsp
-rồi ok vào cad tận hưởng thôi
-ah quên vào mở ở menu tool/autolisp/load application
-xong chọn mấy đoạn lisp cần dùng rồi chon load rồi close thôi.

cách 2:
mở cad vào menu tool/autolisp/Viusal lisp editor

cái ni ăn cơm xong nói sau Razz

, con ko tạm thời tự mò 1 chút Razz

giờ mới biết cái này T_T ai biết rồi đừng chém nha.