Đến nội dung


Hình ảnh
* * - - - 1 Bình chọn

Lisp bị mã hoá


  • Please log in to reply
19 replies to this topic

#1 quanghuy181

quanghuy181

    biết vẽ arc

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

Đã gửi 05 January 2009 - 10:13 PM

Mình có đoạn Lisp sau nhưng mà lại bị mã hoá không đọc được mình muốn bỏ mã hoá nó thì làm như thế nào. Bạn nào biết chỉ dùm mình nha Đây là linh của nó PDOITYLE Và cả file này nữa nhé PMIADC
  • 0

#2 quanghuy181

quanghuy181

    biết vẽ arc

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

Đã gửi 24 April 2009 - 10:45 PM

Mình có đoạn Lisp sau nhưng mà lại bị mã hoá không đọc được mình muốn bỏ mã hoá nó thì làm như thế nào. Bạn nào biết chỉ dùm mình nha Đây là linh của nó PDOITYLE Và cả file này nữa nhé PMIADC



có bác nào biết chhỉ giùm em cái.......... cám ơn nhiều
  • 0

#3 duongsatdn

duongsatdn

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 1657 Bài viết
Điểm đánh giá: 761 (tốt)

Đã gửi 25 April 2009 - 10:18 AM

có bác nào biết chhỉ giùm em cái.......... cám ơn nhiều

Bạn đã load cái lisp này chưa? Nó có tác dụng gì?
  • 0

#4 minh2453

minh2453

    biết lệnh scale

  • Members
  • PipPipPip
  • 146 Bài viết
Điểm đánh giá: 42 (tàm tạm)

Đã gửi 25 April 2009 - 11:08 PM

http://www.cadviet.c...es/View_vlx.zip
Giải mã file bị mã hóa
  • 0
Đừng giấu những gì bạn biết và những thứ bạn không biết

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 03 November 2014 - 03:47 PM

File của bạn không down được!


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


#6 trinhngoctri

trinhngoctri

    biết vẽ pline

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

Đã gửi 05 November 2014 - 10:10 AM

mình gửi lại. DOAN VAN HA 

xem dùm mình tý http://www.cadviet.c...ng_doc_duoc.rar


  • 0

#7 trinhngoctri

trinhngoctri

    biết vẽ pline

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

Đã gửi 05 November 2014 - 10:13 AM

File của bạn không down được!

http://www.cadviet.c..._doc_duoc_1.rar

không biết có được không, mình rất lúa khi sử dụng  http://www.cadviet.com cho lăm.


  • 0

#8 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 November 2014 - 10:41 AM

Lisp viết đơn sơ bằng các hàm command, chạy chắc ì ạch lắm, nhưng công sức người ta bỏ ra hẳn là không ít đâu bạn :) Nếu bạn là người viết 937 dòng code như này bạn có muốn khóa không ? 
Bạn muốn làm gì với nó ??
 

 
;;;  AUTO-CDc.LSP Version for AutoCAD 2000 
;;;   Chuong trinh ve cat doc tuyen ong nuoc tu dong
;;;   Copyright © 2005 by Huynh Van Phuc. 
;;;--------------------------------------------------------------------
.....
.....

(ALERT "Chuong trinh da hoan tat, ban nhan OK va kiem tra lai cat doc.
                Neu co gi thac mac xin lien he Huynh Van Phuc (KS9)"))


  • 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


#9 trinhngoctri

trinhngoctri

    biết vẽ pline

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

Đã gửi 05 November 2014 - 11:07 AM

Lisp viết đơn sơ bằng các hàm command, chạy chắc ì ạch lắm, nhưng công sức người ta bỏ ra hẳn là không ít đâu bạn :) Nếu bạn là người viết 450 dòng code như này bạn có muốn khóa không ? 
Bạn muốn làm gì với nó ??
 

 
;;;  AUTO-CDc.LSP Version for AutoCAD 2000 
;;;   Chuong trinh ve cat doc tuyen ong nuoc tu dong
;;;   Copyright © 2005 by Huynh Van Phuc. 
;;;--------------------------------------------------------------------
.....
.....

(ALERT "Chuong trinh da hoan tat, ban nhan OK va kiem tra lai cat doc.
                Neu co gi thac mac xin lien he Huynh Van Phuc (KS9)"))

mình cần thêm độ chính xác. 

1. khoảng cách từng cọc: mình cần lấy 2 số lẻ. ví dụ trong lisp khoảng cách nó chỉ hiểu 20.9m, mình cần nó hiểu  20.91m

2. mình cần APPLOAD trên bản vẽ mới. lisp chỉ hiểu khi ta APPLOAD bản vẽ cũ.

       ---cảm ơn Ketxu.


  • 1

#10 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 05 November 2014 - 11:32 AM

1. Mình giúp bạn được, nếu bạn cần mình sẽ sửa :) Dùng 1 biến thiết đặt số số lẻ ngay từ đầu nhé ? Hay là cho hết bằng 3 ?

2. Mình không giúp được, vì trong lisp này dùng quá nhiều các style, block, drawing, layer có sẵn, thậm chí đường dẫn cũng là đường dẫn cứng luôn, mình k muốn can thiệp


  • 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


#11 trinhngoctri

trinhngoctri

    biết vẽ pline

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

Đã gửi 05 November 2014 - 12:06 PM

