Đến nội dung


Hình ảnh
- - - - -

cần lisp lọc số trong khoảng AB


  • Please log in to reply
3 replies to this topic

#1 friendship293a

friendship293a

    biết lệnh erase

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

Đã gửi 26 November 2013 - 05:27 PM

Em cần lisp yêu cầu

1. nhập a

2. nhập b

3. chọn vùng cần lọc

4. chọn những số trong khoảng ab

dữ liệu e gửi file. thanks pro

http://www.cadviet.c...doi_tuong_2.dwg


  • 0

#2 friendship293a

friendship293a

    biết lệnh erase

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

Đã gửi 26 November 2013 - 08:42 PM

Pro nào giúp e với


  • -1

#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 26 November 2013 - 08:44 PM

Chi mà phải mở nhiều topic thế!

;Doan Van Ha - CADViet.com - Ngay 26/11/2013
;Muc dich: Chon cac doi tuong *Text nam giua 2 gioi han.
(defun C:HA( / duoi tren ss )
 (if
  (and
   (not (initget 1)) (setq duoi (getreal "\nNhap gioi han duoi: "))
   (not (initget 1)) (setq tren (getreal "\nNhap gioi han tren: "))
   (princ "\nChon cac doi tuong Text...")
   (setq ss (ssget '((0 . "*Text"))) ss1 (ssadd)))
  (progn  
   (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    (if
     (>= tren (distof (cdr (assoc 1 (entget ent)))) duoi)
     (setq ss1 (ssadd ent ss1))))
   (sssetfirst nil ss1))))
 

  • 1

* 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 friendship293a

friendship293a

    biết lệnh erase

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

Đã gửi 26 November 2013 - 08:52 PM

Cảm ơn bác không phải e mở nhiều đâu mà lúc gửi nó báo lỗi không gửi được nên e gửi lại nên mới thế thui sory diễn đàn hi


  • 0