lisp di động

Tháng 9 4, 2008

*Bạn có trong tay một bộ lisp ưng ý và dùng đã quen. Đôi lúc bạn ngồi 1 máy khác cảm thấy rất bất tiện, cài lisp của mình vào thì sợ ảnh hưởng đến người khác.

*Mình cũng bị tình trạng này và đến nay đã tìm ra cách giải quyết nên khoe với mọi người. Cách này mình gọi là lisp di động.

-Nhiều bạn sẽ nghỉ lisp thì để đâu cũng không quan trọng chỉ cần load lên thôi có gì phải tinh vi,,,,,,,,,,, Vấn đề là lisp nhiều khi không đơn thuần chỉ là các file lisp mà còn rất nhiều thứ kèm theo ví dụ:

+File dwg dùng chèn vào phục vụ nhu cầu nào đó của lisp.

+File dcl dùng hiển thị hộp thoại.

+Các file sld dùng cho hộp thoại và các mục đích trang trí, minh họa khác.

Nói chung là có rất nhiều loại file kèm theo cần phải dùng trong ứng dụng lisp.

-Thông thường người viết lisp có hai cách ứng xử với các file này:

+Chỉ đích danh file với đầy đủ đường dẩn ví dụ:

(command ".INSERT" "C:\\tienich\\dwg\\cott.dwg" (list (car a)(cadr a)) 1 1 0)

+Chỉ tên file không có đường dẩn và tạo Support File Search Path đến thư mục chứa file ví dụ:

(command ".INSERT" "cott.dwg" (list (car a)(cadr a)) 1 1 0)

Và Add thư mục C:\\tienich\\dwg\\ vào Support File Search Path.

-Cả hai trường hợp trên phù hợp khi lisp nằm cố định trên máy. Bây giờ bạn chép tất cả vào CD hoặc USB để đem nó đi máy khác thì đường dẩn sẽ không còn ổn định (mổi máy mổi khác) Tôi xin trình bày cách mà tôi áp dụng cho ứng dụng lisp của mình như sau:

-Tổ chức một thư mục tổng (tôi đặt tên tienich).Bên trong là các thư mục con theo từng loại file (để dể kiểm soát) ví dụ tôi đặt như sau:

+DWG

+DCL

+LENH

+FLIEHETHONG

-Tạo 1 file bất kỳ tốt nhất nên là file có định dạng đặt biệt chút cho đở nhầm lẩn (trường hợp của tôi là file DUY.ICO). Đặt file này trong thư mục tổng ví dụ: tienich\\duy.ico. Tác dụng của file này tôi sẽ trình bày phía dưới.

-Cải tạo tất cả các dòng trong lisp có liên quan đến file bên ngoài như sau:

(start_image "img_1")

(slide_image 0 0 (dimx_tile "img_1")(dimy_tile "img_1") (strcat odiachay "\\tienich\\dcl\\lgoduy.sld"))

(end_image)

(setq DCL_ID (load_dialog (strcat odiachay "\\tienich\\dcl\\VEKHOIDAC.DCL")))

(command "INSERT" (strcat odiachay "\\tienich\\dwg\\cos") (list (car p0cos)(cadr p0cos)) 1 1 0)

Nghĩa là cần phải xác định biến odiachay thì các dường dẩn đến file mới hoàn thiện.

-Tạo file lisp để khi load lên sẽ làm tất cả các bước sau:

+Xác định biến odiachay.

+Load tất cả các file lsp cần load.

Nội dung như sau:

(setq vitrifilekiemtraduongdan (getfiled "DE XAC DINH DUONG DAN BAN HAY CHON FILE DUY.ICON " "" "ico" 0))

(setq dodaiduongdantienichdocduoc (strlen vitrifilekiemtraduongdan))

(setq dodaiduongdantienichdocduoctru (- dodaiduongdantienichdocduoc 16))

(setq tenodiachay (substr vitrifilekiemtraduongdan 1 dodaiduongdantienichdocduoctru))

(setq odiachay tenodiachay)

(load(strcat odiachay "/tienich/lenh/thuvienndung"))

(load(strcat odiachay "/tienich/lenh/thuvienchitiet"))

(load(strcat odiachay "/tienich/lenh/tienichchonht"))

(load(strcat odiachay "/tienich/lenh/thongke"))

Phần màu xanh dùng để load các file lisp.

Phần màu cam dùng xác định biến odiachay cách làm việc như sau:

+Hiển thị hộp thoại open file với tiêu đề DE XAC DINH DUONG DAN BAN HAY CHON FILE DUY.ICON, định dạng file mặc định là file *.ico.

+Đọc ra đường dẩn đầy đủ của file DUY.ICO.

+Đếm số ký tự trong chuổi vừa thu được.

