topic Re: lisp Pick a point in multiple objects closed polyline. in Visual LISP, AutoLISP and General Customization Forum

lisp Pick a point in multiple objects closed polyline.

manasi4532 — Tue, 09 May 2023 12:51:37 GMT

I have many closed polyline objects that need to be selected internally. How can I select them at once? The desired location is to the left of the closed polyline. When a point is selected I want to enter the distance to move the point to the left. I have also attached a sample file.

Re: lisp Pick a point in multiple objects closed polyline.

Sea-Haven — Tue, 09 May 2023 05:29:19 GMT

Just a guess of a way, pick outside pline, pick circle, offset is displayed and new offset can be entered. Circle moves.

Re: lisp Pick a point in multiple objects closed polyline.

manasi4532 — Tue, 09 May 2023 07:06:14 GMT

Sorry, I'm not clear. I want to move green point to the middle polyline. I have hundreds of objects. to move the green point and I'm update Example new file.

Re: lisp Pick a point in multiple objects closed polyline.

Sea-Haven — Tue, 09 May 2023 08:03:13 GMT

Post Before After dwg, may be difficult to select only a "point" somewhere on left side.

Re: lisp Pick a point in multiple objects closed polyline.

Kent1Cooper — Tue, 09 May 2023 12:12:15 GMT

Would the Circles you want to move always be green by a color-property override, as those in your sample drawing are? And would they always be overlapping the rectangle you want them moved off, and the only ones that share those characteristics? And would the spacing between the inner and outer rectangles always be the same?

Re: lisp Pick a point in multiple objects closed polyline.

manasi4532 — Thu, 18 May 2023 09:52:01 GMT

I have attached a sample file that is closest to the actual work. yes The point I want to move is always green.I want to move the point 2mm to the left. Move only the point on the left . Inside and outside square spacing always the same, same in the example.

Re: lisp Pick a point in multiple objects closed polyline.

Sea-Haven — Sat, 13 May 2023 01:01:51 GMT

So move the "POINT" say to middle of the 2 plines, rather than 2mm.

(defun c:mpoint ( / p1 oldsnap ss x pl1 pl2 pt pt2 pt3 mp) (setq p1 nil) (setq oldsnap (getvar 'osmode)) (setvar 'osmode 0) (prompt "Select plines and Point Enter to exit ") (setq ss (ssget '((0 . "POINT,*LINE")))) (if (= (sslength ss) 3) (progn (repeat (setq x (sslength ss)) (setq ent (ssname ss (setq x (1- x)))) (cond ((and (= pl1 nil)(= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")) (setq pl1 (vlax-ename->vla-object ent))) ((= (cdr (assoc 0 (entget ent))) "LWPOLYLINE") (setq pl2 (vlax-ename->vla-object ent))) ) (if (= (cdr (assoc 0 (entget ent))) "POINT") (progn (setq pt (cdr (assoc 10 (entget ent)))) (setq pent (vlax-ename->vla-object ent)) ) ) ) (setq pt2 (vlax-curve-getclosestpointto pl1 pt)) (setq pt3 (vlax-curve-getclosestpointto pl2 pt)) (setq mp (mapcar '* (mapcar '+ pt2 pt3) '(0.5 0.5))) (vlax-put pent 'Coordinates mp) ) (alert "\nPicked to many items \n \nplease try again") ) (setvar 'osmode oldsnap) (princ) ) (c:mpoint)

Re: lisp Pick a point in multiple objects closed polyline.

manasi4532 — Thu, 11 May 2023 01:30:03 GMT

It can't be used. coder error :Incorrect number of elements in SafeArray.

Re: lisp Pick a point in multiple objects closed polyline.

Sea-Haven — Fri, 12 May 2023 01:41:57 GMT

When asked to select see image below use pick to right 1st then to left so select the 2 plines and the POINT. Its not a do all rather a 1 at a time.

Re: lisp Pick a point in multiple objects closed polyline.

manasi4532 — Fri, 12 May 2023 02:02:05 GMT

It still doesn't work. I clicked the right area once and dragged over the polyline and point and clicked on the left side. But still can't use it. i use it 2ployline and one point

Re: lisp Pick a point in multiple objects closed polyline.

Sea-Haven — Fri, 12 May 2023 05:42:05 GMT

Working for me and tested on your sample dwg, multiple times, did you pick a spot where you have the red arrow line ? This will cause an error as you get 4 objects.

Ok pick when asked the 2 plines and the POINT individually, then Enter. Did it work for you ?

Re: lisp Pick a point in multiple objects closed polyline.

manasi4532 — Fri, 12 May 2023 06:26:08 GMT

Am I doing something wrong?

Re: lisp Pick a point in multiple objects closed polyline.

Sea-Haven — Fri, 12 May 2023 09:57:21 GMT

Please post the dwg your testing with so I can have a look, its working for me.

Re: lisp Pick a point in multiple objects closed polyline.

komondormrex — Fri, 12 May 2023 13:46:19 GMT

what do you need exactly? you have groups of 2 plines and few points between plines. your objective is to pick a raw point between plines for all plines and points in a group to be selected and moved or else?

Re: lisp Pick a point in multiple objects closed polyline.

manasi4532 — Fri, 12 May 2023 14:14:49 GMT

It's the same file I gave you above.

Re: lisp Pick a point in multiple objects closed polyline.

manasi4532 — Fri, 12 May 2023 14:22:49 GMT

I want to move only one green point to the left of the object. between 2 polylines, move 2mm to the left

"I have hundreds of objects that I want to move only the green points that are between two lines and on the left side of the polyline. I want to find a way that makes me solve the problem faster."

move only green point on the left side of polyline

Re: lisp Pick a point in multiple objects closed polyline.

komondormrex — Fri, 12 May 2023 14:45:07 GMT

such as?

(while t (if (null distance_to_left) (setq distance_to_left 2.0)) (setq point_to_move (vlax-ename->vla-object (ssname (ssget "_:s" '((0 . "point") (62 . 3))) 0)) init (initget 1) distance_to_left (getreal (strcat "\nEnter distance to move point to the left <" (rtos distance_to_left) ">: ")) ) (vla-move point_to_move (vla-get-coordinates point_to_move) (vlax-3d-point (mapcar '- (vlax-get point_to_move 'coordinates) (list distance_to_left 0))) ) )

Re: lisp Pick a point in multiple objects closed polyline.

Sea-Haven — Sat, 13 May 2023 01:00:39 GMT

All I can say is its working for me in Bricscad will test in Acad, other thing is set Lispsys to 1.

Could some one else test please and let me know.

Re: lisp Pick a point in multiple objects closed polyline.

manasi4532 — Mon, 15 May 2023 04:31:01 GMT

It's pretty good. But I have to type 2 enter every time.