[aTBepTKa]

Есть узел фермы (см. вложение). На нем часть фасонки, которая коряво показана красными штрихами, необходимо показать штриховой линией.
Можно разрывать линию и задавать нужный тип линии для получившейся ее части. Но такой способ не особо удобен. Чаще просто обрезаю часть линии и вручную дорисовываю ту же линию, задавая ей необходимый тип.
У кого какие методы вычерчивания подобных узлов?

[Prorab kIROV]

если не сильно заморачиваться, то можно подбирая масштаб пунктирной линии нарисовать невидимую))

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

Одно дело - рисовать в 2D, другое - в 3D.

[aTBepTKa]

Сообщение от Кулик Алексей aka kpblc Одно дело - рисовать в 2D, другое - в 3D.

Работаю с 2D чертежом.
Не думаю что вычертить ферму в 3D будет быстрее, тем более когда параллельно с черчением идет конструирование и некоторые элементы могут меняться. Хотя это уже отдельная тема для разговора.

Может быть не совсем удачный пример привел. Есть деталь А (рисунок слева). В процессе проектирования появилась необходимость положить на нее деталь Б и показать под ней невидимые линии (рисунок справа). Как это лучше сделать?

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

Я бы разрывал имеющиеся линии и отрисовывал новые. Возможно, по ходу дела игрался бы со слоями.

[Bull]

Сообщение от Кулик Алексей aka kpblc Я бы разрывал имеющиеся линии и отрисовывал новые. Возможно, по ходу дела игрался бы со слоями.

Можно не разрывать и рисовать, а разделять в точке ещё. В зависимости от ситуации делаю так или сяк. Стиль меняю слоями. Быстрые свойства вообще сильно ускоряют этот процесс.

[Krieger]

Пользуюсь лиспом:

Код:

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

