lisp routine to label arc length, arc radius and total arc angle
@barry2104 wrote:
can this Lisp be Extended to have the L/R/A Output sit within a (curved) Dimension-entity rather than be Output as simple text at the centre of the arc?
Here is a Lisp I already have for doing just this, but it just needs to be expanded to include the arc angle-Change within the Dimension entity
....
Here's a modification [to add the included Angle] of a modification of that [a later version, that doesn't construct the text content as a variable beforehand, but within the Text-option input in the DIMANGULAR command] -- DimArcLengthRadAngle.lsp with its DIMALRA command. Lightly tested.
I did not sell Rex Cooper LABEL_IT, so I can do anything I want with it.
I checked and it does draw the radius and length as arced text (my own emulation), but the delta, tangent, and chord options are available only with a leader or with tags and a table I do not think I would rewrite it. At 278 Kb (excluding the DCL) it's the largest program I've ever written.
@barry2104 wrote:
... a multi-Point, straight-segmented polyline rather than with arcs to get around the curves. So a new Problem/request has now arisen.... the total sum of all node-angle-changes ….
That could be a challenge. Consider a very simple case -- one quadrant of a regular octagon. Two segments, sweeping through what you would consider 90 degrees relative to the center of the octagon, but there's only one angle change, of only 45 degrees. I'm trying to imagine how to have a routine figure out where the "center" is and therefrom the angles to the ends -- maybe the intersection of virtual line bisectors or something....
Are your segmented Polylines always regular, i.e. are all their segments in a given "arc"-equivalent stretch the same length, with the same bend angle between each? It might be possible to work something out if they are. But maybe only if such an "arc" equivalent is isolated from other things, not part of a longer Polyline that extends beyond that portion.
The polyline Output I deal with is in no way regular (irregular angle changes and irregular Segment lengths).
Your example of a "quadrant of a regular octagon" can be one of two scenarios… blue or red. The nodes of the polyline making up the octagon are numbered below.
Blue has 2x45° bends in the clouded Quadrant, so the Output should read simply 90° angle Change
Red has only 1x45° bend in the clouded quandrant.
(The below examples are a closed shape, which my polylines will never be... so the transparent numbers/nodes/segments you can pretend don't exist for the purpose of this exercise)
@barry2104 wrote:
... a "quadrant of a regular octagon" can be one of two scenarios… blue or red. ....
I was picturing the red, as being more likely what your scenario in Message 12 would be like [though yours would presumably be many more segments] -- that is, between the outer ends of end-most segments, not between midpoints of segments.
Your black lines between which the 90 degrees is measured in your red octagon are bisectors of the angles, which means that "sweep" across those two segments would not be 90 degrees if those adjacent segments [3-4 and 1-8] headed in different directions than they do. That kind of thing is what makes it hard to picture how a routine could deal with an "arc-equivalent" segmented Polyline if it can't be counted on to be regular about it.
But if you're only after an overall end-to-end change in angle, maybe it's not necessary to calculate bend angles and add them up [or subtract some if they bend the other way]. Could it just take the angle difference between perpendiculars from the end segments, as in your blue octagon?
Or the same directly between the end segments?
The output should ideally provide only the absolute sum of all angle changes (e.g. clockwise and anticlockwise added together) and not the differential angle change where clockwise is considered + and anticlockwise –
e.g. with the following example of a polyline with 11 subsegments, the output should read:
Total Angle Change = 650.4°
(650.4° is the sum of 56.7+54.3+39.1+26.6+64.0+63+105.7+140.8+100.2)
To be able to fly through to make sure no bend is larger than a certain amount, listing each node-angle-Change similar to the 2nd bold row of the output above would also be helpful, but not completely necessary.
@barry2104 wrote:
The output should ideally provide only the absolute sum of all angle changes (e.g. clockwise and anticlockwise added together) and not the differential angle change where clockwise is considered + and anticlockwise – ....
Without the second feature listing the individual bends [yet], and assuming, as you describe, an open-ended Polyline made of straight segments only, try this:
(defun C:TANGLE (/ pl asum par a1 a2 adif); = Total ANGLE change [bends]
(setq pl (car (entsel)) asum 0 par 0)
(repeat (1- (fix (vlax-curve-getEndParam pl)))
(setq
a1
(angle
(vlax-curve-getPointAtParam pl par)
(vlax-curve-getPointAtParam pl (setq par (1+ par)))
); angle
a2
(angle
(vlax-curve-getPointAtParam pl par)
(vlax-curve-getPointAtParam pl (setq par (1+ par)))
); angle
adif (abs (- a1 a2))
asum
(+ asum
(if (< adif pi) adif (- (* pi 2) adif))
); + & asum
); setq
(setq par (1- par)); back up one for next bend
); repeat
(prompt
(strcat
"\nNumber of vertices = " (itoa (1+ (fix (vlax-curve-getEndParam pl)))) "."
"\nLength = " (rtos (vlax-curve-getDistAtPoint pl (vlax-curve-getEndPoint pl))) "."
"\nTotal Angle Change = " (rtos (/ (* asum 180) pi) 2 1) " degrees."
); strcat
); prompt
(princ)
); defun
[Interestingly, I first tried using (angtos) for the total angle change report, so it would report in whatever your current angular units setting is. But that lops off excess beyond a full circle, i.e. a total of 360 becomes 0, etc. So I took it back to a calculated decimal number of degrees. If you want it reported in degrees/minutes/seconds, though I think it would be possible, some shenanigans would be required.]
Hi Dear @Kent1Cooper @john.uhden
Please sent me lisp, I Want to insert angles (DD.MM.SS) on polyline. snap is attached for your reference,
Thanks you.