+Trừ số ký tự đi 16 (là số ký tự của chuỗi tienich\\duy.ico).

+Lấy giá ra chuỗi con của chuổi tên file đầy đủ từ vị trí đầu tiên đến vị trí thứ đã trừ đi 16.

Giá trị này chính là biến odiachay.

*Tất nhiên có nhiều cách hay hơn để làm việc lisp di động này nhưng mình làm được như vậy và dùng thấy rất ổn nên giới thiệu lên đây mong giúp được cho nhửng bạn đang bị vướng vấn đề như mình.

@Nhân tiện mình giới thiệu kèm theo tiện ích của mình để các bạn xem cách hoạt động của lisp di động.

-Bạn giải nén và ghi thư mục tienich lên CD hoặc USB (gì cũng được).

-Khởi động CAD (cad gì cũng được).

-Gỏ lệnh AP chọn tienich//run//chay//chay.lsp load lên nó sẻ hỏi bạn chỉ chổ file DUY.ICO bạn chỉ cho nó và xem nó load toàn bộ các lisp củng như khả năng hiển thị các hộp thoại, gọi menu không khác gì các chương trình cài đoàng hoàng và khi bạn rút CD hoặc USB đi thì không còn dấu vết gì nửa không ảnh hưởng tới ai. Chúc thành công.

http://www.cadviet.com/upfiles/tienich_2.rar

Tháng 9 4, 2008

*Bạn có trong tay một bộ lisp ưng ý và dùng đã quen. Đôi lúc bạn ngồi 1 máy khác cảm thấy rất bất tiện, cài lisp của mình vào thì sợ ảnh hưởng đến người khác.
*Mình cũng bị tình trạng này và đến nay đã tìm ra cách giải quyết nên khoe với mọi người. Cách này mình gọi là lisp di động.

-Nhiều bạn sẽ nghỉ lisp thì để đâu cũng không quan trọng chỉ cần load lên thôi có gì phải tinh vi,,,,,,,,,,, Vấn đề là lisp nhiều khi không đơn thuần chỉ là các file lisp mà còn rất nhiều thứ kèm theo ví dụ:

+File dwg dùng chèn vào phục vụ nhu cầu nào đó của lisp.

+File dcl dùng hiển thị hộp thoại.

+Các file sld dùng cho hộp thoại và các mục đích trang trí, minh họa khác.

Nói chung là có rất nhiều loại file kèm theo cần phải dùng trong ứng dụng lisp.

-Thông thường người viết lisp có hai cách ứng xử với các file này:

+Chỉ đích danh file với đầy đủ đường dẩn ví dụ:

(command ".INSERT" "C:\\tienich\\dwg\\cott.dwg" (list (car a)(cadr a)) 1 1 0)

+Chỉ tên file không có đường dẩn và tạo Support File Search Path đến thư mục chứa file ví dụ:

(command ".INSERT" "cott.dwg" (list (car a)(cadr a)) 1 1 0)

Và Add thư mục C:\\tienich\\dwg\\ vào Support File Search Path.

-Cả hai trường hợp trên phù hợp khi lisp nằm cố định trên máy. Bây giờ bạn chép tất cả vào CD hoặc USB để đem nó đi máy khác thì đường dẩn sẽ không còn ổn định (mổi máy mổi khác) Tôi xin trình bày cách mà tôi áp dụng cho ứng dụng lisp của mình như sau:

-Tổ chức một thư mục tổng (tôi đặt tên tienich).Bên trong là các thư mục con theo từng loại file (để dể kiểm soát) ví dụ tôi đặt như sau:

+DWG

+DCL

+LENH

+FLIEHETHONG

-Tạo 1 file bất kỳ tốt nhất nên là file có định dạng đặt biệt chút cho đở nhầm lẩn (trường hợp của tôi là file DUY.ICO). Đặt file này trong thư mục tổng ví dụ: tienich\\duy.ico. Tác dụng của file này tôi sẽ trình bày phía dưới.

-Cải tạo tất cả các dòng trong lisp có liên quan đến file bên ngoài như sau:

(start_image "img_1")

(slide_image 0 0 (dimx_tile "img_1")(dimy_tile "img_1") (strcat odiachay "\\tienich\\dcl\\lgoduy.sld"))

(end_image)

(setq DCL_ID (load_dialog (strcat odiachay "\\tienich\\dcl\\VEKHOIDAC.DCL")))

(command "INSERT" (strcat odiachay "\\tienich\\dwg\\cos") (list (car p0cos)(cadr p0cos)) 1 1 0)

Nghĩa là cần phải xác định biến odiachay thì các dường dẩn đến file mới hoàn thiện.

-Tạo file lisp để khi load lên sẽ làm tất cả các bước sau:

+Xác định biến odiachay.

