kts.t2

Tháng 12 21, 2013

;;; =========================== startup ===========================

Mình có đoạn lisp này, chế lại theo của mình giờ mình muốn nó có thêm tạo nét (hidden, continous...) nữa thì làm thế nào các bạn?

;;; =========================== startup ===========================

(Defun s::startup ()       
                          (command "-UNITS" "2" "5" "1" "2" "0" "N")
                          (setvar "cmdecho" 1)  (command "limits" "" "42000,29700")
                          (setvar "aperture" 5) (setvar "gripsize" 6) (setvar "blipmode" 0)
                          (setvar "savetime" 10) (setvar "mirrtext" 0) (setvar "tracewid" 200)
                          (setvar "surftab1" 16) (setvar "surftab2" 24)(setvar "FILLETRAD" 0)(setvar "OSMODE" 695)
                                (command "-layer" "n" "TB-TUONG" "c" "7" "TB-TUONG" "")
                                (command "-layer" "n" "TB-TRUC" "c" "139" "TB-TRUC" "")
                                (command "-layer" "n" "TB-NETMANH" "c" "188" "TB-NETMANH" "")
                                (command "-layer" "n" "TB-DIM" "c" "251" "TB-DIM" "")
                                (command "-layer" "n" "TB-CUA" "c" "136" "TB-CUA" "")
                                (command "-layer" "n" "TB-TEXT" "c" "253" "TB-TEXT" "")
                                (command "-layer" "n" "TB-KINH" "c" "131" "TB-KINH" "")
                                (command "-layer" "n" "TB-HATCH" "c" "252" "TB-HATCH" "")
                                (command "-layer" "n" "TB-NETKHUAT" "c" "148" "TB-NETKHUAT" "")
                                (command "-layer" "n" "TB-NOITHAT" "c" "146" "TB-NOITHAT" "")
                                (command "-layer" "n" "TB-NOITHAT2" "c" "9" "TB-NOITHAT2" "")
                                (command "-layer" "n" "TB-CAYCOI" "c" "76" "TB-CAYCOI" "")
                                (command "-style" ".VnAvantH" ".VnAvantH" "" "0.8" "" "" "" "")
(princ "\nTPTA REFORM THE FORM !"))
(princ)

gà quá chỉ biết sửa tên với màu thôi :)

;;; =========================== startup ===========================

(Defun s::startup ()

(command "-UNITS" "2" "5" "1" "2" "0" "N")

(setvar "cmdecho" 1) (command "limits" "" "42000,29700")

(setvar "aperture" 5) (setvar "gripsize" 6) (setvar "blipmode" 0)

(setvar "savetime" 10) (setvar "mirrtext" 0) (setvar "tracewid" 200)

(setvar "surftab1" 16) (setvar "surftab2" 24)(setvar "FILLETRAD" 0)(setvar "OSMODE" 695)

(command "-layer" "n" "TB-TUONG" "c" "7" "TB-TUONG" "")

(command "-layer" "n" "TB-TRUC" "c" "139" "TB-TRUC" "")

(command "-layer" "n" "TB-NETMANH" "c" "188" "TB-NETMANH" "")

(command "-layer" "n" "TB-DIM" "c" "251" "TB-DIM" "")

(command "-layer" "n" "TB-CUA" "c" "136" "TB-CUA" "")

(command "-layer" "n" "TB-TEXT" "c" "253" "TB-TEXT" "")

(command "-layer" "n" "TB-KINH" "c" "131" "TB-KINH" "")

(command "-layer" "n" "TB-HATCH" "c" "252" "TB-HATCH" "")

(command "-layer" "n" "TB-NETKHUAT" "c" "148" "TB-NETKHUAT" "")

(command "-layer" "n" "TB-NOITHAT" "c" "146" "TB-NOITHAT" "")

(command "-layer" "n" "TB-NOITHAT2" "c" "9" "TB-NOITHAT2" "")

(command "-layer" "n" "TB-CAYCOI" "c" "76" "TB-CAYCOI" "")

(command "-style" ".VnAvantH" ".VnAvantH" "" "0.8" "" "" "" "")

(princ "\nTPTA REFORM THE FORM !"))

(princ)

;;; =========================== startup ===========================

(Defun s::startup ()

(command "-UNITS" "2" "5" "1" "2" "0" "N")

(setvar "cmdecho" 1) (command "limits" "" "42000,29700")

(setvar "aperture" 5) (setvar "gripsize" 6) (setvar "blipmode" 0)

(setvar "savetime" 10) (setvar "mirrtext" 0) (setvar "tracewid" 200)

(setvar "surftab1" 16) (setvar "surftab2" 24)(setvar "FILLETRAD" 0)(setvar "OSMODE" 695)

(command "-layer" "n" "TB-TUONG" "c" "7" "TB-TUONG" "")

(command "-layer" "n" "TB-TRUC" "c" "139" "TB-TRUC" "")

(command "-layer" "n" "TB-NETMANH" "c" "188" "TB-NETMANH" "")

(command "-layer" "n" "TB-DIM" "c" "251" "TB-DIM" "")

(command "-layer" "n" "TB-CUA" "c" "136" "TB-CUA" "")

(command "-layer" "n" "TB-TEXT" "c" "253" "TB-TEXT" "")

(command "-layer" "n" "TB-KINH" "c" "131" "TB-KINH" "")

(command "-layer" "n" "TB-HATCH" "c" "252" "TB-HATCH" "")

(command "-layer" "n" "TB-NETKHUAT" "c" "148" "TB-NETKHUAT" "")

(command "-layer" "n" "TB-NOITHAT" "c" "146" "TB-NOITHAT" "")

(command "-layer" "n" "TB-NOITHAT2" "c" "9" "TB-NOITHAT2" "")

(command "-layer" "n" "TB-CAYCOI" "c" "76" "TB-CAYCOI" "")

(command "-style" ".VnAvantH" ".VnAvantH" "" "0.8" "" "" "" "")

(princ "\nTPTA REFORM THE FORM !"))

(princ)

;;; =========================== startup ===========================

(Defun s::startup ()

(command "-UNITS" "2" "5" "1" "2" "0" "N")

(setvar "cmdecho" 1) (command "limits" "" "42000,29700")

(setvar "aperture" 5) (setvar "gripsize" 6) (setvar "blipmode" 0)

(setvar "savetime" 10) (setvar "mirrtext" 0) (setvar "tracewid" 200)

(setvar "surftab1" 16) (setvar "surftab2" 24)(setvar "FILLETRAD" 0)(setvar "OSMODE" 695)

(command "-layer" "n" "TB-TUONG" "c" "7" "TB-TUONG" "")

(command "-layer" "n" "TB-TRUC" "c" "139" "TB-TRUC" "")

(command "-layer" "n" "TB-NETMANH" "c" "188" "TB-NETMANH" "")

(command "-layer" "n" "TB-DIM" "c" "251" "TB-DIM" "")

(command "-layer" "n" "TB-CUA" "c" "136" "TB-CUA" "")

(command "-layer" "n" "TB-TEXT" "c" "253" "TB-TEXT" "")

(command "-layer" "n" "TB-KINH" "c" "131" "TB-KINH" "")

(command "-layer" "n" "TB-HATCH" "c" "252" "TB-HATCH" "")

(command "-layer" "n" "TB-NETKHUAT" "c" "148" "TB-NETKHUAT" "")

(command "-layer" "n" "TB-NOITHAT" "c" "146" "TB-NOITHAT" "")

(command "-layer" "n" "TB-NOITHAT2" "c" "9" "TB-NOITHAT2" "")

(command "-layer" "n" "TB-CAYCOI" "c" "76" "TB-CAYCOI" "")

(command "-style" ".VnAvantH" ".VnAvantH" "" "0.8" "" "" "" "")

(princ "\nTPTA REFORM THE FORM !"))

(princ)

;;; =========================== startup ===========================

