Đến nội dung


Hình ảnh
- - - - -

[Nhờ viết lisp] lisp đánh số thứ tự khung tên này. Thanks all!


  • Please log in to reply
3 replies to this topic

#1 pegau1007

pegau1007

    Chưa sử dụng CAD

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

Đã gửi 10 December 2013 - 10:07 AM

nhờ mọi người giúp em viết lisp đánh số thứ tự khung tên này: KT 01-KT 02. số thứ tự tăng thêm 1 đơn vị theo thứ tự từ trái sang phải, từ trên xuống.

Thanks mọi người nhìu nhìu!

 

http://www.mediafire...j3/KUNG TÊN.dwg


  • 0

#2 dragontalon0802

dragontalon0802

    biết lệnh erase

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

Đã gửi 10 December 2013 - 05:28 PM

Bạn có thể tham khảo lisp mình đã từng nhờ bác Hà viết. Google "nhờ viết lisp khung tên dragontalon0802" là ra. Diễn đàn lỗi nên ko chèn link được.


  • 0

#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 10 December 2013 - 09:50 PM

Bạn có thể tham khảo lisp mình đã từng nhờ bác Hà viết. Google "nhờ viết lisp khung tên dragontalon0802" là ra. Diễn đàn lỗi nên ko chèn link được.

À. Hình như tôi có viết cái này rồi. Chỉ nhớ mang máng. Nếu không tìm ra thì lúc rảnh tôi tìm giùm cho.


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


#4 quansla

quansla

    biết lệnh xclip

  • Members
  • PipPipPipPipPipPipPip
  • 643 Bài viết
Điểm đánh giá: 224 (khá)

Đã gửi 10 December 2013 - 11:32 PM

Dùng tạm trước khi tìm thấy của Bác Hà nhé bạn
Tên lệnh Thunghiem (đặt lại nếu muón nhé)


(defun c:thunghiem(/ ss x y px py j i  xuly NumBe )
  (setq text 1)
  (defun xuly(text /)
    (if (< text 10) (strcat "0" (rtos text 2 0)) (rtos text 2 0)))
  (vl-load-com)  
  (setq ss (acet-ss-to-list(ssget '(( 0 . "insert")(2 . "BB3")))))
  (setq ss (vl-sort ss '(lambda (x y)
(if (not (equal
   (cadr (setq px (cdr(assoc 10 (entget x)))))
   (cadr (setq py (cdr(assoc 10 (entget y)))))
   1E-3))
  (> (cadr px) (cadr py))
  (< (car px) (car py))
  )
)))
  (setq j
(cond
  ((getint "\nChon so bat dau<1>"))
  (1)))
  (setq NumBe j j (1- j))
  (foreach i ss
    (while (/= (cdr(assoc 0 (entget (entnext i)))) "SEQEND")
      (if (entnext i) (setq i (entnext i) ent (entget i)))
      (if (and (setq i (entnext i)ent (entget i))
      (= "ATTRIB" (cdr(assoc 0 ent)))
      (= "00" (cdr(assoc 2 ent))))
(entmod(subst (cons 1 (xuly (setq j (1+ j)) )) (assoc 1 ent) ent))
))
    )
  (prompt (strcat "\nDa danh so tu "(rtos NumBe 2 0) " den " (rtos j 2 0)))
  (princ)
  )

Yêu cầu cần cài Express Tools


  • 0