;|
Функция Kr_Break_and_hide
*** Автор Морозов С.В. aka Krieger ***
Обрезает выбранный отрезок по двум точкам и вычерчивает на этом месте отрезок в слое layer
Пример:
(Kr_Break_and_hide "Невидимые")
|;
(defun Kr_Break_and_hide (layer / pt1 pt2 ent)
  (while (setq ent (Kr_entsel "\nВыберите линию для разрыва" '("LINE" "LWPOLYLINE" "XLINE" "RAY") nil))
    (if (setq pt1 (getpoint "\nНачальная точка скрываемого участка"))
      (if (setq pt2 (getpoint "\nКонечная точка скрываемого участка" pt1))     
	(progn
	  (setq pt1 (vlax-curve-getClosestPointTo (vlax-ename->vla-object ent) pt1)
	        pt2 (vlax-curve-getClosestPointTo (vlax-ename->vla-object ent) pt2))
		  (command "_break" ent pt1 pt2)
		  (entmake
		    (list
		    	'(0 . "LINE")
			'(100 . "AcDbEntity")
			 (cons 8 layer)
			 '(100 . "AcDbLine")
			 (cons 10 pt1)
			 (cons 11 pt2)
		    );list
		  );entmake
	  );progn
	);if
      );if
    );while
  (princ)
  );defun

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

Сообщение от aTBepTKa Работаю с 2D чертежом. Не думаю что вычертить ферму в 3D будет быстрее, тем более когда параллельно с черчением идет конструирование и некоторые элементы могут меняться. Хотя это уже отдельная тема для разговора. Может быть не совсем удачный пример привел. Есть деталь А (рисунок слева). В процессе проектирования появилась необходимость положить на нее деталь Б и показать под ней невидимые линии (рисунок справа). Как это лучше сделать?

в 3D нарисованная деталь-> flatshot(настроив в нём тип и цвет линий в поле "Obscured lines"). Невидимые линии будут того цвета и типа как тебе надо...

----- добавлено через ~3 мин. -----
А ещё лучше глянуть в сторону не голого автокада, а вертикалок.
Точно знаю что в MEP невидимые линии на автомате получаются и в разрезах и при "обычном" черчении (естественно при использовании объектов MEP)

[kacugu]

Сообщение от Krieger Пользуюсь лиспом:

Пишет: no function definition: KR_ENTSEL
не подскажете как исправить?
нашел лисп KR_Entsel здесь http://forum.dwg.ru/showpost.php?p=859415&postcount=11
при загрузке лиспа пишет следующее
KR_entsel.lsp успешно загружено.
Команда: ; ошибка: синтаксическая ошибка

[Хмурый]

все строки до defun следует закомментарить.
поставить ;- в начале каждой строки

а у меня не хватает аргументов

(Kr_Break_and_hide "Невидимые") ; error: too few arguments

[kacugu]

Сообщение от Хмурый ; error: too few arguments

тоже было, но только при наборе команды Kr_Break_and_hide, то есть при неправильном наборе команды.
Закомментил строки. kr_entsel теперь загружается без ошибок. Но всё-равно
Команда: (Kr_Break_and_hide "Невидимые")
; ошибка: no function definition: KR_ENTSEL
Пробовал разные варианты: Слой "невидимые" и создавался/не создавался заранее, лисп kr_entsel и загружался/не загружался

[Fogel]

Сообщение от aTBepTKa Работаю с 2D чертежом. Не думаю что вычертить ферму в 3D будет быстрее, тем более когда параллельно с черчением идет конструирование и некоторые элементы могут меняться.

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

[aTBepTKa]

Спасибо за ответы.
Здесь ни раз упоминалось о вертикальных решениях. Есть ли на форуме живые люди которые разрабатывают КМ/КМД на основе трехмерной модели? Поделитесь опытом.

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

aTBepTKa, а ты паискам зыймися многа пализнава узнаеш

[Krieger]

Извиняюсь, забыл Kr_entsel добавить.

Эта функция, нужно вводить в скобочках и с названием слоя в котором должен быть невидимый отрезок, например: (Kr_Break_and_hide "Невидимые").

Ничего там комментировать не нужно, все что нужно, там закомментировано.

Код:

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

;|
Функция Kr_Break_and_hide
*** Автор Морозов С.В. aka Krieger ***
Обрезает выбранный отрезок по двум точкам и вычерчивает на этом месте отрезок в слое layer
Пример:
(Kr_Break_and_hide "Невидимые")
|;
(vl-load-com)
(defun Kr_Break_and_hide (layer / pt1 pt2 ent)
  (while (setq ent (Kr_entsel "\nВыберите линию для разрыва" '("LINE" "LWPOLYLINE" "XLINE" "RAY") nil))
    (if (setq pt1 (getpoint "\nНачальная точка скрываемого участка"))
      (if (setq pt2 (getpoint "\nКонечная точка скрываемого участка" pt1))     
	(progn
	  (setq pt1 (vlax-curve-getClosestPointTo (vlax-ename->vla-object ent) pt1)
	        pt2 (vlax-curve-getClosestPointTo (vlax-ename->vla-object ent) pt2))
		  (command "_break" ent pt1 pt2)
		  (entmake
		    (list
		    	'(0 . "LINE")
			'(100 . "AcDbEntity")
			 (cons 8 layer)
			 '(100 . "AcDbLine")
			 (cons 10 pt1)
			 (cons 11 pt2)
		    );list
		  );entmake
	  );progn
	);if
      );if
    );while
  (princ)
  );defun

;|Функция Kr_entsel
*** Автор Морозов С.В. aka Krieger ***
Еденичный выбор объекта, замена функции entsel
Возвращает entity name выбранного примитива или nil, точку указки запоминает в переменной LASTPOINT
Параметры:
promt - предложение выбрать объект (string)
filter - фильтр объектов для выбора вида '("LINE" "LWPOLYLINE")
entlist - список примитивов которые не надо выбирать (либо список entity name, либо PICKSET)

Примеры:
(Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") nil)
(Kr_entsel "\nВыберите объекты" nil nil)
(setq aa nil) (Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") (while (setq a (car (entsel))) (setq aa (append aa (list a)))))
(Kr_entsel "\nВыберите объекты" '("LINE" "LWPOLYLINE") (ssget))

|;

(defun Kr_entsel (promt filter entlist / key n newentlist ent_point promt)
  
  (setq key T n 0 newentlist nil)
  (if (eq (type entlist) 'PICKSET)
    (progn
    	(while (setq a (ssname entlist n)) (setq newentlist (append newentlist (list a)) n (1+ n)))
    	(setq entlist newentlist)
    );progn
   );if
    (while key
    	(if (or (setq ent_point (entsel promt)) (= (getvar "ERRNO") 7))
	  	(if (or (eq (type ent_point) 'LIST) (not ent_point))
		  (if ent_point
		    (if (member (setq ent (car ent_point)) entlist)
		      (princ "\nПримитив уже выбран")
		      (if filter
			      (if (not (member (cdr (assoc 0 (entget ent))) filter))
				(progn (setq str "\nНе верный выбор, выберите: ")
				  (princ (substr (setq str (foreach n filter (setq str (strcat str n ", ")))) 1 (- (strlen str) 2)))
				);progn
				(setq key nil)
			      );if
				(setq key nil)
			);if
		    );if
		    (setq key T)
		  );if
	    	(setq key nil)
	    );if
	  (setq key nil)
      	);if
     );while
  (if (eq (type ent_point) 'LIST)
    (progn (setvar "LASTPOINT" (cadr ent_point)) ent)
    ent_point
  );if
);defun

[cater]

Сообщение от Кулик Алексей aka kpblc aTBepTKa, а ты паискам зыймися многа пализнава узнаеш

А его на Гугле забанили.

[Хмурый]

Сообщение от Krieger Ничего там комментировать не нужно, все что нужно, там закомментировано.

Вчера из кода по каким-то причинам не скопировались вертикальные палки комментариев и, видать, не только у меня. Сегодня- все в порядке

[Krieger]

Все работает? Разрываются отрезки?

[Хмурый]

Krieger, вариант из #15 работает. AutoCAD 2011 Eng

[kacugu]

Сообщение от Krieger Все работает? Разрываются отрезки?

Работает из #15. Autocad 2014 sp1 rus