(Defun s::startup ()

(command "-UNITS" "2" "5" "1" "2" "0" "N")

(setvar "cmdecho" 1) (command "limits" "" "42000,29700")

(setvar "aperture" 5) (setvar "gripsize" 6) (setvar "blipmode" 0)

(setvar "savetime" 10) (setvar "mirrtext" 0) (setvar "tracewid" 200)

(setvar "surftab1" 16) (setvar "surftab2" 24)(setvar "FILLETRAD" 0)(setvar "OSMODE" 695)

(command "-layer" "n" "TB-TUONG" "c" "7" "TB-TUONG" "")

(command "-layer" "n" "TB-TRUC" "c" "139" "TB-TRUC" "")

(command "-layer" "n" "TB-NETMANH" "c" "188" "TB-NETMANH" "")

(command "-layer" "n" "TB-DIM" "c" "251" "TB-DIM" "")

(command "-layer" "n" "TB-CUA" "c" "136" "TB-CUA" "")

(command "-layer" "n" "TB-TEXT" "c" "253" "TB-TEXT" "")

(command "-layer" "n" "TB-KINH" "c" "131" "TB-KINH" "")

(command "-layer" "n" "TB-HATCH" "c" "252" "TB-HATCH" "")

(command "-layer" "n" "TB-NETKHUAT" "c" "148" "TB-NETKHUAT" "")

(command "-layer" "n" "TB-NOITHAT" "c" "146" "TB-NOITHAT" "")

(command "-layer" "n" "TB-NOITHAT2" "c" "9" "TB-NOITHAT2" "")

(command "-layer" "n" "TB-CAYCOI" "c" "76" "TB-CAYCOI" "")

(command "-style" ".VnAvantH" ".VnAvantH" "" "0.8" "" "" "" "")

(princ "\nTPTA REFORM THE FORM !"))

(princ)

(Defun s::startup ()

(command "-UNITS" "2" "5" "1" "2" "0" "N")

(setvar "cmdecho" 1) (command "limits" "" "42000,29700")

(setvar "aperture" 5) (setvar "gripsize" 6) (setvar "blipmode" 0)

(setvar "savetime" 10) (setvar "mirrtext" 0) (setvar "tracewid" 200)

(setvar "surftab1" 16) (setvar "surftab2" 24)(setvar "FILLETRAD" 0)(setvar "OSMODE" 695)

(command "-layer" "n" "TB-TUONG" "c" "7" "TB-TUONG" "")

(command "-layer" "n" "TB-TRUC" "c" "139" "TB-TRUC" "")

(command "-layer" "n" "TB-NETMANH" "c" "188" "TB-NETMANH" "")

(command "-layer" "n" "TB-DIM" "c" "251" "TB-DIM" "")

(command "-layer" "n" "TB-CUA" "c" "136" "TB-CUA" "")

(command "-layer" "n" "TB-TEXT" "c" "253" "TB-TEXT" "")

(command "-layer" "n" "TB-KINH" "c" "131" "TB-KINH" "")

(command "-layer" "n" "TB-HATCH" "c" "252" "TB-HATCH" "")

(command "-layer" "n" "TB-NETKHUAT" "c" "148" "TB-NETKHUAT" "")

(command "-layer" "n" "TB-NOITHAT" "c" "146" "TB-NOITHAT" "")

(command "-layer" "n" "TB-NOITHAT2" "c" "9" "TB-NOITHAT2" "")

(command "-layer" "n" "TB-CAYCOI" "c" "76" "TB-CAYCOI" "")

(command "-style" ".VnAvantH" ".VnAvantH" "" "0.8" "" "" "" "")

(princ "\nTPTA REFORM THE FORM !"))

(princ)

Tháng 5 13, 2013

Em đang làm đồ án tư cách, đề tài em sẽ chọn để tốt nghiệp là Cảng Hàng Không
Em đang rất cần file cad quy hoạch Thành phố Cam Ranh ( hay quy hoạch Sân bay Cam Ranh) để làm khu đất xây dựng
Rất mong được các anh chị giúp đỡ
Em rất cám ơn
Email : tungbuiarc@gmail.com

Tháng 8 15, 2011

Lục lại Box cũ 1 tý...! MEm mới cũng là mới học cad các bạn thông cảm cho mình....!

Mình muốn hỏi Sao mình không thể trim hay Ex đc đường thẳng song song mà mình đã vẽ bằng Ml ! Mình dùng Cad 2007 :(( Help...!

Đăng nhập

kts.t2

Số lượng nội dung

Đã tham gia

Lần ghé thăm cuối

Loại nội dung

Hồ sơ

Diễn đàn

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

[ Yêu Cầu ] Lisp tạo các Layer cho trước trong một bản vẽ mới

Xin file cad quy hoạch thành phố Cam Ranh ( Sân bay Cam Ranh)

Thắc mắc sử dụng lệnh ML vẽ đường song song

Diễn đàn

Download

Đào tạo CADViet

Browse