Chuyển đến nội dung
Diễn đàn CADViet

friday13th

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    40

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi friday13th

  12. Đã đăng · Trả lời báo cáo

    Thế đấy ! Giờ thì bản vẽ đã ổn thỏa. Chẳng còn gì để làm nữa. Nhưng với đống LISP kia thì sao nhỉ? Nhiều file *.LSP quá @_@. Làm gì?

     

    Bài 12: Chuyển LSP sang VLX

    Công cụ này thì cực hay. Vì từ hàng trăm file LSP ta có thể chuyển thành 1 file VLX, gọn, nhẹ, bảo mật cao hơn...

     

    1.jpg

     

    Các bước thực hiện.

     

    Bước 1: Khởi động Cad, tại dòng Command nhập lệnh vlide.

     

    2.jpg

     

    Bước 2: Trong cửa sổ Visual Lisp for AutoCad, nhấn vào File/Make Application/New Application Wizard

     

    3.jpg

     

    Bước 3: Chọn Simple vầ nhấn Next

     

    4.jpg

     

    Bước 4: Lựa chọn đường dẫn (Application Location) và tên file (Application Name) Rồi nhấn Next

     

    5.jpg

     

    Bước 5: Nhấn vào nút Add, 1 cửa sổ chọn file hiện ra, select tất cả các file LSP, rồi nhấn Open

     

    6.jpg

     

    Bước 6: Các file LSP vừa lựa chọn được cập nhật và bảng danh sách, nhấn Next

     

    7.jpg

     

    Bước 7: Nhấn Finish để kết thúc.

     

    8.jpg

     

    Quá trình này kết thúc thành công bàng 1 thông báo hoàn thành

     

    9.jpg

     

    Ok. Giờ thì file VLX duy nhất đã được tạo ra, rất gọn, rất nhẹ và bảo mật cao hơn..0_0

     

    Nếu bạn không muốn mất thời gian, có thể tải file vlxcoban.vlx tại đây:

     

    http://thunglungden.org/cadviet/cad/lisp/v...an/vlxcoban.vlx

     

    Kết thúc. Chúc các bạn thành công với bộ lisp cơ bản này. Hẹn gặp lại lần sau với một bộ lisp năng cao, phát huy hết các tính năng của CAD.

     

    Chào thân ái ! :bigsmile:

    anh ơi link die rồi, co thể send cho em được ko?

    friday13th_death@yahoo.com

    thanks!

  13. Đã đăng · Trả lời báo cáo

    Xong phần khởi động. Giờ là bắt đấu vẽ với LINE, với ARC...

    - Ồ! những đường Line này sao không phải là PLINE nhỉ? Vừa dễ quản lý vừa nhẹ bản vẽ. Phải làm sao đây? BO lại à ? OH không !!!

     

    Bài 4. Nối LINE và ARC thành PLINE

     

    (defun c:nn (/ tdt ssdt sodt index)
(defun ObjName (ssdt /)
(cdr (assoc '0 (entget ssdt)))
)
(defun MoPL (ssdt /)
(= (cdr (assoc '70 (entget ssdt))) 0)
)
(defun NoiPL (ssdt /)
(if (MoPL ssdt)
(command ".PEDIT" ssdt "J" "All" "" "X")
)
)
(defun NoiLC (ssdt /)
(command ".PEDIT" ssdt "Y" "J" "All" "" "X")
)
(setq
tdt (ssget)
sodt (sslength tdt)
index 0
)
(repeat sodt
(setq
ssdt (ssname tdt index)
index (1+ index)
)
(if (or (= (Objname ssdt) "LWPOLYLINE")
(= (Objname ssdt) "POLYLINE")
)
(NoiPL ssdt)
)
(if (or (= (Objname ssdt) "LINE") (= (Objname ssdt) "ARC"))
(NoiLC ssdt)
)
)
(princ)
)

     

    Lệnh để nối LINE và ARC thành PLINE là nn

     

    sao em ko nối được????

×