Creating Dimensions for multiple lines from Base line

[acad1985]

Hello Everyone,

 

I have a Drawing, in that i need to place the multiple dimensions from the Red Line (As Image). Is it possible to create multiple dimensions from the Selected or PLINE automatically by Lisp.

 

Can anyone please help me out.

Thanks in Advance.

[exceed]

edited, google translater error

 

 

 

Edited March 23, 2022 by exceed

[acad1985]

Hello Exceed,

Thanks for your code. as you said this is working only with Y Axis line.

when i try to angled line, the dimension created with the start point of the line.

can able to create the dimension for angled line also? and also how to make dimension as attached image on Post#1.(Dimension Text should be outside either Left or Right)

 

Thanks.

[exceed]

you can approach like this

 

get closest point from origin point to object

then make dimension with that point.

but in this case, have to think how to sort and offset them. 

 

and move dimension text is simple but delete inside line of dimension is automatically autocad do that in too short to place text case. anyother person can help you. 

[BIGAL]

Somewhere have the sort v's point by making a list of ((offset pt )(offset pt ) ....) need also Lee's is point left or right of object so distance's are + -. Then use  dims use correct points,  may need to remove some of the dxf values in the dim so defaults are used. Will have a think.

 

-12 pt1

-8 pt2

7 pt3

12 pt4

Edited January 27, 2022 by BIGAL

[acad1985]

Hi Bigal,

Could you please explain ,how to create points and create angular dimension.

 

Thanks.

[BIGAL]

I had a quick look found my old program need to do some updating, I am testing with non perp lines. Maybe later today.

[acad1985]

Okay Bigal, Thanks for your help.

[BIGAL]

This works as a left and right run twice, but supports any angle.

 

REMOVED see later post

 

Edited March 30, 2022 by BIGAL

[acad1985]

Hi Bigal,

 

Thank you so much, As you mentioned either one side, but it supports any angle.

Thank you so much for this code.

[BIGAL]

I have fixed the dim text pt to be outside of the last offset. Picking twice can be removed by looking at left and right of pick point, but done simple for now.

Edited February 3, 2022 by BIGAL

[acad1985]

That was good Bigal, Can i get that updated one?

I have few queries on this, in my drawing Reference line (Base line, Red color line, see Post#1) having Global width values, so when i select that line for place dimensions, it's not working.

If i remove the global width from that line, then it's working. How to select global width line using this lisp.

and can we place all dimensions Left or Right side (As Post#1), when i run this lisp twice, both set of dimensions will be placed on both side.

Please give me any suggestion/solutions.

 

Error on global width line,

 

Can we align all the dimensions after the last line either left/right, is it possible?

 

 

 

Thanks.

[BIGAL]

I updated the code above the text is placed at the 2nd pick point. Re left/right or all left or all right yes could be done. I will look into why pline with width does not work.

[acad1985]

Thanks Bigal for your help again.

[acad1985]

On 2/4/2022 at 11:05 AM, BIGAL said:

I updated the code above the text is placed at the 2nd pick point. Re left/right or all left or all right yes could be done. I will look into why pline with width does not work.

Hi Bigal, Sorry for disturb you again. Is there any update on this?

[BIGAL]

Ok simple fix in the code is a offset for selection I got lazy and did not remove the control line from a selection set so

 

(setq pt1a (polar pt1 (angle pt1 pt2) 0.0001)) change the 0.0001 to a number just wider than your pline 1/2 width. 

 

I will see if can find time to change to remove the chosen object from selection.

[acad1985]

Thanks Bigal, I have fixed the Pline width issue as per your guidance.

could you please help me to place all dimensions Left or Right side (As Post#1), when i run this lisp twice, both set of dimensions will be placed on both side.

 

 

Thanks again

[BIGAL]

Will see if have time, will fix pline width also. 

[acad1985]

Okay Bigal, Thank you so much.

[dxstudios]

i was searching for similar kind of lisp, it almost saved my half day work...
Tons of Thanks Bigal for the code & being reason for my smile
Eagerly awaiting for the complete code.