1. Mình giúp bạn được, nếu bạn cần mình sẽ sửa :) Dùng 1 biến thiết đặt số số lẻ ngay từ đầu nhé ? Hay là cho hết bằng 3 ?

2. Mình không giúp được, vì trong lisp này dùng quá nhiều các style, block, drawing, layer có sẵn, thậm chí đường dẫn cũng là đường dẫn cứng luôn, mình k muốn can thiệp

được thế thì tốt quá!

 mình cần 2 số lẻ thôi.

niếu được bạn sửa dùm 4 cái lisp luôn nhé


  • 1

#12 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 November 2014 - 10:58 AM

Đã sửa cho bạn. Vì k thể test nên bạn tự check nhé :)

 http://www.cadviet.c...4/24067_new.rar


  • 1

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


#13 trinhngoctri

trinhngoctri

    biết vẽ pline

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

Đã gửi 06 November 2014 - 11:16 AM

Đã sửa cho bạn. Vì k thể test nên bạn tự check nhé :)

có thấy gì đâu bạn, mấy cái lisp bạn sửa ấy down chổ nào ?


  • 0

#14 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 06 November 2014 - 12:35 PM

Lỗi mạng, mình đã up lại


  • 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


#15 trinhngoctri

trinhngoctri

    biết vẽ pline

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

Đã gửi 06 November 2014 - 03:57 PM

Lỗi mạng, mình đã up lại

Y như ý luôn, cảm ơn nhé.

cho mình hỏi thêm (không phải cái lisp này mà cái khác)

 khi mình chuyển tex từ cad sang excel nó bị lỗi phong

ví dụ: họ và tên   Cao Thị Là Uýnh (cad 2009) ----->Cao Th\U+1ECB Là Uưnh (excel 2003)

lisp sử dụng (lấy trên www.cadviet.com)

http://www.cadviet.c...4/64998_e2x.rar


  • 0

#16 nhoclangbat

nhoclangbat

    Edu level: li10

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

Đã gửi 06 November 2014 - 04:18 PM

- Bạn chuyển font trong excel giống với font trong autocad bạn đánh là đc ^^


  • 0
"...................][)e\/i][_ /\/\@Y CrY....................."

(defun THỔ_DÂN_HỌC_CAD (xxxx) ...) ^_^








#17 trinhngoctri

trinhngoctri

    biết vẽ pline

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

Đã gửi 06 November 2014 - 04:29 PM

Không dễ như vậy đâu bạn nhoclangbat. nó bị thứ j đó mà mình không hiểu được


  • 0

#18 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 06 November 2014 - 04:33 PM

Không dễ như vậy đâu bạn nhoclangbat. nó bị thứ j đó mà mình không hiểu được

1). Đây là topic mã hóa lisp mà bạn lại hỏi chủ đề khác?

2). Thứ gì đó không hiểu được thì tạm hiểu thế này:

Acad hỗ trợ Unicode rất kém >> muốn chuyển qua lại hiện giờ là chưa thể. Bạn muốn chuyển qua lại ngon lành thì dùng TCVN3 vậy.


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

langtumaulanh

    biết vẽ ellipse

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

Đã gửi 06 August 2016 - 05:01 PM

 

Lisp viết đơn sơ bằng các hàm command, chạy chắc ì ạch lắm, nhưng công sức người ta bỏ ra hẳn là không ít đâu bạn :) Nếu bạn là người viết 937 dòng code như này bạn có muốn khóa không ? 
Bạn muốn làm gì với nó ??
 

 
;;;  AUTO-CDc.LSP Version for AutoCAD 2000 
;;;   Chuong trinh ve cat doc tuyen ong nuoc tu dong
;;;   Copyright (C) 2005 by Huynh Van Phuc. 
;;;--------------------------------------------------------------------
.....
.....

(ALERT "Chuong trinh da hoan tat, ban nhan OK va kiem tra lai cat doc.
                Neu co gi thac mac xin lien he Huynh Van Phuc (KS9)"))

Bác Hà có thể giúp em giải mã đoạn code này không ạ!

 
 FAS4-FILE ; Do not change it!
346
31 $     Q  
5 5 5 5 25 5 2<5 5 225 5
  225 5
 
  225 5
  Q  
Q  
Q  
Q  
Q  
Q  
Q  
Q  
Q  
 Q  
Q  
Q  
Q  
Q  
Q  
2!5
5 $
367 7 $æý®h
7w>GB5}*ZNJ&¦—šaÁZVF CF
_D
^c1ÛòˆfÎz2d`_m6*p7Q`vlb¡‘4®
7]
 G''2c1™¢®]áWZ^@eF@G
D1|¶¹¯$X
7fv49 |c
^c1ÇòÑ`Êl.VQuCA0P6u›òüA®X
\SVEUXL_bc–½¯¯A[
1:I'CA5AB1eÂÙüNžLAuKv PCI
SS1³®ÿ%ZJ@e
H[ @CR
b;’†Í.ùK;a(S4ivju/xto
9aóòüO÷%Z
^hlNr" >1±ü°PQ1oI.U7
!7Âóü»Z
8XNC$
hfÂòü¦Z1TrB b'ù÷ãLX
;fas4 crunch
;$;A7/11/15

  • 0

#20 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 06 August 2016 - 05:22 PM

 

Bác Hà có thể giúp em giải mã đoạn code này không ạ!

 
...

 

Tôi không biết. Và nếu biết cũng không chỉ. Bởi chỉ sẽ bị người mã hóa chửi.


  • 1

* 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.