Đến nội dung


Hình ảnh
5 stars - based on 24598 reviews
- - - - -

[Nhờ Chỉnh Sửa] Chọn Block Theo Giá Trị Attribute


  • Please log in to reply
2 replies to this topic

#1 vietanh2108

vietanh2108

    biết vẽ line

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

Đã gửi 28 March 2017 - 10:51 AM

Em tìm được lisp này trên mạng của thánh Lêmác cơ mà bị cái kẹt nó đang chọn tất cả các block trên Model. Em muốn nhờ các bác sửa tí xíu thôi, mong ai đi ngang qua giúp cho.
- Lọc các Block ở vùng chọn selectonscreen thay vì toàn model
Em xin cám ơn các bác đã quan tâm chủ đề trên! :D
 
;; Select Blocks by Attribute Value - Lee Mac

;; Selects all attributed blocks in the current layout which contain a specified attribute value.

(defun c:selblkbyattval ( / att atx ent idx sel str )

(if (/= "" (setq str (strcase (getstring t "\nSpecify attribute value: "))))

(if (and

(setq sel

(ssget "_X"

(list '(0 . "INSERT") '(66 . 1)

(if (= 1 (getvar 'cvport))

(cons 410 (getvar 'ctab))

'(410 . "Model")

)

)

)

)

(progn

(repeat (setq idx (sslength sel))

(setq ent (ssname sel (setq idx (1- idx)))

att (entnext ent)

atx (entget att)

)

(while

(and (= "ATTRIB" (cdr (assoc 0 atx)))

(not (wcmatch (strcase (cdr (assoc 1 atx))) str))

)

(setq att (entnext att)

atx (entget att)

)

)

(if (= "SEQEND" (cdr (assoc 0 atx)))

(ssdel ent sel)

)

)

(< 0 (sslength sel))

)

)

(sssetfirst nil sel)

(princ (strcat "\nNo blocks found with attribute value matching \"" str "\"."))

)

)

(princ)

)

  • 0

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 28 March 2017 - 11:06 AM

Tìm và diệt 4 ký tự màu đỏ "_X" khỏi lisp


  • 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ờ. Và đừng làm điều ngược lại.

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

vietanh2108

    biết vẽ line

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

Đã gửi 28 March 2017 - 11:26 AM

Đơn giản, hiệu quả, nhanh gọn quá!!! e cám ơn bác nhiều :D
  • 0