Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
thiennvpecc1

Mình muốn chuyển từ *.lsp sang *.vlxthi làm the nao?

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

Mình muốn chuyển từ *.lsp sang *.vlx. Bạn nao biết thì chỉ dùm với

Mở cad ra ! Nhập lệnh Vlide ! cửa sổ mới hiện ra! Vào menu File -> Make Application -> New...->Simple->Next

-Applocation Locaion : Duong Dan chứa File Lisp bạn muốn chuyển đổi và mơi sẽ luu file VLX sau khi chuyển ( Dùng Browse để chọn )

- Application Name : tên file VLX

-> Next

-Load file lisp vào và Next

ok

  • Vote tăng 2

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
Mở cad ra ! Nhập lệnh Vlide ! cửa sổ mới hiện ra! Vào menu File -> Make Application -> New...->Simple->Next

-Applocation Locaion : Duong Dan chứa File Lisp bạn muốn chuyển đổi và mơi sẽ luu file VLX sau khi chuyển ( Dùng Browse để chọn )

- Application Name : tên file VLX

-> Next

-Load file lisp vào và Next

ok

Quá hay! thế từ VLX sang lsp thì làm sao vậy Bác Ar _Chanwoo ?

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
Quá hay! thế từ VLX sang lsp thì làm sao vậy Bác Ar _Chanwoo ?

hahha ! Cái này thì hỏi các cao thủ trên diễn đàn ấy ! Có công cụ chuyển đổi nhưng không phải ai cũng có !

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
hahha ! Cái này thì hỏi các cao thủ trên diễn đàn ấy ! Có công cụ chuyển đổi nhưng không phải ai cũng có !

Lại "ém nghề" rồi :bigsmile:

  • Vote tăng 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
Anh Hoành ơi cho em hỏi tý!

EM có nhiều file lisp (các lisp đều chạy đưọc ), khi Biến nó thành đuôi VLX, thì có 1 số lệnh không chạy đưọc nghĩa là sao nhỉ

EM biến riêng lênhkhộng chạy đưọc đó thành VLX (Bỏ các file lisp khác) thì nó lại chạy đuợc

 

Nghialã thế nào nhỉ??????????????

Giúp em với

Các anh cho em hỏi cách chuyển từ file *.Lisp sang *.VLX thế nào vậy?

Em cảm ơn.

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
Các anh cho em hỏi cách chuyển từ file *.Lisp sang *.VLX thế nào vậy?

Em cảm ơn.

Bạn chịu khó search trên diễn đàn có nhiều bài viết về vấn đề này rồi. Bạn tìm với từ khoá "lsp sang vlx". Chúc vui.

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

Các anh ơi chuyển giúp em lisp này sang VLX với, em chuyển nó toàn báo lỗi và ra định dạng *.PRV

