_

kilometracja po ścieżce

Forum poświęcone flagowemu produktowi oraz aplikacjom pochodnym Autodesku. To jedyne forum mające w tytule nazwę programu, a to ze względu na jego olbrzymią popularność w Polsce. Można tutaj umieszczać również posty z ogólnie pojętej tematyki "Kreślarskie 2D".

Re: kilometracja po ścieżce

Postprzez colpix » lut 26, 2021 21:54

Witam,
czy w Autocad Map3d jest jakieś narzędzie, które pozwoli poprowadzić kilometraż wzdłuź polilinii (osi drogi)? Np. uruchamiam to narzędzie i po kliknięciu myszką w danym punkcie na osi Autocad odczytuje odległość i wstawia mi kilometraż np. 0+020 itd czy pozostaje skorzystać tylko z kodu? Zapoznałem się z kodem umieszczonym w tym temacie
Kod: Zaznacz cały
(defun C:KILO (/ OB BP CI C EN DI TP)
  (vl-load-com)
  (setq OB (entsel "\nWskaz polilinie: "))
  (princ "\nZaznacz znaki: ")
  (setq CI
    (ssget
      (list
        (cons 0 "CIRCLE")
        (cons 410 (getvar "CTAB"))
        (cons -4 "<AND")
          (cons -4 "<OR")
            (cons -4 ">=")
            (cons 40 0.210)
          (cons -4 "OR>")
          (cons -4 "<OR")
            (cons -4 "<=")
            (cons 40 0.212)
          (cons -4 "OR>")
        (cons -4 "AND>")
      )
    )
  )
  (setq C 0)
  (repeat (sslength CI)
    (setq EN (ssname CI C))
    (setq DI
      (vlax-Curve-GetDistAtPoint
        (car OB)
        (setq TP
          (vlax-Curve-GetClosestPointTo
            (car OB)
            (cdr (assoc 10 (entget EN)))
          )
        )
      )
    )
    (entmakex
      (list
        (cons 0 "TEXT")
        (cons 10  TP)
        (cons 40 1.4)
        (cons 62 2)
        (cons 1 (rtos DI))
      )
    )
    (setq C (1+ C))
  )
  (princ)
)

ale nie umiem go zaadoptować do swoich potrzeb. Tzn. aby kilometraż był w formacie 0+100 (dla setek), 1+000 (dla tysięcy) z zaokrągleniem do jednego miejsca po przecinku, by ustawiał się przy osi i prostopadle do niej oraz żeby nie reagował na okrąg tylko na krótką linię prostopadłą do osi np: w kolorze czerwonym. Za wszelką pomoc z góry dziękuję. Pozdrawiam.
colpix
 
Posty: 1
Dołączył(a): lut 26, 2021 21:21

Poprzednia strona

Powrót do AutoCAD

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników