Một ví dụ về cách xuất dự liệu nhập trên hộp thoại (ACAD) qua một file.
Sử dụng trong trừơng hợp muốn xem dữ liệu trên cad, nhập dữ liệu đó vào hộp thoại rồi xuất qua file (lần lựot)
- Nhập liệu bằng TAB- Close để kết thúc
- STT tự gia tăng. Nếu không...

Một ví dụ về cách xuất dự liệu nhập trên hộp thoại (ACAD) qua một file.
Sử dụng trong trừơng hợp muốn xem dữ liệu trên cad, nhập dữ liệu đó vào hộp thoại rồi xuất qua file (lần lựot)
- Nhập liệu bằng TAB- Close để kết thúc
- STT tự gia tăng. Nếu không thích bạncó thể sửa code lại

Lệnh filter hay qselect có bị gọi là thủ công không? nếu không bị, bạn hãy thử dùng xem sao? Để dùng lại được tập hợp filter list đã chọn của lệnh filter, bạn hãy sử dụng chức năng save của filter.

Lệnh DEM của lisp sau đây sẽ đếm số đối tượng của lệnh...

Lệnh filter hay qselect có bị gọi là thủ công không? nếu không bị, bạn hãy thử dùng xem sao? Để dùng lại được tập hợp filter list đã chọn của lệnh filter, bạn hãy sử dụng chức năng save của filter.

Lệnh DEM của lisp sau đây sẽ đếm số đối tượng của lệnh filter hoặc Qselect (hay bất cứ lệnh gì có select đối tượng) vừa thực hiện:

Mình vẫn dùng cái này:


Dùng lệnh CD, sau đó pick 2 điểm, điểm thứ nhất là cắt chân dim, điểm thứ 2 là cắt đường dim. Muốn bỏ qua điểm chân hay điểm đầu thì nhấn dấu space. vd: muốn cắt cả chân cả đường thì pick 2 điểm. Muốn cắt mỗi chân dim thì pick...

Mình vẫn dùng cái này:


Dùng lệnh CD, sau đó pick 2 điểm, điểm thứ nhất là cắt chân dim, điểm thứ 2 là cắt đường dim. Muốn bỏ qua điểm chân hay điểm đầu thì nhấn dấu space. vd: muốn cắt cả chân cả đường thì pick 2 điểm. Muốn cắt mỗi chân dim thì pick điểm rồi nhấn dấu cách, muốn cắt mỗi đường dim thì nhấn dấu cách rồi pick điểm.
lệnh CD này cắt được hầu hết các đường chân dim, kể cả dim xiên, dimalign.

Mình down trên diễn đàn 1lisp đánh số thứ tự rất hay nhưng khi tạo ra số thứ tự nó mặc định lấy text style là standard ,về layer thì lấy theo layer hiện hành nhưng trong mục color control không phải là bylayer mà là màu 150.Nay e nhờ các bác sửa giúp lisp sẽ lấy text...

Mình down trên diễn đàn 1lisp đánh số thứ tự rất hay nhưng khi tạo ra số thứ tự nó mặc định lấy text style là standard ,về layer thì lấy theo layer hiện hành nhưng trong mục color control không phải là bylayer mà là màu 150.Nay e nhờ các bác sửa giúp lisp sẽ lấy text style là text style hiện hành và layer thì sẽ là layer TEXT đã có sẵn trên bản vẽ.

(defun c:thutu(/ H I KC PHUONG PT SOCUOI SODAU TDX TDY)
(setq h (getreal "\n Co chu: "))
(setq pt (getpoint "\n Chon vi tri danh so: "))
(setq sodau (getreal "\n So thu tu dau: "))
(setq socuoi (getreal "\n So thu tu cuoi: "))
(setq phuong (getstring "\n Phuong <X,Y>: "))
(setq kc (getreal "\n Khoang cach giua cac so: "))
(setq i sodau)
(while (<= i socuoi)
(if (= i sodau)
(progn
(setq tdy (cadr pt))
(setq tdx (car pt))
(entmake(list(cons 0 "TEXT")(cons 10 (list tdx tdy 0.0))(cons 40 h)(cons 62 150)(cons 1 (rtos i 2 0))))
)
(if (or (= phuong "x")(= phuong "X"))
(progn
(setq tdx (+ tdx kc))
(entmake(list(cons 0 "TEXT")(cons 10 (list tdx tdy 0.0))(cons 40 h)(cons 62 150)(cons 1 (rtos i 2 0))))
)
(progn
(setq tdy (- tdy kc))
(entmake(list(cons 0 "TEXT")(cons 10 (list tdx tdy 0.0))(cons 40 h)(cons 62 150)(cons 1 (rtos i 2 0))))
)
)
)
(setq i (1+ i))
)
)

Chân thành cảm ơn trước.

Bạn chạy thử Lisp xuất ra file CSV
sau đó dùng Excel mở file này, save as qua file *.xls

Cách sử dụng : tên lệnh 2CSV
lần luơt chọn :
- Text để lấy số lô
- đối tuơng để lấy Diện tích
- đối tuơng để lấy Khoảng lùi

lặp lại các buớc trên, nhấn Enter...

Bạn chạy thử Lisp xuất ra file CSV
sau đó dùng Excel mở file này, save as qua file *.xls

Cách sử dụng : tên lệnh 2CSV
lần luơt chọn :
- Text để lấy số lô
- đối tuơng để lấy Diện tích
- đối tuơng để lấy Khoảng lùi

lặp lại các buớc trên, nhấn Enter để kết thúc quá trình chọn.
- Chỉ ra ten file -> kết thúc.

hôm nay gặp một bài toán khó, là hiệu chỉnh một block anonymous. Ví dụ trong file này: http://www.cadviet.com/upfiles/new_block3.zip

AutoCAD không cho chỉnh sửa block anonymous (là block có tên đầu bằng *, vd *U123).
May thay, tìm kiếm được lisp đổi block anonymous sang block bình thường tại trang http://www.draftsperson.net
dùng lệnh UnAnon...

hôm nay gặp một bài toán khó, là hiệu chỉnh một block anonymous. Ví dụ trong file này: http://www.cadviet.com/upfiles/new_block3.zip

AutoCAD không cho chỉnh sửa block anonymous (là block có tên đầu bằng *, vd *U123).
May thay, tìm kiếm được lisp đổi block anonymous sang block bình thường tại trang http://www.draftsperson.net
dùng lệnh UnAnon hoặc UnAnonAll để biến một hoặc tất cả các block anonymous.

Và sau đó dùng lệnh bedit hoặc refedit để hiệu chỉnh nó.

Mình đã làm theo như bạn nói nhưng mở cad lên là tại con trỏ chuột hiện dòng Requires numeric valua.command: Xong cad báo lỗi rồi thoát ra luôn.Dưới đây là đoạn lisp mình đã sửa theo như bạn nói:

(defun c:thutu(/ H I KC PHUONG PT SOCUOI SODAU TDX TDY)
if (not (tblsearch...

Mình đã làm theo như bạn nói nhưng mở cad lên là tại con trỏ chuột hiện dòng Requires numeric valua.command: Xong cad báo lỗi rồi thoát ra luôn.Dưới đây là đoạn lisp mình đã sửa theo như bạn nói:

(defun c:thutu(/ H I KC PHUONG PT SOCUOI SODAU TDX TDY)
if (not (tblsearch "Layer" "S. TEXT"))(command "-layer" "N" "S. TEXT" ""))
(setq sty (getvar "Textstyle"))
(setq h (getreal "\n Co chu: "))
(setq pt (getpoint "\n Chon vi tri danh so: "))
(setq sodau (getreal "\n So thu tu dau: "))
(setq socuoi (getreal "\n So thu tu cuoi: "))
(setq phuong (getstring "\n Phuong <X,Y>: "))
(setq kc (getreal "\n Khoang cach giua cac so: "))
(setq i sodau)
(while (<= i socuoi)
(if (= i sodau)
(progn
(setq tdy (cadr pt))
(setq tdx (car pt))
(entmake(list(cons 0 "TEXT")(cons 7 sty)(cons 8 "S. TEXT")(cons 10 (list tdx tdy 0.0))(cons 40 h)(cons 1 (rtos i 2 0))))
)
(if (or (= phuong "x")(= phuong "X"))
(progn
(setq tdx (+ tdx kc))
(entmake(list(cons 0 "TEXT")(cons 7 sty)(cons 8 "S. TEXT")(cons 10 (list tdx tdy 0.0))(cons 40 h)(cons 1 (rtos i 2 0))))
)
(progn
(setq tdy (- tdy kc))
(entmake(list(cons 0 "TEXT")(cons 7 sty)(cons 8 "S. TEXT")(cons 10 (list tdx tdy 0.0))(cons 40 h)(cons 1 (rtos i 2 0))))
)
)
)
(setq i (1+ i))
)
)

Khuyên bạn: Trước khi đặt câu hỏi bạn nên thử tự tìm câu trả lời cho mình trước đã. ok?
Font sử dụng khi điền tọa độ cũng như khi thống kê bảng chính là font của textstyle đang hiện hành lúc bạn chạy lisp. không khó để nhận ra điều đó. Nếu bạn không hiển...

Khuyên bạn: Trước khi đặt câu hỏi bạn nên thử tự tìm câu trả lời cho mình trước đã. ok?
Font sử dụng khi điền tọa độ cũng như khi thống kê bảng chính là font của textstyle đang hiện hành lúc bạn chạy lisp. không khó để nhận ra điều đó. Nếu bạn không hiển thị tốt tiếng việt trong bảng thống kê thì chuyển sang 1 textstyle khác dùng các font thuộc bảng mã TCVN3.
Về yêu cầu của bạn: mình hiểu là khi chạy lisp bạn sẽ tiến hành các bước: nhập cao text -> nhập tên mốc -> nhập chiều dài các cạnh của bảng rồi mới bắt đầu thực hiện pick truy vấn tọa độ mốc đúng không?
=> 1. quá rườm rà
=> 2. Bạn có chắc chiều dài cạnh bạn nhập không quá rộng hoặc không quá hẹp so với cao text? lisp trên đã được tính toán để text được bố trí vào bảng một cách hợp lý nhất. vì thế mình không sửa lại theo yêu cầu nhập chiều dài các cạnh của bảng nữa.
Riêng phần xuất ra file text, mình chưa bg fải làm việc với những file text chứa tọa độ điểm nên không hiểu nội dung của nó sẽ được bố trí như thế nào vì đây không fải chuyên ngành của mình. thế nên mình bó tay khoản này.

đây là lisp bạn có thể nhập tên mốc theo ý muốn của mình


PS: mọi người trong diễn đàn thường chỉ cần cảm ơn nhau bằng nút Thank dưới mỗi bài post bạn ạ. thế là đủ