Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Nộ Thiên

Test NoCAD - Ứng dụng triển khai bản vẽ Xây Dựng

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

0953314080    3

VẬY SAO MÌNH CÀI ĐẶT THÔNG BÁO LÀ THÀNH CÔNG RỒI MÀ KO THẤY GÌ Ở BẢN VẼ AUTOCARD VẬY.BẠN CÓ MAIL KO ĐỂ MÌNH TIỆN LIÊN LẠC.GIÚP MÌNH VỚI MÌNH ĐANG CẦN CHƯƠNG TRÌNH NÀY QUÁ

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
Nộ Thiên    133
VẬY SAO MÌNH CÀI ĐẶT THÔNG BÁO LÀ THÀNH CÔNG RỒI MÀ KO THẤY GÌ Ở BẢN VẼ AUTOCARD VẬY.BẠN CÓ MAIL KO ĐỂ MÌNH TIỆN LIÊN LẠC.GIÚP MÌNH VỚI MÌNH ĐANG CẦN CHƯƠNG TRÌNH NÀY QUÁ

Load thủ công thử xem:

gõ: menuload rồi chọn file c:\NoCAD\nocad.mns

thử xem.

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
Load thủ công thử xem:

gõ: menuload rồi chọn file c:\NoCAD\nocad.mns

thử xem.

Em thấy trong chương trình của anh có phần uninstall rất hay, làm thế nào để gỡ bỏ menu cùng các đường dẫn trong opition vậy a?Ví dụ e có 2 menu là cadviet1 và cadviet2, cùng đường đãn trong opition là C:\cadviet\dulieu và C:\cadviet\thongke làm thế nào để uninstall chung đây. Mong a giúp đỡ!

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
Nộ Thiên    133
Em thấy trong chương trình của anh có phần uninstall rất hay, làm thế nào để gỡ bỏ menu cùng các đường dẫn trong opition vậy a?Ví dụ e có 2 menu là cadviet1 và cadviet2, cùng đường đãn trong opition là C:\cadviet\dulieu và C:\cadviet\thongke làm thế nào để uninstall chung đây. Mong a giúp đỡ!

Cái này thật ra rất đơn giản xem qua là biết liền:

 

 

(defun c:uninsNo ()

(setvar "cmdecho" 0)

(vl-load-com)

(if (findfile "C:\\NoCAD")

(setenv "ACAD" (RemStr ";C:\\NoCAD" (getenv "ACAD")))

(prompt "Khong tim thay thu muc C:\\NoCAD!")

)

(if (menugroup "NoCAD") (command "_menuunload" "NoCAD"))

(setvar "cmdecho" 1)

(alert (strcat "\nUninstall NoCAD done!\n\ndongvietthien@yaho.com.vn"))

(princ)

)

 

Trong đó có sử dụng 1 hàm được Bác SSG viết sẵn, chỉ việc đem ra xài thôi (cám ơn Bác SSG), đó là (RemStr... ). Và nó đây:

 

;;;********************************************************************

;;;;;;02- STRING FUNCTIONS

;;;********************************************************************

;;;-------------------------------------------------------------------------------

(defun SepStr(S1 S / i L L1 S0 S2)

;;;Separate S to 3 segments, search by S1, from 1st position. Return list

(setq

i (vl-string-search S1 S)

L (strlen S)

L1 (strlen S1)

S0 (substr S 1 i)

S2 (substr S (+ i L1 1) (- L L1 i))

)

(list S0 S1 S2)

)

;;;-------------------------------------------------------------------------------

(defun RemStr(S1 S / i) ;;;remove ALL S1 in S

(while (setq i (vl-string-search S1 S))

(setq S (strcat (car (SepStr S1 S)) (caddr (SepStr S1 S))))

)

S

)

;;;-------------------------------------------------------------------------------

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ái này thật ra rất đơn giản xem qua là biết liền:

 

 

(defun c:uninsNo ()

(setvar "cmdecho" 0)

(vl-load-com)

(if (findfile "C:\\NoCAD")

(setenv "ACAD" (RemStr ";C:\\NoCAD" (getenv "ACAD")))

(prompt "Khong tim thay thu muc C:\\NoCAD!")

)

(if (menugroup "NoCAD") (command "_menuunload" "NoCAD"))

(setvar "cmdecho" 1)

(alert (strcat "\nUninstall NoCAD done!\n\ndongvietthien@yaho.com.vn"))

(princ)

)

 

