LISP for measuring angles between xlines
Hi,
Here's a way which works whatever the plane the xlines lies on. It checks if the two xline intersects (i.e., they lies on the same plane and aren't parallel).
;; angleXline
;; Returns the angle in radians between two Xlines
;; or nil if Xlines are parallel or not coplanar.
;;
;; Arguments
;; xline1: first xline (ENAME)
;; xline2: second xline (ENAME)
(defun angleXlines (xline1 xline2 / v1 v2 norm)
(if
(inters
(getpropertyvalue xline1 "BasePoint")
(getpropertyvalue xline1 "SecondPoint")
(getpropertyvalue xline2 "BasePoint")
(getpropertyvalue xline2 "SecondPoint")
nil
)
(progn
(setq v1 (getpropertyvalue xline1 "UnitDir")
v2 (getpropertyvalue xline2 "UnitDir")
norm (list
(- (* (cadr v1) (caddr v2)) (* (caddr v1) (cadr v2)))
(- (* (caddr v1) (car v2)) (* (car v1) (caddr v2)))
(- (* (car v1) (cadr v2)) (* (cadr v1) (car v2)))
)
)
(- (angle '(0. 0. 0.) (trans v2 0 norm))
(angle '(0. 0. 0.) (trans v1 0 norm))
)
)
)
)
Bonjour @Shanky1999
What do you need ?
- The value of the angle on the command line as an information ?
- The value of the angle on the drawing as an entity "angular dimension”?
Amicalement
@Shanky1999 wrote:
....
I know xlines and rays dont have any vertex, but can we create a lisp which can create a line from the intersection of these two xlines and measure them ?
They do have defined points, like Lines (DXF codes 10 & 11). The 11 value is a unit vector relative to the origin 10 value [Osnappable as the ENDpoint of a Ray, or the MIDpoint of an Xline].
There's no need to create a Line. This will report, in your current settings for angular mode and precision, the two angles [projected onto the current drawing plane if they are in different Coordinate Systems] between two selected objects of either or both kinds:
(defun C:XLRA ; = XLine/Ray Angle
(/ e1 e2 e1data e2data e1ang e2ang)
(setq
e1 (car (entsel "\nOne XLINE or RAY: "))
e2 (car (entsel "\nOther XLINE or RAY: "))
e1data (entget e1)
e2data (entget e2)
e1ang (rem (angle '(0 0 0) (cdr (assoc 11 e1data))) pi)
e2ang (rem (angle '(0 0 0) (cdr (assoc 11 e2data))) pi)
angbetween (abs (- e1ang e2ang))
); setq
(prompt
(strcat
"\nAngles between those two XLINES/RAYS are "
(angtos angbetween) " and " (angtos (- pi angbetween)) "."
); strcat
); alert
(prin1)
)
It will say the angles are 0° and 180° if they're parallel.
It leaves the 'angbetween' variable [in radians] available for you to use in any way you need.
It could be made to do things like verify you selected the right kind(s) of thing(s), that you didn't select the same thing twice, etc.....
Bonjour
All these programs are fine, but I would like to present my version because they do not return the angles of the selected entities. I wanted to do a different treatment.
I explain, whatever the entities selected, the programs return a single angle value, and it is not always the one that corresponds to the selection.
Mine is more "simple", I do not use the vectors, but the selection points to calculate the angle that really corresponds to the selection.
I have somewhat arranged the presentation by testing the angular units of the system as well as the local language.
Here is my code :
(defun language ()
(vl-registry-read
(strcat "HKEY_LOCAL_MACHINE\\" (vlax-product-key))
"Language")
)
(defun rad2dms (a)
(setq deg (/ (* a 180) pi))
(setq minu (* (- deg (fix deg))60))
(setq sec ( * (- minu (fix minu)) 60))
(strcat (itoa (fix deg)) "° , " (itoa (fix minu)) "' , " (rtos sec 2 2) "''")
)
(defun c:da:anglexlines ( / ang int p1 p2 xl1 xl2)
(setq lang (language))
(if ( = lang "Français")
(progn
(setq xl1 (entsel "\nChoix de la première XLINE...\n"))
(setq xl2 (entsel "\nChoix de la deuxième XLINE...\n"))
)
(progn
(setq xl1 (entsel "\nPick 1st ray or xline: "))
(setq xl2 (entsel "\nPick 2nd ray or xline: "))
)
)
(if (and (or (= "RAY" (cdr (assoc 0 (entget (car xl1)))))
(= "XLINE" (cdr (assoc 0 (entget (car xl1))))))
(or (= "RAY" (cdr (assoc 0 (entget (car xl2)))))
(= "XLINE" (cdr (assoc 0 (entget (car xl2))))))
)
(progn
(setq p1 (osnap (cadr xl1)"_nea"))
(setq xl1 (vlax-ename->vla-object (car xl1)))
(setq p2 (osnap (cadr xl2)"_nea"))
(setq xl2 (vlax-ename->vla-object (car xl2)))
(setq int (vla-intersectwith xl1 xl2 0))
(setq int (vlax-safearray->list (vlax-variant-value int)))
(setq ang (abs (- (angle int p1) (angle int p2))))
(if (> ang pi)
(setq ang (abs (- (* pi 2) ang)))
)
(cond
((= 0 (getvar "aunits")) (setq ang (rtos (* (/ ang pi) 180)2 )))
((= 1 (getvar "aunits")) (setq ang (rad2dms ang)))
((= 2 (getvar "aunits")) (setq ang (rtos (* (/ ang pi) 200)2 )))
((= 3 (getvar "aunits")) (setq ang (rtos ang 2 )))
((= 4 (getvar "aunits"))
(if ( = lang "Français")
(setq ang "ce système d'unités n'est pas prévu")
(setq ang "this unit system is not intended")
))
)
(if ( = lang "Français")
(alert (strcat "L'angle en unités utilisateur est de : " ang))
(alert (strcat "The angle in user units is : " ang))
)
)
(if ( = lang "Français")
(alert "les entités sélectionnées ne sont pas xline ou ray.")
(alert "the selected entities are not xline or ray.")
)
)
)
Amicalement
Bonjour @CADaSchtroumpf
I’m sorry to insist but, your program is concerned, as others are.
That is why I have proposed a different approach.
Amicalement
Regards @Shanky1999
Previously configure "DIMSTYLE" according to the characteristics of your work and the reference to objects, then apply the routine, It also allows you to obtain the external angle...
;;;___
(defun c:angXl (/ sn i j p lp ps)
(princ "\nSelect Two Xline")
(setq
sn (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "*line"))))))
)
(foreach i sn
(setq
p (list (cdr (assoc 10 (entget i))) (cdr (assoc 11 (entget i))))
)
(setq lp (cons p lp))
)
(setq ps (inters (caar lp)(mapcar '+ (caar lp) (cadar lp))(caadr lp)(mapcar '+ (caadr lp) (cadadr lp))nil)
)
(command "_dimangular" "" "_non" ps "pause" "pause" "pause")
)
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.
Bonjour @Shanky1999
I would prefer option 2 if possible. I don't understand what is option 2, sorry.
To change the angle precision, I have updated my code in message 7, and now the precision i the value of the environment variable LUPREC.
Amicalement
@-didier- wrote:
... the precision i the value of the environment variable LUPREC.
[Do you perhaps mean the System Variable AUPREC? And I suggest the use of (angtos) rather than (rtos) functions in relation to the string conversion of the 'ang' variable. That will go to text directly in the current angular units, so some of your calculations should not be needed, nor probably the (cond) function that considers the AUNITS System Variable setting.]
Regards @Shanky1999
Yes, by editing the dimensioning style, you can configure the output, both the format of the units and the precision.
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.
Bonjour @Kent1Cooper
- OK for the variable Sytem is better than environment.
- I hesitated for angtos, but this function taking into account the settings of the direction of the angles poses problems because I do not know how the machine is set by the person who asks the question.
- And finally rtos takes LUPREC but ignores AUPREC, the help says this :
The rtos function returns a string that is the representation of number according to the settings
of mode, precision, and the AutoCAD UNITMODE, DIMZIN, LUNITS, and LUPREC system variables.
Amicalement
