[reddiska]

У меня в чертеже много отметок высоты, и у них 3 знака после запятой, а мне надо, чтобы было 2 знака. Я как-то это делала раньше, но не помню как, и что-то не могу сейчас найти в интернете решение проблемы. Кто подскажет, что можно сделать?

[gomer]

reddiska, тема сисек не раскрыта, поэтому тебе смогут помочь только экстрасенсы

[reddiska]

Не понятно, что именно не понятно)
Есть топографическая съемка, в ней большое количество типов объекта "Текст" с высотой пикетов типа "31,263", "46,654", и т.п., что означает высоту данного пикета над уровнем Балтийского моря. 3 знака после запятой - ненужная точность. Требуется, чтобы высота пикетов была в виде "31,26", "46,65", и т.п., т.е. уменшить разрядность. Но вручную перебивать - нереально. Требуется программка, или что-нибудть вроде того, чтобы ненужный третий зак после запятой автоматически обрубился по всему чертежу на всех отметках.

[trir]

Стиль метки точки

[reddiska]

Сообщение от trir Стиль метки точки

? не понятно. У меня 11 автокад, здесь нет таких менюшек.

[trir]

;=)

[engngr]

Это если они метками проставлены; а если это текст или мтекст? Подрезать последний символ, наверняка, давно если лисп.
Я бы без лиспа сделал через извлечение данных в эксель, с убиранием и вставлением как-нибудь взад.
Всего лишь предположения. Но сиськи проблемы автора, и правда, не раскрыты: до конца не ясно, где у автора болит.

[Disney]

Сообщение от engngr наверняка, давно если лисп.

http://geodesist.ru/index.php/downlo...--autocad.html

[reddiska]

Сообщение от engngr Это если они метками проставлены; а если это текст или мтекст? Подрезать последний символ, наверняка, давно если лисп. Я бы без лиспа сделал через извлечение данных в эксель, с убиранием и вставлением как-нибудь взад. Всего лишь предположения. Но сиськи проблемы автора, и правда, не раскрыты: до конца не ясно, где у автора болит.

Я же и говорю, это не метки, не мтекст, это конкретно именно текст. Почему все видят сиськи проблемы?) По-моему, всё яснее ясного. Текст в виде ТЕКСТА, а не меток, координат, блоков, атрибутов или мтекста. Отметки высоты поверхности в виде цифр, а цифры в виде текста!
И автокад в виде автокада, а не цивила.
Лисп наверняка есть. ТОлько вот где его взять?

[Victor]

Нашёл старый лисп. Только он не проверяет число ли это, округяет всё. Будьте внимательны. А переделывать - есть волшебное слово "неахота".

[gomer]

мои сиськи

Код:

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

 
(defun c:TrimLevel (/ *error* ss dmzn adoc)

  (vl-load-com)
  (setq	*error*	(lambda (x) (princ))
	adoc	(vla-get-ActiveDocument (vlax-get-acad-object))
	dmzn	(getvar "dimzin")
  )

  (vla-StartUndoMark adoc)

  (setvar "dimzin" 0)
  (prompt "\nВыберите отметки для округления: ")
  (if (setq ss (ssget '((0 . "TEXT")
			(-4 . "<OR")
			(1 . "[0-9]*,[0-9]*")
			(1 . "-[0-9]*,[0-9]*")
			(-4 . "OR>")
		       )
	       )
      )

    (foreach sysge
	     (mapcar 'vlax-ename->vla-object
		     (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
	     )

      (vla-put-TextString
	sysge
	(vl-string-subst
	  ","
	  "."
	  (rtos	(atof (vl-string-subst "." "," (vla-get-TextString sysge)))
		2
		2
	  )
	)
      )
    )
  )

  (setvar "dimzin" dmzn)
  (vla-EndUndoMark adoc)
  (princ)
)

[reddiska]

Сообщение от Victor Нашёл старый лисп. Только он не проверяет число ли это, округяет всё. Будьте внимательны. А переделывать - есть волшебное слово "неахота".

Спасиииибо! ТО, что мне нужно))) Правда, я его сперва ко всему файлу применила, и он всякие вещи типа Асфальт и Грунт до нулЯ ОКруглила)
Gomer тоже спасибо!

[gomer]

Сообщение от reddiska Gomer тоже спасибо!

reddiska, ну ты определись тебе какие сиськи надо, если с запятыми, то мой лисп подойдет, если с точками, то виктора. Только мой лисп выбирает правильные сиськи, а его - все подряд

[reddiska]

Сообщение от gomer reddiska, ну ты определись тебе какие сиськи надо, если с запятыми, то мой лисп подойдет, если с точками, то виктора. Только мой лисп выбирает правильные сиськи, а его - все подряд

Ога) Спасибо) Сейчас такой момент, что у меня как раз много разнообразных автокадовских сисек проблем, и нужно их решать! И хорошо, когда есть варианты!)

[hwd]

Offtop: вам подкинуть ещё парочку "забавных" слов, детишки?