TẠO MỘT MENU THƯ VIỆN

[ktsnvn 3]

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

bạn xem cái này giúp tôi nhé. Giải nén ra được 1 thư mục, chép thư mục này vào ổ C.

load file lisp lên gỏ lệnh TVDD

Bạn dùng và cho ý kiến nhé (về phần sử dụng thôi chứ code thì tôi biết là quá dài và rối)

Chú ý bạn phải có *.sld rồi (phần tạo *.sld đang viết chưa ưng cái bụng lắm)

 

'duy782006' bạn ơi bạn có sử dụng của ông này k vậy? hay là ổng ăn cắp của bạn vậy

bạn vào đây xem thử:http://www.ketcau.vn/index.php?action=view_one_soft&soft_id=66

hay là ổng cũng là bạn???????????

[duy782006 1.543]

'duy782006' bạn ơi bạn có sử dụng của ông này k vậy? hay là ổng ăn cắp của bạn vậy

bạn vào đây xem thử:http://www.ketcau.vn/index.php?action=view_one_soft&soft_id=66

hay là ổng cũng là bạn???????????

 

-Mình không phải là ai khác bên ketcau.com cả vì mình là dân kiến trúc.

-Mình cũng không sử dụng của ông nào cả vì khi bạn MANHHUNG nêu vần đề mình mới bắt đầu viết.

-Ổng cũng không sử dụng của mình đâu vì vừa viết xong là mình cho lên CADVIET liền mà.

Có thể hai cái giống nhau về cách dùng nhưng tôi nghỉ không ai có cách viết code giống tôi đâu vì làm gì có 2 người khác nhau lại suy nghĩ y chang nhau vậy được.

Vấnđề này tôi sẽ kiểm tra lại.

 

 

 

*******

Tôi đã vào thử đường link của bạn. Thì ra bạn nói NGUYENLAM.

Tôi thấy giửa cái của tôi và NGUYENLAM có gì giống nhau đâu.

Nếu bạn đã dùng cả 2 cái thì chắc chắn thấy cách hoạt động là không giống nhau.

Và nếu bạn đọc được code của NGUYENLAM thì cũng thấy là khác hoắc.

Trong tienich của tôi chỉ có dùng 1 số lisp trên diển đàn này thôi. Nếu bạn đọc phần lisp thì những lisp này không ghi tên tôi, tôi chỉ viết thêm phần hộp thoại tổng hợp cho từng loại tiện ích thôi.

[ktsnvn 3]

-Mình không phải là ai khác bên ketcau.com cả vì mình là dân kiến trúc.

-Mình cũng không sử dụng của ông nào cả vì khi bạn MANHHUNG nêu vần đề mình mới bắt đầu viết.

-Ổng cũng không sử dụng của mình đâu vì vừa viết xong là mình cho lên CADVIET liền mà.

Có thể hai cái giống nhau về cách dùng nhưng tôi nghỉ không ai có cách viết code giống tôi đâu vì làm gì có 2 người khác nhau lại suy nghĩ y chang nhau vậy được.

Vấnđề này tôi sẽ kiểm tra lại.

 

 

 

*******

Tôi đã vào thử đường link của bạn. Thì ra bạn nói NGUYENLAM.

Tôi thấy giửa cái của tôi và NGUYENLAM có gì giống nhau đâu.

Nếu bạn đã dùng cả 2 cái thì chắc chắn thấy cách hoạt động là không giống nhau.

Và nếu bạn đọc được code của NGUYENLAM thì cũng thấy là khác hoắc.

Trong tienich của tôi chỉ có dùng 1 số lisp trên diển đàn này thôi. Nếu bạn đọc phần lisp thì những lisp này không ghi tên tôi, tôi chỉ viết thêm phần hộp thoại tổng hợp cho từng loại tiện ích thôi.

 

Bạn vào xem thử và tải về cài đặt xem thử vì file nặng quá mình upload lên k được(chương trình của ông NGUYENLAM) đấy bạn. vì chương trình có bản quyền chỉ cho dùng 15 ngày và mình cài bị lỗi nên có 1 số hình ảnh cài vào như sau bạn xem thử nhé!! chương trình của ông NGUYENLAM cũng chẳng có gì hay hơn bạn đâu mà ổng đòi bản quyền đấy

nếu bạn làm tốt phần 'TKT' và 'TKĐ'(thống kê điện nước) là tốt vì mình là dân Kiến nên mình thường làm luôn phần Điện, Nước -phân thống kê 'TKĐ' mình rất là là làm biếng.

-phần 'TKT' của bạn y như của NGUYENLAM vì phần này có bản quyền nên mình k chụp được hình ảnh để bạn xem(nó giống như bạn chả khác gì???và phần nước của ổng cũng vậy cài vào k làm được

-Mình có ý này nhé! Bạn làm thêm phần 'TKĐ' nữa là rất ok chảng hạn như: tên mặt bằng vẽ đường ống dẫn nước(điện) và thiết bị (bạn tạo một lệnh vẽ và bố trí thiết bị)sau đó bạn thống kê vật liêu trên bản vẽ ấy là ok?còn phần TKT như thế là ok rùi tuy còn thiếu và chưa chính xác khi làm tròn số vì bạn là KTS mà

-Tất cả các phần còn lại thì như thế là đủ vì một số cũng chẳng cần

Nói tóm lại bạn làm 2 phần: 'TKT' và 'TKĐ' cho tốt là ok mình rất cần phần 'TKĐ'(mình chẳng biết gì về lisp hay lập trình gì cả mình chỉ biết vẽ theo kiểu thủ công thui nên làm việc chậm lắm đôi lúc thấy chán nữa) khi nào bạn có gì mới cho mình sài ké nhé đừng như ông NGUYENLAM đòi bản quyền....dân mình còn nghèo lắm làm 12 năm nhưng chẳng mua nổi cái laptop nữa....hehehuhu

Visit My Website

http://www.cadviet.com/upfiles/GOI_CADVIET01.jpg

[duy782006 1.543]

Bạn vào xem thử và tải về cài đặt xem thử vì file nặng quá mình upload lên k được(chương trình của ông NGUYENLAM) đấy bạn. vì chương trình có bản quyền chỉ cho dùng 15 ngày và mình cài bị lỗi nên có 1 số hình ảnh cài vào như sau bạn xem thử nhé!! chương trình của ông NGUYENLAM cũng chẳng có gì hay hơn bạn đâu mà ổng đòi bản quyền đấy

nếu bạn làm tốt phần 'TKT' và 'TKĐ'(thống kê điện nước) là tốt vì mình là dân Kiến nên mình thường làm luôn phần Điện, Nước -phân thống kê 'TKĐ' mình rất là là làm biếng.

-phần 'TKT' của bạn y như của NGUYENLAM vì phần này có bản quyền nên mình k chụp được hình ảnh để bạn xem(nó giống như bạn chả khác gì???và phần nước của ổng cũng vậy cài vào k làm được

-Mình có ý này nhé! Bạn làm thêm phần 'TKĐ' nữa là rất ok chảng hạn như: tên mặt bằng vẽ đường ống dẫn nước(điện) và thiết bị (bạn tạo một lệnh vẽ và bố trí thiết bị)sau đó bạn thống kê vật liêu trên bản vẽ ấy là ok?còn phần TKT như thế là ok rùi tuy còn thiếu và chưa chính xác khi làm tròn số vì bạn là KTS mà

-Tất cả các phần còn lại thì như thế là đủ vì một số cũng chẳng cần

Nói tóm lại bạn làm 2 phần: 'TKT' và 'TKĐ' cho tốt là ok mình rất cần phần 'TKĐ'(mình chẳng biết gì về lisp hay lập trình gì cả mình chỉ biết vẽ theo kiểu thủ công thui nên làm việc chậm lắm đôi lúc thấy chán nữa) khi nào bạn có gì mới cho mình sài ké nhé đừng như ông NGUYENLAM đòi bản quyền....dân mình còn nghèo lắm làm 12 năm nhưng chẳng mua nổi cái laptop nữa....hehehuhu

Visit My Website

http://www.cadviet.com/upfiles/GOI_CADVIET01.jpg

 

Chắc bạn không theo dõi bên ketcau.com đó thôi. Ở đó NGUYENLAM có cung cấp mã đăng ký đó bạn, bạn chịu khó đọc tất cả các bài của NGUYENLAM có 1 thời điểm nào đó bác ấy dui dui nên cho tuốt tuột.

Về phần của NGUYENLAM bạn nói không hơn gì của mình là không đúng đâu phải công nhận là ngon hơn rất nhiều (trình độ chắc ngang ngửa bác ABAOU... của bên mình), chẳng qua bạn cùng ngành với mình nên thấy mấy cái của mình phù hợp với nhu cầu của bạn hơn vậy thôi.

Phần điện mình nghĩ dùng lisp đếm block của bác NGUYENHOANH là được mà có cần dùng cái khác không, với lại thông thường để làm công tác thống kê cho tốt thấy mọi người hay dùng block thuộc tính mà mình rất ghét thằng này nên chưa nghiên cứu.

Cái đăng ký của mình là làm chơi cho vui (ý muốn khi người ta dùng cũng biết là do ai làm ra) đó thôi vì sửa và bỏ đi dể òm mà, chẳng qua cũng làm cho biết vậy thôi không có ý thương mại hóa.

Cám ơn bạn đã quan tâm những ý của bạn mình sẽ nghiêm túc nghiên cứu !!!

 

 

******************

MANHHUNG sao không thấy hồi âm gì về thư viện đường dẩn nhỉ không đáp ứng được yêu cầu của bạn à.

[ktsnvn 3]

Chắc bạn không theo dõi bên ketcau.com đó thôi. Ở đó NGUYENLAM có cung cấp mã đăng ký đó bạn, bạn chịu khó đọc tất cả các bài của NGUYENLAM có 1 thời điểm nào đó bác ấy dui dui nên cho tuốt tuột.

Về phần của NGUYENLAM bạn nói không hơn gì của mình là không đúng đâu phải công nhận là ngon hơn rất nhiều (trình độ chắc ngang ngửa bác ABAOU... của bên mình), chẳng qua bạn cùng ngành với mình nên thấy mấy cái của mình phù hợp với nhu cầu của bạn hơn vậy thôi.

Phần điện mình nghĩ dùng lisp đếm block của bác NGUYENHOANH là được mà có cần dùng cái khác không, với lại thông thường để làm công tác thống kê cho tốt thấy mọi người hay dùng block thuộc tính mà mình rất ghét thằng này nên chưa nghiên cứu.

Cái đăng ký của mình là làm chơi cho vui (ý muốn khi người ta dùng cũng biết là do ai làm ra) đó thôi vì sửa và bỏ đi dể òm mà, chẳng qua cũng làm cho biết vậy thôi không có ý thương mại hóa.

Cám ơn bạn đã quan tâm những ý của bạn mình sẽ nghiêm túc nghiên cứu !!!

 

 

******************

MANHHUNG sao không thấy hồi âm gì về thư viện đường dẩn nhỉ không đáp ứng được yêu cầu của bạn à.

 

bạn xem cái này NGUYENLAM dùng của bạn đó 'bieu tượng "duy"

 

cái ảnh thứ nhất đấy bạn biểu tượng DUY

[duy782006 1.543]

bạn xem cái này NGUYENLAM dùng của bạn đó 'bieu tượng "duy"

 

cái ảnh thứ nhất đấy bạn biểu tượng DUY

 

Cái bạn đưa lên đúng là của mình.

Mình đoán thế này:

Bạn cài 2 cái cùng 1 lúc cả hai điều dùng TV cho thư viện mà cái của mình load sau nên TV của mình chiến thắng từ đó cứ gọi thư viện là nó lên cái của mình.

Cái của NGUYENLAM mình có tham quan rồi hoảnh tráng lắm bạn Ông này viết từ lâu rồi và liên tục phát triển. (Thư viện bên đó hoàn toàn không giống mình đâu)

Khi chưa biết cadviet mình có hoi NGUYENLAM đoạn mã để tạo đường dẩn đó. Bác có trả lới nhưng mà trả lời trớt wớt thôi.

Tôi thấy CADVIET là chịu khó trả lời câu hởi thành viên nhứt đó bạn.

Nghe nói bạn làm 12 năm rồi chắc mình nhỏ hơn rồi có gì bỏ qua nhé !!!!!!!!!!!!!!

[ktsnvn 3]

Cái bạn đưa lên đúng là của mình.

Mình đoán thế này:

Bạn cài 2 cái cùng 1 lúc cả hai điều dùng TV cho thư viện mà cái của mình load sau nên TV của mình chiến thắng từ đó cứ gọi thư viện là nó lên cái của mình.

Cái của NGUYENLAM mình có tham quan rồi hoảnh tráng lắm bạn Ông này viết từ lâu rồi và liên tục phát triển. (Thư viện bên đó hoàn toàn không giống mình đâu)

Khi chưa biết cadviet mình có hoi NGUYENLAM đoạn mã để tạo đường dẩn đó. Bác có trả lới nhưng mà trả lời trớt wớt thôi.

Tôi thấy CADVIET là chịu khó trả lời câu hởi thành viên nhứt đó bạn.

Nghe nói bạn làm 12 năm rồi chắc mình nhỏ hơn rồi có gì bỏ qua nhé !!!!!!!!!!!!!!

không sao đâu vì là dân kiến già rồi nên những phần lisp hay lập trình gì đó mình chẳng biết gì. Tôi chỉ mới tham gia vào diễn đàn ketcau.vn mà thôi cadviet thì được 4 tháng rồi nên cũng chả biết nhiều. Tôi thấy trên diễn đàn cũng khá thú vị và có nhiều điều đáng học hỏi

Dù sao cũng cảm ơn bạn! có gì hay post lên nhé....

[duy782006 1.543]

không sao đâu vì là dân kiến già rồi nên những phần lisp hay lập trình gì đó mình chẳng biết gì. Tôi chỉ mới tham gia vào diễn đàn ketcau.vn mà thôi cadviet thì được 4 tháng rồi nên cũng chả biết nhiều. Tôi thấy trên diễn đàn cũng khá thú vị và có nhiều điều đáng học hỏi

Dù sao cũng cảm ơn bạn! có gì hay post lên nhé....

 

Trong tiện ích mình có 2 lệnh ẩn trong đó. Bác al2 dân kiến trúc thì dủng thử xem.

Gỏ lệnh DUY nhập mã 00 (hai số không) lúc này 2 lệnh đã được gọi lên.

- KHOA : dùng khóa bản vẽ không cho chỉnh sửa và in. (bác cần sao lưu file trước nhé, chạy hơi lâu)

- VKT : Vẽ các mô đun trong binh kiến trúc.

[Ar_Chanwoo 39]

Trong tiện ích mình có 2 lệnh ẩn trong đó. Bác al2 dân kiến trúc thì dủng thử xem.

Gỏ lệnh DUY nhập mã 00 (hai số không) lúc này 2 lệnh đã được gọi lên.

- KHOA : dùng khóa bản vẽ không cho chỉnh sửa và in. (bác cần sao lưu file trước nhé, chạy hơi lâu)

- VKT : Vẽ các mô đun trong binh kiến trúc.

Anh Duy cho em hỏi tý ! Em có 1 file lisp. trong file đó có rất nhiều lệnh. Giờ e muốn nhờ a viết cho e 1 lisp có lệnh là jì cũng đc! Sau khi gõ lệnh ! Lisp sẽ load cái file lisp có nhiều lệnh kia !

[duy782006 1.543]

Anh Duy cho em hỏi tý ! Em có 1 file lisp. trong file đó có rất nhiều lệnh. Giờ e muốn nhờ a viết cho e 1 lisp có lệnh là jì cũng đc! Sau khi gõ lệnh ! Lisp sẽ load cái file lisp có nhiều lệnh kia !

 

(Defun C:goi ( )

(load"C:/tienich/lenh/bien")

(Princ)

)

 

Bạn chép cái này và lưu thành file goi.lsp rồi load file này lên gỏ lệnh goi thì nó sẽ load file bien.lsp trong đường dẩn C:/tienich/lenh/

Còn bạn muốn lệnh goi được load tự động khi khởi động cad thì chép dòng trên vào file acaddoc.lsp.

[Ar_Chanwoo 39]

(Defun C:goi ( )

(load"C:/tienich/lenh/bien")

(Princ)

)

 

Bạn chép cái này và lưu thành file goi.lsp rồi load file này lên gỏ lệnh goi thì nó sẽ load file bien.lsp trong đường dẩn C:/tienich/lenh/

Còn bạn muốn lệnh goi được load tự động khi khởi động cad thì chép dòng trên vào file acaddoc.lsp.

cám ơn anh ! Cho em hỏi tiếp a nhé ! Trong bộ Tiên ích mà anh copy lên diễn đàn ấy ! Có lệnh về khoá và mở khoá các lênh cơ bản để người khác không thể sửa bản vẽ của mình ! Nhưng lại bị lỗi ở chỗ : Khi dặt pass rồi, nếu người khác muốn mở thì rất đơn giản ! đặt lại pass , pass mói sẽ đè lên pas cũ và chỉ cần nhập pass mới là mở đc ! Anh có thể sửa lại là khi người khác muốn đặt pass đè lên pass của mình thì sẽ hiên lên hộp thoại thông báo là "đã có pass rồi ! bạn không thể dặt thêm pass!"

Còn 1 lỗi nũă ! Khi mở hộp thoại đặt pass cho lệnh lên thì nếu ta không nhập gì cho pass thì máy vẫn tự hiểu là mình đã đặt pass!

Mặc dù pass chẳng có gì cả !

Mong anh giúp đỡ!

[Ar_Chanwoo 39]

cám ơn anh ! Cho em hỏi tiếp a nhé ! Trong bộ Tiên ích mà anh copy lên diễn đàn ấy ! Có lệnh về khoá và mở khoá các lênh cơ bản để người khác không thể sửa bản vẽ của mình ! Nhưng lại bị lỗi ở chỗ : Khi dặt pass rồi, nếu người khác muốn mở thì rất đơn giản ! đặt lại pass , pass mói sẽ đè lên pas cũ và chỉ cần nhập pass mới là mở đc ! Anh có thể sửa lại là khi người khác muốn đặt pass đè lên pass của mình thì sẽ hiên lên hộp thoại thông báo là "đã có pass rồi ! bạn không thể dặt thêm pass!"

Còn 1 lỗi nũă ! Khi mở hộp thoại đặt pass cho lệnh lên thì nếu ta không nhập gì cho pass thì máy vẫn tự hiểu là mình đã đặt pass!

Mặc dù pass chẳng có gì cả !

Mong anh giúp đỡ!

À còn 1 lỗi nữa ! Sau khi dùng lệnh khoá pass và mở khoá rồi thì bị lỗi khi tắt, save, open không hiển thỉ ra đúng hộp thoại của nó !

E post mấy file đó lên mọin người cùng giúp đỡ!

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

[duy782006 1.543]

À còn 1 lỗi nữa ! Sau khi dùng lệnh khoá pass và mở khoá rồi thì bị lỗi khi tắt, save, open không hiển thỉ ra đúng hộp thoại của nó !

E post mấy file đó lên mọin người cùng giúp đỡ!

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

 

-Ừ đó là lỗi của lisp không khắc phục dược đâu bạn. Vì lúc này các lệnh trên là 1 lệnh lisp chứ không phải lệnh nguyên bản của cad nửa.

-Còn cái bạn nói đặt pass thì mấy ai biết cái lệnh đó mà. còn sửa thì để hôm nào mình xem thử vì bị hạn chế như ý trên bạn nói nên lâu nay không dùng nửa.

[duy782006 1.543]

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

Mới làm xong thư viện đường dẩn. Up lên bà co dùng thử. Giải nén, copy hai thư mục này đè vào trong thư mục tienich.

CHUPM dùng chụp ảnh các file dwg trong thư mục (dùng 2 lần cho 1 thư mục).

TVDD dùng gọi thư viện trong thư mục sau khi chụp ảnh.

[Ar_Chanwoo 39]

-Ừ đó là lỗi của lisp không khắc phục dược đâu bạn. Vì lúc này các lệnh trên là 1 lệnh lisp chứ không phải lệnh nguyên bản của cad nửa.

-Còn cái bạn nói đặt pass thì mấy ai biết cái lệnh đó mà. còn sửa thì để hôm nào mình xem thử vì bị hạn chế như ý trên bạn nói nên lâu nay không dùng nửa.

Anh cố gắng giúp e cái đặt pass nhá ! Còn cái kia thì bỏ đi mấy cái lệnh save. open đi cũng đc ! Chỉ cần không copy, hay sưa bản vẽ của mình là đc!

[duy782006 1.543]

Anh cố gắng giúp e cái đặt pass nhá ! Còn cái kia thì bỏ đi mấy cái lệnh save. open đi cũng đc ! Chỉ cần không copy, hay sưa bản vẽ của mình là đc!

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

Lệnh như cũ. Bạn xem thử. (nhưng cái này chỉ để chơi thôi chứ cứ gỏ lệnh thêm dấu chấm phía trước là được tuốt ấy mà)

[Ar_Chanwoo 39]

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

Lệnh như cũ. Bạn xem thử. (nhưng cái này chỉ để chơi thôi chứ cứ gỏ lệnh thêm dấu chấm phía trước là được tuốt ấy mà)

Có phải ai cũng biết cái điều này đau anh ! Thanks

[Ar_Chanwoo 39]

Có phải ai cũng biết cái điều này đau anh ! Thanks

Vẫn còn lỗi anh àh. đó là lỗi khi mình không nhập gì cho pass và nhấn khoá lệnh thì vẫn đc ! Tức là pass để trống vẫn đc !

[duy782006 1.543]

Vẫn còn lỗi anh àh. đó là lỗi khi mình không nhập gì cho pass và nhấn khoá lệnh thì vẫn đc ! Tức là pass để trống vẫn đc !

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:molenhdi (/ maso)
(setq DRMS (open "molenh.txt" "r"))
(setq MSkl (read-line DRMS))
(close DRMS)
(setq dcl_id (load_dialog "khoamolenh.dcl"))

(if (new_dialog "khoamolenh" dcl_id)

 (progn
 (action_tile "password" "(setq pass $value)") ;(if (= 1 $reason)(mode_tile \"accept\"2))")
(start_image "img_1")
(slide_image 0 0 (dimx_tile "img_1")(dimy_tile "img_1") "lgoduy.sld")
(end_image)
 (start_dialog)
 (unload_dialog dcl_id)
)
 )
(setq maso pass)
(if (= maso MSkl) 
        (progn
(load"C:/CadViet/CapNhat/MoLenh")

(setq kieukhoalenh khoalenhdilan1)

(alert "Pass Da~ Nha^.p Du'ng Ro^`i  :bigsmile:\n\nDu`ng Te.t Di Nha' !")
)
)
(if (> maso MSkl) 
        (progn
 (command "PAN" (list 0 0)(list 0 0))
(alert "Nha^.p Sai Pass Ro^`i Do'  :)\n\nHa~y Nha^.p La.i Pass Di !")
)
)
(if (< maso MSkl) 
        (progn
 (command "PAN" (list 0 0)(list 0 0))
(alert "Nha^.p Sai Pass Ro^`i Do'  :undecided:\n\nHa~y Nha^.p La.i Pass Di !")
)
)
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:khoalenhdi ()
(kieukhoalenh)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun kieukhoalenh ()


(setq dcl_id (load_dialog "khoamolenh.dcl"))

(if (new_dialog "khoalenh" dcl_id)

 (progn
 (action_tile "password" "(setq pass $value)")
(start_image "img_1")
(slide_image 0 0 (dimx_tile "img_1")(dimy_tile "img_1") "lgoduy.sld")
(end_image)
 (start_dialog)
 (unload_dialog dcl_id)
)
 )
(setq maso pass)

 (if (= maso "")   
(alert "Ban phai nhap pass vao chu!!!!!")
)
  (IF (/= maso "") (PROGN

(setq DRMS (open "molenh.txt" "w"))
(write-line pass drms)
(close DRMS)
(load"c:/CadViet/CapNhat/KhoaLenh")

(setq kieukhoalenh khoalenhdilan2)

(alert "Ban Ve~ Da~ Bi. Khoa' Ca'c Le^.nh Co Ban :bigsmile:\n\nHa~y Mo Khoa' Va` Nha^.p Pass")
)
)

)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun khoalenhdilan1 ()


(setq dcl_id (load_dialog "khoamolenh.dcl"))

(if (new_dialog "khoalenh" dcl_id)

 (progn
 (action_tile "password" "(setq pass $value)")
(start_image "img_1")
(slide_image 0 0 (dimx_tile "img_1")(dimy_tile "img_1") "lgoduy.sld")
(end_image)
 (start_dialog)
 (unload_dialog dcl_id)
)
 )
(setq maso pass)
(setq DRMS (open "molenh.txt" "w"))
(write-line pass drms)
(close DRMS)
(load"c:/CadViet/CapNhat/KhoaLenh")

(setq kieukhoalenh khoalenhdilan2)

(alert "Ban Ve~ Da~ Bi. Khoa' Ca'c Le^.nh Co Ban :)\n\nHa~y Mo Khoa' Va` Nha^.p Pass")
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun khoalenhdilan2 ()
(alert "Cac lenh da duoc khoa roi ma you ????????")
)

[ktsnvn 3]

Trong tiện ích mình có 2 lệnh ẩn trong đó. Bác al2 dân kiến trúc thì dủng thử xem.

Gỏ lệnh DUY nhập mã 00 (hai số không) lúc này 2 lệnh đã được gọi lên.

- KHOA : dùng khóa bản vẽ không cho chỉnh sửa và in. (bác cần sao lưu file trước nhé, chạy hơi lâu)

- VKT : Vẽ các mô đun trong binh kiến trúc.

 

mình sài rồi nhưng phần khóa bv thì mình k biết nhưng có ý như thế này:

- khóa bv rồi nhưng khi khóa xong bv nặng quá như thế thì không ổn có cách nào làm cho nó nhẹ lại như bình thường k???

- không biết khóa như thế thì có người nào mở được k???

- bạn làm như thế bọn chủ đầu tư sẽ biết là mình chơi nó lần sau nó chẳng thèm chơi với mình nữa

- có 1 file như thế này bạn biết là nó dùng chương trình gì k?? mình nghĩ nó dùng phần mềm cad có bản quyền??

khi in nó có dòng "PRODUCED AN AUTODESK EDUCATIONAL PRODUCT"

[duy782006 1.543]

mình sài rồi nhưng phần khóa bv thì mình k biết nhưng có ý như thế này:

- khóa bv rồi nhưng khi khóa xong bv nặng quá như thế thì không ổn có cách nào làm cho nó nhẹ lại như bình thường k???

- không biết khóa như thế thì có người nào mở được k???

- bạn làm như thế bọn chủ đầu tư sẽ biết là mình chơi nó lần sau nó chẳng thèm chơi với mình nữa

- có 1 file như thế này bạn biết là nó dùng chương trình gì k?? mình nghĩ nó dùng phần mềm cad có bản quyền??

khi in nó có dòng "PRODUCED AN AUTODESK EDUCATIONAL PRODUCT"

Bác gỏ 1 phần hoặc toàn bộ dòng chử đó vào phần tìm kiếm. Bác hoành có chỉ cách bỏ đi rồi đó.

-Khi chủ đầu tư đòi file thì họ viện cớ là để quản lý chứ có phải cần in ra đâu. Ở đâyhọ mở lên coi được chứ có ảnh hưởng gì đâu.

-Mở ra thì có chức năng mở bên dưới đó. (cũng lâu lắc như khóa vậy).

-Không cách gì làm cho nhẹ hơn được. Thường nó nặng gấp đôi chứ mấy. :bigsmile:

[Ar_Chanwoo 39]

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

Mới làm xong thư viện đường dẩn. Up lên bà co dùng thử. Giải nén, copy hai thư mục này đè vào trong thư mục tienich.

CHUPM dùng chụp ảnh các file dwg trong thư mục (dùng 2 lần cho 1 thư mục).

TVDD dùng gọi thư viện trong thư mục sau khi chụp ảnh.

Anh có thể tách riêng ra thư viện này đc không anh , không chaỵ cùng cái tiện ích ấy !

[duy782006 1.543]

Anh có thể tách riêng ra thư viện này đc không anh , không chaỵ cùng cái tiện ích ấy !

Bạn mở file thuvienndung.lsp copy phần từ chổ mình ghi TVDD thiệt to trở xuống dưới là ra file lisp.

Copy đoạn định nghĩa hàm THOI trong file bien.lsp nửa nhé.

File thuvienđuongan.dcl là file định nghĩa hộp thoại.

Còn trong file lisp thì bạn chỉnh sửa các đường dẩn cho phù hợp với tiện ích của bạn. (cái này khả năng của bạn làm được mà)

Bạn chạy thử nó chưa. Có nhận xét gì không, cho vài ý kiến đi ???

[ktsnvn 3]

Bạn mở file thuvienndung.lsp copy phần từ chổ mình ghi TVDD thiệt to trở xuống dưới là ra file lisp.

Copy đoạn định nghĩa hàm THOI trong file bien.lsp nửa nhé.

File thuvienđuongan.dcl là file định nghĩa hộp thoại.

Còn trong file lisp thì bạn chỉnh sửa các đường dẩn cho phù hợp với tiện ích của bạn. (cái này khả năng của bạn làm được mà)

Bạn chạy thử nó chưa. Có nhận xét gì không, cho vài ý kiến đi ???

 

Bạn ơi mình lỡ tay unload nên nó bị như thế này làm sao tìn như cũ được. mình vào tìm hòai không thấp file acad.mnu đâu cả

giúp mình sớm nhé

 

Visit My Website

[duy782006 1.543]

Bạn ơi mình lỡ tay unload nên nó bị như thế này làm sao tìn như cũ được. mình vào tìm hòai không thấp file acad.mnu đâu cả

giúp mình sớm nhé

 

Visit My Website

 

Bác gỏ lệnh menuload chưa?

Trường hợp cad của bác thì load file acad.cui là được (nó hiện sẳn khi bác gọi lệnh ấy)