[Димас]

Доброго времени суток
Не подскажете возможно ли автоматически округлять mtext и text?
Т.е. допустим у меня введены числа 6,457 и 8,65
Нужно все округлить вот так -> 6,5 и 8,7

Возможно ли такое стандартыми средтвами автокада или нужно что-то писать?

[Огурец]

Уважаемый Димас!
Если речь идёт о размерных числах, то это в Format=>Dimension style=>modify=>Primary units=>Precision и в выпадающем списке выбираете столько нулей после запятой, сколько Вам необходимо.

[Димас]

К сожалению не о размерных :(( Команда Units тоже не помогает.

Есть просто текст, вбит в файл как просто текст. Текста много.
Был бы один файл можно было бы извратиться через Find&Replace
А так - файлов много, еще дольше получается :((

Может у кого есть уже лисп написанный?

Или подскажете как можно по другому сделать?

[Ev]

если быстро то вот.
проверял только на Text. Работает если число написано отдельной строкой.

Код:

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

(defun c:111()
 (setq name (car (entsel))
       ed (entget name)
       ed (subst (cons 1 (rtos (atof (cdr (assoc 1 (entget name)))) 2 1)) (assoc 1 ed) ed)
 )
 (entmod ed)
 (prin1)
)

[Apelsinov]

Используя отсюда http://dwg.ru/forum/viewtopic.php?p=...ghlight=#28543 код Alaspher'а:

Код:

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

(defun pl:round (num digit / fact) 
  (setq fact 1.0) 
  (repeat (abs digit) (setq fact (* 10 fact))) 
  (if (minusp digit) 
    (setq fact (/ 1.0 fact)) 
  ) 
  (setq num (/ (fix (+ (* num fact) 0.5)) fact)) 
  (if (> 1 digit) 
    (fix num) 
    num 
  ) 
)

можно написать функцию для текстов (dtext и mtext ), например так:
!!!- это без проверки на наличие числа в строке текста !!!

Код:

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

(defun c:ap_text (/ text_obj Obj)
  (VL-LOAD-COM)
  (prompt "\nSelect Text objects:")
  (if (ssget (list (cons 0 "*TEXT")))
    (progn
      (setq Objs (vla-get-ActiveSelectionSet
		   (vla-get-ActiveDocument (vlax-get-acad-object))
		 )
      )
      (vlax-for	text_obj Objs
	(if (vlax-property-available-p text_obj "TextString" T)
	  (vla-put-TextString
	    text_obj
	    (pl:round (atof (vla-get-TextString text_obj)) 1)
					; 1-кол-во знаков после запятой
	  )
	)
      )
    )
  )
(princ)
)

[Alaspher]

Сообщение от Apelsinov !!!- это без проверки на наличие числа в строке текста !!!

Для проверки на "численность" текста, можно использовать функцию:

Код:

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

(defun pl:is-real-form (val / tmp)
  (setq tmp (substr val 1 1))
  (if (or (= tmp "-") (= tmp "+"))
    (setq val (substr val 2))
  )
  (cond
    ((not (= (vl-string-trim "0123456789.," val) "")) nil)
    ((= (vl-string-trim "0123456789" val) "") "")
    ((< 1
        (length
          (vl-remove-if-not (function (lambda (a) (or (= a 44) (= a 46)))) (vl-string->list val))
        )
     )
     nil
    )
    (t
     (vl-list->string
       (mapcar (function (lambda (b)
                           (if (or (= b 44) (= b 46))
                             46
                             48
                           )
                         )
               )
               (vl-string->list (vl-string-left-trim "0123456789" val))
       )
     )
    )
  )
)

Предназначена она для другого (поиск знаков после десятичной точки в строке), так что возврат не T|nil, а либо строка вида ".00", либо nil, если в строке не число.
Хотя, можно и упростить проверку.

[Димас]

Спасибо всем за ответы.

Были проблемы с интернетом - пришлось самому думать :((
Лисп я не знаю - пришлось на VBA - в нем проще показалось разбираться
Вот что получилось

Код:

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

Sub test()
   Dim textObj As AcadText
   Dim sstext As AcadSelectionSet
   Dim FilterType(0) As Integer
   Dim FilterData(0) As Variant
   
    Dim valueAsStr As String
    Dim precision As Integer
    Dim valueAsReal As Double
    precision = 1
' âûáèðàåì òåêñò â ðèñóíêå
   Set sstext = ThisDrawing.SelectionSets.Add("SS3")
   FilterType(0) = 0
   FilterData(0) = "Text"
   sstext.SelectOnScreen FilterType, FilterData

 Set selset = ThisDrawing.SelectionSets("SS3")

  Dim ent As Object
  Dim j As Integer
  Dim textString As String
    
    'find each object in the selection set
    j = 0
    For Each ent In selset
           'îêðóãëÿåì
           'Convert a real value 17.5 using Decimal mode to a String
    distAsString = ent.textString
    distAsReal = ThisDrawing.Utility.DistanceToReal(distAsString, acDecimal)
    'MsgBox distAsString & "  " & distAsReal
    
    If Not ent.Layer = "U" Or ent.Layer = "G" Then
    'îêðóãëÿåì
    distAsReal = Round(distAsReal, 2)
    Else
    distAsReal = Round(distAsReal, 1)
    End If
    ent.textString = distAsReal
                 'âûáîð ñëîÿ è çàìåíà åñëè ìåíüøå
                If ent.Layer = "U" Then
                        'ìåíÿåì åñëè ìåíüøå 0,2
                        If distAsReal - 0.2 < 0 Then ent.textString = "<0.2"
                ElseIf ent.Layer = "G" Then
                        'ìåíÿåì åñëè ìåíüøå 5,0
                            If distAsReal - 5# < 0 Then ent.textString = "<5.0"
                Else

                End If
    
    ent.Update
    j = j + 1
    Next
'Óäàëÿþ ñóùåñòâóþùèé íàáîð
   ThisDrawing.SelectionSets.Item("SS3").Delete
End Sub

Сильно не пинайте :)

[{Smirnoff}]

Обясните мне дураку, после такого количества кода. Почему бы не выбрать текст с нужными высотами через QSelect, (ssx) или Filter и не поменять в окне Properties высоту для всего выбранного набора?

[Alaspher]

Сообщение от Fantomas Обясните мне дураку, после такого количества кода. Почему бы не выбрать текст с нужными высотами через QSelect, (ssx) или Filter и не поменять в окне Properties высоту для всего выбранного набора?

А при чём здесь высота текста, когда речь идёт об изменении значения текстовой строки? Или я ничего не понял... [sm2102]
По поводу VBA'шного кода - ничего не скажу - не мастер в нём.

[{Smirnoff}]

Точно! Кретин я :? Когда писал постинг ещё не проснулся толком...

[Serg Ivanov]

Сообщение от Огурец Уважаемый Димас! Если речь идёт о размерных числах, то это в Format=>Dimension style=>modify=>Primary units=>Precision и в выпадающем списке выбираете столько нулей после запятой, сколько Вам необходимо.

А можно ли огруглять размеры ДО запятой? В строительстве размеры в миллиметрах, а точность +/- 10см.

[master_vlad]

Сообщение от Serg Ivanov А можно ли огруглять размеры ДО запятой? В строительстве размеры в миллиметрах, а точность +/- 10см.

dim roundoff = 10 округляет до 10; =100 до 100 ит.д.

[Димас]

Наверное я немного не правильно сформулировал вопрос. :))

Попробую еще раз.
В чертеже есть текст - содержания золота/серебра
Было принято решение округлить текст до десятых.
Округлять в ручную - долго + возможны ошибки человека, округляющего.

Как я понял в Автокаде нет возможности округлять просто текст (как допустим значение поля, или как в екселе).

Поэтому пришлось написать програмку на VBA (округляет текст в заданных слоях)

Может кто знает как это сделать без lisp и VBA? только средствами автокада или так чтобы была возможность сделать откат на неокругленные значения?

[Perezz!!]

Ну, а если в чертеже есть картинка, полагаете, в Автокаде должны быть инструменты, фильтры и плагины для её обработки? Но ведь как раз этим занимаются в Фотошопе! Тексты хорошо обрабатываются на текстовых процессорах, типа Ворда, массивы данных - в базах данных (Аксесс), числовые массивы - в электронных таблицах (Ексель). В Автокаде же хорошо, просто изумительно, чертить и моделировать. Вам что нужно?

[Serg Ivanov]

Сообщение от master_vlad Сообщение от Serg Ivanov А можно ли огруглять размеры ДО запятой? В строительстве размеры в миллиметрах, а точность +/- 10см. dim roundoff = 10 округляет до 10; =100 до 100 ит.д.

Пишет "Unknown command" - не понял

[master_vlad]

Format->Dimension style->Primary units-> Round off

Для отдельных размеров удобнее править в PROPERTIES

[Димас]

Сообщение от Perezz!! Ну, а если в чертеже есть картинка, полагаете, в Автокаде должны быть инструменты, фильтры и плагины для её обработки? Но ведь как раз этим занимаются в Фотошопе! Тексты хорошо обрабатываются на текстовых процессорах, типа Ворда, массивы данных - в базах данных (Аксесс), числовые массивы - в электронных таблицах (Ексель). В Автокаде же хорошо, просто изумительно, чертить и моделировать. Вам что нужно?

Честно говоря хотелось бы все в одном :))

Или хотябы чтоб была полная совместимость - типа щелкнул по картинке - вышел в фотошоп, по тексту - в ворд :)))

Да и работа с базой данных как-т окриво реализована (или это я криво настроил) :)))

Начал новую тему http://dwg.ru/forum/viewtopic.php?t=3653
про базы данных и округление

[Perezz!!]

А чем эта перестала устраивать?

[Serg Ivanov]

Сообщение от master_vlad Format->Dimension style->Primary units-> Round off Для отдельных размеров удобнее править в PROPERTIES

Спасибо!

[BadB_85]

добрый день!не подскажите как в автокаде 2007 округлить числа.есть высота точек!она в тысячных,а мне бы округлить до сотых!как быть??