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

[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Á

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

[phamtuan 222]

Thanks for shared

[arch_chien111 6]

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 đỡ!

[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

)

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

[arch_chien111 6]

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!

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

)

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

[arch_chien111 6]

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

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

[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ỉ?

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

[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ễ...

[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

[huynhpro 20]

Em sử dụng báo lỗi như thế này là làm sao thế?

Command:

Chon diem chuan:; error: bad argument type: consp nil

[huutrang 0]

SAO MÌNH TẢI NOCAD VỀ MA KO CÀI DƯỢC . NOTHIEN CHỈ DÙM VỚI. CẢM ƠN

[huutrang 0]

có phần móng, cột, sàn chưa bác Nothien ơi . Bác pos lên cho anh em tham khảo và chia sẽ cùng bác với

[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

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

[tuvanthietke.hcm 4]

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

[ketxu 2.984]

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

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

[tuvanthietke.hcm 4]

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

[trongcuongtl 1]

Chào các bác, các bác coi thử cái ni ,tui thấy củng hay:d

http://www.cadviet.com/upfiles/3/hinhanh_sp2000.rar

[tuvanthietke.hcm 4]

Chào các bác, các bác coi thử cái ni ,tui thấy củng hay:d

http://www.cadviet.com/upfiles/3/hinhanh_sp2000.rar

 

Thử nhìn cái hình à :unsure: