arch_chien111
-
Số lượng nội dung
11 -
Đã tham gia
-
Lần ghé thăm cuối
Bài đăng được đăng bởi arch_chien111
-
-
trường kiến trúc nhà mình nè
-
http://www.cadviet.com/upfiles/Cap_nuoc_si..._Lan_Phuong.rarko biết cái này có giúp gì được cho bạn ko?
Đây là file hướng dẫn, bnạ có file cad không cho mình xin, cả file thuyết minh nữa thì càng tốt
-
Ai có bản cad và thuyết minh đò án ngnàh đô thị cho mình xin với. Hoạc đồ án cấp nước cũng đc. Mình đang chuẩn bị làm đồ án cấp nuớc. Cảm ơn các bạn trưuó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.
-
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!
-
1
-
-
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 đỡ!
-
LispCad không tự Apload được, và trong quá trình cài đặt có hiện thông báo lỗi gì đó. Mình dùng Cad2006, và đường dẫn mình past vào bước số 6 cua hướng dẫn là: #UserDir#\Application Data\Autodesk\AutoCAD 2006\R16.2\enu\Support. Thế có đúng không bạn. Mình cũng làm theo 6 bước như ban đã hướng dẫn, cho mình hỏi là trong tab "Install info" cua CT "Creat Pro" có cần điền gì không bạn, mình nghi ngờ là bị lỗi chỗ này.Đang lúc bực mình nên mình đã del file đó rồi, để mình thử lại nếu vẫn bị như thế mình sẽ post file cho bạn nha.
Do mới dung chương trình này lần đầu nên mong bạn thông cảm vì đã làm phiền nhiều. Thanks
Mình không hiểu b định cho file jì vào thư mục đó ! Nhưng mình nghĩ không nhất thiết đâu ! Bạn có thể bỏ file đó ở Support trong C:\\Program File\\autocad 2007
Nếu biết đc rõ hơn m sẽ giúp bạn !
-
tại sao tôi làm không đựoc nhỉ, tôi đã copy đoạn text dán vào fiel notepad, đổi tên *.lsp , app load lên mà không đưọc. ngay ca file TAO-DIM.lsp cung vậy , tôi appload lên cung không được. Tôi đã tìm trong diễn đàn tìm đựoc nhiều file, đoạn code nhưng khi áp dụng thì chưa thành công. mọi người thử coi lại , thử viết đoạn code khác cho tôi cái. thanhks a lotsau khi thực hiện mà không thành công ! Bạn nhấn F2 rồi copy phần báo lỗi lên để mọi nguời biết mà sửa cho b!
-
1
-
-
khi minh ghi kích thước chiều rộng của hai đường thẳng song song (ví dụ ghi chiều rộngk của giằng móng ,ta sẽ ghi kích thước ở giữa )thì hai đường line ko nằm ở giữa mà nằm tận hai đầu đường thẳng của 2 đoạn thẳng song song đó ? vậy như thế nó bị lổi gì và cách khắc phục nhu thế nào các bạn giúp mình với được ko ?có thể bạn chỉnh truy bắt điểm chăng.
-
;-------------------
(Defun C:run ( )
(setq OD (GETENV "ACAD"))
(setq NEW (strcat OD ";E:\\tienich\\dcl;E:\\tienich\\dwg;E:\\tienich\\hdt;E:\\tienich\\tvnd;E:\\tienich\\tvct"))
(setenv "ACAD" NEW)
(load"e:/tienich/lenh/thuvienndung")
(load"e:/tienich/lenh/thuvienchitiet")
(load"e:/tienich/lenh/tienichchonht")
(load"e:/tienich/lenh/thongke")
(load"e:/tienich/lenh/tienichdimht")
(load"e:/tienich/lenh/tienichblockht")
(Princ)
)
;-------------------
Em không hiểu tại sao khi e dùng lisp này để load các lisp ma e có thì chỉ load đc trong bản vẽ đang dùng, khi mở 1 file mới thì không đc,
Thanks bác SSG đã hướng dẫn e,đoạn lisp đó rất dễ đọc !!!!!!!!!!!!
copy bản vẽ mặt bằng Cad sang 3Dmax
trong 3DS Max
Đã đăng · Trả lời báo cáo
bạn vào Cad dùng lệnh bo kín đối tượng, sau đó ấn lệnh W để đơn vị là mm ok
mở max ấn tổ hợp phím alt+F+I ( cũng để đơn vị là mm) ok
bây giờ chuyển sang poly mà chiến thôi :cry: