Topic: Line bearing and Distance

[scottcd]

I am trying to create a lisp routine to annotate a line with the bearing and distance

I have ucs set to north and angles clockwise.

How do I get the bearing in this UCS when angle return anticlockwise in radians?

I would like to have the distance always centred on the top of the line with the bearing below?

Thanks

Scott

[pedroantonio]

Hi Scottcd. I use this code

Code - Auto/Visual Lisp: [Select]

1.  
2.  
3. ;;; ROTINA PARA COTAR E OU AZIMUTAR POLYLINES - TEXTO NO DESENHO = 2.34 ou 2.34 - Az 23°15/7"
4. ;;; AS MEDIDAS APARECEM COMO FORAM DIGITADAS NO DESENHO (METROS, MILIMETROS, ETC)
5. ;;; A ALTURA DO TEXTO E SOLICITADA NA EXECUCAO DA ROTINA E O STYLE E O CORRENTE
6. ;;; ACERTAR ALTURA DO TEXTO DE ACORDO COM A ESCALA DE PLOTAGEM. PARA DEIXAR EM DEFAULT USE O COMMAND: TEXTSIZE
7. ;;; Forum www.autolisp.com.br - Nome da rotina original: AZPOL - Autor: Orlei 29/08/2006
8. ;;; Adaptacao: Rogerio Zanini e Marcio
9. ;;;---------------------------------------------------------- ------------------------
10.  
11.  
12. (defun C:BDANNOT ()
13. (COMMAND "_layer" "_m" "_bd" "_c" "150" "" "")
14. (command "-style" "_bd" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")
15. ;---------------Sub-functions - Start-------------
16. (defun PARALELO ()
17. ;---------------------------------------------------------------
18. (setq A1 (polar A (+ (/ pi 2)(angle B A )) (+ (* 0.05 2.5))))
19. (setq B1 (polar B (+ (/ pi 2)(angle B A )) (+ (* 0.05 2.5))))
20. ;--------------------------------------------------------------
21. (setq ptx (/ (+ (car B1) (car A1)) 2))
22. (setq pty (/ (+ (cadr B1) (cadr A1)) 2))
23. (setq ponto_meio (list ptx pty))
24. ;(if (< (car A1)(car B1))
25. ;(setq inicio B1)
26. (setq inicio A1)
27. ;)
28. )
29. ;----------------Sub-functions - End -------------
30. (setvar"cmdecho" 0)
31. (setq flagv "falso")
32. (setq controle 0)
33. (setq controle1 0)
34. (setq contador 0)
35. (while (= flagv "falso")
36. (setq mostre (entsel "\nselect a polyline <2d> : "))
37. (setq linha (entget (car mostre )))
38. (setq verificador (cdr(assoc 0 linha)))
39. (if (= verificador "LWPOLYLINE")
40. (progn
41. (setq verif (cdr (assoc 70 linha)))
42. (setq flagv "verdade")
43. )
44. (princ "\nthis is not a  Polyline !! ")
45. )
46. )
47. (setq controle1 (length linha))
48. (setq amostra '())
49. (repeat controle1
50. (setq x (caar linha))
51. (if (= x 10)
52. (progn
53. (setq item (car linha))
54. (setq amostra (cons item amostra))
55. (setq contador (1+ contador))
56. )
57. )
58. (setq linha (cdr linha))
59. )
60. (setq amostra1 (reverse amostra))
61. (if (= verif 1)
62. (setq amostra (cons (car amostra1) amostra))
63. (setq contador (1- contador))
64. )
65. (setq controle contador)
66. (repeat controle
67. (setq PTO1 (cdr(car amostra)))
68. (setq PTO2 (cdr(car(cdr amostra))))
69. (AZIMUTAR)
70. (setq amostra(cdr amostra))
71. )
72. (command "undo" "end")
73. (setvar "textsize" 2.5)
74. (setvar"cmdecho" 1)
75. (princ)
76. )
77. ;---------------------------------------------------------
78. (defun AZIMUTAR ()
79. (setq A PTO1)
80. (setq B PTO2)
81. (setq C " - Az ")
82. (setq D (angtos (angle B A)))
83. (setq PALAV D)
84. ;------------- MODIFICACAO ROGERIO OPCAO AZIMUTE ----------------
85. (setq E (strcat (rtos (distance A B) 2 2) "m"))
86. (setq DADO (strcat E C PALAV))
87. ;---------------------------------------------------------- ------
88. (PARALELO)
89. (if (zerop (cdr (assoc 40 (entget (tblobjname "style" (getvar 'textstyle))))))
90.   (command "_.-text" "_justify" "_Bc" "_non" ponto_meio 2.5 "_non" inicio dado)
91.   (command "_.-text" "_justify" "_Bc" "_non" ponto_meio "_non" inicio dado)
92. )
93. (princ)
94. )
95.  
96.  

[Mark]

https://www.autodesk.com/products/autocad-civil-3d/overview

[hanhphuc]

I am trying to create a lisp routine to annotate a line with the bearing and distance

I have ucs set to north and angles clockwise.

How do I get the bearing in this UCS when angle return anticlockwise in radians?
angdir angbase

I would like to have the distance always centred on the top of the line with the bearing below?
MText justify middle center

Thanks

Scott

There are many examples, but
how's the output unit & format?
In our country we familiar degress format dd°mm'ss",
recently has been discussed here