Đến nội dung


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

[Help] Nhờ Chỉnh Sửa File Lisp Chọn Các Đường Tròn Giống Nhau


  • Please log in to reply
5 replies to this topic

#1 TrNghia.Do

TrNghia.Do

    biết zoom

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

Đã gửi 24 March 2017 - 12:47 PM

Chào các bác

https://drive.google...VmJYZlZaUEhQRGs

Em có tìm được 1 lisp cho phép chọn các đường tròn có kích thước giống nhau. Điểm hạn chế là nó ko cho phép chọn vùng mà sẽ quét toàn bản vẽ.
Vậy nhờ các bác xem giúp sao cho nó có thêm bước chọn vùng thực thi xác định ạ.
Thanks 

Bài viết đã được chỉnh sửa nội dung bởi TrNghia.Do: 24 March 2017 - 12:51 PM

  • -2

#2 Danh Cong

Danh Cong

    biết lệnh block

  • Moderator
  • PipPipPipPipPipPip
  • 404 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 24 March 2017 - 01:55 PM

Mở lisp: Xóa chữ  "_X" đi.


  • 2

            *** Vô lo - Vô nghĩ - Vô sầu hận ***
*** Chẳng thương - Chẳng giận - Chẳng đau lòng ***


#3 TrNghia.Do

TrNghia.Do

    biết zoom

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

Đã gửi 24 March 2017 - 08:21 PM

ok thank ban nhieu :)


  • 0

#4 TrNghia.Do

TrNghia.Do

    biết zoom

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

Đã gửi 25 March 2017 - 12:27 PM

Cho mình hỏi thêm giả sử có 5 đường tròn r10 nét liền , layer 1 và 5 đường tròn r10 nét đứt, layer 2. giờ mình muốn chọn phân biệt cả đường nét, layer để khi mình chọn loại nét liền thì sẽ ko bị lẫn loại nét đứt dù có cùng r10


  • 0

#5 Danh Cong

Danh Cong

    biết lệnh block

  • Moderator
  • PipPipPipPipPipPip
  • 404 Bài viết
Điểm đánh giá: 88 (tàm tạm)

Đã gửi 25 March 2017 - 09:44 PM

Cho mình hỏi thêm giả sử có 5 đường tròn r10 nét liền , layer 1 và 5 đường tròn r10 nét đứt, layer 2. giờ mình muốn chọn phân biệt cả đường nét, layer để khi mình chọn loại nét liền thì sẽ ko bị lẫn loại nét đứt dù có cùng r10

+ Thêm phần lựa chọn đường tròn theo Layer .

Bổ xung thêm vào lisp vài dòng code xanh xanh sau:

 

(setq rad (cdr (assoc 40 (entget cEnt))))

(setq layer (cdr (assoc 8  (entget cEnt))))

Và : 

(list '(0 . "CIRCLE")

(cons 8 layer)


  • 0

            *** Vô lo - Vô nghĩ - Vô sầu hận ***
*** Chẳng thương - Chẳng giận - Chẳng đau lòng ***


#6 TrNghia.Do

TrNghia.Do

    biết zoom

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

Đã gửi 27 March 2017 - 07:33 AM

lisp chạy tốt với sự phân biệt layer, tuy nhiên nếu các đường tròn có nét khác nhau cùng layer thì nó lại ko phân biệt được. Nhờ bạn xem giúp


  • -1