Need LISP routine to automatically place "number"-blocks on conveyors
I don't have a time to write some code but I'll share my view on this task. I think this is solvable without writting a code. I've opened your sample drawing and as I see you've got conveyors blocks that you join to numbering.
I don't know, maybe I'm wrong, but I would joint those two blocks into a single dynamic block with rules about how to orient numbering in regards to conveyour orijentation (outside, at midpoint ....).
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Speaking of rotation, there's one odd block in that drawing at position X 10000, the rotation is 90 deg, while similar block definition with thb w same rotation is at either 0 or 180, cant wrap my ahead around it.
Are the conveyors rotation is either 0 or 90 and never at an odd angle?
Accepted solution
Q&D : You can build off this code..
(defun c:NOC (/ valid_blocks f ss i e data dpp len)
;; pBe 2019 ;;
(setq valid_blocks '("CONV-400x200" "CONV-600x400"));; Add more block names here with
(setq f (lambda (p) (vlax-get e p)))
(if
(setq ss (ssget '((0 . "INSERT")(2 . "`*U*,CONV-*"))))
(repeat (setq i (sslength ss))
(setq e (vlax-ename->vla-object (ssname ss (Setq i (1- i)))))
(setq data (mapcar 'f '("Insertionpoint" "Rotation" "EffectiveName" "XScaleFactor")))
(if (and
(member (caddr data) valid_blocks)
(setq dpp (mapcar '(lambda (e) (mapcar 'f
'("PropertyName" "Value" )))
(vlax-invoke e 'GetDynamicBlockProperties)))
(> (setq len (cadr (Assoc "Length" dpp))) 0)
)
(vlax-invoke
(vlax-get (vla-get-ActiveLayout
(vla-get-activedocument
(vlax-get-acad-object)
)
)
'Block
)
'InsertBlock
(polar (car data)
(+ (if (minusp (last data)) pi 0.0) (Cadr data))
len)
"UnitNumber" ;; make sure this block exists in the drawing
1 1 1 0) ;; <-- block rotation at 0, Zero, cero, Null, bokya, nialas ....
)
)
)
(princ)
)
HTH
@Anonymous wrote:
Code did EXACTLY what it was supposed to do - thank you so much!!! 🙂 Kudos!Regarding the "weird" block you mentioned, if you orbit the drawing, you'll see that the block was 3d rotated 🙂
Glad to be of help KayChrisKAy.
I see, now why didn't I think of that 😄
Cheers
Accepted solution
@Anonymous wrote:
estion - I apologize... 🙂 Is it somehow possible to, instead of defining all 50 blocks that I got, that start with "CONV-", to just setq valid_blocks to all blocks that has a name starting with "CONV-"?
Yup.
Replace
(member (caddr data) valid_blocks)
with
(vl-string-search "CONV-" (caddr data))
HTH
ITs not too much trouble, we will target blocks with this pattern "###x###" at the end of the block name similar to any of these "CONV-600x400" "TRANSF-400x200" "OVERH-600x200", also it should have the "LENGTH" property name.
It would also help if you you can define which blocks to insert in place of "UnitNumber" or "POSITION2" etc.. that way you dont need to change the block name to insert everytime you need to run the program. Perhaps we can just define one for each block like this:
(Defun c:iBlock1 nil (NOC "UnitNumber")) (Defun c:iBlock2 nil (NOC "POSITION2"))
you can add as many as you like
Then we modify the main routine to accept any valid block name as an argument
(defun NOC ( bname / valid_blocks f ss i e data dpp len)
;; pBe 2019 ;;
(setq f (lambda (p) (vlax-get e p)))
(if
(setq ss (ssget '((0 . "INSERT")(2 . "`*U*,*###x###*"))))
(repeat (setq i (sslength ss))
(setq e (vlax-ename->vla-object (ssname ss (Setq i (1- i)))))
(setq data (mapcar 'f '("Insertionpoint" "Rotation" "EffectiveName" "XScaleFactor")))
(if (and
(wcmatch (strcase (caddr data)) "*###X###*")
(setq dpp (mapcar '(lambda (e) (mapcar 'f
'("PropertyName" "Value" )))
(vlax-invoke e 'GetDynamicBlockProperties)))
(> (setq len (cadr (Assoc "Length" dpp))) 0)
)
(vlax-invoke
(vlax-get (vla-get-ActiveLayout
(vla-get-activedocument
(vlax-get-acad-object)
)
)
'Block
)
'InsertBlock
(polar (car data)
(+ (if (minusp (last data)) pi 0.0) (Cadr data))
len)
bname
1 1 1 0)
)
)
)
(princ)
)
HTH