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

[thiennvpecc1 3]

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

[Ar_Chanwoo 39]

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

[tnmtpc 207]

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 ?

[Ar_Chanwoo 39]

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ó !

[tnmtpc 207]

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:

[thiennvpecc1 3]

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

Cam on ban nhieu.

[HoangSon614 66]

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

Đây bạn. Down về sử dụng: http://www.cadviet.com/upfiles/Phan_mem_do...i_sang_Lisp.exe

[tvgtyb08 10]

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.

[phamngoctukts 714]

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.

[tvgtyb08 10]

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!***")

[ketxu 2984]

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

[tvgtyb08 10]

Đâ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.

[tvgtyb08 10]

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.

[Detailing 281]

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)

[tvgtyb08 10]

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.

[Detailing 281]

Đâ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!

[Tue_NV 3912]

...........

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

[Doan Van Ha 3202]

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")

[ketxu 2984]

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 đó :)

[Tue_NV 3912]

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

[tvgtyb08 10]

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.

[nguyenbd1 13]

anh em cad việt ơi. ai dich đươc file vxl nay sang lisp tơ với

http://www.mediafire.com/download/2hiwr6mmbv74v2q/yanxiu.vlx

[nguyenbd1 13]

_{anh em diễn đàn cad việt mình ơi.... có cao thủ nào cao tay dịch dùm em thằnng vlx này sang lisp được không. tớ rất cần cái này... tớ cảm ơn cả nhà trước}

_{http://www.mediafire...4v2q/yanxiu.vlx}

[Doan Van Ha 3202]

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 ạ!

[nguyenbd1 13]

vâng. em se rut kinh nghiệm