[boretskiy.a]

Всех братьев программистов, рабов LISPа, Visual Basicа и прочих языков С НОВЫМ 2019 ГОДОМ!
Если кому нибудь не очень трудно и не очень жалко поделится Лиспиком, буду молится за ВАС весь год.
А задачка заключается в том, чтобы при выборе полилинии автоматически проставлялись в углах градусы,
минуты и секунды, а также длины полилинии. Заранее благодарен и ще раз с Новым Годом!

[Boxa]

Спасибо за поздравления. Однако, то как сформулирован вопрос...
тут масса решений может быть, от простого рисования в модели и транзитной графики,
до переопределения внешнего вида линии, а потому традиционные вопросы:
На каком языке пишите?
Что уже написали?
В чем именно трудности?

[Семёныч]

Сообщение от boretskiy.a рабов LISPа, Visual Basicа и прочих языков

Нехорошо как-то. Мы не рабы. Лучше употребить хотя бы слово "энтузиастов".

[trir]

При выборе полилинии автоматически проставлялись в углах градусы, минуты и секунды

углы поворота или координаты?

[Сергей812]

Сообщение от trir углы поворота или координаты?

ну если автор хочет географические координаты в узлах...)

[boretskiy.a]

Есть мощный Лисп от VVA Ecoorn, дописать бы в него модуль, который в чертеже проставлял бы градусы, минуты и секунды. Пример во вложении.

[Сергей812]

boretskiy.a, и что вас останавливает от договоренности с VVA на доработку его программы на взаимовыгодных условиях?

[1958]

Попробуйте такой вариант.

Код:

[Выделить все]

 ;;; подпись длин сегментов полилинии и углов поворота
(defun c:77 (/)
 (setq obj  (car (entsel "Укажите полилинию >"))
       vert (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget obj)))
       n    (1- (length vert))
       s0   0
       i    0
 )
 (repeat n
  (setq p1  (nth i vert)
        p2  (nth (setq i (1+ i)) vert)
        s   (/ (distance p1 p2) 2)
        s0  (+ s0 s)
        ang (angle p1 p2)
        pt  (vlax-curve-getPointAtDist obj s0)
        s0  (+ s0 s)
  )
  (if (< i n)
   (progn (setq p3    (nth (1+ i) vert)
                ang-1 (atof (angtos (angle p2 p1) 0 8))
                ang+1 (atof (angtos (angle p2 p3) 0 8))
                angl  (vl-string-translate "d"
                                           "°"
                                           (angtos (angtof (rtos (- ang-1 ang+1) 2 16) 0) 1 3)
                      )
          )
          (entmakex (list (cons 0 "MTEXT")
                          (cons 100 "AcDbEntity")
                          (cons 100 "AcDbMText")
                          (cons 1 angl)
                          (cons 10 p2)
                          (cons 40 10.0) ; размер шрифта
                          (cons 50 0)
                          (cons 62 5) ; цвет текста
                          (cons 71 5)
                          (cons 72 5)
                    )
          )
   )
  )
  (if (> (* pi 1.5) ang (* pi 0.5))
   (setq ang (+ ang pi))
  )
  (entmakex (list (cons 0 "MTEXT")
                  (cons 100 "AcDbEntity")
                  (cons 100 "AcDbMText")
                  (cons 1 (rtos (* s 2.0)))
                  (cons 10 pt)
                  (cons 40 10.0) ; размер шрифта
                  (cons 50 ang)
                  (cons 62 5) ; цвет текста
                  (cons 71 5)
                  (cons 72 5)
            )
  )
 )
)

[boretskiy.a]

Спасибо, работает. Но количество знаков после запятой аж 4. Где изменить чтобы было два знака? Если не трудно пожалуйста подскажите.

[1958]

Сообщение от boretskiy.a Но количество знаков после запятой аж 4. Где изменить чтобы было два знака?

Если вы про длины, то строку №47 - (cons 1 (rtos (* s 2.0))), замените на - (cons 1 (rtos (* s 2.0) 2 2)).
Вторая двойка в (cons 1 (rtos (* s 2.0) 2 2))- это количество знаков после запятой.

[VVA]

Сообщение от boretskiy.a Где изменить чтобы было два знака? Если не трудно пожалуйста подскажите

Если не трогать код, то системные переменные LUNITS=2 и LUPREC=2
Из справки по rtos

If you omit the arguments, rtos uses the current settings of LUNITS and LUPREC

[Рyslan]

Как вызвать команду для работы лиспа в посте 8? Что-то не получается

[Сергей812]

(defun c:77 - жирным имя команды

[Рyslan]

набирал 77, не известная команда пишет автокад
заработало. оказывается когда копировал лисп, еще и нумерация скопировалась. почистил и команда 77 заработала. кстати, углы проставляет не по пути трассы полилинии, в внутренние. не совсем гуд

[1958]

Сообщение от Рyslan кстати, углы проставляет не по пути трассы полилинии, в внутренние. не совсем гуд

О чем вы? Какие внутренние углы? Углы проставляются левые по ходу движения, что есть "гуд" согласно геодезии.

[Рyslan]

Сообщение от 1958 Углы проставляются левые по ходу движения, что есть "гуд" согласно геодезии.

Не знаю, у меня внутренние углы проставились. Трасса идет справа налево. Углы проставились внутренние, например угол 160 град, вместо нужных 30град

[1958]

Сообщение от Рyslan Трасса идет справа налево. Углы проставились внутренние, например угол 160 град, вместо нужных 30град

Если рассуждать по вашей классификации углов, то сумма внутреннего и внешнего углов должна составлять 360 градусов. У вас - 190 градусов.(?)
Посмотрите мой пример. Линия идет справа налево. Неправильно подписался первый угол, остальные все левые по ходу. Разбираться, в чем причина, если честно, нет никакого желания.

[boretskiy.a]

Очень суперуважаемый мною Владимир Азарко, рад что Вы засветились в этой теме. Ваш продукт на который я ссылаюсь в п. 6 в моей работе незаменимая вещь. Но возможен ли вариант внедрения кода от 1958, а я думаю это для Вас пустяк, в "Ecoorn" и в ексель експортировались координаты + углы и длины линий.

[Рyslan]

Сообщение от 1958 У вас - 190 градусов.(?)

ошибся, 180 в сумме должно быть

----- добавлено через ~1 мин. -----

Сообщение от boretskiy.a Но возможен ли вариант внедрения кода от 1958, а я думаю это для Вас пустяк, в "Ecoorn" и в ексель експортировались координаты + углы и длины линий.

поддержу просьбу

[1958]

Сообщение от boretskiy.a Но возможен ли вариант внедрения кода от 1958

Сообщение от Рyslan поддержу просьбу