Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
5 replies to this topic

#1 amateurday

amateurday

    biết lệnh break

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

Đã gửi 23 April 2012 - 07:28 AM

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: "))
)

  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 23 April 2012 - 08:34 AM

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 ^^
  • 2

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 23 April 2012 - 08:45 AM

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).
  • 2

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#4 amateurday

amateurday

    biết lệnh break

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

Đã gửi 23 April 2012 - 09:11 AM

Thanks các bác!!!!!!!!!!!!!!!!!!!!!!!!
  • 0

#5 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 23 April 2012 - 01:56 PM

Đú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è????
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#6 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 23 April 2012 - 02:20 PM

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).
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.