[wetr]

Уважаемые господа программисты! Есть интересная задачка которую не решить штатными средствами АКАД(но если кто знает - подскажите).
Суть:
Рисую динамическими блоками ЖБ узлы. Там и арматурные сетки, арматурные стержни и прочее, прочее. В этих блоках основа - допустим, полярный параметр. Так вот я сейчас вставляю через тул палеттс, и после вставки блок всегда в одинаковом положении. После его приходится выделять его и тягать за "ручки". А хочется чтобы вставлялся указанием двух точек в модели. Ну типа как линию рисуешь. Это было бы СУПЕР!!!
Пример файла прилагается.

[Дима_]

Твой пример решается классическим динамическим блоком.

[Krieger]

Сообщение от Red Nova У меня возникла несколько иная ситуация, но по той же тематике. Имею блок (не динамический). Блок находится в тул палетке. Требуется вставить его в чертеж так, чтобы затем указывались сперва угол вставки а затем и scale блока (причем scale не вводится в ком строке а указывается реал тайм, то есть точками на чертеже). Если объяснил не очень ясно, то смотрите аттач.

Элементарно решается при помощи простого макроса:

Код:

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

^C^C_-insert;1;_Rotate;-45;_Scale;$M=$(if,$(getvar,dimscale),$(*,$(getvar,dimscale),5),5);\_rotate;_l;;@;0;_rotate;_l;;@;\_scale;_p;;@;_r;$M=$(if,$(getvar,dimscale),$(*,$(getvar,dimscale),5),5);$M=$(if,$(getvar,dimscale),$(*,$(getvar,dimscale),5),5);_scale;_p;;@;_r;$M=$(if,$(getvar,dimscale),$(*,$(getvar,dimscale),5),5);

Рабоать вот с этим блоком. Вставка реагирует на переменную Dimscale, т.е. если dimscale = 1, то радиус этого полукруга будет равен 5, если 3, то 15 (ну это канечно если обрывать визуальную указку масштаба). В "_units" должны быть установлены мм (ты в инчах работаешь?). Работает и в AutoCAD LT.

[Red Nova]

Дима_,
Нужно чтобы запросы на поворот и размер выходили тут же, а дин. блок нужно сперва вставить, а потом тянуть его за гриспы, нудно...
Krieger,
Спасибо, Почти работает. Только вот проблема возникла. Я скопировал файл в дирректорию прописанную в акаде, переименовал его в 1.dwg (так требует -insert). Но Блок вставляется только если в файле уже вставляли блок под именем "1", иначе пишет

Код:

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

Command: _-insert
Enter block name or [?]: 1
Block 1 references itself
*Invalid*

Кроме того напрягает зависимость от dimscale, так как пользуюсь CПДС ...
(Тока чур не надо про его вредоносность )
Твой макрос натолкнул меня на создание вот какого лиспа. Блок сварного катета можно создавать прямо в файле, и потом вставлять его куда угодно, таким образом можно избежать трудностей возникших у меня. Когда-то VVA дал мне пару похожих уроков. Щас попробую навоять.

[Red Nova]

Блин. Забыл самую элементарную вешь. Как создать набор объектов в лиспе?

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

ssget тебе в помощь

[Red Nova]

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

Код:

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

(defun C:weld (/ selection1 pt0 OldLAY)

(vl-load-com)
(vla-StartUndoMark  (vla-get-activedocument (vlax-get-acad-object)))
(defun *error*(msg) 
 (princ msg) ; Отменено пользователем
 (if OldLAY (setvar "clayer" OldLAY)) 
 ) 

 (setq OldLAY (getvar "clayer"))

  (if (not (tblsearch "block" "Сварной катет"))
   (progn
     (command "_-layer" "_set" "0" "")
     (setq selection1 (ssadd)) 
     (command "_pline" "0,0" "1,0" "a" "s" "0.7071,0.7071" "0,1" "l" "c")
     (ssadd (entlast) selection1)
     (command "_hatch" "s" "l" "p" "s" "")
     (ssadd (entlast) selection1)
     (command "_chprop" selection1 "" "_color" "_byblock" "_ltype" "_byblock" "_lweight" "_byblock" "")
     (command "_-block" "Сварной катет" "0,0" selection1 "")
   )
  )
  (setq pt0 (getpoint)) 
  (command "_-insert" "Сварной катет" "s" pt0 pause pt0 pause "")

 (setvar "clayer" OldLAY)
(vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))  

)

