Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
96 replies to this topic

#1 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 13 March 2008 - 11:04 AM

Tạo menu, thư viên không phải là vấn đề nữa mà là...
Tôi có 1 vấn đề naỳ nhé:
- Tôi có rất nhiều file .dwg của thư viện cad, bây giờ có cách làm sao mà tra cứu thật nhanh, và insert thật nhanh.
Tuy là có lệnh adcenter cũgn được nhưng mà cũng khôg tiện lắm
-Tôi muốn tạo 1 menu, hiện các *.sld, *.slbl ên (với số lượng lớn như vậy), ngồi nhặt tên từng file 1 thì chết
Có cách nào thật nhanh để tạo ra menu trên không? Đã bác nào làm chưa
  • 0
Hãy ước cho trọn 1 ước mơ!

#2 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 13 March 2008 - 11:15 AM

Tạo menu, thư viên không phải là vấn đề nữa mà là...
Tôi có 1 vấn đề naỳ nhé:
- Tôi có rất nhiều file .dwg của thư viện cad, bây giờ có cách làm sao mà tra cứu thật nhanh, và insert thật nhanh.
Tuy là có lệnh adcenter cũgn được nhưng mà cũng khôg tiện lắm
-Tôi muốn tạo 1 menu, hiện các *.sld, *.slbl ên (với số lượng lớn như vậy), ngồi nhặt tên từng file 1 thì chết
Có cách nào thật nhanh để tạo ra menu trên không? Đã bác nào làm chưa


*Tôi cũng nghĩ bác nào có được 1 lisp như thế này thì hay quá:
-Làm việc như lệnh open của cad nhưng hiển thị một lúc khoảng 12 khung nhìn trước (lớn lớn 1 chút) chỉ cần chọn thư mục thì sẽ view các file cad lên. Không cần tạo *.sld.
*Hiện nay tôi có 1 lip thư viện như thế này:
-Gọi lệnh sẽ xuất hiện hộp thoại trong đó có 12 khung ảnh, nút tạo thư viện, xóa thư viện, chèn thư viện, chuyễn sang trang kế tiếp.
-Bạn phải mở file cad cần cho vào thư viện lên, chọn vào khung mà bạn muốn tạo thư viện chọn nút tạo. cad sẻ hỏi bạn chọn đối tượng, chọn điểm chèn. Nó sẻ tạo thư viện tại khung bạn vừa chọn.
Vì tôi tự mày mò không theo bài bản nên cách lật trang của tôi hơi khác thường 1chút nếu bạn thấy dùng được thì tôi post lên để bạn nghiên cứu.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#3 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 13 March 2008 - 11:15 AM

Tạo menu, thư viên không phải là vấn đề nữa mà là...
Tôi có 1 vấn đề naỳ nhé:
- Tôi có rất nhiều file .dwg của thư viện cad, bây giờ có cách làm sao mà tra cứu thật nhanh, và insert thật nhanh.
Tuy là có lệnh adcenter cũgn được nhưng mà cũng khôg tiện lắm
-Tôi muốn tạo 1 menu, hiện các *.sld, *.slbl ên (với số lượng lớn như vậy), ngồi nhặt tên từng file 1 thì chết
Có cách nào thật nhanh để tạo ra menu trên không? Đã bác nào làm chưa

Bạn xem ở đây: http://www.cadviet.c...-dung-t854.html
  • 0

#4 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 13 March 2008 - 11:27 AM

*Tôi cũng nghĩ bác nào có được 1 lisp như thế này thì hay quá:
-Làm việc như lệnh open của cad nhưng hiển thị một lúc khoảng 12 khung nhìn trước (lớn lớn 1 chút) chỉ cần chọn thư mục thì sẽ view các file cad lên. Không cần tạo *.sld.
*Hiện nay tôi có 1 lip thư viện như thế này:
-Gọi lệnh sẽ xuất hiện hộp thoại trong đó có 12 khung ảnh, nút tạo thư viện, xóa thư viện, chèn thư viện, chuyễn sang trang kế tiếp.
-Bạn phải mở file cad cần cho vào thư viện lên, chọn vào khung mà bạn muốn tạo thư viện chọn nút tạo. cad sẻ hỏi bạn chọn đối tượng, chọn điểm chèn. Nó sẻ tạo thư viện tại khung bạn vừa chọn.
Vì tôi tự mày mò không theo bài bản nên cách lật trang của tôi hơi khác thường 1chút nếu bạn thấy dùng được thì tôi post lên để bạn nghiên cứu.

bẠN CHO MÌNH XIN CAI CODE ĐÓ ĐỪÔNG DẪN, GIÚP MÌNH CÁI
MÌNH SẼ THỬ TẠO 1 CÁI, KẾT HỢP VỚI CÁI CỦA BÁC HOÀNH!
  • 0
Hãy ước cho trọn 1 ước mơ!

#5 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 13 March 2008 - 01:15 PM

Bạn xem ở đây: http://www.cadviet.com/forum/Chuong-trinh-...-dung-t854.html

Bác Hoành có thể cho em cái code (cả lisp và dcl) của CVIB không!
để e khai trien va mở rộng!
cảm ơn bác nhiều!
  • 0
Hãy ước cho trọn 1 ước mơ!

#6 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 13 March 2008 - 01:43 PM

bẠN CHO MÌNH XIN CAI CODE ĐÓ ĐỪÔNG DẪN, GIÚP MÌNH CÁI
MÌNH SẼ THỬ TẠO 1 CÁI, KẾT HỢP VỚI CÁI CỦA BÁC HOÀNH!


Để tối về mình gở bỏ phần bản quyền rối mai gửi cho bạn. Minh nói trước là cách code của mình không đi theo con đường truyền thống mọi người hay làm, nếu bạn đọc thì cũng đừng cho là kỳ lạ nghen.
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#7 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 13 March 2008 - 01:46 PM

Để tối về mình gở bỏ phần bản quyền rối mai gửi cho bạn. Minh nói trước là cách code của mình không đi theo con đường truyền thống mọi người hay làm, nếu bạn đọc thì cũng đừng cho là kỳ lạ nghen.

bạn gủi cả cái code mà tạo bản quyền ấy, mình tham khảo với.
Thông cảm nhé! hơi tham như nông dân!
Manhhungxda@gmail.com
  • 0
Hãy ước cho trọn 1 ước mơ!

#8 tranchan

tranchan

    biết lệnh break

  • Members
  • PipPipPipPip
  • 221 Bài viết
Điểm đánh giá: 93 (tàm tạm)

Đã gửi 13 March 2008 - 02:14 PM

