đếm block tuy chọn

[thienha.haui 0]

chào các bạn.mình đã tìm hiểu trên diễn đàn về lisp đếm block nhưng chưa có lisp nào như ý mong các bạn giúp đỡ.

mình muốn có 1 lisp như sau.

- gõ lệnh

-chọn block muốn đếm

-chọn vùng cần đếm

-chọn vị trí đặt text

 

Mong các bạn giúp đỡ/

[Doan Van Ha 3.201]

Dùng lệnh BCOUNT đi bạn!

[thienha.haui 0]

lệnh đó đếm tất cả block anh ạ .bởi vì bản vẽ rất nhiều block nên khi dùng lệnh đó tìm tới block mình cần rất mất thời gian.

nên e muốn có lisp chỉ chọn block mình cần đếm thôi ạ thôi ạ.

[Doan Van Ha 3.201]

Thế thì QSELECT ?

[thienha.haui 0]

ko hay bằng lisp.mong các cao thủ giúp đỡ

[vutung1982 0]

Có bác nào biết lỗi của bản cad này không, xin biện pháp khắc phục.

Thanks!!

 

[vutung1982 0]

http://www.cadviet.com/upfiles/3/129893_hssd_2014404.dwg

[thienha.haui 0]

ko ai giúp dc à.diễn đàn lớn thế mà

[Tot77 508]

Từ từ!! Bình tĩnh!! không phải ai cũng rảnh ngồi chực để viết lisp đâu bạn?

[Tot77 508]

Của bạn đây.

 

