Đến nội dung


Hình ảnh

Xin Cao Thủ Trợ Giúp Phá Block Sau


  • Please log in to reply
4 replies to this topic

#1 monavamonava

monavamonava

    biết vẽ ellipse

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

Đã gửi 23 November 2016 - 03:29 PM

Chào các bác, em vô tình tạo ra một Khung tên dạng Block như file sau:

- Mong được trợ giúp phá block này.

- Các bác có thể cho biết cách tạo ra nó được không?!!!(Quả thực em không nhớ đã tạo ra nó bằng cách nào nửa).

Xin cảm ơn

https://drive.google...d2lCSnNaZkRUSVE


  • 0

#2 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 23 November 2016 - 05:28 PM

1. Phá bằng lisp:

(defun c:tt  (/ blk bln doc ebl)
  (and (setq doc (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
       (setq blk (ssget "_+.:S:E" '((0 . "INSERT"))))
       (setq ebl (ssname blk 0))
       (setq bln (cdr (assoc 2 (entget ebl))))
       (not (vla-put-explodable (vla-item doc bln) :vlax-true))
       (vla-explode (vlax-ename->vla-object ebl)))
  (princ))

2. Nằm ở chỗ khoanh màu đỏ:

OXwcVn.jpg


  • 2

#3 monavamonava

monavamonava

    biết vẽ ellipse

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

Đã gửi 24 November 2016 - 08:13 AM

Câu trả lời quá bác rất chính xác và đầy đủ. Xin cảm ơn  bác nhiều!


  • 0

#4 monavamonava

monavamonava

    biết vẽ ellipse

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

Đã gửi 24 November 2016 - 08:17 AM

1. Phá bằng lisp:

(defun c:tt  (/ blk bln doc ebl)
  (and (setq doc (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
       (setq blk (ssget "_+.:S:E" '((0 . "INSERT"))))
       (setq ebl (ssname blk 0))
       (setq bln (cdr (assoc 2 (entget ebl))))
       (not (vla-put-explodable (vla-item doc bln) :vlax-true))
       (vla-explode (vlax-ename->vla-object ebl)))
  (princ))

2. Nằm ở chỗ khoanh màu đỏ:

OXwcVn.jpg

Sao em copy mã lisp của bác rồi gõ lệnh tt mà không được nhỉ...  Bác có thể cho lisp hoàn chỉnh(file lisp) và lệnh thực hiện được không?


  • 0

#5 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

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

Đã gửi 24 November 2016 - 08:31 AM

Bạn thử thêm (vl-load-com) vào đầu hoặc cuối lisp.


  • 0