[Zeinum]

Прошу отписаться кто знает. Завтра нести чертеж на сдачу. Есть координатные выноски в виде блоков с полями. Если значение координаты отрицательное - автокад подставляет "-", но "+" при положительном значении - нет. Кто знает, как можно настроить отображение знака "+". Пробовал вставлять формулу с "if", но видимо что-то не разобрался с синтаксисом. Ребят, подскажите срочно, а-то каюк

upd: или хотя бы ткните в справку по синтаксису формул в полях.

[saa]

в полях нет условных операторов

[Zeinum]

Интересует любой обходной путь, хоть какой. Системная переменная отвечающая за отображение плюса, импорт условия из таблицы. Хоть что-то...

[ытя]

Сообщение от Zeinum Интересует любой обходной путь

А руками?

[Zeinum]

до завтра не успею в принципе, т.к. чертеж весь в одной четверти я тупо дописал там где надо "+" в редакторе блоков, но это не самый лучший вариант. Хотелось бы сделать законченный рабочий модуль. Так этот блок супер удобный, можно перетягивать, копировать, отражать, масштабировать и т.д. Короче подойдет всем. Есть написаная на лиспе приблуда с полным функционалом, но если нужно двигать много координат начинаются проблемы. Поэтому стремлюсь сделать все в блоке.

[VVA]

Числовые функции, которые можно использовать в полях
"коротенькая" формула if в полях ( начиная с поста 11)
1 условие: если что-то получится, выложить сюда

[Zeinum]

К сожалению "иф" должен вернуть строчное значение("+"или ""), а не числовое. Поэтому "коротенькая формула" не подойдет. Вроде что-то может получиться через diesel, но пока не могу понять, как дать на вход координату базовой точки блока...

[Сергей Богатов]

Express Tools установлен?
Это конечно не лучший вариант , но пробуй так: "_attout" -> создётся текстовик с "выжимкой" из твоих блоков -> массово редактируй чем нибудь этот текстовик -> _attin

P.S.
Если надо срочно "до завтра", то разметь чертёж по четвертям. Выбирай блоки в нужной четверти и "_find" ->меняй "X:" на "X:+" и "Y:" на "Y:+"

[Oliver_88]

Попробуй-ка. Команда p+

Код:

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

 (defun c:p+ ( / bes-add-vla-object-selectionset *active_document*)
  (vl-load-com)
  (setq *active_document* (vla-get-activedocument (vlax-get-acad-object)))
  (vla-Regen *active_document* acActiveViewport)
  (vla-StartUndoMark *active_document*)
  
  (defun bes-add-vla-object-selectionset (lst scr doc / ssl)
    (setq ssl
	   (vla-get-ActiveSelectionSet
	     doc
	     )
	  )
    (vla-Clear ssl)
    (if scr
      (if
	(and
	  (not
	    (vl-catch-all-error-p
	      (vl-catch-all-apply
		'vla-SelectOnScreen
		(list ssl
		      (vlax-safearray-fill
			(vlax-make-safearray
			  vlax-vbInteger
			  (cons 0 (1- (vl-list-length lst)))
			  )
			(mapcar 'car lst)
			)
		      (vlax-safearray-fill
			(vlax-make-safearray
			  vlax-vbVariant
			  (cons 0 (1- (vl-list-length lst)))
			  )
			(mapcar 'cdr lst)
			)
		      )
		)
	      )
	    )
	  (/= (vla-get-Count ssl) 0)
	  )
	ssl
	)
      (if
	(and
	  (not
	    (vl-catch-all-error-p
	      (vl-catch-all-apply
		'vla-Select
		(list ssl
		      acSelectionSetAll
		      nil nil
		      (vlax-safearray-fill
			(vlax-make-safearray
			  vlax-vbInteger
			  (cons 0 (1- (vl-list-length lst)))
			  )
			(mapcar 'car lst)
			)
		      (vlax-safearray-fill
			(vlax-make-safearray
			  vlax-vbVariant
			  (cons 0 (1- (vl-list-length lst)))
			  )
			(mapcar 'cdr lst)
			)
		      )
		)
	      )
	    )
	  (/= (vla-get-Count ssl) 0)
	  )
	ssl
	)
      )
    )
  
  (vlax-map-collection
    (bes-add-vla-object-selectionset '((0 . "INSERT")) nil *active_document*)
    (function
      (lambda (f / ls)
	(if (equal :vlax-true (vla-get-HasAttributes f))
	  (if
	    (= 2 (length
		   (setq ls
			  (vlax-safearray->list
			    (vlax-variant-value
			      (vla-GetAttributes f)
			      )
			    )
			 )
		   )
	       )
	    (apply
	      (function
		(lambda (d s / strX strY p)
		  (if
		    (and
		      (vl-string-search "X:" (setq strX (vla-get-TextString d)))
		      (vl-string-search "Y:" (setq strY (vla-get-TextString s)))
		      )
		    (progn
		      (cond
			(
			 (setq p
				(vl-string-search "-+" strX)
			       )
			 (vla-put-TextString d
			   (strcat "X:" (substr strX (+ 2 p)))
			   )
			 )
			(
			 (setq p
				(vl-string-search "+-" strX)
			       )
			 (vla-put-TextString d
			   (strcat "X:" (substr strX (+ 2 p)))
			   )
			 )
			(
			 (and
			   (not (vl-string-position (ascii "-") strX))
			   (not (vl-string-position (ascii "+") strX))
			   )
			 (vla-put-TextString d
			   (strcat "X:+" (substr strX 3))
			   )
			 )
			)
		      (cond
			(
			 (setq p
				(vl-string-search "-+" strY)
			       )
			 (vla-put-TextString s
			   (strcat "Y:" (substr strY (+ 2 p)))
			   )
			 )
			(
			 (setq p
				(vl-string-search "+-" strY)
			       )
			 (vla-put-TextString s
			   (strcat "Y:" (substr strY (+ 2 p)))
			   )
			 )
			(
			 (and
			   (not (vl-string-position (ascii "-") strY))
			   (not (vl-string-position (ascii "+") strY))
			   )
			 (vla-put-TextString s
			   (strcat "Y:+" (substr strY 3))
			   )
			 )
			)
		      )
		    )
		  )
		)
	      ls
	      )
	    )
	  )
	)
      )
    )
  (vla-EndUndoMark *active_document*)
  
  (princ)
  
  )

[Zeinum]

Oliver_88, спасибо за лиспик, свою задачу выполнил на все 100. Но есть неудобство - если блок вставлять еще где-нибудь, + остается в атрибуте насовсем) те может иметь место конструкция X:-+10.00 Хотя иначе наверное вопрос не решить. Все равно спасибо. Хотя если есть еще у кого идеи - давайте делиться.

Кстати если кому надо, вот блок масштабной линейки для профилей. В свойствах задается условный горизонт.

[Oliver_88]

Zeinum, после копирования/перенесения снова жми p+. Код в №9.