(defun c:test(/ ten soluong diem)

  (setq ten (cdr (assoc 2 (entget (car (entsel "\nChon Block:")))))

soluong (sslength (ssget (list '(0 . "INSERT") (cons 2 ten))))

diem (getpoint "\nDiem dat text:"))

  (entmakex (list (cons 0  "TEXT") (cons 10 diem) (cons 11 diem)

 (cons 40 1) (cons 1 (itoa soluong))))

  (princ)  

)

(defun c:test()

  (defun dxf (id v) (cdr (assoc id (entget v))))

  (setq ten (dxf 2 (car (entsel "\nChon Block:")))

soluong (length (vl-remove nil (mapcar '(lambda(x) (if (= ten (dxf 2 x)) x nil))

      (acet-ss-to-list (ssget '((0 . "INSERT")))))))

diem (getpoint "\nDiem dat text:"))

  (entmakex (list (cons 0  "TEXT") (cons 10 diem) (cons 11 diem)

 (cons 40 1) (cons 1 (itoa soluong))))

  (princ)  

)

[anh.tuan 35]

cái này không nhận ra anonymous block bạn ạ.

[Tot77 508]

Chủ thớt chỉ yêu cầu tìm block có tên thôi.

[thienha.haui 0]

-chưa được anh ạ.a sửa cho e là có thể chọn nhiều block trong cùng 1 lần đếm nhé.bởi vì lisp này cho chọn có 1 block 1 lần.

-trong phần chọn block ấy.khi mình kích vào block thì ta chưa biết rằng đã kích chọn được block hay chưa.nên e muốn a sửa là :nếu đã chọn được rồi thì trong dòng comment nó hiển thị là:1 block(3block) đã được chọn chẳng hạn.

-Cái nữa là chiều cao text quá nhỏ nếu bản vẽ lớn.nên trước phần vị trí đặt text a sửa giúp e là chọn text mẫu nữa ạ

 

mong a giúp đỡ

[Tot77 508]

Thử cái này, text mẫu chỉ hỏi 1 lần thôi, lần sau không hỏi nữa.

(defun c:test(/ lten lsoluong ss diem diem1 n cao)

  (defun dxf(id v) (cdr (assoc id (entget v))))

  

  (princ "\nChon Block:")

  (setq lten nil)  

  (mapcar '(lambda(x) (if (not (member (setq tm (dxf 2 x)) lten)) (setq lten (cons  tm lten))))

 (acet-ss-to-list (ssget (list '(0 . "INSERT")))))

 

  (princ "\nTrong cac doi tuong:")

  (setq ss (acet-ss-to-list (ssget (list '(0 . "INSERT"))))

lsoluong (mapcar '(lambda(y) (length (vl-remove nil (mapcar '(lambda(x) (if (= y (dxf 2 x)) x nil)) ss)))) lten))

 

  (if (not textmau) (setq textmau (car (entsel "Chon Text mau:"))))

 

  (setq diem (getpoint "\nDiem dat text so luong:")

n -1

cao (dxf 40 textmau))

  (foreach v lten

    (entmakex (list (cons 0  "TEXT") (cons 10 (setq diem1 (polar diem (* -0.5 pi) (* 2 cao (setq n (1+ n))))))

   (cons 11 diem1) (cons 40 cao) (cons 7 (dxf 7 textmau)) (cons 71 (dxf 71 textmau)) (cons 72 (dxf 72 textmau))

   (cons 1 (strcat (nth n lten) " : " (itoa (nth n lsoluong))))))

  )

  (princ)  

)

 

@anh tuan : bạn có file nào có anonymous block cần đếm thì đưa lên tôi test cho.

[anh.tuan 35]

không biết có phải là anonymous không, nhưng những block có thể cho mình xoay tròn các mặt ấy, ví dụ block cái ghế, mình có thể "xoay" để thấy mặt trước, sau, trên, dưới, trái, phải..... thì lisp này không nhận ra.

[Tot77 508]

Cái này sửa lại có thể đếm được dynamic block.

 

http://www.cadviet.com/upfiles/3/127168_tmp1_52.lsp

[thienha.haui 0]

a Tot77 ơi post lại link giúp e nhé.link hỏng rồi không down được

[Tot77 508]

Có phải cái này không?

 

(defun c:test(/ lten lsoluong ss diem diem1 n cao)
  (defun dxf(id v) (cdr (assoc id (entget v))))
  
  (princ "\nChon Block:")
  (setq lten nil)  
  (mapcar '(lambda(x) (if (not (member (setq tm (vla-get-Effectivename (vlax-ename->vla-object x))) lten))
      (setq lten (cons tm lten))))
 (acet-ss-to-list (ssget (list '(0 . "INSERT")))))
 
  (princ "\nTrong cac doi tuong:")
  (setq ss (acet-ss-to-list (ssget (list '(0 . "INSERT"))))
lsoluong (mapcar '(lambda(y)
  (length (vl-remove nil (mapcar '(lambda(x)
(if (= y (vla-get-Effectivename (vlax-ename->vla-object x))) x nil)) ss)))) lten))
 
  (if (not textmau) (setq textmau (car (entsel "Chon Text mau:"))))
 
  (setq diem (getpoint "\nDiem dat text so luong:")
n -1
cao (dxf 40 textmau))
  (foreach v lten
    (entmakex (list (cons 0  "TEXT") (cons 10 (setq diem1 (polar diem (* -0.5 pi) (* 2 cao (setq n (1+ n))))))
   (cons 11 diem1) (cons 40 cao) (cons 7 (dxf 7 textmau)) (cons 71 (dxf 71 textmau)) (cons 72 (dxf 72 textmau))
   (cons 1 (strcat (nth n lten) " : " (itoa (nth n lsoluong))))))
  )
  (princ)  
)

[anh.tuan 35]

mình gặp lỗi này là sao vậy các bạn:

 

Command: test

Chon Block:
Select objects: 1 found

Select objects: 1 found, 2 total

Select objects:
Trong cac doi tuong:
Select objects: 0 found

Select objects:
Diem dat text so luong:; error: bad argument type: numberp: nil

Command:

[Tot77 508]

mình gặp lỗi này là sao vậy các bạn:

 

Command: test

 

Chon Block:

Select objects: 1 found

 

Select objects: 1 found, 2 total

 

Select objects:

Trong cac doi tuong:

Select objects: 0 found

 

Select objects:

Diem dat text so luong:; error: bad argument type: numberp: nil

 

Command:

Bạn up file của bạn để test.

[anh.tuan 35]

đây bạn

[anh.tuan 35]

đây bạn

[Tot77 508]

Vẫn chưa thấy file.