Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
amateurday

[Yêu cầu] Nhờ các bác sửa giúp

Các bài được khuyến nghị

Em muốn dùng lisp này, lisp sẽ tạo ra layer block, nếu có rồi thì đặt hiện hành, nhưng em không biết thực thi lệnh insert như bình thường được (nghĩa là hiện hộp thoại insert block). Các bác cho em hỏi làm cách nào để hiện hộp insert block được???

(defun c:i(/ tenlayer )
(if prelayer
 (alert (strcat prelayer))
 (alert (strcat "!!!!!!!!!!!!!!!!!!   	NOT DATA  	!!!!!!!!!!!!!!!!!!"))
)
(if prelayer
 (progn
  (setq tenlayer (strcat "___" prelayer "___" "block"))
  (if (= nil (tblsearch "layer" tenlayer))
(command "-layer" "m" tenlayer "c" 7 tenlayer "")
  )
(command "-layer" "s" tenlayer "")
 )
)
(command "insert")
)
(defun c:ttla()
(setq prelayer (getstring T "\n Tien to layer: "))
)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Em muốn dùng lisp này, lisp sẽ tạo ra layer block, nếu có rồi thì đặt hiện hành, nhưng em không biết thực thi lệnh insert như bình thường được (nghĩa là hiện hộp thoại insert block). Các bác cho em hỏi làm cách nào để hiện hộp insert block được???

(defun c:i(/ tenlayer )
(if prelayer
 (alert (strcat prelayer))
 (alert (strcat "!!!!!!!!!!!!!!!!!!   	NOT DATA  	!!!!!!!!!!!!!!!!!!"))
)
(if prelayer
 (progn
  (setq tenlayer (strcat "___" prelayer "___" "block"))
  (if (= nil (tblsearch "layer" tenlayer))
(command "-layer" "m" tenlayer "c" 7 tenlayer "")
  )
(command "-layer" "s" tenlayer "")
 )
)
(command "insert")
)
(defun c:ttla()
(setq prelayer (getstring T "\n Tien to layer: "))
)

Bạn thử đặt dòng (initdia 1) vào trước dòng command xem sao ? Mình k ngồi ở chỗ có CAD nên nhớ màng máng vậy thôi ^^

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Bạn thử đặt dòng (initdia 1) vào trước dòng command xem sao ? Mình k ngồi ở chỗ có CAD nên nhớ màng máng vậy thôi ^^

Đúng rồi!

(initdia 1) hay (initdia) đều được.

Muốn nó đổi lại thì (initdia 0).

  • Vote tăng 2

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Đúng rồi!

(initdia 1) hay (initdia) đều được.

Muốn nó đổi lại thì (initdia 0).

Hề hề hề,

Tiện thể các bác cho biết thêm là nếu (initdia 9000) thì nó cho ra cái chi các bác hè????

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề hề,

Tiện thể các bác cho biết thêm là nếu (initdia 9000) thì nó cho ra cái chi các bác hè????

Bác Bình đặt câu hỏi "ác"!

Hì hì! Theo tôi biết thì (initdia) hoặc (initdia N) đều giống nhau, với mọi N>0.

Và nó chỉ có ý nghĩa cho 1 lệnh duy nhất đi sau hàm này mà thôi (chắc nó cũng tương tự hàm initget vậy).

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×