LEE MAC ,about dynamic block countV1.lisp

[o0ki1ler]

hello ,LEE MAC ,I take the liberty to write this letter to you about your LISP program for dynamic block countV1, which does not support dynamic stretching. I am a novice myself. I have not worked it out for a long time. I want to get your help. I wonder if you have time to update this program. Thank you!

[mhupp]

Maybe use http://www.lee-mac.com/contact.html

[o0ki1ler]

I can't send letters in Http://www.lee-mac.com/contact.html. I know he often haunts this forum. I come here to try my luck.

[o0ki1ler]

DBCountV1-1.lsp   http://www.lee-mac.com/lisp/html/DBCountV1-1.html   

[o0ki1ler]

Stretch dynamic block test file, welcome to test

test.dwg

[BIGAL]

If I understand correct you want the total of the number of blocks with the same length value.

 

(defun c:blkcnt ( / lst ss blk val )
  (setq lst '() lst2 '() lst3 '())
  (setq ss (ssget (list (cons 0 "INSERT")(cons 2 "*U*"))))
  (repeat (setq x (sslength ss))
    (setq blk (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
    (setq val (LM:getdynpropvalue  blk   "规格"))
    (setq lst (cons val lst))
  )
  (setq lst2 (remove_doubles lst))
  (foreach len lst2
    (setq cnt (my-count len lst))
    (setq lst3 (cons (list len cnt) lst3))
  )
(princ)
)
(c:blkcnt)

 

(princ lst3)

((1800.0 2) (1200.0 4) (2000.0 5))

[o0ki1ler]

Yes, but I tested it with your code, and there was no way to select the layer. I don't know why.

On 10/17/2021 at 11:55 AM, BIGAL said:

If I understand correct you want the total of the number of blocks with the same length value.

 

(defun c:blkcnt ( / lst ss blk val )
  (setq lst '() lst2 '() lst3 '())
  (setq ss (ssget (list (cons 0 "INSERT")(cons 2 "*U*"))))
  (repeat (setq x (sslength ss))
    (setq blk (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
    (setq val (LM:getdynpropvalue  blk   "规格"))
    (setq lst (cons val lst))
  )
  (setq lst2 (remove_doubles lst))
  (foreach len lst2
    (setq cnt (my-count len lst))
    (setq lst3 (cons (list len cnt) lst3))
  )
(princ)
)
(c:blkcnt)

 

(Princ Lst 3)

((1800.0 2) (1200.0 4) (2000.0 5))

 

Edited October 18, 2021 by o0ki1ler

[o0ki1ler]

Here is the LEEMAC code and the number of blocks I need to count, which is sent out here, as well as the results of my test.

test.dwg DBCountV1-1.lsp

[BIGAL]

I have updated the code above I am not sure what you want as output so if you type !lst3 after running you will see result. The sort does not like the non english characters so I removed and works on your new dwg.

[o0ki1ler]

I come from China, and I'm not very good at English, but it doesn't affect programming. Just replace the Chinese characters in the block with letters!