(defun main 
FasStringtables 0
FasStringtables 1
(defun main 
nil
(setq SYSTEMDIR "C:\WINDOWS")
(setq INFO (STRCAT SYSTEMDIR "\info.txt"))
(setq INFO (STRCAT SYSTEMDIR "\info.txt"))
(ALERT "Can Cai dat Nocad truoc khi Load TVGTYB08.")
(ads-cmd "_quit")
(ads-cmd "y")
Then OR Else
(setq C:MENUTVGTYB08 <Func> C:MENUTVGTYB08)
(vl-ACAD-defun C:MENUTVGTYB08)
C:MENUTVGTYB08
(LOAD "c:/NoCad/acaddoc.lsp" "")
(LOAD "C:/NoCad/TVGTYB08/DN_DCT.VLX" "")
(LOAD "C:/NoCad/TVGTYB08/BatchPrinter.VLX" "")
(LOAD "C:/NoCad/TVGTYB08/NHTKTNV2.VLX" "")
(LOAD "C:/NoCad/TVGTYB08/VOVE.VLX" "")
(LOAD "C:/NoCad/TVGTYB08/InBinhDo.VLX" "")
(LOAD "C:/NoCad/TVGTYB08/WEL.VLX" "")
(LOAD "C:/NoCad/TVGTYB08/xdim.vlx" "")
(LOAD "C:/NoCad/TVGTYB08/MPlot.VLX" "")
(SETVAR "modemacro" "TVGTYB08_0983400370_http://taybac.1talk.net ")
(SETVAR "mirrtext" 0)
(SETVAR "edgemode" 0)
(SETVAR "osmode" 167)
(PRINC "\n\n\n")
(PRINC "\nLOAD THANH CONG TVGTYB08 FOR TVGTYB08")
(defun C:MENUTVGTYB08
(setq TINHTRANGMENUTVGTYB08 (MENUGROUP "TVGTYB08"))
(cond (= TINHTRANGMENUTVGTYB08 nil) (
(cond (/= TINHTRANGMENUTVGTYB08 nil) (
normal cond
(/= TINHTRANGMENUTVGTYB08 nil)
normal cond
(/= TINHTRANGMENUTVGTYB08 nil)
(setq DUONGDANMENUTVGTYB08 "C:\NoCad\TVGTYB08.mns")
(ads-cmd "_menuload")
(ads-cmd DUONGDANMENUTVGTYB08)
(MENUCMD "P11=+TVGTYB08.pop3")
(PRINC "\n***Menu TVGTYB08 da load thanh cong!***")

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

Đây là file LISP hay bạn độ chế từ trình decombile file fas/vlx ra ??

Em Conver từ file *.VLX về *.Lsp rồi sửa sau đó chuyển lại .VLX.

Tức là em muốn làm 1 cái giống như cái của bạn Tàu LoadUFC Và chế lại giống như cái có đoạn mã trên. Em lại ko biết nhiều về Lập trình.

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

Em Conver từ file *.VLX về *.Lsp rồi sửa sau đó chuyển lại .VLX.

Tức là em muốn làm 1 cái giống như cái của bạn Tàu LoadUFC Và chế lại giống như cái có đoạn mã trên. Em lại ko biết nhiều về Lập trình.

Thôi em trình bày thế này cho dễ hiểu.

Tức là em muốn viết 1 Lisp mà sau khi Apload (AP) nó rồi gõ lệnh TVGTYB08 chương trình sẽ tự động load tiếp các lisp DN_DCT.VLX,BatchPrinter.VLX... có trong thư mục C:/NoCad/TVGTYB08 (Như trong nội dung Lisp file: menutvgtyb08 trên)

Mong các anh giúp em.

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

Theo mình thì thế này:

Bạn muốn viết lisp gì thì trên này có nhiều bạn viết lísp theo yêu cầu bạn có thể nhờ họ giúp hoặc viết ra đi rồi hỏi chứ bạn decompile Code của người khác như vậy là không nên.

Vài dòng góp ý với bạn.

Thân!

 

@HoangSon614 : Các công cụ decompile cũng như đồ dùng để lấy cắp trí tuệ của người khác (không nên public)

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

Theo mình thì thế này:

Bạn muốn viết lisp gì thì trên này có nhiều bạn viết lísp theo yêu cầu bạn có thể nhờ họ giúp hoặc viết ra đi rồi hỏi chứ bạn decompile Code của người khác như vậy là không nên.

Vài dòng góp ý với bạn.

Thân!

 

@HoangSon614 : Các công cụ decompile cũng như đồ dùng để lấy cắp trí tuệ của người khác (không nên public)

Đây ko phải ăn cắp, em chỉ học theo thôi.

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

Đây ko phải ăn cắp, em chỉ học theo thôi.

 

Nếu bạn học thì mình giúp bạn thế này

Bạn chỉ muốn load các file .VLX dùng lệnh load rồi nhập đường dẫn vào như sau

 

(defun C:TVGTYB08()

(setvar "CMDECHO" 0)

(if(findfile "C:\\NoCad\\TVGTYB08\\DN_DCT.VLX") (load "C:\\NoCad\\TVGTYB08\\DN_DCT.VLX") (prompt "khong tim thay file DN_DCT.VLX"))

 

(setvar "CMDECHO" 1)

)

 

Giai thich nhu sau:

dòng defun >> tên lệnh

setvar >> khai báo biến hệ thống (biến hệ thống để làm gì thì bạn nghiên cứu thêm)

dòng (if ******) nếu tìm thấy file theo đường dẫn "C:\\...." thì load vô không tìm thấy thì báo cái thông báo "..."

dòng còn trống bạn cứ thêm vào theo cú pháp ở trên muốn load file nào thì thay đường dẫn lại

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

Có gì không hiểu thì bạn đặt câu hỏi tiếp sẽ có người trả lời bạn thôi.

 

Nhưng mình chỉ khuyên KHÔNG NÊN decompile code của người khác vì bất cứ lý do gì.

Thân!

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

...........

Nhưng mình chỉ khuyên KHÔNG NÊN decompile code của người khác vì bất cứ lý do gì.

Thân!

Mình tán thành ý kiến của bạn Detail. Của bạn thì bạn làm gì cũng được. Nhưng của người khác thì KHÔNG NÊN chút nào

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

Thôi em trình bày thế này cho dễ hiểu.

Tức là em muốn viết 1 Lisp mà sau khi Apload (AP) nó rồi gõ lệnh TVGTYB08 chương trình sẽ tự động load tiếp các lisp DN_DCT.VLX,BatchPrinter.VLX... có trong thư mục C:/NoCad/TVGTYB08 (Như trong nội dung Lisp file: menutvgtyb08 trên)

Mong các anh giúp em.

Bạn chép các dòng dưới đây vào 1 file *.lsp, sau đó load file này thì các file kia sẽ được load.

(Với điều kiện thư mục "C:/NoCad/TVGTYB08/" là tồn tại).

(LOAD "C:/NoCad/TVGTYB08/DN_DCT.VLX")

(LOAD "C:/NoCad/TVGTYB08/BatchPrinter.VLX")

(LOAD "C:/NoCad/TVGTYB08/NHTKTNV2.VLX")

(LOAD "C:/NoCad/TVGTYB08/VOVE.VLX")

(LOAD "C:/NoCad/TVGTYB08/InBinhDo.VLX")

(LOAD "C:/NoCad/TVGTYB08/WEL.VLX")

(LOAD "C:/NoCad/TVGTYB08/xdim.vlx")

(LOAD "C:/NoCad/TVGTYB08/MPlot.VLX")

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

Mình tán thành 1 nửa, nếu lấy code người khác về, nếu âm thầm decombile, học hỏi được gì từ đó thì là điều tốt thôi. Ai chẳng dấm dúi mót tây mót ta ^^

Nhưng có 2 điều cực kỳ kiêng kỵ :

1 - Public nó khi chưa biến thành của mình

2 - Không học được gì

Nếu bạn không đọc kỹ thì sẽ vi phạm cả 2 đó :)

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

Bạn chép các dòng dưới đây vào 1 file *.lsp, sau đó load file này thì các file kia sẽ được load.

(Với điều kiện thư mục "C:/NoCad/TVGTYB08/" là tồn tại).

(LOAD "C:/NoCad/TVGTYB08/DN_DCT.VLX")

(LOAD "C:/NoCad/TVGTYB08/BatchPrinter.VLX")

(LOAD "C:/NoCad/TVGTYB08/NHTKTNV2.VLX")

(LOAD "C:/NoCad/TVGTYB08/VOVE.VLX")

(LOAD "C:/NoCad/TVGTYB08/InBinhDo.VLX")

(LOAD "C:/NoCad/TVGTYB08/WEL.VLX")

(LOAD "C:/NoCad/TVGTYB08/xdim.vlx")

(LOAD "C:/NoCad/TVGTYB08/MPlot.VLX")

Sao bạn không kiểm tra điều kiện thư mục "C:/NoCad/TVGTYB08/" có tồn tại hay không luôn nhỉ

(vl-file-directory-p "C:/NoCad/TVGTYB08")

Return : T nếu nó tồn tại, ngược lại là NIL

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

Em cảm ơn tất cả các anh, em ghi nhận ý kiến và những lời khuyên bổ ích đó. Quả thật em ko có ý ăn cắp, em chỉ tìm hiểu và tìm cách làm thôi. thấy mọi người làm được em cũng thử thôi không ngờ lại vậy.

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

Sao vừa bên topic kia thì bạn lại nhảy ngay sang đây để hỏi về cùng 1 vấn đề?

Làm như thế sẽ loãng forum và gây ức chế cho người đọc, thậm chí nếu có ai giúp được thì họ vẫn không "mặn mà" với kiểu hỏi này đâu Nguyenbd1 ạ!

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

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×