Connecting dynamic block with Autolisp or .net
No, I dont do much with dynamic blocks but you should be able to link the objects using the stretch option. Hopefully some one will jump in redoing the block.
As I said earlier how many patterns?
What I was saying is rethink the whole pattern making. Enter a length draw line, add circle with a entered offset and size repeat as required, the offset is a simple -ve for left. This would be fast I use a dynamic dcl for this type of thing so it remembers the last entered values so may change only 1 value like length for repeated sides.
Ps use Donut for filled circle.
@abee123456789 wrote:
..I want to connect the circle block perpendicular to the line block.
I guess that can be done, tell us, is the attached drawing sample is just an example? or those blocks are the actual blocks you are going to use?
Writing a program that deals with Dynamic blocks will always have issues, especially with parameter names.
But this is certainly doable.
Also, please show more scenarios.
@abee123456789 wrote:
The drawing is just an example. There could be 100 of circle blocks going different direction but I want to click a button or something that will be perpendicular to the line.
I figured as much. The "line" are of different angles not just Hor and Vert? if Yes show us please.
"Circle" block rotation is always 0? [ in relation to "Ängle1" parameter's value ]
Is there a direction for the "Line" block? This is important when placing these on the intersection point
The "Line" and "Circle"block is the actual block you're going to use YES?
@ВeekeeCZ wrote:
Step 2 done.
I also had step 2 at the ready @ВeekeeCZ 😉
I'm waiting on confirmation on other stuff like "rotation" and the lik
(defun c:Connected (/ _DynPop lbd ci lbp lb_IP np i civ chp npc ci_ip inter_P)
(defun _DynPop (o / data)
(setq data (mapcar '(lambda (dp)
(list (vla-get-PropertyName dp)(vlax-get dp 'Value) dp))
(vlax-invoke o 'GetDynamicBlockProperties))
)
(mapcar '(lambda (v) (cdr (assoc v data))) '("Angle1" "Distance1"))
)
(print "\nSelect Line Block")
(if (and
(setq lbd (ssget "_+.:S:E:L" '((0 . "INSERT")(2 . "LINE,`*U*"))))
(princ "\nSelect Circle Block(s)")
(setq ci (ssget "_:L" '((0 . "INSERT")(2 . "Circle,`*U*"))))
(eq "LINE" (strcase (vla-get-EffectiveName
(setq lbd (vlax-ename->vla-object (ssname lbd 0))))))
(minusp (vlax-get lbd 'IsDynamicBlock))
)
(progn
(setq lbp (_DynPop lbd )
lb_IP (vlax-get lbd 'InsertionPoint)
np ( polar lb_IP (Caar lbp)(caadr lbp))
an (+ (/ pi 2) (angle lb_IP np)))
(repeat (setq i (sslength ci))
(setq civ (vlax-ename->vla-object (ssname ci (setq i (1- i)))))
(and
(eq "CIRCLE" (strcase (vla-get-EffectiveName civ)))
(setq cbp (_DynPop civ ))
(setq npc
(polar (setq ci_ip (vlax-get civ 'InsertionPoint))
an
(caadr cbp)
)
)
(setq inter_P ( inters lb_IP np ci_ip npc nil))
(progn
(vlax-put (cadar cbp) 'Value (angle ci_ip inter_P))
(vlax-put (cadadr cbp) 'Value (distance ci_ip inter_P))
)
)
)
)
)
(princ)
)
@abee123456789 wrote:
Nice, I am pretty new to this what language is that and how do I start the process?
Depending on the condition of the drawing, the program may not work as expected. The code I posted relies heavily on the current Ängle1 Paramater value. So its more extending the end to the line and not always perpendicular, whilst @ВeekeeCZ offering will be perpendicular as you requested. But both will fail if the "circle" Block rotaion is other than 0
That is why I'm asking for a real scenario so we can make the proper adjustment to the code.
@abee123456789 wrote:
Is this possible using C# that is what ive been working with and I am fairly new.
I usually use C# for sheet set processing , mostly data get/set data [ attributes / Xref /Layer infor ...]
For geometric manipulation, i stick with AutoLisp/Visual lisp.
I suggest you post your request here <-- Autocad .Net
HTH
@abee123456789 wrote:
Attached i created a different scenario. Once again is this possible in C# .net That is what ive been missing around with lately. since i read some where that autodesk is going to discontinue lisp support.
Thank you for posting more samples. We will have a look see.
I replied to that at post # 17, Also, they've been saying that for years and yet it's still here 😊
Based on your latest sample, Are there no odd angles at all?
EDIT: Modified the code at post # 14 for perpendicular mode instead of Extend
