Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
30 replies to this topic

#1 thiennvpecc1

thiennvpecc1

    biết vẽ line

  • Members
  • PipPip
  • 25 Bài viết
Điểm đánh giá: -3 (bình thường)

Đã gửi 19 April 2008 - 02:47 PM

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

#2 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

  • Members
  • PipPipPipPip
  • 224 Bài viết
Điểm đánh giá: 38 (tàm tạm)

Đã gửi 19 April 2008 - 05:44 PM

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
  • 2

#3 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 19 April 2008 - 06:16 PM

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 ?
  • 0

#4 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

  • Members
  • PipPipPipPip
  • 224 Bài viết
Điểm đánh giá: 38 (tàm tạm)

Đã gửi 19 April 2008 - 06:48 PM

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

#5 tnmtpc

tnmtpc

    biết dimcontinue

  • Members
  • PipPipPipPipPip
  • 370 Bài viết
Điểm đánh giá: 206 (khá)

Đã gửi 19 April 2008 - 07:08 PM

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:
  • 1

#6 thiennvpecc1

thiennvpecc1

    biết vẽ line

  • Members
  • PipPip
  • 25 Bài viết
Điểm đánh giá: -3 (bình thường)

Đã gửi 21 April 2008 - 09:39 AM

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.
  • 0

#7 HoangSon614

HoangSon614

    biết lệnh properties

  • Members
  • PipPipPipPip
  • 254 Bài viết
Điểm đánh giá: 66 (tàm tạm)

Đã gửi 21 May 2009 - 08:10 PM

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

Đây bạn. Down về sử dụng: http://www.cadviet.c...i_sang_Lisp.exe
  • 1
-~-~-~-~-~-~-~-~-~-~-~-~-~-~
Hôm qua là sự học hỏi nhận được sau 1 ngày
Ngày mai là sự bí ẩn mà chúng ta sẽ khám phá


------------------------------------------
http://www.tailieukythuat.com

#8 tvgtyb08

tvgtyb08

    biết vẽ spline

  • Members
  • PipPip
  • 92 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 19 September 2010 - 07:10 PM

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.
  • 0

#9 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 696 (tốt)

Đã gửi 19 September 2010 - 07:29 PM

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.
  • 0
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#10 tvgtyb08

tvgtyb08

    biết vẽ spline

  • Members
  • PipPip
  • 92 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 24 March 2011 - 10:08 AM

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

  • 0

#11 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 24 March 2011 - 10:18 AM

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

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#12 tvgtyb08

tvgtyb08

    biết vẽ spline

  • Members
  • PipPip
  • 92 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 24 March 2011 - 11:01 AM

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

#13 tvgtyb08

tvgtyb08

    biết vẽ spline

  • Members
  • PipPip
  • 92 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 24 March 2011 - 11:25 AM

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.
  • 0

#14 Detailing

Detailing

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 667 Bài viết
Điểm đánh giá: 278 (khá)

Đã gửi 24 March 2011 - 12:11 PM

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)
  • 0

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#15 tvgtyb08

tvgtyb08

    biết vẽ spline

  • Members
  • PipPip
  • 92 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 24 March 2011 - 12:56 PM

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.
  • 0

#16 Detailing

Detailing

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 667 Bài viết
Điểm đánh giá: 278 (khá)

Đã gửi 24 March 2011 - 01:31 PM

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

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#17 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 24 March 2011 - 01:46 PM

...........
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
  • 0

#18 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 24 March 2011 - 01:47 PM

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

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#19 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 24 March 2011 - 02:09 PM

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

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#20 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3805 (đỉnh cao)

Đã gửi 24 March 2011 - 02:29 PM

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
  • 0