+Load tất cả các file lsp cần load.

Nội dung như sau:

(setq vitrifilekiemtraduongdan (getfiled "DE XAC DINH DUONG DAN BAN HAY CHON FILE DUY.ICON " "" "ico" 0))

(setq dodaiduongdantienichdocduoc (strlen vitrifilekiemtraduongdan))

(setq dodaiduongdantienichdocduoctru (- dodaiduongdantienichdocduoc 16))

(setq tenodiachay (substr vitrifilekiemtraduongdan 1 dodaiduongdantienichdocduoctru))

(setq odiachay tenodiachay)

(load(strcat odiachay "/tienich/lenh/thuvienndung"))

(load(strcat odiachay "/tienich/lenh/thuvienchitiet"))

(load(strcat odiachay "/tienich/lenh/tienichchonht"))

(load(strcat odiachay "/tienich/lenh/thongke"))

Phần màu xanh dùng để load các file lisp.

Phần màu cam dùng xác định biến odiachay cách làm việc như sau:

+Hiển thị hộp thoại open file với tiêu đề DE XAC DINH DUONG DAN BAN HAY CHON FILE DUY.ICON, định dạng file mặc định là file *.ico.

+Đọc ra đường dẩn đầy đủ của file DUY.ICO.

+Đếm số ký tự trong chuổi vừa thu được.

+Trừ số ký tự đi 16 (là số ký tự của chuỗi tienich\\duy.ico).

+Lấy giá ra chuỗi con của chuổi tên file đầy đủ từ vị trí đầu tiên đến vị trí thứ đã trừ đi 16.

Giá trị này chính là biến odiachay.

*Tất nhiên có nhiều cách hay hơn để làm việc lisp di động này nhưng mình làm được như vậy và dùng thấy rất ổn nên giới thiệu lên đây mong giúp được cho nhửng bạn đang bị vướng vấn đề như mình.

@Nhân tiện mình giới thiệu kèm theo tiện ích của mình để các bạn xem cách hoạt động của lisp di động.

-Bạn giải nén và ghi thư mục tienich lên CD hoặc USB (gì cũng được).

-Khởi động CAD (cad gì cũng được).

-Gỏ lệnh AP chọn tienich//run//chay//chay.lsp load lên nó sẻ hỏi bạn chỉ chổ file DUY.ICO bạn chỉ cho nó và xem nó load toàn bộ các lisp củng như khả năng hiển thị các hộp thoại, gọi menu không khác gì các chương trình cài đoàng hoàng và khi bạn rút CD hoặc USB đi thì không còn dấu vết gì nửa không ảnh hưởng tới ai. Chúc thành công.

http://www.cadviet.com/upfiles/tienich_2.rar

Cảm ơn bác Duy nhiều nhé, nhưng mình hơi thắc mắc là khi chạy chương trình trên usb thì một số lện tắt mà mình đã đặt trước đây nay mất tác dụng, bác cho biết cách khắc phục, ở phần thống kê cốt thép có lổi font và tỉ lệ cũng như hình vẽ không được đẹp lắm. Mong bác vui lòng cho mình câu trả lời. thanks alot!!!

Tháng 9 4, 2008

Cảm ơn bác Duy nhiều nhé, nhưng mình hơi thắc mắc là khi chạy chương trình trên usb thì một số lện tắt mà mình đã đặt trước đây nay mất tác dụng, bác cho biết cách khắc phục, ở phần thống kê cốt thép có lổi font và tỉ lệ cũng như hình vẽ không được đẹp lắm. Mong bác vui lòng cho mình câu trả lời. thanks alot!!!

-Cái này là tôi khoe cái mà mình hay dùng mà. Khi rút ra rồi thì lệnh tắt của bạn loại quay về như cũ thôi.

-Tôi dùng font VNI.*** nếu lổi là vì tôi và bạn không thống nhất cách dùng font thôi.

-Vẽ không được đẹp là vì tôi vẽ xấu đó mà. chịu thôi khả năng mình có vậy.

**Mục đích bài này chủ yếu là giúp các bạn cải tạo bộ lisp của các bạn thành di động thôi. cái của tôi chỉ là minh họa thôi.

Tháng 11 18, 2010

Chủ đề này vip mà sao ít hoạt động thế nhỉ, hay chuyển sang topic khác rồi

Nhờ bác duy782006 và mọi người hâm nóng lên nhé.

1. Bộ tiện ích của bác duy782006 tương đối hoàn hảo rồi nhưng khó modified theo thói quen người dùng.

2. Bác duy782006 và các cao thủ làm một mẫu "tien ich cv" đơn giản, có các loại foder: DWG, LSP, HETHONG, THVIEN...

mỗi foder chỉ nên có 1-vài file làm ví dụ cụ thể. khi muốn update, bổ xung lisp mới thì làm như thế nào?

