[Малюк]

При указание точки в нутри замкнутого контура (контур представляет собой букву Т) в командной строке появляется см. рисунок. И это безобразие продолжается где-то пол минуты, но бывает по разному. Оно как-то получается через раз. То бывает быстро анализирует то не очень. Я вообще не понимаю что-тут анализировать? Подскажите в чём может быть проблема? И ещё вопрос. Можно ли контур указывать по точкам?

[Карел]

Для ускорения процесса анализирования контура штриховки в Автокаде можно:

1. Указывать не точку внутри контура, а пользоваться вторым способом - указывать сам контур).
2. При анализе контура желательно чтобы он примерно "вписался" ровно в размер экрана, тормозов при выполнении этого условия будет меньше в несколько раз.
3. Если тормоза остались и ждать влом - обрисовали контур, перенесли на чистое место, заштриховали. Или еще лучше заморозить все слои кроме контуров для штриховки и слоя с штриховками.

Кстати желательно чтобы контур был замкнут

[Малюк]

Спасибо. А как насчёт: "Можно ли контур указывать по точкам?"

[Bull]

Сообщение от Малюк Спасибо. А как насчёт: "Можно ли контур указывать по точкам?"

По точкам нельзя, но можно, указывая объекты границ (что и хотел выразить КАРЕЛ). Ещё совет: закинь все сплайны в один слой и выключи его перед штриховкой. НАМНОГО быстрее будет анализ.

[Red Nova]

Иногда _boundary просчитывается быстрее штриховки. Для создания контура еще полезен лисп wrap object. Действует аналогично _boundary, но с внешней а не с внутренней стороны

Код:

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

;;;CADALYST 01/05 Tip2004:  wrapObjects.lsp      Wrap Objects         (c) 2005 Stephen Cunliffe

;|
	Wrap Objects!
	
	This command, wraps the selected object(s), with polyline(s).
	The effect is similar to an "Outer Boundary Experience" ;-)
	
	The objects wrapped, can be any boundary defining shape, e.g. Line(s), Multiline(s), Arc(s),
	(LW/HW)Polyline(s), Circle(s), Block(s), or Region(s).
	
	This command "cheats" :-) by creating a box around the
	entire drawing, then executes the boundary command,
	and picks a point within the new space created.  The
	result, is that we can now use the built-in boundary
	command as normal, to get the "inner" boundary, and
	this command, to get the "outer" boundary.
	
	********************************************************
	* WARNING!: This command will FAIL if user selects;    *
	*          an ELLIPSE, or SPLINE object.               *
	********************************************************
	* REASON: Elliptical edges, are not native to the      *
	*        Polyline object, and as such, AutoCAD will    *
	*        ask user if Region(s) should be created       *
	*        instead.  Although it gets confused, if you   *
	*        proceed, and create them, you can edit them   *
	*        as desired. (e.g. Explode them)               *
	********************************************************
	
	There are a few possible outcomes from this command (e.g. the boundary command).
	a.) There could be 1 boundary (the outer duplicate)
			This would mean that there were NO real boundaries created.
	b.) There could be 2 boundaries (the outer, and a single real boundary)
			This is the ideal outcome.
	c.) There could be N boundaries (the outer, a single real boundary, and islands within it)
			This would be fairly typical also.
	d.) There could be N boundaries (the outer, and various separate, real boundaries, and possibly, islands within them.)
			This would happen, when unrelated geometry is selected.
	
	Therefore, to allow for desired outcomes of (c and d), we will provide 2 styles.
	Wrap option [Single|Multiple] <Single>: 
|;

; getArea subRoutine
(defun getArea ( entName / )
	(command "_.AREA" "O" entName)
	(setq objArea (getvar "AREA"))
) ;defun

(defun c:wr(/ oldEcho objsToWrap extMin extMax minX minY maxX maxY
					diagDist boxOffset boxLL boxLR boxUR boxUL
					boundPoint boxObj newObjs lastEntName entName
					newObjsLen maxArea counter thisArea wrapOption
				)
	(setq oldEcho (getvar "CMDECHO"))
	(setvar "CMDECHO" 0)
	(prompt "\nWrap Objects (w/Polyline(s)):")
	;|
		Swap commenting with (setq) line below...
		If you want ELLIPSE and SPLINE objects to be selectable
	|;
	;(setq objsToWrap (ssget))
	(setq objsToWrap
		(ssget '(
			(-4 . "<NOT")
				(-4 . "<OR")
					(0 . "ELLIPSE")
					(0 . "SPLINE")
				(-4 . "OR>")
			(-4 . "NOT>"))
		) ;ssget
	) ;setq
	
	(if (/= objsToWrap nil)
		(progn
			(command "_.UNDO" "BEGIN")
			(setq wrapOption "Single") ;default to single
			(initget "Single Multiple")
			(prompt "\nWrap Options:")
			(prompt "\n     Single: Only the largest outer profile will be created.")
			(prompt "\n   Multiple: Nested, or detatched profiles will also be created.")
			(setq wrapOption (getkword "\nWrap option [Single/Multiple] <Single>: "))
			(if (= wrapOption "Multiple")
				(setq wrapOption "Multiple")
				(setq wrapOption "Single")
			) ;if
			
			; Create bounding box, larger than existing drawing...
			(setq extMin (getvar "EXTMIN"))
			(setq extMax (getvar "EXTMAX"))
			(setq minX (car extMin))
			(setq minY (cadr extMin))
			(setq maxX (car extMax))
			(setq maxY (cadr extMax))
			
			(setq diagDist (distance extMin extMax))
			(setq boxOffset (* diagDist 0.1))
			
			(setq boxLL (list (- minX boxOffset) (- minY boxOffset) 0))
			(setq boxLR (list (+ maxX boxOffset) (- minY boxOffset) 0))
			(setq boxUR (list (+ maxX boxOffset) (+ maxY boxOffset) 0))
			(setq boxUL (list (- minX boxOffset) (+ maxY boxOffset) 0))

			(setq boundPoint (list (- minX (/ boxOffset 2)) (- minY (/ boxOffset 2)) 0))

			(command "_.PLINE" boxLL boxLR boxUR boxUL "C")
			(setq boxObj (entlast))

			(command "_.-BOUNDARY" "A" "O" "P" "I" "Y" "B" "N" boxObj objsToWrap "" "" boundPoint "")
			
			; Get a list of the entities created by the boundary command...
			(setq lastEntName boxObj)
			(while (setq entName (entnext lastEntName))
				(setq newObjs (append newObjs (list entName)))
				(setq lastEntName entName)
			) ;while

			;Get the greatest object area, of the new objects (the duplicate polyline, of our temp box)
			(setq newObjsLen (length newObjs))
			(setq maxArea 0)
			
			(setq counter 0)
			(while (< counter newObjsLen)
				(setq thisArea (getArea (nth counter newObjs)))
				(if (>= thisArea maxArea)
					(setq maxArea thisArea)
				) ;if
				(setq counter (1+ counter))
			) ;while
			
			; Delete the Object, that matches the maxArea (the duplicate polyline)
			(setq counter 0)
			(while (< counter newObjsLen)
				(setq thisArea (getArea (nth counter newObjs)))
				(if (= thisArea maxArea)
					(progn
						(entdel (nth counter newObjs))
						(setq counter newObjsLen) ;break loop
					) ;progn
				) ;if
				(setq counter (1+ counter))
			) ;while
			
			(if (= wrapOption "Single")
				(progn
					; Get the REMAINING new objects...
					(setq newObjs nil)
					(setq lastEntName boxObj)
					(while (setq entName (entnext lastEntName))
						(setq newObjs (append newObjs (list entName)))
						(setq lastEntName entName)
					) ;while

					; Get the NEXT greatest object area, of the REMAINING new objects (this is the one we want to keep!)
					(setq newObjsLen (length newObjs))
					(setq maxArea 0)

					(setq counter 0)
					(while (< counter newObjsLen)
						(setq thisArea (getArea (nth counter newObjs)))
						(if (>= thisArea maxArea)
							(setq maxArea thisArea)
						) ;if
						(setq counter (1+ counter))
					) ;while

					; Delete the Object, UNLESS it matches the maxArea (the one we want to keep!)...
					(setq counter 0)
					(while (< counter newObjsLen)
						(setq thisArea (getArea (nth counter newObjs)))
						(if (/= thisArea maxArea)
							(progn
								(entdel (nth counter newObjs))
							) ;progn
						) ;if
						(setq counter (1+ counter))
					) ;while
				) ;progn
			) ;if
			
			;Erase the original box...
			(command "_.ERASE" boxObj "")

			(command "_.UNDO" "END")
		) ;progn
	) ;if
	(setvar "CMDECHO" oldEcho)
	(princ)
) ;defun
(prompt "\nWrapObjects.lsp...Loaded!")
(prompt "\nType 'WR' to RUN: ")
(princ)

[Shoorup]

А почему при открытии чертежа, при выборе штриховки (солид) заметно небольшое притормаживание на 2 секунды? При последующем выборе других штриховок тормоза пропадают.

[ApmeM]

Скорее всего, при этом ниже командной строки появляется надпись Loading Modeler DLL's...
или что-то в этом роде...

[Bull]

Сообщение от Shoorup А почему при открытии чертежа, при выборе штриховки (солид) заметно небольшое притормаживание на 2 секунды?

Чувствую, что штриховка тут имеет опосредованное отношение. Есть у АКАД-2008 такой бзик. Особенно когда после долгого простоя (~30мин минимум) АКАДа к нему опять переходишь. При первой операции (любой) "зависает" на несколько секунд.

[Dyuk]

А может есть какие-то ещё способы ускорения анализа штриховки? Что-то уж очень долго автокад (2011) анализирует штриховки, в предыдущих версиях явно быстрее было.

[impoolse]

да да... У мя та же проблема. Уже голову сломал себе как исправить. Пока бьюсь над проблемой!

[АлексЮстасу]

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

[Jonas]

Можно _-hatch;пОстроить контур; и далее по диалогу.

[impoolse]

решение проблемы оказалось элементарным!!! Протсо отключил динамический ввод

[АлексЮстасу]

Сообщение от impoolse решение проблемы оказалось элементарным!!! Протсо отключил динамический ввод

С чего бы это?

[impoolse]

Сообщение от АлексЮстасу С чего бы это?

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

[Хмурый]

Offtop: мы тут никто

[mike 5319]

Аналогичная проблема в акаде(
Подскажите как отключить динамический ввод?)))

[Vombat]

Сообщение от mike 5319 Аналогичная проблема в акаде( Подскажите как отключить динамический ввод?)))

по умолчанию F12

[Ingener-trainer]

Чето ничего не помогает , ни отключение динамического ввода , ни ввод по точкам, при этом все лишние слои заморожены
... тормозит и всё ....
причем действительно иной раз может быстро заштриховать, а вследующий, эту же область анализирут - пока у меня терпение не кончеться...
P.S - у меня Autocad 2007LT

[v_alex]

для 2011 автокада переменная HPQUICKPREVIEW -> 0... для 2007 не знаю, может там так же...
из справки:

ПримечаниеПо умолчанию штриховка отображается в режиме предварительного просмотра при наведении курсора мыши на замкнутые области. Для снижения времени реакции при работе с большими чертежами отключите функцию предварительного просмотра штриховки с помощью системной переменной HPQUICKPREVIEW.

[Ingener-trainer]

Сообщение от v_alex для 2011 автокада переменная HPQUICKPREVIEW -> 0... для 2007 не знаю, может там так же...

Не в 2007 нет такой переменной (((

[Alexey S]

Сообщение от v_alex для 2011 автокада переменная HPQUICKPREVIEW -> 0... для 2007 не знаю, может там так же... из справки:

Очень помогло. Даже достаточно большой файл совсем без тормозов штрихует. Я так полагаю если эта переменная равна 1, то включается режим предпросмотра ... в общем то что в справке написано. Хорошо бы после выхода новых версий автокада рассказывали не только о новых возможностях но и как их отключить и вернуться например к прежней схеме штриховки... хотя все новое чаще хорошо
У меня 2011.

[Ingener-trainer]

А мне для 2007 помогло следующее- отключаю самый "тяжелый" слой (который по идее нужен) и штрихую.... для деталей я думаю можно попробовать начертить контур(в отдельном слое), затем отключить "тяжелый" слой и выполнить штриховку....

[СерJант]

Сообщение от v_alex для 2011 автокада переменная HPQUICKPREVIEW -> 0... для 2007 не знаю, может там так же...

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

вот еще ссылочки из справочки прямой наводкой - один - два

а в 2007, 2008, 2009 функции предосмотра штриха не было, так что не парьтесь с этой опцией, т.к. попросту ее там нет

[new WOW]

Добрый день! Столкнулась с такой проблемой: При штриховки объекта и в дальнейшем её удалении, вместе с ней удаляется и сам объект (область которой коснулась штриховка) Как это исправить?

[engngr]

Пример где?

[Хмурый]

new WOW, переменную PICKSTYLE в 1 или в ноль

[николай00725]

У меня помогло, сохранением файла в .dxf , очистил блоки через очистить, потом команда проверить, далее опять сохранил в .dwg- все отлично