Caca ManhHung dung ham hoc hoi nhi?? Trong sách dạy vlisp của thầy nguyễn Hưu Lộc có day cách tạo menu link vào cad. và insert doi tuong theo ti le khac nhau. Mà những cái này dân kiến trúc thường lập thư viện mẫu để xài. viết bằng diesel marco (Caca có thể tham khảo trong help cad = cách gõ từ khoá "diesel"

Vd:
[S-BL60x200,BuLong 60x200]^C^C_-insert BL60x200;\ ; ^C^C_explode;l; ^C^C
[ ten *.sld , ghi chu ] ten block

[KA(Caodo_sym,cao do)]^C^C_-insert Caodoka;\ ; ^C^C_explode;l; ^C^C
[ten thu vien slb( ten *.sld, ghi chu) ten block


Con ve fan cai lenh insert block nghien cuu thanh cong thi cho tui mot ban nhe , code cang tot . Cam on trc nhe?????!!! <_<
  • 0

#9 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 13 March 2008 - 02:26 PM

Bác Hoành có thể cho em cái code (cả lisp và dcl) của CVIB không!
để e khai trien va mở rộng!
cảm ơn bác nhiều!

Trong file nén đó có cả mã nguồn mà!
  • 0

#10 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 13 March 2008 - 02:32 PM

Caca ManhHung dung ham hoc hoi nhi?? Trong sách dạy vlisp của thầy nguyễn Hưu Lộc có day cách tạo menu link vào cad. và insert doi tuong theo ti le khac nhau. Mà những cái này dân kiến trúc thường lập thư viện mẫu để xài. viết bằng diesel marco (Caca có thể tham khảo trong help cad = cách gõ từ khoá "diesel"

Vd:
[S-BL60x200,BuLong 60x200]^C^C_-insert BL60x200;\ ; ^C^C_explode;l; ^C^C
[ ten *.sld , ghi chu ] ten block

[KA(Caodo_sym,cao do)]^C^C_-insert Caodoka;\ ; ^C^C_explode;l; ^C^C
[ten thu vien slb( ten *.sld, ghi chu) ten block


Con ve fan cai lenh insert block nghien cuu thanh cong thi cho tui mot ban nhe , code cang tot . Cam on trc nhe?????!!! <_<

tôi biết cách tạo đó lâu rồi, ý tôi là có rât nhiều file, làm sao để tạo cái menu đó cho cả 10000 file chi tiết chẳng hạn, bạn cứ thử làm kiểu đó đi, bạn sẽ nản đó
  • 0
Hãy ước cho trọn 1 ước mơ!

#11 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 13 March 2008 - 02:33 PM

Trong file nén đó có cả mã nguồn mà!

nhwng mà đó là .vlx em chưa biết chuyển ngwuợc lại
bác cho em xin đi
  • 0
Hãy ước cho trọn 1 ước mơ!

#12 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 13 March 2008 - 02:36 PM

nhwng mà đó là .vlx em chưa biết chuyển ngwuợc lại
bác cho em xin đi

Xin lỗi tôi hơi quan liêu.

Đúng là trong file zip không có mã nguồn.

Để tôi về nhà tìm lại xem.
  • 1

#13 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 13 March 2008 - 08:37 PM

Đây là mã nguồn:

file CVIB.lsp
;;;  This is opensource sofware from www.cadviet.com
;;; You can modify or make anything you want with this lisp source

(defun C:IB (/ SYM_DCL_ID TEXT FILE
SYMLIST SLIST DESCR BLKNAME SLDNAME
VALUE
)
(defun INIT_BLOCK ()
(setq symlist (vl-directory-files
(strcat activepath curgroup "\\")
"*.dwg"
)
slist (mapcar 'vl-filename-base symlist)
symlist slist
)
(start_list "list_sym")
(mapcar 'add_list symLIST)
(end_list)
(set_tile "list_sym" "0")
)
(defun INIT_GROUP ()
(setq grplist (vl-directory-files activepath "*.*" -1)
grplist (vl-remove "." grplist)
grplist (vl-remove ".." grplist)
curGroup (car grplist)
)
(start_list "list_grp")
(mapcar 'add_list grpLIST)
(end_list)
(set_tile "list_grp" "0")
)
(defun disable ()
(cond
((= 0 osn)
(mode_tile "scobj" 0)
(mode_tile "rot" 0)
)
((and (= 1 osn))
(mode_tile "scobj" 1)
(mode_tile "rot" 1)
)
)
)
(defun IMAGE_ACT (VALUE)
(setq ITEM (nth (atoi VALUE) SYMLIST))
(setq
BLKNAME ITEM
SLDNAME (strcat ActivePath curGroup "\\" ITEM ".sld")
DESCR ITEM
WIDTH (dimx_tile "tile_1")
HEIGHT (dimy_tile "tile_1")
)
(start_image "tile_1")
(fill_image 0 0 WIDTH HEIGHT 0)
(slide_image
0 0 WIDTH HEIGHT SLDNAME)
(end_image)
(set_tile "desc_blk" DESCR)
)
(defun GROUP_ACT (VALUE)
(setq ITEM (nth (atoi VALUE) GRPLIST)
curGroup ITEM
blockpath (strcat activepath curGroup "\\")
)
(INIT_BLOCK)
(IMAGE_ACT "0")
)

;;---------------------------------------------------
(princ "\nIB program - © 2007, CADViet.com")
(princ "\n")
(princ "\n")
;;(setq activepath "D:\\Hoanh\\@CadTool\\InsBlk\\")
(setq activepath (getcfg "AppData/CADViet/IB_Path"))
(while (or
(not activepath)
(not (vl-file-directory-p activepath))
)
(setq cvname (getfiled "Hay chi dinh duong dan toi file CVIB.vlx de bat dau su dung lisp"
"CVIB.vlx"
"VLX"
16
)
)
(if (= (vl-filename-base cvname) "CVIB")
(setq activepath (strcat (vl-filename-directory cvname) "\\"))
)
)
(setcfg "AppData/CADViet/IB_Path" activepath)
(setq SYM_DCL_ID (load_dialog "CVIB.dcl"))
(if (< SYM_DCL_ID 0)
(exit)
)
(new_dialog "symbol" SYM_DCL_ID)
(INIT_GROUP)
(INIT_BLOCK)

(setq sc 1)
(set_tile "scobj" (rtos sc))
(setq rt 0)
(set_tile "rot" (angtos rt))
(action_tile "list_grp" "(group_act $value)")
(action_tile "list_sym" "(image_act $value)")
(action_tile "osn" "(setq osn (atoi $value ))(disable)")
(action_tile "scobj" "(setq sc (atoi $value))(disable)")
(action_tile "rot" "(setq rt (atoi $value))(disable)")
(action_tile
"cancel"
"(setq blkname nil)"
)
(start_dialog)
(unload_dialog SYM_DCL_ID)
(if BLKNAME
(command "insert"
(cond
((tblsearch "block" BLKNAME) BLKNAME)
(t (strcat blockpath BLKNAME ".dwg"))
)
"s"
sc
"r"
rt
pause
)
)
(princ)
)

(defun c:resetib()
(setcfg "AppData/CADViet/IB_Path" "")
(princ "\nDa reset thanh cong!")
(princ "\n")
(princ)
)

(princ "\nIB da load thanh cong")
(princ "\nHay dung lenh IB de bat dau su dung")
(princ "\nHay dung lenh resetIB khi ban muon thiet lap lai duong dan")
(princ "\n")
(princ)


file CVIB.dcl:
symbol:dialog {
aspect_ratio = 0;
label = "Chi dinh Block muon chen";
: row {
: boxed_column {
label = "Ten nhom";
: list_box {
key = "list_grp";
allow_accept = true;
}
}
: boxed_column {
label = "Ten Block";
: list_box {
key = "list_sym";
allow_accept = true;
}
}
: boxed_column {
: toggle {
label = "Chi dinh tren man hinh";
key = "osn";
mnemonic = "O";
fixed_width = true;
}
label = "Goc xoay va ty le:";
: edit_box {
label = "Scale 1 : ";
key = "scobj";
mnemonic = "S";
edit_width = 10;
label = "Ty le";
}
: edit_box {
label = "Goc: ";
key = "rot";
mnemonic = "A";
edit_width = 10;
}
}


}
: row {
label = "Hinh anh Block";
: icon_image {
key = "tile_1";
aspect_ratio = 0.9;
fixed_height = true;
fixed_width = true;
width = 49;
height = 12;
alignment = centered;
}
}
: text {
key = "desc_blk";
width = 30;
alignment = centered;
}
ok_cancel;
}

  • 1

#14 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 14 March 2008 - 02:35 PM

bạn gủi cả cái code mà tạo bản quyền ấy, mình tham khảo với.
Thông cảm nhé! hơi tham như nông dân!
Manhhungxda@gmail.com


http://www.cadviet.c...les/tienich.rar
Tôi đã gửi qua mail cho bạn. Bạn kiểm tra xem có nhận được chưa? có gì thì trao đổi tại đây nhé.
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#15 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 15 March 2008 - 05:21 PM

http://www.cadviet.com/upfiles/tienich.rar
Tôi đã gửi qua mail cho bạn. Bạn kiểm tra xem có nhận được chưa? có gì thì trao đổi tại đây nhé.


Xin cảm ơn duy782006 !
Mình đang đi công tác 1 chút, mấy hôm nữa về mình xem, có gì trao đổi nhé
  • 0
Hãy ước cho trọn 1 ước mơ!

#16 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

  • Members
  • PipPipPipPip
  • 224 Bài viết
Điểm đánh giá: 38 (tàm tạm)

Đã gửi 15 March 2008 - 10:39 PM

Tạo menu, thư viên không phải là vấn đề nữa mà là...
Tôi có 1 vấn đề naỳ nhé:
- Tôi có rất nhiều file .dwg của thư viện cad, bây giờ có cách làm sao mà tra cứu thật nhanh, và insert thật nhanh.
Tuy là có lệnh adcenter cũgn được nhưng mà cũng khôg tiện lắm
-Tôi muốn tạo 1 menu, hiện các *.sld, *.slbl ên (với số lượng lớn như vậy), ngồi nhặt tên từng file 1 thì chết
Có cách nào thật nhanh để tạo ra menu trên không? Đã bác nào làm chưa

Bạn hãy xem bài viết về CadViet 2.0 của mình ấy. Trong đó có 1 thư viện của bọn nc ngoài làm, tuy lấy thư viện ra hơi lâu nhưng đẻ tạo 1 thư viện mới thì rất nhanh, mình đã tạo 1 thư viện gần 400 đối tượng chỉ trong chưa đầy 1 phút!!!!!!!!!!!
  • 0

#17 ktsnvn

ktsnvn

    biết vẽ arc

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

Đã gửi 19 March 2008 - 01:24 PM

http://www.cadviet.com/upfiles/tienich.rar
Tôi đã gửi qua mail cho bạn. Bạn kiểm tra xem có nhận được chưa? có gì thì trao đổi tại đây nhé.


bạn ơi file bạn gởi sử dụng như thế nào vậy 'duy782006' minh tải về nhưng chẳng biết dùng như thế nào nữa???bạn chỉ giáo cho mình nhé!! bạn viết thành file hướng dẫn sử dụng đi bạn pót lên cho mọi người cùng xem nhé!!!
  • 0

#18 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

  • Members
  • PipPipPipPip
  • 224 Bài viết
Điểm đánh giá: 38 (tàm tạm)

Đã gửi 19 March 2008 - 11:03 PM

bạn ơi file bạn gởi sử dụng như thế nào vậy 'duy782006' minh tải về nhưng chẳng biết dùng như thế nào nữa???bạn chỉ giáo cho mình nhé!! bạn viết thành file hướng dẫn sử dụng đi bạn pót lên cho mọi người cùng xem nhé!!!

Đúng đấy! Có rất nhiều thứ trong đó, ko biết dùng thế nào cả!
  • 0

#19 Ar_Chanwoo

Ar_Chanwoo

    biết lệnh break

  • Members
  • PipPipPipPip
  • 224 Bài viết
Điểm đánh giá: 38 (tàm tạm)

Đã gửi 19 March 2008 - 11:11 PM

Để tối về mình gở bỏ phần bản quyền rối mai gửi cho bạn. Minh nói trước là cách code của mình không đi theo con đường truyền thống mọi người hay làm, nếu bạn đọc thì cũng đừng cho là kỳ lạ nghen.

duy782006 : Anh có thể gửi vào mail của e đc ko, cả cái phần code tạo bản quyền ấy. em đang rất cần phần code tạo bản quyền ! giúp e nha anh
Mail của e là : manhcuong_adg@yahoo.com
  • 0

#20 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 20 March 2008 - 10:31 AM

duy782006 : Anh có thể gửi vào mail của e đc ko, cả cái phần code tạo bản quyền ấy. em đang rất cần phần code tạo bản quyền ! giúp e nha anh
Mail của e là : manhcuong_adg@yahoo.com


Đây là tổng hợp tất cả các tiện ích mình hay dùng nên nó mới đủ thứ như thế.
Vì khi up lên mình chỉ tính gửi cho MANHHUNG nên không có kèm hướng dẩn theo.
Nếu bạn có hứng thú xem thì đây mình hướng dẩn bạn dùng.
*Hướng dẩn chạy trực tiếp không cần cài đặt: (bạn chạy thử thấy được bửa khác mình hướng dẩn cài cho chay tự động luôn)
-Bạn giải nén được thư mục tienich.
-Chép thư mục này vào ổ đải bất kỳ (không vào thêm thư mục nào khác nhé chỉ như thế này thôi VD: D:\tienich)
-Khởi động cad (đời nào cũng được); gỏ lệnh AP chọn đến tienich->run->chay->chaytuD.lsp (lưu ý thư mục tienich nằm trong ổ đĩa nào thì chọn file mang tên ổ đỉa đó) load file này lên.
-Gỏ dangky nhập 5x8nug (viết thường toàn bộ) (chỉ làm lần đầu cho mổi máy các lần sau không cần).
-Gỏ run (chỉ làm lần đầu cho mổi máy các lần sau không cần).

-Từ sau đó bạn chỉ cần load file chaytuD này lên thì dủng được.

*Các lệnh
TEXT các tiện ích về text
VED các tiện ích về vẽ hình
TV Các tiện ích về thư viện
TKTT thống kê thép tròn
PCD Các tiện ích vẽ phối cảnh
PLD Các tiện ích về pline
HHD Tô vật liệu các loại hay dùng
CHOND Hổ trợ đếm đối tượng theo 1 số yêu cầu cụ thể

Và một số lisp sưu tầm trển diển đàn + khắp nơi

Phần tạo bản quyến thì tôi dùng cách đơn giàn nhất bạn đọc trong file chaytuD phần dưới chổ dangky ấy và trong file bien.lsp
  • 1

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D