[Yura]

Возможно-ли уменьшить расстояние от размерной линии до текста (показано красным на рисунке)?
[ATTACH]1182406740.jpg[/ATTACH]

[Кулик Алексей aka kpblc]

> Yura : Девушка хотела помочь, а ты ее так... Как было сказано в свое время, "барбосы мы тут некуртуазные".
Теперь о теме: А что в настройке размерного стиля? Может, там надо покопаться?
P.S. Топик читал по диагонали, мог и пропустить такое предложение... Но меня-то фейсом об тейбл можно, мне уже все равно

[Yura]

Сообщение от Кулик Алексей aka kpblc ...А что в настройке размерного стиля? Может, там надо покопаться?...

Перед тем, как задать вопрос, походил по поиску, полазил в настройке стиля, не забыв про хэлп...
100%, что нигде такой настройки нет дать не могу, я всего лишь человек, но как показывают вышеперечисленные ответы гуру этого форума, склоняюсь к мнению, что я таки прав... А перед дамаой, конечно, извиняюсь, просто ее пост был как-бы слегка оффтоп, т.е. она не изучила до конца суть темы...

[Kuks]

все это можно сделать с помощью довесок к автокаду и если еще редактор заменен на Tedit

[Хмурый]

Kuks
Какие довески? Назови или ткни мордой.

[Kuks]

VetCAD

[Хмурый]

Ну, будем посмотреть.

[ASLYS]

лучший вариант, наверно, как советовал Bull в посте18

Но лучше применить "move text add leader". Полочка пропадает, но его ж можно нарисовать.

а потом объединить в группу, и если PICKSTYLE=3 получается очень удобно
группа делается лиспом CADALYST 05/04 Tip1948: GGR.LSP реально очень быстро и просто

[Yura]

Сообщение от Kuks все это можно сделать с помощью довесок к автокаду и если еще редактор заменен на Tedit

Спасибо, кончно, но еще СПДС до кучи не хватало поставить. Мое личное мнение, которое отличаеццо от многих: Автокад должен быть чистым и прозрачным, безо всяких, зачастую глюкавых довесок, чтобы чертеж легко и непринужденно читался, редактировался и печатался с любого компа...
А ваще, причем здесь Tedit?

[Kuks]

встречный вопрос какой оставить чистым? 15-й не берем, на выбор 2002, 2004, 2005, 2006, 2007, 2008, почему-же интересно каждый год новый выходит, а сервис-паки? они сами добавляют многое и от простых пользователей, что действительно полезно

[Yura]

Сообщение от ASLYS лучший вариант, наверно, как советовал Bull в посте18 Но лучше применить "move text add leader". Полочка пропадает, но его ж можно нарисовать. а потом объединить в группу, и если PICKSTYLE=3 получается очень удобно группа делается лиспом CADALYST 05/04 Tip1948: GGR.LSP реально очень быстро и просто

1. То, что посоветоал Bull я уже писал в посте 17 пункт 2.
2. Можно поподробнее объяснить, что написано после "а потом", а то боюсь, не до каждого ламера это дойдет (в т.ч. до меня)...

[Хмурый]

Сообщение от Yura Автокад должен быть чистым и прозрачным, безо всяких, зачастую глюкавых довесок, чтобы чертеж легко и непринужденно читался, редактировался и печатался с любого компа...

И ты не одинок в этом

[Аshаs-ка]

Чистый автокад... Гы..! Ну, насмешили! Исторические пласты автокад вот что.

[Yura]

Сообщение от Kuks встречный вопрос какой оставить чистым?

Думаю, что тот, который идет с законченного дистрибутива фирмы Autodesc, без разных сторонних довесок, но как я уже писал, это мое личное мнение, которое я никому не навязываю. Суть вопроса в том, чтобы сделать требуемое обычными средствами Автокада...

[Alaspher]

Можно попробовать добиться желаемого результата (или приблизиться к нему), за счёт некоторого мухлежа с засечками. Расстояние от выносной линии, зависит от их размера (переменная - DIMASZ). Можно нарисовать пользовательский блок на вид, как стандатрная засечка, а на самом деле - раз в 5 больше, соответственно, задать размер засечек во столько же раз меньше... Не очень красиво, но должно работать.

[img]http://img98.**********.us/img98/3131/clipboard03qz1.gif[/img]

[ASLYS]

в автокаде есть комманда _group, но долго это, а можно подгрузить этот лисп и все будет быстро и просто (выделить, скопировать, подвинуть)

Код:

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

;;;CADALYST 05/04 Tip1948:  GGR.LSP          Group Objects    (c) 2004 Stacey Conrad

;;xxxxxxxxxxxxxxxxxxx Written By: Stacey Conrad Feb. 2004 xxxxxxxxxxxxxxxxxxxx
;;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

(defun c:ggr (/ );MAKES A GROUPING REAL FAST
(setq cmo(getvar "cmdecho") dytm "AM")
(setq lincnt 0 circnt 0 plincnt 0 wipcnt 0 txtcnt 0 blkcnt 0 htchcnt 0 dimcnt 0 miscnt 0)
(setvar "cmdecho" 0)

;;xxxxxxxxxxxxxxxxxxx getting the group name xxxxxxxxxxxxxxxxxxxxxxxxxxx

           (setq D (rtos (getvar "CDATE") 2 6)
        YR (substr D 3 2)
        MO (substr D 5 2)
       DAY (substr D 7 2)
        HR (substr D 10 2)
        MM (substr D 12 2)
        SS (substr D 14 2))
	   (if (= (atoi hr) 12)(setq dytm "PM"))
	   (if (> (atoi hr) 12)(setq hr (itoa (- (atoi hr) 12)) dytm "PM"))
	   (if (= (atoi hr) 0)(setq hr "12"))
           (setq BTD (strcat MO "-" DAY "-" YR "_" HR "-" MM "-" SS dytm))

;;xxxxxxxxxxxxxxxxxxx selection set xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

(setq ss(ssget))

;;xxxxxxxxxxxxxxxxxxx counting the number of each entity type xxxxxxxxxxxxxxxxx

(if (= ss nil)(princ "\nNo Object Selected")(progn
(setq n -1)
    (while (/= (ssname ss (setq n (1+ n))) nil)
	(progn
	  (setq entyp(cdr (assoc 0 (entget(ssname ss n)))))
	  (if (= entyp "LINE")(setq lincnt (1+ lincnt))
  	    (if (= entyp "CIRCLE")(setq circnt (1+ circnt))
		(if (= entyp "LWPOLYLINE")(setq plincnt (1+ plincnt))
		  (if (= entyp "WIPEOUT")(setq wipcnt (1+ wipcnt))
		    (if (= entyp "TEXT")(setq txtcnt (1+ txtcnt));
			(if (= entyp "INSERT")(setq blkcnt (1+ blkcnt))
			  (if (= entyp "HATCH")(setq htchcnt (1+ htchcnt))
			    (if (= entyp "DIMENSION")(setq dimcnt (1+ dimcnt))
				(setq miscnt (1+ miscnt))
			    )
			  )
			)
		    )
		  )
		)
	    )
	  )	
       )
    )

;;xxxxxxxxxxxxxxxxxxx sorting the info for the group descirption xxxxxxxxxxxxxxxxx

(setq lst1 (list (itoa lincnt) (itoa circnt) (itoa plincnt)(itoa wipcnt) (itoa txtcnt) (itoa blkcnt) (itoa htchcnt) (itoa dimcnt) (itoa miscnt)))
(setq lst2 (list "") nn 0)
(if (/= (setq numb (nth 0 lst1)) "0")
  (progn
  (setq strng(list (strcat numb "-Line(s) ")) lst2 (append lst2 strng) nn (+ nn 1))
 )
)
(if (/= (setq numb (nth 1 lst1)) "0")
  (progn
  (setq strng(list (strcat numb "-Circle(s) ")) lst2 (append lst2 strng) nn (+ nn 1))
 )
)
(if (/= (setq numb (nth 2 lst1)) "0")
  (progn
  (setq strng(list (strcat numb "-Polyline(s) ")) lst2 (append lst2 strng) nn (+ nn 1))
 )
)
(if (/= (setq numb (nth 3 lst1)) "0")
  (progn
  (setq strng(list (strcat numb "-Wipeout(s) ")) lst2 (append lst2 strng) nn (+ nn 1))
 )
)
(if (/= (setq numb (nth 4 lst1)) "0")
  (progn
  (setq strng(list (strcat numb "-Text(s) ")) lst2 (append lst2 strng) nn (+ nn 1))
 )
)
(if (/= (setq numb (nth 5 lst1)) "0")
  (progn
  (setq strng(list (strcat numb "-Block(s) ")) lst2 (append lst2 strng) nn (+ nn 1))
 )
)
(if (/= (setq numb (nth 6 lst1)) "0")
  (progn
  (setq strng(list (strcat numb "-Hatch(es) ")) lst2 (append lst2 strng) nn (+ nn 1))
 )
)
(if (/= (setq numb (nth 7 lst1)) "0")
  (progn
  (setq strng(list (strcat numb "-Dimension(s) ")) lst2 (append lst2 strng) nn (+ nn 1))
 )
)
(if (/= (setq numb (nth 8 lst1)) "0")
  (progn
  (setq strng(list (strcat numb "-Misc Items(s) ")) lst2 (append lst2 strng) nn (+ nn 1))
 )
)
(if (= nn 1)(setq dscrptn (nth 1 lst2)))
(if (= nn 2)(setq dscrptn (strcat (nth 1 lst2)(nth 2 lst2))))
(if (= nn 3)(setq dscrptn (strcat (nth 1 lst2)(nth 2 lst2)(nth 3 lst2))))
(if (= nn 4)(setq dscrptn (strcat (nth 1 lst2)(nth 2 lst2)(nth 3 lst2)(nth 4 lst2))))
(if (= nn 5)(setq dscrptn (strcat (nth 1 lst2)(nth 2 lst2)(nth 3 lst2)(nth 4 lst2)(nth 5 lst2))))
(if (= nn 6)(setq dscrptn (strcat (nth 1 lst2)(nth 2 lst2)(nth 3 lst2)(nth 4 lst2)(nth 5 lst2)(nth 6 lst2))))
(if (= nn 7)(setq dscrptn (strcat (nth 1 lst2)(nth 2 lst2)(nth 3 lst2)(nth 4 lst2)(nth 5 lst2)(nth 6 lst2)(nth 7 lst2))))
(if (= nn 8)(setq dscrptn (strcat (nth 1 lst2)(nth 2 lst2)(nth 3 lst2)(nth 4 lst2)(nth 5 lst2)(nth 6 lst2)(nth 7 lst2)(nth 8 lst2))))
(if (= nn 9)(setq dscrptn (strcat (nth 1 lst2)(nth 2 lst2)(nth 3 lst2)(nth 4 lst2)(nth 5 lst2)(nth 6 lst2)(nth 7 lst2)(nth 8 lst2)(nth 9 lst2))))

;;xxxxxxxxxxxxxxxxxxx the actual command xxxxxxxxxxxxxxxxx

(command "-group" "c" btd dscrptn ss "")
))
(princ)

)

[Кулик Алексей aka kpblc]

Хоть мне уже и стыдно за код, попробуй посмотреть на http://www.autocad.ru/cgi-bin/f1/board.cgi?t=22733Nt - там решается аналогичная задача (с группированием). Правда, там создавались анонимные вроде бы группы (Господи, сколько времени прошло!)

[Lena06]

так нормально?
[ATTACH]1182511208.jpeg[/ATTACH]

[Alexander_Liseev]

так нормально? [ATTACH]1182511208.jpeg[/ATTACH]

Так, просто супер, Вы бы еще этот фрагментик в .dwg выложили бы. Посмотреть охота очень

[Yura]

Сообщение от Lena06 так нормально?

Нет, см. пост 20. На твоем рисунке после сдвига текста полка таки пропала, так мы тоже могём...

[Yura]

>Кулик Алексей aka kpblc:
Где почитать, как этот код вставить, чтоб заработало... (Да, так уж все запущено...)