[Pave1]

У меня нескоько вопросов к более опытным пользователям Автокада.

1. Как создать блок один атрубут которого будет равняться другому атрубуту?
2. Как создать блок один атрубут которого будет равняться другому атрубуту плюс один (к примеру аттрибутом делаю порядковый номер "№12", а в следующем блоке этот номер бедет на единицу больше"№13")?

[X-DeViL]

1. В 2005 каде и старше есть такая штука Field... побалуйся
2. Тот же ФИЛД, но с использованием "Diesel expression"... но в этом я не шарю... может кто другой поможет...

[Pave1]

[quote="X-DeViL"] 1. В 2005 каде и старше есть . . .
У меня стоит 2004 + СПДС2,5
У меня есть еще лисп для экспликации помещений, он ставит крук в центре которого как раз меняющаяся цифра. Вот мне нечто подобное и надо (только сместо круга вские другие элементы).

[Alan]

У меня нет СПДС, наверное здесь поможет kpblc.
Посмотрите в свойствах объекта.
В принципе если это блок, то можно легко это сделать переопределением блока. Если элемент СПДС, то боюсь дрова.

[Pave1]

[quote="Alan"]
нет, это не элесент CПДС. Этот блок я сам создал. В нем есть два места в которые надо вносить одну и ту же надпись. Я вносить эту надпось дважды не хочу. Вот и думаю, может можно это как-то автоматизировать.

[Pave1]

А что такое kpblc?
И что смотреть в свойствах объекта?

[Pave1]

Вот что я вижу в свойствах блока.
[ATTACH]1120231408.jpg[/ATTACH]

[Pave1]

а мне надо чтобы атрибут 3-ий равнялся атрибуту 9-му автоматически (без моего участия)

[Pave1]

а атрибут первый менялся автоматически у последующиго блока на один. Файл с блоком прикладываю.
[ATTACH]1120231955.dwg[/ATTACH]

[Alan]

А что такое kpblc?

kpblc - вообще-то Гуру этого форума. Помните знаменитую фразу: "Начальство надо знать в лицо!" Ну да ладно, не растраивайтесь. Извинитесь да и ладушки. Теперь к блоку.
Т.к. вы сейчас в работе, я тоже еще часик буду.
1. Нарисуйте 2 комнаты и поставьте их номера
2. Пришлите чертежик мне alnaz@ukr.net
3. Скачайте ПАРКС-ДЕМО http://www.arcada.com.ua/infot/po/arch/parks.html и посмотрите как там просто рисуются планы (проще не бывает). Кстати, номера помещений с экспликацией можно сделать в Демо-режиме. А блоки по охранке-пожарке (это не в Демо) у меня тоже ставятся.
4. Пока скачиваете, я решу Вашу проблему.

[Pave1]

Извените меня глубокоуважаемый гуру kpblc.
Я на этом форуме еще новичок и с месными авторитетами еще не знаком.

[Pave1]

Alan
Я скачал ПАРКС. Добавилось много функций новых, но ни одна не работает в командной строке каждый раз появляется "error" или "Unknown command"
Хотя если чесно, то эти команды не для меня. У меня обычно планировки появляются уже готовые. Я кабельные системы черчу.

[Alan]

>Pave1
Посмотрел я Ваш чертеж. Ну что сказать?

Как создать блок один атрубут которого будет равняться другому атрубуту?

Не надо за этим гнаться, всё это создаётся средствами ЛИСП. Только-что, дня два назад написал Лиспик для подобной задачи (обозначения трасс) с диалоговым окном. См.картинку. Там в окне задаете один раз, а вставится сколько надо, ну и увеличение чего-то на единицу порсто не проблема.
[ATTACH]1120235580.JPG[/ATTACH]

[Pave1]

Значит советуете мне вспоминать лисп. У меня, помню, в рамках институтской программы неплохо получалось, но потом все знания былы благополучно забыты.
А на сайте, что вы посоветовали меня очень заинтересовала вот эта програмка http://www.arcada.com.ua/infot/po/eng/ps_electrica.html.
Это именно то, что мне надо. На досуге обязательно в ней разбирусь (ну или попытаюсь разобраться )

[Лентяй]

Pavel, ловите лиспу, и каждый раз пользуясь оной, сугубо и трегубо благодарите меня за то, что я есть.
Лиспа эта нумерует блоки в выбраном порядке или перенумеровавает их, ежели что вставлено в середину. При этом значение атрибута 9 приравневается значению атрибута 3.

Код:

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

