[caha]

Люди помогите кто сможет, решить такую проблему.
Есть нумерация цифр (текст).
312
313
....
356
357
и т.д. (в общем пикетаж на железной дороге)
дальше. Между пикетами стоят опоры контактной сети на против каждой из которых необходимо произвести пикетажную нумерацию.
К примеру типа такую - 312+56
313+26
....
356+98
357+58
и т.д.
есть путь вручную замерять растояние от пикета до опоры и вручную вписывать значение в однострочный текст.
Вопрос. Как нибудь такую пикетажную нумерацию произвести автоматически можно? Замеряю растоние, а прога пишет полученное значение и ставит полученное значение туда куда укажу (к примеру там "312+56", 312 номер пикета вписываю сам, а +56 вписывает программа). Стандартными средствами акада не нашел.
Подскажите Плиз.

[Кочетков Андрей]

Можно использовать вот такую програмку.
Гуру не бейте.

Код:

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

(defun c:ak-station (/ akModelSpace akStat akDist akInsPoint akText)
  (vl-load-com)
  (setq akModelSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-Acad-Object))))
  (setq akStat (getreal "\nВведите номер пикета: "))
  (setq akDist (getdist "\nУкажите расстояние от пикета до опоры: "))
  (setq akInsPoint (getpoint "\nУкажите точку вставки текста: "))
  (setq akText (strcat (rtos akStat) "+" (rtos akDist 2 0)))
  (vla-addText akModelSpace akText (vlax-3d-point akInsPoint) 2.5)
  )

[fixo]

Я ничё не понимаю где опоры, где пикеты, где текст,
тем не менее попробуй...

Код:

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

; вспомогательная функция округления

; written by Joe Burke
(defun round (value to)
(cond
((zerop to) value)
(t
(setq to (abs to))
(* to (fix (/ ((if (minusp value) - +) value (* to 0.5)) to))))))

; основная часть

(defun C:sto (/ dis num osm pt1 pt2 pt3 stx)

(setq osm (getvar "osmode"))
(setvar "osmode" 47)
(setq styl (getvar "TEXTSTYLE")
      hgt (getvar "DIMTXT"))
(initget 7)  
(setq num  (getint "\n >> Начальный номер опоры  >> : \n")) 
(while

(setq pt1 (getpoint "\nУказать точку пикета (ENTER для завершения) :\n"))
(setq pt2 (getpoint pt1 "\nУказать точку опоры :\n"))
(setq pt3 (getpoint pt2 "\nУказать точку вставки текста :\n"))
(setq dis (distance pt1 pt2)
      stx (strcat
	    (itoa num)
	    "+"
	    (rtos (round dis 1.0) 2 0)))
(entmake (list (cons 0 "TEXT") 
                   (cons 10 pt3) 
                   (cons 11 pt3) 
                   (cons 1 stx) 
                   (cons 7 styl) 
                   (cons 40 hgt) 
                   (cons 72 4)) 
    )
(setq num (1+ num))
)
  (setvar "osmode" osm)
  (princ)
  )
(prompt "\nВ командной строке набери STO ...")
(princ)

~'J'~

[Vaidas]

простой вариант...

Код:

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

(defun c:pik ( / piktext pikpoint)
  (setq piktext (strcat (getstring "piket no. : ") "+" (rtos (getdist "\ndistance : ") 2 0))
	pikpoint (getpoint "\ntext insertion point : "))(command "_mtext" pikpoint pikpoint piktext "")(princ))

[caha]

Всем спасибо.
У всех работает нормально.

[Do$]

Offtop: Странно, обычно на плане КС немного в другом формате пикетаж опор проставляется, например: 35|65.

[slogos]

Решил написать, хотя проблема может быть и решена.
Автоматическое определение пикетажного положения какого-либо объекта (в полном варианте) - задача не совсем проста как кажется. Пикетаж - это неотъемлемый элемент какой-либо трассы, лучше всего, конечно, представленной полилинией. На этой полилинии должны быть метки пикетажа, лучше всего в виде блоков с атрибутом его номера, т.к. если это буде просто текст, то его еще нужно как-то соотнести с меткой. При этом должна быть решена проблема объектной привязки этих меток к трассе. Можно, конечно обойтись и без точной привязки, но тогда встает проблема выбора этих меток. Не буду далее развивать эту тему, добавлю только еще проблему определения расстояний по круговым и переходным кривым, т.к. они существуют на реальной трассе.