Теперь надо подумать как обточить покрасивше.
1. Напомните плиз что написать вмето (setq pt0 (getpoint)) чтобы выходил запрос "Укажите точку вставки"
2. Еще надо бы подумать как сделать так, чтобы когда указываешь размер блока сам блок уже висел на курсоре.

[Red Nova]

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

Код:

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

(defun C:weld2 (/ selection1 pt0 OldLAY)

(vl-load-com)
(vla-StartUndoMark  (vla-get-activedocument (vlax-get-acad-object)))
(defun *error*(msg) 
 (princ msg) ; Отменено пользователем
 (if OldLAY (setvar "clayer" OldLAY)) 
 );end of defune 

 (setq OldLAY (getvar "clayer"))

  (if (not (tblsearch "block" "Сварной катет"))
   (progn
     (command "_-layer" "_set" "0" "")
     (setq selection1 (ssadd)) 
     (command "_pline" "0,0" "1,0" "a" "s" "0.7071,0.7071" "0,1" "l" "c")
     (ssadd (entlast) selection1)
     (command "_hatch" "s" "l" "p" "s" "")
     (ssadd (entlast) selection1)
     (command "_chprop" selection1 "" "_color" "_byblock" "_ltype" "_byblock" "_lweight" "_byblock" "")
     (command "_-block" "Сварной катет" "0,0" selection1 "")
   );end of progn
  );end of if
  (setq pt0 (getpoint)) 
  (command "_-insert" "Сварной катет" "0,0" "" "" "")
  (command "_move" "_l" "" "0,0" pt0)
  (command "_scale" "_p" "" pt0 pause)
  (command "_rotate" "_p" "" pt0 pause)

 (setvar "clayer" OldLAY)
(vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))  

);end of defune

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

http://forum.dwg.ru/showthread.php?t=11905

[Krieger]

Сообщение от Red Nova Спасибо, Почти работает. Только вот проблема возникла. Я скопировал файл в дирректорию прописанную в акаде, переименовал его в 1.dwg (так требует -insert). Но Блок вставляется только если в файле уже вставляли блок под именем "1", иначе пишет Код: [Выделить все] Command: _-insert Enter block name or [?]: 1 Block 1 references itself *Invalid*

Для этого надо в пустом файле вставить этот блок в точку 0,0,0 с углом поворота 0, потом его расчленить. Очистить файл от этого блока. Сохранить файл под именем "1.dwg", кинуть файл в путь поддержки када. Тогда команда "_-insert" будет вставлять весь этот файл как блок "1".

Кроме того напрягает зависимость от dimscale, так как пользуюсь CПДС ...

Ну и пользуйся на здоровье, т.к. при смене масштаба в СПДС меняется и dimscale. Да и что мешает убрать эту зависимость? Кстати, в СПДС ведь есть вставка катета?

Твой макрос натолкнул меня на создание вот какого лиспа. Блок сварного катета можно создавать прямо в файле, и потом вставлять его куда угодно, таким образом можно избежать трудностей возникших у меня.

Все уже сделано до нас...

http://dwg.ru/dnl/2527

Кстати, обновлю сегодня.

[Red Nova]

Krieger,

Кстати, в СПДС ведь есть вставка катета?

Хочу получить округлый шов.
Кулик Алексей aka kpblc, Почитал, но быстро заблудился. Дай пожалуйста ссылку на конкретный пост.

[Red Nova]

Krieger,
Покопался в твоей программе. Понравилося твой алгоритм вставки катета шва. Хотелось бы приспособить его к моему блоку. Я не имею понятия о расширении vlx, если есть в простом lsp выложи плиз.

[Krieger]

Сообщение от Red Nova Krieger, Покопался в твоей программе. Понравилося твой алгоритм вставки катета шва. Хотелось бы приспособить его к моему блоку. Я не имею понятия о расширении vlx, если есть в простом lsp выложи плиз.

VLX это компилированный лисп. Никому не показываю, т.к. на нем учится не стоит, очень примитивный. Однако работает, а переписывать в лом. Отправил тебе в ЛС.

[Red Nova]

Спасибо. Я думал что скомпилированный lsp это только fas... Попытаюсь разобраться в твоем коде.

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

Krieger, а можно тоже полюбопытствовать?

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

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

[Krieger]

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

Почему? Самому не очень нравится, но оставил, так как в одном файле этих треугольничков может быть ну очень много. Вот сейчас произволно открыл один файл малюсенького КМ, посчитал эти блоки, получилось 289. Чуть посложнее и за полтыщи перевалит, но там уже и кад не ворочается, приходится разбивать по файлам...