nên viết bằng lsp không mã hóa để người dùng hiểu một phần + bổ xung + hoàn thiện.

Mục đính: nhiều người mới bắt đầu có thể tự làm dc tiện ích nho nhỏ cho mình và share lên diễn đàn.

Có gì mạo phạm mong các đàn anh tha thứ

Tháng 11 18, 2010

Thực ra, bạn chỉ cần chép file "chay.lsp" vào thay file "duy.ico" và cho tải luôn là được. Làm như vậy còn đơn giản hơn

Tháng 11 18, 2010

Thực ra, bạn chỉ cần chép file "chay.lsp" vào thay file "duy.ico" và cho tải luôn là được. Làm như vậy còn đơn giản hơn

Giỡn nà. Làm dzậy rồi làm sao xác định các đường dẩn cho file bạn. Khi bạn lưu nó trong USB chẳng hạn ở máy này thì nó là ổ E nhưng máy khác nó là ổ F thì làm nào?

Tháng 11 18, 2010

Chủ đề này vip mà sao ít hoạt động thế nhỉ, hay chuyển sang topic khác rồi
Nhờ bác duy782006 và mọi người hâm nóng lên nhé.

1. Bộ tiện ích của bác duy782006 tương đối hoàn hảo rồi nhưng khó modified theo thói quen người dùng.

2. Bác duy782006 và các cao thủ làm một mẫu "tien ich cv" đơn giản, có các loại foder: DWG, LSP, HETHONG, THVIEN...

mỗi foder chỉ nên có 1-vài file làm ví dụ cụ thể. khi muốn update, bổ xung lisp mới thì làm như thế nào?

nên viết bằng lsp không mã hóa để người dùng hiểu một phần + bổ xung + hoàn thiện.

Mục đính: nhiều người mới bắt đầu có thể tự làm dc tiện ích nho nhỏ cho mình và share lên diễn đàn.

Có gì mạo phạm mong các đàn anh tha thứ

-Hôm nào mínheẽ làm theo ý 2 của bạn.

-Lisp của mình toàn nguyên si đấy có mã hóa cài gì đâu mừ?

Tháng 11 18, 2010

Bạn đã tìm được đường dẫn của file Duy.ico, vậy tại sao không tìm được đường dẫn của file Chay.lsp? Khi đó viết thêm 1 câu lệnh để tải file Chay.lsp luôn. OK?

Tháng 11 18, 2010

-Hôm nào mínheẽ làm theo ý 2 của bạn.
-Lisp của mình toàn nguyên si đấy có mã hóa cài gì đâu mừ?

Cám ơn bác Duy782006 nhiều :iluvyousmiley:

Em sẽ chờ đợi thành quả của bác và các anh em trên diễn đàn

Tháng 12 2, 2010

-Hôm nào mínheẽ làm theo ý 2 của bạn.
-Lisp của mình toàn nguyên si đấy có mã hóa cài gì đâu mừ?

Anh Duy bớt chút thời gian vào gúp em với

Cảm ơn anh

Tháng 12 2, 2010

Anh Duy bớt chút thời gian vào gúp em với
Cảm ơn anh

Hẹn bạn tuần tới tại dạo này mình bị ngập việc quá lên dd dòm ngó thì được chứ viết ra khung thì cũng phải suy nghĩ cho nó tổng quát 1 chút.

Tháng 12 3, 2010

http://www.cadviet.com/upfiles/3/lispdd.rar

Theo ý của bạn mình làm 1 cái khung đơn giản để bạn tự phát triển:

Mình tổ chức thư mục LISPDD chứa các thư mục con như sau:

-RUN: thư mục này chứa 3 file lisp khởi đầu dùng load menu, thiết lập đường dẩn và các việc cần thiết ban đầu.

-DCL: Chứa 1 file dcl ví dụ và các file text + sld dùng cho hiển thị hộp thoại này.

-CHEPTHEM: thư mục này có đặc điểm là sau khi load lisp bạn gỏ lệnh CAPNHAT thì các file chứa trong thư mục này được copy vào thư mục cài đặtcủa cad.

-AUTOADD: thư mục này sẽ được tự động add thêm vào đường dẩn tìm kiếm của cad sau khi bạn load lisp.

-LISP: thư mục này hiện chứa 3 lisp ví dụ, các lisp của bạn cũng nên tập trung vào đây để quản lý và load cho dể kiểm soát.

-HETHONG: hiện nay chứa file mns dùng hiển thị menu.

*Cách dùng:

Để chạy bộ này có 2 cách:

-Di động: Load file lispdd/run/didong.lsp. nó hỏi chỉ file duy.ico bạn chỉ cho nó lúc này nemu, lisp sẳn có sẽ được load lên để bạn dùng thử.

-Cố định:Trước tiên phải copy toàn bộ thư mục lisddd vào ổ C xong Load file lispdd/run/codinh lúc này nemu, lisp sẳn có sẽ được load lên để bạn dùng thử.

*Cách chỉnh sửa và thêm lisp, menu.

Sau khi load thành công thì thư mục AUTOADD sẽ được thêm vào đường dẩn tìm kiếm của cad nên nếu bạn có file nào cần dùng cho lisp mà ko muốn chỉ định đường dẩn trong lisp thì chứa nó trong thư mục này.

Lệnh HETHONG dùng copy toàn bộ các file trong thư mục CHEPTHEM vào thư mục cài đặt của cad chức năng này dùng khi bạn có 1 số file cần cập nhật mới ví dụ như line, hatch .v.v. (khi nào gỏ lệnh HETHONG thi mới thực hiện chức năng này nếu ko dùng đến thì ko gỏ lệnh này là xong).

-Cách thêm lisp vào: Bạn mở file lispdd/run/goilenh.lsp, bên dưới đoạn

(load(strcat odiachay "/lispdd/lisp/lisp1"))

(load(strcat odiachay "/lispdd/lisp/lisp2"))

(load(strcat odiachay "/lispdd/lisp/lisp3"))

bạn thêm 1 dòng:

(load(strcat odiachay "/lispdd/lisp/lisp4"))

Lưu ý lisp4 là tên lisp thêm vào không cần phần .lsp nhé. Muốn thêm nhiều lisp thì thêm nhiều dòng.

-File menu thì sửa trong lispdd/hethong/lispdd.mns. File này mình viết đơn giản gồm 3 dòng đôn và 1 nemu xếp lớp đọc cái hiểu ngay nên chắc ko cần hướng dẩn chỉnh file này. Sau khi chỉnh xong thì xóa file lispdd.cui đi để khi khởi động cad sẽ load lại nemu (nó tự load bạn ko phải load).

Tháng 12 4, 2010

http://www.cadviet.com/upfiles/3/lispdd.rar
Theo ý của bạn mình làm 1 cái khung đơn giản để bạn tự phát triển:

Mình tổ chức thư mục LISPDD chứa các thư mục con như sau:

-RUN: thư mục này chứa 3 file lisp khởi đầu dùng load menu, thiết lập đường dẩn và các việc cần thiết ban đầu.

-DCL: Chứa 1 file dcl ví dụ và các file text + sld dùng cho hiển thị hộp thoại này.

-CHEPTHEM: thư mục này có đặc điểm là sau khi load lisp bạn gỏ lệnh CAPNHAT thì các file chứa trong thư mục này được copy vào thư mục cài đặtcủa cad.

-AUTOADD: thư mục này sẽ được tự động add thêm vào đường dẩn tìm kiếm của cad sau khi bạn load lisp.

-LISP: thư mục này hiện chứa 3 lisp ví dụ, các lisp của bạn cũng nên tập trung vào đây để quản lý và load cho dể kiểm soát.

-HETHONG: hiện nay chứa file mns dùng hiển thị menu.

*Cách dùng:

Để chạy bộ này có 2 cách:

-Di động: Load file lispdd/run/didong.lsp. nó hỏi chỉ file duy.ico bạn chỉ cho nó lúc này nemu, lisp sẳn có sẽ được load lên để bạn dùng thử.

-Cố định:Trước tiên phải copy toàn bộ thư mục lisddd vào ổ C xong Load file lispdd/run/codinh lúc này nemu, lisp sẳn có sẽ được load lên để bạn dùng thử.

*Cách chỉnh sửa và thêm lisp, menu.

Sau khi load thành công thì thư mục AUTOADD sẽ được thêm vào đường dẩn tìm kiếm của cad nên nếu bạn có file nào cần dùng cho lisp mà ko muốn chỉ định đường dẩn trong lisp thì chứa nó trong thư mục này.

Lệnh HETHONG dùng copy toàn bộ các file trong thư mục CHEPTHEM vào thư mục cài đặt của cad chức năng này dùng khi bạn có 1 số file cần cập nhật mới ví dụ như line, hatch .v.v. (khi nào gỏ lệnh HETHONG thi mới thực hiện chức năng này nếu ko dùng đến thì ko gỏ lệnh này là xong).

-Cách thêm lisp vào: Bạn mở file lispdd/run/goilenh.lsp, bên dưới đoạn

(load(strcat odiachay "/lispdd/lisp/lisp1"))

(load(strcat odiachay "/lispdd/lisp/lisp2"))

(load(strcat odiachay "/lispdd/lisp/lisp3"))

bạn thêm 1 dòng:

(load(strcat odiachay "/lispdd/lisp/lisp4"))