Trong đó có sử dụng 1 hàm được Bác SSG viết sẵn, chỉ việc đem ra xài thôi (cám ơn Bác SSG), đó là (RemStr... ). Và nó đây:

 

;;;********************************************************************

;;;;;;02- STRING FUNCTIONS

;;;********************************************************************

;;;-------------------------------------------------------------------------------

(defun SepStr(S1 S / i L L1 S0 S2)

;;;Separate S to 3 segments, search by S1, from 1st position. Return list

(setq

i (vl-string-search S1 S)

L (strlen S)

L1 (strlen S1)

S0 (substr S 1 i)

S2 (substr S (+ i L1 1) (- L L1 i))

)

(list S0 S1 S2)

)

;;;-------------------------------------------------------------------------------

(defun RemStr(S1 S / i) ;;;remove ALL S1 in S

(while (setq i (vl-string-search S1 S))

(setq S (strcat (car (SepStr S1 S)) (caddr (SepStr S1 S))))

)

S

)

;;;-------------------------------------------------------------------------------

Hic, gia như e hiểu đc những thứ bác vừa viết nhỉ, hy vọng bác giải thích kĩ hơn với ví dụ đường dẫn như của e đã nói ở trên ! Thanks!

  • 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
Nộ Thiên    133
Hic, gia như e hiểu đc những thứ bác vừa viết nhỉ, hy vọng bác giải thích kĩ hơn với ví dụ đường dẫn như của e đã nói ở trên ! Thanks!

 

 

(defun c:uninsNo ()

(setvar "cmdecho" 0)

(vl-load-com)

 

;;;;;;;Cái này là gỡ bỏ đường dẫn - chỉ việc thay cái màu đỏ

(if (findfile "C:\\NoCAD")

(setenv "ACAD" (RemStr ";C:\\NoCAD" (getenv "ACAD")))

(prompt "Khong tim thay thu muc C:\\NoCAD!")

)

 

;;;;;;;Cái này là unload-menu - chỉ việc thay cái màu xanh

(if (menugroup "NoCAD") (command "_menuunload" "NoCAD"))

 

 

 

(setvar "cmdecho" 1)

(alert (strcat "\nUninstall NoCAD done!\n\ndongvietthien@yaho.com.vn")) ;;; <-- còn đây viết gì cũng đc.

(princ)

)

  • 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
giotnuoc    8
Cái này đang ngcứu để ct đánh tự động luôn. Nhưng vẫn chưa biết là nên đánh theo thứ tự nào??

 

Hình như tiêu chuẩn có quy định cách đánh kí hiệu thép đóa pác!

Pác Nộ Thiên thật tốt bụng vì đã share cho mọi người một chương trình rất có ích! Mong Pác ngày càng hoàn thiện sản phẩm của mình hơn nữa nhe!

  • 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
(defun c:uninsNo ()

(setvar "cmdecho" 0)

(vl-load-com)

 

;;;;;;;Cái này là gỡ bỏ đường dẫn - chỉ việc thay cái màu đỏ

(if (findfile "C:\\NoCAD")

(setenv "ACAD" (RemStr ";C:\\NoCAD" (getenv "ACAD")))

(prompt "Khong tim thay thu muc C:\\NoCAD!")

)

 

;;;;;;;Cái này là unload-menu - chỉ việc thay cái màu xanh

(if (menugroup "NoCAD") (command "_menuunload" "NoCAD"))

 

 

 

(setvar "cmdecho" 1)

(alert (strcat "\nUninstall NoCAD done!\n\ndongvietthien@yaho.com.vn")) ;;; <-- còn đây viết gì cũng đc.

(princ)

)

Em gặp 1 chút vấn đề bác àh! Nó uninstall đc menu nhưng đường dẫn thì không. E đã thử thay cái đường dẫn C:\\NoCad bằng C:\\cadviet\\DuLieu của e nhưng khô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
Hung_tthanh    3

trong phần mềm của bác tôi thấy có mấy file DWG tạo sẳn các hình để load vào bản vẽ khi sử dụng. Có thể chỉ mình cách làm như thế nào ko. Thanks!!!!!!

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
huynhpro    20

Bác NOTHIEN ơi! Cho em hỏi cách chỉnh đoạn cắt thép với. Như ở chương trình của bác cắt thép mũ nhịp là L/3 em muốn cắt ở L/4 thì thay đổi ở đâu 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
Nộ Thiên    133
Bác NOTHIEN ơi! Cho em hỏi cách chỉnh đoạn cắt thép với. Như ở chương trình của bác cắt thép mũ nhịp là L/3 em muốn cắt ở L/4 thì thay đổi ở đâu nhỉ?

