[nynokne]

Добрый день.
Возник вопрос, каким образом можно создать мультивыноску с ориентацией тектса слева от выноски (сама выноска должна быть перпендикулярна горизонту)?

Выноску создаю так:

Код:

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

 (cond 
					((not acdoc)
						(setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
					)
				)
				(setq model_spc
					(if (> (vla-get-activespace acdoc) 0)
						(vla-get-modelspace acdoc)
							(vla-get-paperspace acdoc)
					)
				)
					
				(setq mleader 
					(vla-addmleader
						model_spc
							(vlax-make-variant
								(vlax-safearray-fill
									(safearray vlax-vbdouble '(0 . 5))
									(apply 'append (list t_vun t_text))
								)
							)
						0
					)
				)
				
				(vlax-put-property  mleader 'textstring  text_itogo)

Создаётся выноска как нужно, но всегда текст в ней справа от выносной линии. Нужно через условие содержание текста часть выносок делать с левой ориентацией текста, часть - с правой.

Всё, что придумал:

Код:

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

 (if ....
(setq vunoska (entlast))
(command "._mirror" vunoska "" t_vun t_text "_y")
);end if

Есть ли нормальный способ (без command) либо сразу создать "левоориентированную" выноску либо менять свойство созданной?

[kacugu]

посмотрите метод SetDoglegDirection

[nynokne]

Сообщение от kacugu посмотрите метод SetDoglegDirection

Спасибо за наводку.
Самостоятельно разобраться с этим методом не получается.

Код:

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

 
(if (< rasst_chislo 0)
      (progn							
		(vla-setdoglegdirection mleader 0 (vlax-3D-point '(-1 0 0)))
		(vla-put-TextJustify mleader acAttachmentPointMiddleRight)													
	);end progn
	(progn
		(princ "\nNo")
		(terpri)
		(princ)
	);end progn
);end if

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

[kacugu]

nynokne, можете выложить код полностью?

[nynokne]

Сообщение от kacugu nynokne, можете выложить код полностью?

Код:

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

 (DEFUN c:MMM (/) ; начало функции
	(vl-load-com)
		(command "_mirrtext" "0")
		(setvar 'dimzin 0)
		(setq p2 (getpoint "\Укажите базовую точку: "))
		(terpri)
		
			(while (setq p1 (getpoint "\Укажите точку вставки : "))
				(setq osm (getvar "osmode")); запоминаем привязки пользователя
				(setvar "osmode" 0); отключаем привязки
		
				(setq Y_p1 (nth 1 p1))
				(setq X_p1 (nth 0 p1))
				(setq Y_p2 (nth 1 p2))
				(setq X_p2 (nth 0 p2))
		
				(setq rasst (rtos (/ (- X_p1 X_p2) 5) 2 2)); расстояние по горизонтали между осью и точкой вставки в масштабе
				(setq rasst_chislo (atof rasst))
				(princ "\nРасстояние:")
				(princ rasst_chislo)
				(setq text_itogo (strcat "L - " rasst))
				(princ "\nТекст выноски: ")
				(princ text_itogo)
				(setq t_vun (list X_p1 Y_p1 0.0)); координаты точки вставки выноски
				(princ "\nКоординаты точки вставки выноски: ")
				(princ t_vun)
				(setq Y_text (+ Y_p1 4))
				(setq x_text x_p1)
					
				(setq t_text (list X_text Y_text 0.0)); координаты вставки текста выноски
				(princ "\nКоординаты точки вставки текста: ")
				(princ t_text)
				
				(cond 
					((not acdoc)
						(setq acdoc (vla-get-activedocument (vlax-get-acad-object)));
					)
				);end cond
				(setq model_spc
					(if (> (vla-get-activespace acdoc) 0);
						(vla-get-modelspace acdoc);
							(vla-get-paperspace acdoc);
					);end if
				);end setq
					
				(setq mleader 
					(vla-addmleader
						model_spc
							(vlax-make-variant
								(vlax-safearray-fill
									(safearray vlax-vbdouble '(0 . 5))
									(apply 'append (list t_vun t_text))
								)
							)
						0
					)
				)
				
				(vlax-put-property  mleader 'textstring  text_itogo)
				
				(setq sv_mleader (entget (entlast)))
					(if (< rasst_chislo 0)
						(progn
							(princ "\nYes")
							(terpri)
							(vla-setdoglegdirection mleader 0 (vlax-3D-point '(-1 0 0)))
							(vla-put-TextJustify mleader acAttachmentPointMiddleRight)
						);end progn
						(progn
							(princ "\nNo")
							(terpri)
							(princ);иначе "тихий" выход
						);end progn
					);end if
		
			); end while

		(setvar "osmode" osm); возвращает привязки пользователя
	);end defun

[kacugu]

После стр. 66 вставьте

Код:

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

 (vlax-invoke mleader 'setleaderlinevertices 0 (append p1 t_text))

[nynokne]

Сообщение от kacugu После стр. 66 вставьте Код: [Выделить все] (vlax-invoke mleader 'setleaderlinevertices 0 (append p1 t_text))

Огромное спасибо!!
всё работает, как надо. Сам бы долго ещё искал этот метод.

[koMon]

Сообщение от kacugu (append p1 t_text)

тут простым append никак не обойтись, массив надобен

[kacugu]

Offtop:

Сообщение от koMon тут простым append никак не обойтись, массив надобен

Offtop: Почему оно тогда работает?

[koMon]

Offtop:

Сообщение от kacugu Почему оно тогда работает?

Offtop: непорядок) надо ещё почитать) в смысле мне)