Lưu ý lisp4 là tên lisp thêm vào không cần phần .lsp nhé. Muốn thêm nhiều lisp thì thêm nhiều dòng.

-File menu thì sửa trong lispdd/hethong/lispdd.mns. File này mình viết đơn giản gồm 3 dòng đôn và 1 nemu xếp lớp đọc cái hiểu ngay nên chắc ko cần hướng dẩn chỉnh file này. Sau khi chỉnh xong thì xóa file lispdd.cui đi để khi khởi động cad sẽ load lại nemu (nó tự load bạn ko phải load).

Thanks bác em đánh để e thử xem sao

Tháng 12 5, 2010

Hẹn bạn tuần tới tại dạo này mình bị ngập việc quá lên dd dòm ngó thì được chứ viết ra khung thì cũng phải suy nghĩ cho nó tổng quát 1 chút.

Cảm ơn anh nhiều, măm mới tết đến rồi. cv ai cũng gấp rút.

Em sẽ làm theo hướng dẫn của anh và dùng như thế vì anh còn nhiều việc khác nên ko dám hỏi thêm nữa ,

khi nào em nghiên cứu dc nhiều nhiều một chút sẽ share lên diễn đàn

Chúc anh vui vẻ

Tháng 8 14, 2011

Giỡn nà. Làm dzậy rồi làm sao xác định các đường dẩn cho file bạn. Khi bạn lưu nó trong USB chẳng hạn ở máy này thì nó là ổ E nhưng máy khác nó là ổ F thì làm nào?

Chào anh Duy.

Cái này anh có thể làm như vầy:

1. Đặt 1 tên file gì đó do mình đặt ra trong USB. Ví dụ là file: DUY782006.ico trong USB chẳng hạn

