hello
i want help for creating lisp for me please ... the lisp will do these functions
1- as the attached image if i have block with yellow at right and some green blocks
2- i want when i launch the lisp to ask me to draw poly line that i want as in image 2
3- after that when i draw this path with polyline and press enter the lisp ask me to choose blocks that i want to connect to this polyline and i will choose one by one or multiple blocks then after choosing the blocks and press enter ... the lisp will offset the main polyline that i draw and connect every polyline with the basepoint of the blocks that i choose sequentially as appear in this image (attached DWG)
can anyone help me please
Main idea of this forum is to teach. With new members most of us "older" members will provide open code and make few changes if needed. Basically what we want to see is your own code or even a pseudo-code about how you intent to solve your problem. There are members that started as with continuous requests for code and didn't show any will to learn basics. And there are some that started to write programs from very basic functions to complex ones, To those ones I'm always willing to share my time.
Unfortunately in this forums we have gazillions of posts with some wonderful code and cleaver solutions that are buried under repetitive requests.
For your request, I would not use lisp at all. Combination of commands offset and trim and drawing polylines with perpendicular osnap is enough. At the end of the day, you'll spend same amount of time while picking block connection sequences as to create offsets of main line and place perpendicular connections to it.
Miljenko Hatlak
Dear @onlineoffers1988
I really appreciate your interest in asking for help. Although you do not show your progress but it is a motivation for me. Even if you don't really like the previous scope I showed you. Here I show you another approach, which can improve your workflow. You just have to take into account selecting the blocks in the order that I show you previously.
I leave it to you to improve the lines of the corners. I showed you the idea in the previous routine. I hope you can help me with it. it is still possible to improve something more.
Best regards.
(defun c:Polum (/ s sn of sv pb p pr i lp px lpf snv)
(setq s (ssget "+.:E:S" '((0 . "lwpolyline")))
sn (ssname s 0)
of (getdist "\nEnter Polyline Offset: ")
)
(while
(setq sb (ssget "+.:E:S" '((0 . "Insert")))
pb (cdr (assoc 10 (entget (ssname sb 0))))
p (vlax-curve-getclosestpointto sn pb)
pr (vlax-curve-getparamatpoint sn p)
i (1+ (fix pr))
)
(setq
lp ()
)
(repeat i
(setq px (vlax-curve-getpointatparam sn (setq i (1- i)))
lp (cons px lp)
lpf (cons pb (cons p (reverse lp)))
)
)
(setq snv (vlax-ename->vla-object sn)
)
(LWPoly lpf)
(vla-offset snv of)
(setq sn (entlast))
(command "_.fillet" "_polyline" sn)
(vla-erase snv)
)
)
;_
(defun LWPoly (lst)
(entmakex
(append
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 (length lst))
(cons 70 0)
)
(mapcar (function (lambda (p) (cons 10 p))) lst)
)
)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Dear @onlineoffers1988 , what you suppose is very true. The direction of the route is important. to connect the blocks following a preset order.
I cannot confirm if the compensation on both sides is the most correct. In the tests that I do for me, it works well compensating for only one side.
I'll be working on it, I hope to improve the code soon.
Regards.
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Dear @onlineoffers1988
Try this code with some improvements. I tried it and it works fine for me, I show you a video of its operation.
For more complex routes, the direction of the route and the order of selection of the blocks are very important.
At the moment I can't reach the magic of @hak_vz , to make it work with a Click
(defun c:Polum3 (/ s sn of sv pb p pr i lp px lpf pint snv)
(command-s "_.pline")
(setq pl (entlast)
s (ssadd pl)
sn (ssname s 0)
of (getdist "\nEnter Offset Pol: ")
)
(while
(setq sb (ssget "+.:E:S" '((0 . "Insert")))
pb (cdr (assoc 10 (entget (ssname sb 0))))
p (vlax-curve-getclosestpointto sn pb)
pr (vlax-curve-getparamatpoint sn p)
i (1+ (fix pr))
)
(setq
lp ()
)
(setq ang (angle pb p))
(if
(or (= ang 0) (= ang (* 0.5 pi)) (= ang (* 1.5 pi)))
(repeat i
(setq px (vlax-curve-getpointatparam sn (setq i (1- i)))
lp (cons px lp)
lpf (cons pb (cons p (reverse lp)))
)
)
(progn
(setq pint (list (car pb) (cadr p)))
(repeat i
(setq px (vlax-curve-getpointatparam sn (setq i (1- i)))
lp (cons px lp)
lpf (cons pb (cons pint (cons p (reverse lp))))
)
)
)
)
(setq snv (vlax-ename->vla-object sn)
)
(LWPoly lpf)
(command "_.fillet" "_polyline" (ssadd (entlast)))
(vla-offset snv of)
(setq sn (entlast))
(command "_.fillet" "_polyline" sn)
(vla-erase snv)
)
)
;_
(defun LWPoly (lst)
(entmakex
(append
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 (length lst))
(cons 70 0)
)
(mapcar (function (lambda (p) (cons 10 p))) lst)
)
)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Type a product name
May we collect and use your data?
Learn more about the Third Party Services we use and our Privacy Statement. May we collect and use your data to tailor your experience?
Explore the benefits of a customized experience by managing your privacy settings for this site or visit our Privacy Statement to learn more about your options.
