Đến nội dung


Hình ảnh
- - - - -

[ yêu cầu ] lisp lọc điểm có cao độ Z


  • Please log in to reply
3 replies to this topic

#1 hakhoailang

hakhoailang

    biết lệnh rotate

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

Đã gửi 10 June 2012 - 08:33 PM

e có một tập hợp các điểm có cao độ khác nhau . nhưng e chỉ cần một số điểm có cao độ đạt cao độ thiết kế . vì vậy e viết topic này nhờ các bác viết hộ e cái lip lọc các point có cao độ trong khoảng giới hạn min max .
em cảm ơn các bác .
  • 0

#2 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 10 June 2012 - 08:41 PM

e có một tập hợp các điểm có cao độ khác nhau . nhưng e chỉ cần một số điểm có cao độ đạt cao độ thiết kế . vì vậy e viết topic này nhờ các bác viết hộ e cái lip lọc các point có cao độ trong khoảng giới hạn min max .
em cảm ơn các bác .

Lisp lọc các điểm có cao độ Z nằm trong đoạn [Zmin Zmax]

;Doan Van Ha - CADViet.com - Ngay 10/6/2012
;Muc dich: Loc cac diem co cao do nam trong doan [Zmin Zmax]
(defun C:HA( / min max entlst)
(princ "\nChon cac Points de Fillter cao do...")
(setq entlst (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "POINT")))))))
(initget 1) (setq zmin (getreal "\nGia tri cao do Min: "))
(initget 1) (setq zmax (getreal "\nGia tri cao do Max: "))
(setq ss1 (ssadd))
(foreach ent entlst
(if (<= zmin (cadddr (assoc 10 (entget ent))) zmax)
(setq ss1 (ssadd ent ss1))))
(sssetfirst nil ss1)
(princ))

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


#3 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 11 June 2012 - 04:33 PM

e có một tập hợp các điểm có cao độ khác nhau . nhưng e chỉ cần một số điểm có cao độ đạt cao độ thiết kế . vì vậy e viết topic này nhờ các bác viết hộ e cái lip lọc các point có cao độ trong khoảng giới hạn min max .
em cảm ơn các bác .

Hề hề hề,
Củ khoai lang này hà quá rùi.
Chả phải lần đầu post bài mà vẫn không chịu post bản vẽ cũng như hình ảnh kèm theo thì ..... hà tiện quá....
Hề hề 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.

#4 hakhoailang

hakhoailang

    biết lệnh rotate

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

Đã gửi 11 June 2012 - 08:50 PM

vâng từ nay e xin rút kinh nghiệm . sẽ có bản vẽ đàng hoàng .
  • 0