2. Bắt đầu tìm file DUY782006.ico trong ổ đĩa Z -> Cho tới đĩa C (Sử dụng vòng lặp While, hàm findfile và hàm chr nữa. Nếu không tìm thấy thì hàm findfile trả về NIL.

Đến khi nào tìm thấy file DUY782006.ico thì dừng lại. Lấy tên của ổ đĩa

Và ổ đĩa đó chính là USB mà anh đang sử dụng

Tháng 8 15, 2011

Ý, bác Tuệ đào mộ giải đáp bài từ ... năm ngoái, ta nhảy vào chém gió thôi ^^

- E thì nghĩ ngoài ra có thể lấy luôn list USB và thao tác cho ít. Nếu trong lúc đó máy chỉ có 1 mình USB thì đúng là của mình rùi, load all luôn ^^. Hoặc nếu dùng vòng lặp thì tại sao không chạy từ A chạy đi ạ ?

- Ngoài ra có thể dùng vl-file-directory-p kiểm tra 1 ổ đĩa đã tồn tại hay chưa, mount => load all ^^

Tháng 8 15, 2011

Ý, bác Tuệ đào mộ giải đáp bài từ ... năm ngoái, ta nhảy vào chém gió thôi ^^

- E thì nghĩ ngoài ra có thể lấy luôn list USB và thao tác cho ít. Nếu trong lúc đó máy chỉ có 1 mình USB thì đúng là của mình rùi, load all luôn ^^. Hoặc nếu dùng vòng lặp thì tại sao không chạy từ A chạy đi ạ ?

- Ngoài ra có thể dùng vl-file-directory-p kiểm tra 1 ổ đĩa đã tồn tại hay chưa, mount => load all ^^

Vì mỗi máy có ổ đĩa phân vùng mỗi khác,

Mình chạy từ Z->A là vì sợ bị trùng file. Lỡ ổ C, D có file trùng hoá ra là chưa đúng.

Cẩn tắc vô sai vậy :rolleyes:

- Nếu sử dụng vl-file-directory-p cũng được , nhưng phải duyệt từ Z-> A nếu không thì CDROM chưa "đút" vô thì (vl-file-directory-p CDROM) trả về NIL tức khắc

Tháng 8 15, 2011

Sao ko để file chay.lsp ở ngoài cùng rồi xài cái lisp lấy đường dẫn file vừa load đâu đó trên diễn đàn đấy mình nghĩ cũng nhanh mà

Tháng 8 15, 2011

Ồ, chí lý chí lý. Vậy thì ta list luôn Drive ra, rồi làm việc theo cách nào cũng được, kiểu như :

(defun ST:File-GetDrives(/ objFileSystemObject objDrives lstDrives)
 (setq	objFileSystemObject (vlax-create-object "Scripting.FileSystemObject")
lstDrives '()
 )
 (if (vlax-method-applicable-p objFileSystemObject 'Drives)
   (princ "Method available")
 )
 (if (vlax-property-available-p objFileSystemObject 'Drives)
   (progn
     (setq objDrives (vlax-get-property objFileSystemObject 'Drives))
     (vlax-for	n objDrives	  
    (setq lstDrives (append lstDrives (list (vlax-get-property n 'DriveLetter))))	
     )
     (vlax-release-object objDrives)
   )
 )
 (vlax-release-object objFileSystemObject)
 lstDrives
)

^^ Hàm trên cũng có thể thay đổi 1 chút để lấy list USB

P/s : E góp ý cho vui thôi, chứ theo e thêm 1 bước Getfield cũng không phiền :)

Tháng 8 15, 2011

Sao ko để file chay.lsp ở ngoài cùng rồi xài cái lisp lấy đường dẫn file vừa load đâu đó trên diễn đàn đấy mình nghĩ cũng nhanh mà

Cũng là 1 hướng. Kết hợp với hàm Loadall là okie, tuy nhiên hàm lastload bác ĐVH post chưa được mọi người kiểm chứng nhiều ạ :)

Tháng 11 24, 2014

*Bạn có trong tay một bộ lisp ưng ý và dùng đã quen. Đôi lúc bạn ngồi 1 máy khác cảm thấy rất bất tiện, cài lisp của mình vào thì sợ ảnh hưởng đến người khác.

*Mình cũng bị tình trạng này và đến nay đã tìm ra cách giải quyết nên khoe với mọi người. Cách này mình gọi là lisp di động.

-Nhiều bạn sẽ nghỉ lisp thì để đâu cũng không quan trọng chỉ cần load lên thôi có gì phải tinh vi,,,,,,,,,,, Vấn đề là lisp nhiều khi không đơn thuần chỉ là các file lisp mà còn rất nhiều thứ kèm theo ví dụ:

+File dwg dùng chèn vào phục vụ nhu cầu nào đó của lisp.

+File dcl dùng hiển thị hộp thoại.

+Các file sld dùng cho hộp thoại và các mục đích trang trí, minh họa khác.

Nói chung là có rất nhiều loại file kèm theo cần phải dùng trong ứng dụng lisp.

-Thông thường người viết lisp có hai cách ứng xử với các file này:

+Chỉ đích danh file với đầy đủ đường dẩn ví dụ:

(command ".INSERT" "C:\\tienich\\dwg\\cott.dwg" (list (car a)(cadr a)) 1 1 0)

+Chỉ tên file không có đường dẩn và tạo Support File Search Path đến thư mục chứa file ví dụ:

(command ".INSERT" "cott.dwg" (list (car a)(cadr a)) 1 1 0)

Và Add thư mục C:\\tienich\\dwg\\ vào Support File Search Path.

-Cả hai trường hợp trên phù hợp khi lisp nằm cố định trên máy. Bây giờ bạn chép tất cả vào CD hoặc USB để đem nó đi máy khác thì đường dẩn sẽ không còn ổn định (mổi máy mổi khác) Tôi xin trình bày cách mà tôi áp dụng cho ứng dụng lisp của mình như sau:

-Tổ chức một thư mục tổng (tôi đặt tên tienich).Bên trong là các thư mục con theo từng loại file (để dể kiểm soát) ví dụ tôi đặt như sau:

+DWG

+DCL

+LENH

+FLIEHETHONG

-Tạo 1 file bất kỳ tốt nhất nên là file có định dạng đặt biệt chút cho đở nhầm lẩn (trường hợp của tôi là file DUY.ICO). Đặt file này trong thư mục tổng ví dụ: tienich\\duy.ico. Tác dụng của file này tôi sẽ trình bày phía dưới.

-Cải tạo tất cả các dòng trong lisp có liên quan đến file bên ngoài như sau:

(start_image "img_1")

(slide_image 0 0 (dimx_tile "img_1")(dimy_tile "img_1") (strcat odiachay "\\tienich\\dcl\\lgoduy.sld"))

(end_image)

(setq DCL_ID (load_dialog (strcat odiachay "\\tienich\\dcl\\VEKHOIDAC.DCL")))

(command "INSERT" (strcat odiachay "\\tienich\\dwg\\cos") (list (car p0cos)(cadr p0cos)) 1 1 0)

Nghĩa là cần phải xác định biến odiachay thì các dường dẩn đến file mới hoàn thiện.

-Tạo file lisp để khi load lên sẽ làm tất cả các bước sau:

+Xác định biến odiachay.

+Load tất cả các file lsp cần load.

Nội dung như sau:

(setq vitrifilekiemtraduongdan (getfiled "DE XAC DINH DUONG DAN BAN HAY CHON FILE DUY.ICON " "" "ico" 0))

(setq dodaiduongdantienichdocduoc (strlen vitrifilekiemtraduongdan))

(setq dodaiduongdantienichdocduoctru (- dodaiduongdantienichdocduoc 16))

(setq tenodiachay (substr vitrifilekiemtraduongdan 1 dodaiduongdantienichdocduoctru))

(setq odiachay tenodiachay)

(load(strcat odiachay "/tienich/lenh/thuvienndung"))

(load(strcat odiachay "/tienich/lenh/thuvienchitiet"))

(load(strcat odiachay "/tienich/lenh/tienichchonht"))

(load(strcat odiachay "/tienich/lenh/thongke"))

Phần màu xanh dùng để load các file lisp.

Phần màu cam dùng xác định biến odiachay cách làm việc như sau:

+Hiển thị hộp thoại open file với tiêu đề DE XAC DINH DUONG DAN BAN HAY CHON FILE DUY.ICON, định dạng file mặc định là file *.ico.

+Đọc ra đường dẩn đầy đủ của file DUY.ICO.

+Đếm số ký tự trong chuổi vừa thu được.

+Trừ số ký tự đi 16 (là số ký tự của chuỗi tienich\\duy.ico).

+Lấy giá ra chuỗi con của chuổi tên file đầy đủ từ vị trí đầu tiên đến vị trí thứ đã trừ đi 16.

Giá trị này chính là biến odiachay.

*Tất nhiên có nhiều cách hay hơn để làm việc lisp di động này nhưng mình làm được như vậy và dùng thấy rất ổn nên giới thiệu lên đây mong giúp được cho nhửng bạn đang bị vướng vấn đề như mình.

@Nhân tiện mình giới thiệu kèm theo tiện ích của mình để các bạn xem cách hoạt động của lisp di động.

-Bạn giải nén và ghi thư mục tienich lên CD hoặc USB (gì cũng được).

-Khởi động CAD (cad gì cũng được).

-Gỏ lệnh AP chọn tienich//run//chay//chay.lsp load lên nó sẻ hỏi bạn chỉ chổ file DUY.ICO bạn chỉ cho nó và xem nó load toàn bộ các lisp củng như khả năng hiển thị các hộp thoại, gọi menu không khác gì các chương trình cài đoàng hoàng và khi bạn rút CD hoặc USB đi thì không còn dấu vết gì nửa không ảnh hưởng tới ai. Chúc thành công.

http://www.cadviet.com/upfiles/tienich_2.rar

Similar topics from web:
Lập trình Autolisp [Lưu Trữ]

Sử dụng AutoLisp trong AutoCad

Thư viện Autolisp! [Lưu Trữ]

Autolisp-menu HTKT-Update 06-04-2008

Visual Lisp? [Lưu Trữ]

Lisp – Wikipedia tiếng Việt

+: Lisp vẽ hình chữ nhật và 4 hình tròn ở góc.

Bộ autolisp tổng hợp dành cho giao thông!

AutoCAD – Wikipedia tiếng Việt

Chủ đề: LISP tinh dien tich trong CAT

NGÔN NGỮ LẬP TRÌNH AutoLISP trong AutoCAD

Bộ lisp dùng trong cad đây!

Lisp Thiết kế Kênh

Xin lisp tính diện tích

Xin tài liệu Autolisp( visual lisp)

ụp lại file tiên ích di bác duy ơi. cho anh em tham khảo, bị lỗi mất
rổi\

Tháng 2 18, 2016

http://www.cadviet.com/upfiles/tienich_2.rar

e tìm trên các blog ko thấy a dùng một thời gian rồi

hiện e có dùng cái lispdd của a nhưng ko hiểu sao vẫn chưa chạy ngon hoàn toàn được

nó chỉ chạy được có 2 lisp e thêm vào còn các lisp khác thì ko chạy được

e cũng hỏi thêm các định dạng .arx và .fas thì có load được như thế ko a và cái file lispdd.mns e có sửa rồi nhưng load nó ko lên và mất luôn menu "lispdd"

file của e đây có thời gian nhờ a check hộ với ạ

Expand ▼

http://www.cadviet.c...0811_lispdd.rar

thanks a

Đăng nhập

lisp di động

Các bài được khuyến nghị

duy782006 1.528

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

anh.tuan 35

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

duy782006 1.528

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

nguoi_tho_mo 1

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

Doan Van Ha 3.185

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

duy782006 1.528

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

duy782006 1.528

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

Doan Van Ha 3.185

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

nguoi_tho_mo 1

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

nguoi_tho_mo 1

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

duy782006 1.528

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

duy782006 1.528

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

thk143 0

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

nguoi_tho_mo 1

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

Tue_NV 3.912

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

ketxu 2.984

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

Tue_NV 3.912

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

Detailing 281

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

ketxu 2.984

Chia sẻ bài đăng này

Liên kết tới bài đăng

Chia sẻ trên các trang web khác

ketxu 2.984