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

kts.ngocquan

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

  • Số lượng nội dung

    58

  • Đã tham gia

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

  • Ngày trúng

    1

Bài đăng được đăng bởi kts.ngocquan

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

    (DEFUN CREATELAYER(laname lacolor lalt);; Tao mot layer moi (tenlayer mauyer duongnetlayer)
(if (tblsearch "LAYER" laname);; Kiem tra layer da ton tai
	(princ (strcat "Layer" laname " da ton tai")
	(if (tblsearch "LTYPE" ltname);if linetype exsists
	  (command "._Layer" "_Make" laname "_Color" lacolor laname "_LT" ltname laname "")
	  (command "._Layer" "_Make" laname "_Color" lacolor laname "_LT" "Continuous" laname "")
	)
)
)

    ============================== Tao ban ve moi ===========================

    (Defun c:a4 (/)

    (command "cmdecho" 0)

    (command "units" "2" "0" "1" "0" "" "")

    (Command "-linetype" "l" "center" "acad.lin" "" "")

    (Command "-linetype" "l" "hidden" "acad.lin" "" "")

    (Command "-layer" "n" "Defpoints" "c" "251" "Defpoints" "")

    (Command "-layer" "n" "00 - MAX - 00" "c" "105" "00 - MAX - 00" "lw" "0.9" "00 - MAX - 00" "")

    (Command "-layer" "n" "35 - Noi that" "c" "50" "35 - Noi that" "lw" "0.35" "35 - Noi that" "")

    (Command "-layer" "n" "35 - Cat 1 (Tuong..)" "c" "53" "35 - Cat 1 (Tuong..)" "lw" "0.35" "35 - Cat 1 (Tuong..)" "")

    (Command "-layer" "n" "25 - Cat 2 (Khuon..)" "c" "164" "25 - Cat 2 (Khuon..)" "lw" "0.25" "25 - Cat 2 (Khuon..)" "")

    (Command "-layer" "n" "15 - Thay 1" "c" "137" "15 - Thay 1" "lw" "0.15" "15 - Thay 1" "")

    (Command "-layer" "n" "15 - Thay 2" "c" "31" "15 - Thay 2" "lw" "0.15" "15 - Thay 2" "")

    (Command "-layer" "n" "09- Thay 3" "c" "9" "09- Thay 3" "lw" "0.10" "09- Thay 3" "")

    (Command "-layer" "n" "05- Thay 2" "c" "27" "05- Thay 2" "lw" "0.05" "05- Thay 2" "")

    (Command "-layer" "n" "09 - Tim " "c" "119" "09 - Tim " "l" "center" "09 - Tim " "lw" "0.09" "09 - Tim " "")

    (Command "-layer" "n" "05 - Mo 1" "c" "67" "05 - Mo 1" "lw" "0.05" "05 - Mo 1" "")

    (Command "-layer" "n" "05 - Mo 2" "c" "8" "05 - Mo 2" "lw" "0.05" "05 - Mo 2" "")

    (Command "-layer" "n" "05 - Mo 3" "c" "16" "05 - Mo 3" "lw" "0.05" "05 - Mo 3" "")

    (Command "-layer" "n" "05 - Noi that" "c" "252" "05 - Noi that" "lw" "0.05" "05 - Noi that" "")

    (Command "-layer" "n" "15 - Noi that" "c" "93" "15 - Noi that" "lw" "0.15" "15 - Noi that" "")

    (Command "-layer" "n" "09 - Kich thuoc" "c" "47" "09 - Kich thuoc" "lw" "0.09" "09 - Kich thuoc" "")

    (Command "-layer" "n" "05 - Khuat 1" "c" "242" "05 - Khuat 1" "l" "Dashed2" "05 - Khuat 1" "lw" "0.05" "05 - Khuat 1" "")

    (Command "-layer" "n" "09 - Khuat 2" "c" "32" "09 - Khuat 2" "l" "Dashed" "09 - Khuat 2" "lw" "0.09" "09 - Khuat 2" "")

    )

     

    Nó đây ! Xin lỗi vì tôi đến muộn

    Trong đó :a4 là tên lệnh

    Sau "lw" là độ dày của nét khi in

    Sơ sơ thế có j cứ hỏi nhé

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

    Bác nên đưa phần này ra ngoài vòng lặp (dưới dòng nhập tlsc: để giá trị mặc định cho tlsc = 1)

     

    (if (Null tlsc)

    (setq dtsc 1)

    )

    )

    Và sửa lại thành:

    (if (Null tlsc)

    (setq tlsc 1)

    )

     

    Đồng thời sửa lại đoạn:

    (IF (/= NIL dtsckt) (PROGN

    (setq dtsc (* (cdr (assoc 48 e)) tlsc))

    )

    )

    thành :

    (IF (/= NIL dtsckt)

    (setq dtsc (* (cdr (assoc 48 e)) tlsc))

    (setq dtsc 1) ; Nếu dtsckt = nil thì gán dtsc = 1)

     

    Mạng lại lỗi rồi ... các Mod thông cảm nhé

    Ae trên diễn đàn có lisp có tính năng như lệnh WIPEOUT trong Cad mà có thể chọn đối tượng là Block ko thì cho tôi xin.

    Nếu ko có lisp viết sẵn thì nhờ ae trên diễn đàn viết cho tôi nhé .

    Theo tôi cái này rất hữu ích cho ae dùng CAD

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

    Nếu nhúng file max vào file max khác, bạn đừng dùng proxy mà dùng xref object hoặc xref scene để làm. Proxy chỉ làm được khi render bằng Vray, tức là đối tượng sẽ được load vào đầy đủ khi render, còn trước đó, đối tượng chỉ là hình đại diện.

    Thanks NH. :cheers:

    Các bạn có thể chỉ cho mình cách sử dụng và quản lý Xref đc ko ? Hiển thị đối twợng , hoặc ko trong bảng lệnh ddấy

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

    Đã đúng ý của em rồi, lần sau em sẽ rút kinh nghiệm khi gửi bài yêu cầu lên diễn đàn. Em chân thành cám ơn bác SSG nhé.

     

    Nhân tiện cho em hỏi: Ở phiên bản AutoCad R14 có lệnh "ctrl + a" là lệnh Group on/off. Vậy ở phiên bản AutoCad 2007 nó là lệnh gì vậy các bác

     

     

    Hinh nhu la : Ctrl+H :)

×