Thì phải chỉnh lại tí xiú code.

Basic1-L4.fas

 

01-Chép file này về.

02-Đổi tên file này thành "basic1.fas"

03-Chép file vừa đc đổi tên vào thư mục "C:\NoCAD"

04-Hỏi có ghi đè lên file cũ kg? Trả lời "Yes".

Sau đó khởi động acad chạy thử và kiểm tra xem có phải "L/4" chưa.

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
huynhpro    20

Cảm ơn bác. Được rồi! À mà cái số hiệu thép bác đã lập trình đánh tự động xong chưa? Hay bác có thể xoá cáo chữ bên trong đi để em thêm vào trong layout cho dễ...

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
huynhpro    20

À quên! Bác có thể sửa thép chủ phía dưới dầm khi neo vào gối tựa thì móc lên chứ không cắt như version này! Vì nếu cắt thì có thép đủ chiều dài neo có thép không

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
huynhpro    20

Bác NoThien đã làm xong phần dầm và các phần còn lại chưa? Bác có thể phát hành phiên bản đầy đủ. Em sẽ mua lại... Nếu xong anh có thể liên lạc với em theo số 0983.211.168. Hoặc bác để lại số điện thoại để em liên lạc... Không thích dùng cái stcad mấ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
huynhpro    20
Bác NoThien đã làm xong phần dầm và các phần còn lại chưa? Bác có thể phát hành phiên bản đầy đủ. Em sẽ mua lại... Nếu xong anh có thể liên lạc với em theo số 0983.211.168. Hoặc bác để lại số điện thoại để em liên lạc... Không thích dùng cái stcad mấy

 

Hix! Bác đi đâu mất rồ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
Mìinh đang dùng Cad 2009, hiện nay thử nghiệm NoCad thấy cũng tốt , trường hợp Khai báo Layer, tỷ lệ ban đầu ... đầu tiên mình củng bị như các bạn, nhưng sau đó mình dùng cách sau (các bạn thử xem nhé) thì không bị vướng nữa :

- Vào Tools -> Options...-> Files -> Support File search path...->khai báo thêm đường dẫn tới thư mục NoCad -> O.K

- Đóng Cad và chạy lại Cad để đường dẫn được cập nhật , sau đó sử dụng NoCad bình thường.

Thử xem nhé, Chúc các Bác thành công.

P/S: Cảm ơn Bác NoThien đã tạo cho anh em một chương trình hữu ích ,mong rằng CT sớm hoàn thiện, (ý tưởng đưa Block sau này để thống kê thép quả là tuyệt vời, rất khâm phục)

 

Mình đã làm như bạn mà không được, vẫn bị lỗi, nó nháy cái rồi biến mất

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
ketxu    2.653

Mình cũng bị lỗi nháy cái rồi mất bảng thiết lập,nên k bít nói sao ^^.Khi chạy thì cứ đến Kich điểm chèn là báo Nil, vẽ thì báo k có hàm NOIN ^^.Hy vọng bác Nộ THiên sớm tìm ra nguyên nhân khắc phụ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
Nộ Thiên    133
Mình đã làm như bạn mà không được, vẫn bị lỗi, nó nháy cái rồi biến mất

 

Cái này có thể cái tên font mình xác định trong lần đầu kg có trong máy của bạn nên bị lỗi

Nên Bạn có thể mở file thongso1.txt và thongso2.txt chỉnh sửa lại.

 

To Ketxu:

Có thể lỗi của bạn là do bị đụng với các ứng dụng khác.

Bởi kg có ai bị lỗi giống của bạ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ái này có thể cái tên font mình xác định trong lần đầu kg có trong máy của bạn nên bị lỗi

Nên Bạn có thể mở file thongso1.txt và thongso2.txt chỉnh sửa lại.

 

To Ketxu:

Có thể lỗi của bạn là do bị đụng với các ứng dụng khác.

Bởi kg có ai bị lỗi giống của bạn.

 

Haaaaaaaaaaaaaaaaaaaa, hay quá, vẫn bị lỗi

 

Thongso1 đã fix mà không được, thông số 2 thì toàn số mình không biết fix sao, fix xong vẫn bị lỗ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

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


×