hj anh em trong diễn đàn
Hiện bây giờ em đang gặp vấn đề rất khó khăn trong việc xắp sếp các cột trong Excel
Khi em xuất 1 danh sách (list) ra Excel thì nó chỉ chỉ xuất được vào cột đầu tiên của excel em không thể tìm được cách nào xếp nó vào cột thứ 2 được mong các Pro chỉ giáo cho em với
http://d.f6.photo.zdn.vn/upload/original/2011/07/11/8/32/1310347922797617136_574_574.jpg
Đây là...

hj anh em trong diễn đàn
Hiện bây giờ em đang gặp vấn đề rất khó khăn trong việc xắp sếp các cột trong Excel
Khi em xuất 1 danh sách (list) ra Excel thì nó chỉ chỉ xuất được vào cột đầu tiên của excel em không thể tìm được cách nào xếp nó vào cột thứ 2 được mong các Pro chỉ giáo cho em với
http://d.f6.photo.zdn.vn/upload/original/2011/07/11/8/32/1310347922797617136_574_574.jpg
Đây là file ví dụ của em :
......
(defun c:tk()
(setq dn0m (list 3 6 1915 1940 1780 0 0 0 0 0 0 0)
dn1m (list 10 5 1925 2130 2180 2155 2095 1925 1480 940 435 220)
dn2m (list 11 4 1980 2125 2250 2285 2270 2215 2075 1725 1315 760 350)
dn3m (list 12 3 2000 2150 2230 2325 2355 2340 2295 2185 1915 1585 1050 520)
dn4m (list 14 2 1990 2150 2250 2310 2385 2405 2395 2350 2260 2050 1800 1345 750 175)
dn5m (list 15 1 1945 2135 2250 2325 2375 2430 2450 2445 2405 2330 2170 1975 1615 1045 255)
dn6m (list 15 1 2100 2230 2310 2380 2425 2455 2475 2475 2455 2400 2270 2125 1840 1300 395)
rmbm (list 16 0 2160 2280 2350 2395 2435 2455 2480 2495 2505 2500 2490 2450 2395 2290 2015 1355)
)
;;tao mot file moi co ten la trisotuyenhinh.txt tren mam hinh destop or tren Ô cung E
;; o day t luu file vao o cung E
(setq PS (open "E:\loc123.csv" "a"))
(setq i 0)
(write-line "DN0 DN1 DN2 DN3 DN4 DN5 DN6 " PS)
(setq k (length dn0m))
(while (<= i (- k 1) )
(write-line (strcat (rtos (nth i dn0m) 2 0) " " (rtos (nth i dn1m) 2 0) " " (rtos (nth i dn2m) 2 0) " " (rtos (nth i dn3m) 2 0) " " (rtos (nth i dn4m) 2 0)
" " (rtos (nth i dn5m) 2 0) " " (rtos (nth i dn6m) 2 0)
) ;;dong lenh strcat
ps ) ;; dong lenh write-line

(setq i (+ i 1)) ) ;; dong lenh while
(close PS)
)

Ngoài các tính năng đã viết ở trên
Tue_NV Cập nhật Lại Lisp :
Tue_NV cảm ơn góp ý của Ketxu (đã vote + cho Ketxu)
1. Sửa lại theo lời góp ý của Ketxu
2. -> Kiểm tra thêm Trong 1 tập chọn Text có chứa chữ là hiện lên ngay thông báo và thoát ra luôn không phải tính toán gì.
3....

Ngoài các tính năng đã viết ở trên
Tue_NV Cập nhật Lại Lisp :
Tue_NV cảm ơn góp ý của Ketxu (đã vote + cho Ketxu)
1. Sửa lại theo lời góp ý của Ketxu
2. -> Kiểm tra thêm Trong 1 tập chọn Text có chứa chữ là hiện lên ngay thông báo và thoát ra luôn không phải tính toán gì.
3. Cho phép User xuất ra số lẻ thập phân do mình chọn
4. Xử lý trường hợp "vượt giới hạn của số nguyên.
5./ Xuất Text theo góp ý của bạn tski259
-> Các bạn chạy thử, cứ góp ý. Tue_NV sẽ hoàn thiện nó. Hy vọng nó có ích cho mọi người

Hề hề hề,
Bạn thật là ?????????
Mình đã sửa theo ý bạn song mình sẽ không chịu trách nhiệm sửa nữa nếu như trên bản vẽ của bạn có sẵn một block tên test mà không đúng với cái block thuộc tính bạn yêu cầu. Khi đó nếu bạn muốn sửa thì hãy tự sửa nhé vì mình vẫn để các dòng code cũ lại chỉ vô hiệu hóa chúng mà thôi.
Hy vọng bạn sẽ không còn thắc mắc nữa.......

Hề hề hề,
Bạn thật là ?????????
Mình đã sửa theo ý bạn song mình sẽ không chịu trách nhiệm sửa nữa nếu như trên bản vẽ của bạn có sẵn một block tên test mà không đúng với cái block thuộc tính bạn yêu cầu. Khi đó nếu bạn muốn sửa thì hãy tự sửa nhé vì mình vẫn để các dòng code cũ lại chỉ vô hiệu hóa chúng mà thôi.
Hy vọng bạn sẽ không còn thắc mắc nữa....