(defun vu (ov / nv)
  (if (= kw "Number")
    (setq nv (itoa (+ n dn)))
    (setq nv (itoa (+ (atoi ov) dn)))
  );if
);defun	  
; 
(defun C:AN-E ( / ov nv dn blk)
 (setq	cmd (getvar "CMDECHO")
	pca (getvar "PICKAUTO")
	n 0 );setq
 (setvar "CMDECHO" 0)
 (initget "Number Renumber")
 (setq kw (getkword "\n[Number/Renumber]? <N>"))
 (if (null kw) (setq kw "Number"))
 (if (= kw "Number")
   (progn (setvar "PICKAUTO" 0) (setq dn (getint "\nInput start number: <1>")));progn
   (setq dn (getint "\nInput number offset: <1>"))
 );if
 (if (null dn) (setq dn 1))
 (prompt (strcat "\nSelect Blocks for " kw "ing: ")) 
 (setq sskn (ssget))
 (while (< n (sslength sskn))
   (setq blk (vlax-ename->vla-object (ssname sskn n)))
   (if (= (vla-get-objectname blk) "AcDbBlockReference")
     (foreach at (vlax-safearray->list (vlax-variant-value (vla-getattributes blk)))
       (cond ((= (vla-get-TagString at) "1") (setq ov (vla-get-TextString at)
						   nv (vu ov));setq
  	 	(vla-put-TextString at nv));1
	     ((= (vla-get-TagString at) "3") (setq val (vla-get-TextString at)))
	     ((= (vla-get-TagString at) "9")(vla-put-TextString at val))
       );cond
     );foreach
   );if
   (setq n (1+ n))
 );while
 (setvar "CMDECHO" cmd)
 (setvar "PICKAUTO" pca)
 (princ)
);end

[ZZZ]

>Pave1
PS Electrica не очень удобная штука. Есть много блох. Поюзайте демку для начала и поймёте.

>Alan 01 Июл 2005 18:33
Вы сделали просто оболочку для удобства заполнения блоков (в данном случае схем).
Я решаю такие задачи в экселе(в табличной форме набор щита) с последующей отрисовкой в акаде (блоки с атрибутами). Заодно в экселе сразу и подсчитываю спецификации материалов, нагрузки(с коеф. спроса), автоматический выбор сечения кабеля.

Теперь по теме.
В случае необходимости пронумеровки по порядку текстовых примитивов(текст, мтекст) или атрибутов блоков. Сначала раставляю эти объекты. Потом пользуюсь лиспиком замены текста с парамметром. Удобно одной и тойже функцией решать разноплановые задачи :нумерация строк, клавиш выключателей, оборудования, номеров групп и т.д.
[ATTACH]1120261811.JPG[/ATTACH]

[k168]

СПДС 3.0:
Универсальный маркер (spcreateumarker) имеется возможность добавить данные с объекта СПДС, блока Автокада. Кроме того, поддерживается автоматическое сохранение в базе с возможностью последующей вставки. Данные могут быть как отображаемые на чертеже, так и не видимые, для сбора информации в таблицу. Осуществляется автоматическое выравнивание по объекту Автокада. Разные типы выносок.



Help/Менеджер объектов/Создание маркеров
[ATTACH]1120278007.gif[/ATTACH]

[Alan]

>ZZZ
Я не являюсь специалистом по электрике, поэтому мне трудно оценить PS Electrica, особенно в ДЕМО-режиме. В моей программе, ДЕМО-режим тоже работает ну очень своеобразно. Но я, если честно сказать не люблю (очень мягко сказано) сочетания EXCEL+AutoCAD. Считаю (ИМХО), что альянс MS+Autodesk, не пошел на пользу Автокаду. Это уже немного не Автокад. Что касается подсчетов спецификаций это тема другой темы, писал. Простые расчеты в EXCEL делать конечно просто, но создание специализированной программы с нормальной базой я думаю это всё-таки правильнее. И здесь посмотреть на PS Electrica надо наверное повнимательнее.
ZZZ, если Вы можете бросьте материалы мне на мыло. Я покажу своим электрикам, м.б. заинтересуются. Мы ж всё-таки в одном городе, состыкуемся при необходимости.
>Pave1
Попроси отзывы у народа, кто юзает PS Electrica. В новой теме или поиском. По-моему уже было.

[Pave1]

Лентяй
Огромное спасибо за помощь в преодолении сложностей в освоении Автокада.
Скачал сделанный вами Лисп. Уже готовился вспоминать тебя добрым словом , как вдруг . . .
не работает.
Вот что я делаю:
1. _appload и указываю файл в котором сохранил ваш лисп.
2. (vu)
и?
и вижу
Command: (vu)
; error: too few arguments
Что я деляю не правильно?
Научите пожалуйста

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

Надо не (vu) вызывать, а имя функции AN-E, без скобок и параметров.