<?xml version="1.0" encoding="windows-1251" ?> 
		<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
		<channel>
		<title>DWG.RU : Форум : Программирование</title> 
		<link>http://forum.dwg.ru/forumdisplay.php?f=13</link> 
		<language>ru</language> 
		<image>
		  <url>http://dwg.ru/img/logo_mini.gif</url> 
		  <link>http://forum.dwg.ru/</link> 
		  <title>DWG.RU : Форум : Программирование</title>
		</image>
		<description>Инженерный форум</description> 
		<atom:link href="http://dwg.ru/rssforum13.xml" rel="self" type="application/rss+xml" />
		<item>
		<title>Создание дополнительных параметров Visibility Set в динамических блоках.  [456]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=604576</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=604576</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=46229&quot;&gt;Eddicordo&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 30 Jul 2010 17:11 (GMT + 4)&lt;p&gt;&lt;b&gt;kha&lt;/b&gt; Спасибо все получилось.&lt;br /&gt;&lt;br /&gt;Возник следующий вопрос. &lt;br /&gt;Использование программки Excel-Lookup.lsp&lt;br /&gt;1) В блоке использую 3 параметра  Lookup&lt;br /&gt;В которые мне и нужно записать с Excel информацию.&lt;br /&gt;В Excel создаю 3 листа, в каждом листе прописываю в 2 колонки инфу которую мне надо закинуть в Lookup-ы.&lt;br /&gt;В итоге почему то во все 3 Lookup записывается только в с 1 листа. Хотя я указываю первый лист к первому Lookup. и т.д.&lt;br /&gt;Глюк какой то?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Список блоков с растрами  [9]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=604550</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=604550</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 30 Jul 2010 16:13 (GMT + 4)&lt;p&gt;Когда &quot;выдергивал&quot; из &quot;своей библиотеки&quot; проглядел - в &quot;жирном&quot; варианте до нее не &quot;доходит&quot; т.к. на вход всега поподает аргумент типа 'str. В &quot;моем оригинале&quot; вот она:&lt;br /&gt;&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;(defun cod (cd obj) ; возращает код cd примитива obj.&lt;br /&gt;(if (and obj (= (type obj) 'ename))&lt;br /&gt;(cdr (assoc cd (entget obj)))&lt;br /&gt;));end of cod&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Список блоков с растрами  [8]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=604475</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=604475</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1619&quot;&gt;VVA&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 30 Jul 2010 14:30 (GMT + 4)&lt;p&gt;Отвечу за Диму. Ф-ция возвращает первое вхождение точечной пары DXF списка. Переименуй ф-цию ниже в cod&lt;br /&gt;&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;br /&gt;;|  ! ***************************************************************************&lt;br /&gt;;; !                           lib:dxf&lt;br /&gt;;; ! ***************************************************************************&lt;br /&gt;;; ! Function : Returns the first occurence of a DXF dotted pair from a list&lt;br /&gt;                Возвращает первое вхождение точечной пары DXF списка&lt;br /&gt;;; ! Argument : 'n'     - The DXF code to check / DXF код&lt;br /&gt;;; !            'lst' -    The List to check  / Список&lt;br /&gt;;; ! Returns  : The value of the DXF dotted pair, if it exists else returns nil&lt;br /&gt;                Значение точечной пары, если есть или nil&lt;br /&gt;;; ! ****************************************************************************|;&lt;br /&gt;&lt;br /&gt;(defun lib:dxf (n lst)(if (= (type lst) 'ENAME)(setq lst (entget lst)))(cdr (assoc n lst)))&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Список блоков с растрами  [7]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=604451</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=604451</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=3662&quot;&gt;petr.vubrikv&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 30 Jul 2010 14:11 (GMT + 4)&lt;p&gt;&lt;b&gt;Дима_&lt;/b&gt;&lt;br /&gt;Прошу прощения, не подскажете, что за функция такая &quot;&lt;b&gt;cod&lt;/b&gt;&quot; у Вас применена ?&lt;br /&gt;&lt;br /&gt;(defun listblock&lt;br /&gt;...&lt;br /&gt;(if (or (= (type obj) 'str) (= (&lt;b&gt;cod&lt;/b&gt; 0 obj) &quot;INSERT&quot;))&lt;br /&gt;...&lt;br /&gt;(if (= (type obj) 'ename) (setq obj (&lt;b&gt;cod&lt;/b&gt; 2 obj)))&lt;br /&gt;...&lt;br /&gt;&lt;br /&gt;Спасибо.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как автоматически обновлять поля блока?  [7]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=604338</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=604338</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7470&quot;&gt;Ax3&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 30 Jul 2010 11:20 (GMT + 4)&lt;p&gt;Парни, я решил проблему! Ключом оказалась функция (vla-sendcommand). Она сама дожидается освобождения (&quot;простоя&quot;) автокада и симулирует ввод команд.&lt;br /&gt;&lt;br /&gt;Таким образом получил следующее.&lt;br /&gt;1. &quot;Вешаю&quot; реактор на свой блок:&lt;br /&gt;&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;;(c)Danilov_AS@GUNIPCGPSPb&lt;br /&gt;  ;&quot;Вешаем&quot; реактор на только что созданный блок:&lt;br /&gt;    (progn&lt;br /&gt;      ;На случай ошибки при предыдущих выполнениях реактора - очистка флагов активности&lt;br /&gt;      (setq upd-fields_command_active_ nil)&lt;br /&gt;      (setq upd-fields_active_ nil)&lt;br /&gt;      (setq&lt;br /&gt;        is__stamp_reactor_&lt;br /&gt;        (vlr-object-reactor&lt;br /&gt;          (list is__mf__stamp_instance_) ; vla-объект!&lt;br /&gt;          &quot;Stamp Reactor&quot;&lt;br /&gt;          ;'((:vlr-modified . upd-fields))&lt;br /&gt;          '((:vlr-objectClosed . upd-fields)) ;&lt;br /&gt;        )&lt;br /&gt;      )&lt;br /&gt;(print is__stamp_reactor_)&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;2. Содержание callback-функции реактора:&lt;br /&gt;&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;(defun upd-fields&lt;br /&gt;;(c)Danilov_AS@GUNIPCGPSPb&lt;br /&gt;  (&lt;br /&gt;  notifier-object&lt;br /&gt;  reactor-object&lt;br /&gt;  parameter-list&lt;br /&gt;  /&lt;br /&gt;  )&lt;br /&gt;  (if&lt;br /&gt;    (= upd-fields_active_ nil)&lt;br /&gt;    (progn&lt;br /&gt;      (setq upd-fields_active_ 't)&lt;br /&gt;      (if&lt;br /&gt;        (vlax-property-available-p&lt;br /&gt;          notifier-object&lt;br /&gt;          ;&quot;Radius&quot;&lt;br /&gt;          &quot;name&quot;&lt;br /&gt;        )&lt;br /&gt;        (progn&lt;br /&gt;;(princ &quot;Block name: &quot;)&lt;br /&gt;(princ (vla-get-name notifier-object))&lt;br /&gt;;(princ parameter-list)&lt;br /&gt;          ;(command &quot;_.updatefield&quot; (vlax-vla-object-&gt;ename notifier-object &quot;&quot;)&lt;br /&gt;          ;(command &quot;updatefield&quot; uf__last_updated_object_ &quot;&quot;)&lt;br /&gt;          ;(vl-cmdf &quot;_.regen&quot;)&lt;br /&gt;          ;(entupd (vlax-vla-object-&gt;ename notifier-object))&lt;br /&gt;          ;(vla-update (vlax-ename-&gt;vla-object (vlax-vla-object-&gt;ename notifier-object)))&lt;br /&gt;;         ;----------------------------------------------------&lt;br /&gt;;         ;This code causes fatal error :-):&lt;br /&gt;;          (vla-regen&lt;br /&gt;;            (vla-get-activedocument (vlax-get-acad-object))&lt;br /&gt;;            0 ;active vp&lt;br /&gt;;          )&lt;br /&gt;;         ;----------------------------------------------------&lt;br /&gt;          (setq uf__last_updated_object_ (vlax-vla-object-&gt;ename notifier-object)) ; - thx to Александр Ривилис@forum.dwg.ru&lt;br /&gt;;(princ uf__last_updated_object_)&lt;br /&gt;          (if&lt;br /&gt;            (= upd-fields_command_active_ nil)&lt;br /&gt;            (progn&lt;br /&gt;              (setq upd-fields_command_active_ 't)&lt;br /&gt;              (vla-sendcommand&lt;br /&gt;                (vla-get-activedocument (vlax-get-acad-object))&lt;br /&gt;                (strcat&lt;br /&gt;                  &quot;(&quot;&lt;br /&gt;                  &quot;progn&quot;&lt;br /&gt;                    &quot;(&quot;&lt;br /&gt;                    &quot;vl-cmdf&quot;&lt;br /&gt;                      &quot; &quot;&lt;br /&gt;                      (chr 34) &quot;_.updatefield&quot; (chr 34)&lt;br /&gt;                      &quot; &quot;&lt;br /&gt;                      &quot;uf__last_updated_object_&quot;&lt;br /&gt;                      &quot; &quot;&lt;br /&gt;                      (chr 34) (chr 34)&lt;br /&gt;                    &quot;)&quot;&lt;br /&gt;                    &quot;(&quot;&lt;br /&gt;                      &quot;setq&quot;&lt;br /&gt;                      &quot; &quot;&lt;br /&gt;                      &quot;upd-fields_command_active_&quot;&lt;br /&gt;                      &quot; &quot;&lt;br /&gt;                      &quot;nil&quot;&lt;br /&gt;                      &quot;)&quot;&lt;br /&gt;                    &quot;)&quot;&lt;br /&gt;                (chr 13)&lt;br /&gt;                )&lt;br /&gt;              ) ;end vla-send-command&lt;br /&gt;            )&lt;br /&gt;          )&lt;br /&gt;        );progn&lt;br /&gt;      )&lt;br /&gt;    );progn&lt;br /&gt;  )&lt;br /&gt;  (setq upd-fields_active_ nil)&lt;br /&gt;)&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;То есть из callback-функции я делаю вызов (vla-sendcommand &lt;лисповое выражение&gt;) и запоминание названия модифицированного блока (Александру Ривилису спасибо за совет) в переменную last_updated_object. Лисповое выражение (отрабатывает по завершении реактора) содержит команду updatefield блока, указанного в last_updated_object и очистку флага активности команды. Флаг активности используется для исключения многократных рекуррентных вызовов функцией самой себя.&lt;br /&gt;&lt;br /&gt;Спасибо за подсказки!&lt;br /&gt;&lt;br /&gt;P.S. Поправка. Рекуррентные вызовы-то на самом деле, конечно, не исключаются, но само тело callback-функции при установленном флаге активности не выполняется. А вот исключить совсем рекуррентные вызовы можно теоретически &quot;отцеплянием&quot; реактора от блока в теле самого реактора (то есть на время выполнения реактора). По завершении работы реактора &quot;прицеплять&quot; его обратно. В Delphi подобный замут делал - работало, в LISP-е не пробовал еще...&lt;br /&gt;&lt;br /&gt;P.P.S. Еще поправка. (vla-sendcommand), конечно, ничего не дожидается, видимо, она просто кладет указанные команды в некую очередь (пользовательских?) команд, которая как раз во время выполнения LISP-функций не обрабатывается кадом.&lt;br /&gt;&lt;br /&gt;P.P.P.S. А, и еще важный момент. Надо позаботиться об удалении блока. То есть по идее при создании блока на него надо вешать два объектных реактора (vlr-object-reactor) - реактор на событие модификации (:vlr-modified либо :vlr-objectClosed) и реактор на событие &quot;перед-удалением&quot; (:vlr-goodbye). В реакторе &quot;перед-удалением&quot; надо отцеплять оба реактора от блока, иначе после удаления кад ругается &quot;Automation error: object was erased&quot;. Но это так, к слову.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [28]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=604213</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=604213</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=3351&quot;&gt;CB&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 30 Jul 2010 09:07 (GMT + 4)&lt;p&gt;&gt;olegans&lt;br /&gt;Пересохрани файл-образец в версию до АА2008 включительно&lt;br /&gt; &lt;br /&gt;Сорри, уже есть такой...</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как автоматически обновлять поля блока?  [6]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=604030</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=604030</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=30283&quot;&gt;TararykovDG&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 19:40 (GMT + 4)&lt;p&gt;vla-UpDate не сработал, может как через vla-FieldCode узнать формула для поля, а потом доставать &quot;бубен&quot; и в TextString записать обновленные данные?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как автоматически обновлять поля блока?  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=604015</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=604015</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=28&quot;&gt;Кулик Алексей aka kpblc&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 19:03 (GMT + 4)&lt;p&gt;vla-update не сработает?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [27]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603983</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603983</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 17:57 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;zamtmn :&lt;/b&gt;&lt;br /&gt;нестоит этого делать, кабель - полилиния, подпись к кабелю возможно блок&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Я бы тоже не заморачивался с дин. блоком - с кабелем, хотя возможно.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [26]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603938</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603938</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1379&quot;&gt;zamtmn&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 17:16 (GMT + 4)&lt;p&gt;&gt;&gt;Как раз сейчас на этом небольшая заминка пытаемся сделать кабель в виде динамического блока&lt;br /&gt;&lt;br /&gt;нестоит этого делать, кабель - полилиния, подпись к кабелю возможно блок</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [25]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603914</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603914</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50706&quot;&gt;olegans&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 16:46 (GMT + 4)&lt;p&gt;Чертежей будет много поэтому программа нужна не только для этого случая просто будут менять марки кабелей номера соединений</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как автоматически обновлять поля блока?  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603910</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603910</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7470&quot;&gt;Ax3&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 16:44 (GMT + 4)&lt;p&gt;Проблема цикличного вызова реактора &quot;из себя&quot; решается просто введением флага активности реактора.&lt;br /&gt;&gt;Александр Ривилис Благодарю за подсказку. Такое решение кажется вполне подходящим. Попробую.&lt;br /&gt;&lt;br /&gt;Вот только чем поля обновлять? В LISP-е не нашел такой функции. (command), опять же, нельзя - в реакторах не работает</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [24]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603905</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603905</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1379&quot;&gt;zamtmn&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 16:42 (GMT + 4)&lt;p&gt;В данном случае блоки - лишнее усложнение. Будут через чур сложные правила для оформления схемы подключения - это оправдает себя если сделать единую програмку для получения всех отчетов из из одного чертежа - например из плана - схемы подключения, кабельного журнала и т.д.&lt;br /&gt;А заморачиваться с хитрым оформлением одного чертежа для одного отчета (блоки... атрибуты... недай бог разъемы:) ) никто не будет, темболее если профит (абсолютной лентяйство) получает другой человек, а ты получаешь &quot;лишнюю&quot; возню</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [23]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603904</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603904</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50706&quot;&gt;olegans&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 16:41 (GMT + 4)&lt;p&gt;Как раз сейчас на этом небольшая заминка пытаемся сделать кабель в виде динамического блока что бы проектировщики могли растягивать ее (линию) между оборудованием так как расстояние между квадратами разное в качестве атрибутов взяли номер соединеия и марку кабеля. Не получается пока сделать так что бы линия (кабель) растягивалась... Не подскажите?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как автоматически обновлять поля блока?  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603903</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603903</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=30283&quot;&gt;TararykovDG&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 16:40 (GMT + 4)&lt;p&gt;Только вот вопрос? Если Ваш ректор будет срабатывать на изменение блока и попытается изменить содержимое полей, которые в свою очередь являются элементами блока, то это приведет к новому срабатыванию реактора, так как блок поменялся и так до бесконечности, а точнее сразу все прервется какой-нибудь фатальной ошибкой? Или нет?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как автоматически обновлять поля блока?  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603889</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603889</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1611&quot;&gt;Александр Ривилис&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 16:27 (GMT + 4)&lt;p&gt;В этом реакторе запоминай &quot;кого нужно обновить&quot;, а обновляй в командном реакторе (CommandEnded).</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [22]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603886</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603886</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 16:24 (GMT + 4)&lt;p&gt;У Вас &quot;квадратики&quot; с надписями соединены набором из отрезков и дуг, надобы, чтоб все квадратики стали блоками (а надписи - их аттрибутами - только останеться решить какими блоками - простыми или динамическими) -  и &lt;b&gt;строго&lt;/b&gt; (&lt;em&gt;ну с небольшой погрешност&lt;/em&gt;ью) от точки вставки (или специально отмеченного ориентира (разъема?)) блока шла целиковая полилиния до другого блока. Причем кабель должен лежать в отдельном слое. Тогда в награду Вы и получите &quot;абсолютное лентяйство&quot;.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как автоматически обновлять поля блока?  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603867</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603867</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7470&quot;&gt;Ax3&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 15:59 (GMT + 4)&lt;p&gt;Привет, братья по каду.&lt;br /&gt;Столкнулся с проблемой. Дин. блок содержит lookup-ы и поля, отображающие значеия lookup-ов. Хотел сделать так, чтобы после изменений Lookup-ов пользователем производилось автоматическое обновление полей блока.&lt;br /&gt;Прицепил к блоку vlr-object-reactor, в качестве его callback-функции указал свою функцию upd-fields.&lt;br /&gt;И теперь вот думаю - а что в ней написать-то, в этой upd-fields?&lt;br /&gt;В справке сказано &quot;Do not update the object that issued the event notification.&quot; и запрещено использовать (command) и, видимо, (vl-cmdf) тоже запрещено, да они и не работают в реакторе. То есть (command &quot;updatefield&quot;) отпадает.&lt;br /&gt;&lt;br /&gt;Может, есть варианты? Кто-нибудь сталкивался с подобной задачей?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [21]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603819</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603819</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50706&quot;&gt;olegans&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 15:00 (GMT + 4)&lt;p&gt;&lt;br /&gt;Уважаемый Дмитрий по вашему совету для автоматизации предложил проектировщикам переработать чертеж. Процесс как говориться прошел. Единственное не совсем понимаю про кабели которые надо обрисовать полилиниями.  Можно по подробнее?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Lisp для копирования с поворотом  [25]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603621</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603621</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=18839&quot;&gt;Do$&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 10:28 (GMT + 4)&lt;p&gt;&lt;a href=&quot;http://dwg.ru/art/8&quot;&gt;dwg.ru/art/8&lt;/a&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Lisp для копирования с поворотом  [24]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603614</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603614</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50795&quot;&gt;практикант2010&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 29 Jul 2010 10:14 (GMT + 4)&lt;p&gt;Всем привет. Помогите пожалуйста с лиспом, очень надо, а то разобраться не могу. заранее спасибо!!!</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Динамический зумминг  [7]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603434</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603434</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=16030&quot;&gt;gomer&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 28 Jul 2010 22:00 (GMT + 4)&lt;p&gt;Да второе! В моем коде &lt;b&gt;z&lt;/b&gt; - величина не постоянная, постоянно увеличивающаяся до 1. Но как определить эту зависимость, не знаю?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Список блоков с растрами  [6]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=603264</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=603264</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=3662&quot;&gt;petr.vubrikv&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 28 Jul 2010 16:49 (GMT + 4)&lt;p&gt;&lt;b&gt;Дима_&lt;/b&gt;&lt;br /&gt;Ох, и не знаю как благодарить. Выручили.&lt;br /&gt;И насчет ассоциативности я с Вами согласен: '((&quot;block&quot; &quot;карта1&quot; &quot;карта2&quot;...)) ,-самое то !&lt;br /&gt;Спасибо.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Динамический зумминг  [6]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602928</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602928</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=2978&quot;&gt;Елпанов Евгений&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 23:56 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;gomer :&lt;/b&gt;&lt;br /&gt;Как сделать правильно - задача не тривиальная...&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Извини, но я, если честно, совсем не понял задачу...&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Что значит динамично? Чтоб команда динамически отслеживала курсор и в зависимости от местоположения курсора масштабировала экран? Или судя по последнему лиспу, ты хочешь плавно изменить масштаб изображения на экране на некоторую величину...&lt;br /&gt;Если первое, то вроде автокад и в 2004 версии умел это делать, если второе, то надо определиться в двух параметрах &lt;br /&gt;1. время выполнения операции (допустим пара секунд)&lt;br /&gt;2. масштабный коэффициент - на сколько надо масштабировать изображение на экране (например постоянная величина или задается пользователем / программой) &lt;br /&gt;далее пишем код, подобный твоему и вычисляем количество слайдов, после замера времени выполнения первого масштабирования и делаем серию команд масштабирования. Скорее всего, надо сразу ограничить максимальное количество операций до 15 в секунду.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [20]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602923</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602923</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1379&quot;&gt;zamtmn&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 23:25 (GMT + 4)&lt;p&gt;я не говорю про общий случай. в представленном примере ближайший мтекст к полилинии (в идеале точка вставки мтекста должна лежать на полилинии) - это определение кабеля.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [19]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602917</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602917</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 23:12 (GMT + 4)&lt;p&gt;То zamtmn:&lt;br /&gt;Только беда в том что компьютер мерит линейкой, а человек &quot;на глаз&quot; см. пример</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Список блоков с растрами  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602915</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602915</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 22:57 (GMT + 4)&lt;p&gt;Для ассоциативности вполне достаточно '((&quot;block&quot; &quot;карта1&quot; &quot;карта2&quot;...)), как впрочем и сделанно у автодеска во всех DXF длинне пары.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [18]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602911</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602911</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=16030&quot;&gt;gomer&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 22:35 (GMT + 4)&lt;p&gt;Причем тут программирование?&lt;br /&gt;&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;olegans :&lt;/b&gt;&lt;br /&gt;такая таблица которая в данный момент заполняется вручную&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;для таких случаев есть хороший лисп...&lt;br /&gt;&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;br /&gt;((lambda (/ x y z)&lt;br /&gt;  (prompt &quot;\r &quot;)&lt;br /&gt;  (alert &quot;Готовы к трясучке?&quot;)&lt;br /&gt;  (setq x 64 y (getvar 'cmdecho) z 1.00)&lt;br /&gt;  (setvar 'cmdecho 0)&lt;br /&gt;  (repeat x&lt;br /&gt;	(command &quot;_.zoom&quot; &quot;_e&quot;)&lt;br /&gt;	(command &quot;_.zoom&quot; &quot;_s&quot; z)&lt;br /&gt;	(setq z (- z (/ (- z 0.96) x))))&lt;br /&gt;  (repeat 36&lt;br /&gt;	(mapcar '(lambda(x) (command &quot;_.pan&quot; &quot;0,0&quot; x))&lt;br /&gt;	 '(&quot;10,40&quot; &quot;40,-10&quot; &quot;10,-40&quot; &quot;-10,-40&quot; &quot;-40,-10&quot; &quot;-40,10&quot; &quot;-10,40&quot;)))&lt;br /&gt;  (setvar 'cmdecho y)&lt;br /&gt;  (alert &quot;Потрясло так потрясло ;)&quot; )&lt;br /&gt;  (princ)))&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [17]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602905</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602905</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1379&quot;&gt;zamtmn&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 22:08 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Цитата :&lt;/b&gt;&lt;br /&gt;напишите мне на любом языке программирования как определить &quot;ближайщий&quot; объект &quot;ко всей полилинии&quot; - задайте ее как угодно, вершинами, векторами и т.д.&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Перебираем полилинии. для каждой полилинии перебираем мтексты. Расстояние до конечных точек вопросов не вызывает? т.е. к чему подключен &quot;кабель&quot; находим без проблем. &quot;убираем&quot; найденные мтексты концов из списка, перебираем оставшиеся и находим мтекст с минимальным расстоянием до полилинии рассматривая полилинию как набор линий и пользуясь например этим - &lt;a href=&quot;http://algolist.manual.ru/maths/geom/distance/pointline.php&quot;&gt;algolist.manual.ru/maths/geom/distance/pointline.php&lt;/a&gt;. хотя думаю в лиспе найдется уже готовый метод.&lt;br /&gt;&lt;br /&gt;зы. если Вас нужда заставит идти пешком из Воронежа, а затем из Белгорода до путей трассы Москва-Владивосток, чтобы сесть на поезд, думаю вы пойдете по кратчайшему пути и заранье будете знать сколько вам нужно пройти. :yes:</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Динамический зумминг  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602898</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602898</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=16030&quot;&gt;gomer&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 21:10 (GMT + 4)&lt;p&gt;есть решение, но заведомо неверное...&lt;br /&gt;&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;br /&gt;((lambda (/ x y z)&lt;br /&gt;  (setq x 64 y (getvar 'cmdecho) z 1.00)&lt;br /&gt;  (setvar 'cmdecho 0)&lt;br /&gt;  (repeat x&lt;br /&gt;	(command &quot;_.zoom&quot; &quot;_s&quot; z)&lt;br /&gt;	[COLOR=&quot;DarkRed&quot;]&lt;b&gt;(setq z (- z (/ (- z 0.96) x)))&lt;/b&gt;[/COLOR] ; тут неверно&lt;br /&gt;  )&lt;br /&gt;  (setvar 'cmdecho y)&lt;br /&gt; )&lt;br /&gt;)&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;Как сделать правильно - задача не тривиальная...</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Список блоков с растрами  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602897</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602897</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=16030&quot;&gt;gomer&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 20:59 (GMT + 4)&lt;p&gt;я думаю список так должен выглядить вообще-то(асоциативно т.е.):&lt;br /&gt;'((&quot;Block1&quot; . (&quot;Карта1&quot;)) (&quot;Block2&quot;  . (&quot;Карта21&quot; &quot;Карта22&quot;)) (...) ....)</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [16]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602890</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602890</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 20:37 (GMT + 4)&lt;p&gt;напишите мне на любом языке программирования как определить &quot;ближайщий&quot; объект &quot;ко всей полилинии&quot; - задайте ее как угодно, вершинами, векторами и т.д. &lt;br /&gt;р.с. представте себе железную дорогу Москва-Владивосток, к чему она ближе к Москве, Владивостоку, Воронежу, Белгороду? А главное на сколько?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Список блоков с растрами  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602886</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602886</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 20:31 (GMT + 4)&lt;p&gt;&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;(vl-load-com)&lt;br /&gt;(defun listblock (obj / lst) ; возращает список примитивов во вхождении блока, либо блоке obj.&lt;br /&gt;(if (or (= (type obj) 'str) (= (cod 0 obj) &quot;INSERT&quot;))&lt;br /&gt;(progn&lt;br /&gt;(if (= (type obj) 'ename) (setq obj (cod 2 obj)))&lt;br /&gt;(setq obj (cdr (assoc -2 (tblsearch &quot;BLOCK&quot; obj))))&lt;br /&gt;(while obj&lt;br /&gt;(setq	lst (cons obj lst)&lt;br /&gt;	obj (entnext obj)&lt;br /&gt;);end of setq&lt;br /&gt;);end of while&lt;br /&gt;));end of progn&amp;if&lt;br /&gt;(reverse lst)&lt;br /&gt;);end of listblock&lt;br /&gt;&lt;br /&gt;(defun tblnamelist ( tbl / obj lst) ;возращает список запрашиваемых объектов: &quot;block&quot;,&quot;layer&quot; итп.&lt;br /&gt;(setq obj (tblnext tbl T))&lt;br /&gt;(while obj (setq lst (append lst (list (cdr (assoc 2 obj)))) obj (tblnext tbl)))&lt;br /&gt;lst&lt;br /&gt;);end of blocknamelist&lt;br /&gt;&lt;br /&gt;&lt;b&gt;(vl-remove-if-not 'cdr&lt;br /&gt;(mapcar '(lambda (name)&lt;br /&gt;		(cons name (vl-remove nil (mapcar '(lambda (ent)&lt;br /&gt;	(if (= (cdr (assoc 0 (entget ent))) &quot;IMAGE&quot;) (vla-get-name (vlax-ename-&gt;vla-object ent))))&lt;br /&gt;	(listblock name)))))&lt;br /&gt;(tblnamelist &quot;block&quot;)))&lt;/b&gt;&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;жирный кусок &quot;вставь&quot; по назначению</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [15]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602877</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602877</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1379&quot;&gt;zamtmn&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 20:10 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Цитата :&lt;/b&gt;&lt;br /&gt;Вот эта интересная фраза.&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;В смысле? расстояние между двумя точками считать все умеют, расстояние между точкой и отрезком (группой отрезков в случае полилинии) найти не на много сложнее. соответственно ближайшие мтексты и будут искомыми</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [14]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602868</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602868</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 19:34 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;zamtmn :&lt;/b&gt;&lt;br /&gt;просто найти ближайший мтекст к началу, концу и всей полилинии&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Вот эта интересная фраза. :)</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>&quot;имена неименованных&quot; блоков  [20]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602866</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602866</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=39499&quot;&gt;vade&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 19:30 (GMT + 4)&lt;p&gt;блоки с именем которое начинается на &quot;*E&quot; ну не расчленяются они командой _.EXPLODE. Кстати блок состоит из 3D Solid</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Список блоков с растрами  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602861</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602861</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=16030&quot;&gt;gomer&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 19:10 (GMT + 4)&lt;p&gt;:D В справке для разработчика все написано...</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Список блоков с растрами  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602859</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602859</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=3662&quot;&gt;petr.vubrikv&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 18:58 (GMT + 4)&lt;p&gt;Помогите пожалуйста создать на lisp список блоков чертежа, содержащих растровые картинки, если таковые имеются. Это должно быть в виде типа&lt;br /&gt;(((&quot;Block1&quot;) (&quot;Карта1&quot;))  ((&quot;Block2&quot;) (&quot;Карта21&quot; &quot;Карта22&quot;))  (...)   ...........)&lt;br /&gt;&lt;br /&gt;Большое спасибо.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [13]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602838</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602838</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1379&quot;&gt;zamtmn&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 18:18 (GMT + 4)&lt;p&gt;Задача не такая и сложная, при элементарных правилах оформления (разнесение по слоям и кабель единая полилиния, а не набор сегментов). просто найти ближайший мтекст к началу, концу и всей полилинии. (однозначность ближайшего мтекста тоже можно записать в правила оформления, тексты разъемов, кабелей, оборудования разнести по слоям). единственная сложность - кабели состоящие из нескольких частей&lt;br /&gt;&lt;br /&gt;зы. лисп не знаю и реализовать не смогу))</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [285]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602836</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602836</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=549&quot;&gt;sasha_lif&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 18:16 (GMT + 4)&lt;p&gt;сейчас попробую, а то я чуть не так делал..&lt;br /&gt;&lt;br /&gt;проверил&lt;br /&gt;Сделал как Вы говорите:&lt;br /&gt;Вашу модифицированную комманду pl-join назвал pl-join1&lt;br /&gt;&lt;br /&gt;и закинул в plttools.lsp&lt;br /&gt;параллельно исправив двоеточия на тире в двух строчах&lt;br /&gt;  (pl-error-save-sysvar '((&quot;PEDITACCEPT&quot; 1)(&quot;CMDECHO&quot; 0)))&lt;br /&gt;(pl-error-restore-sysvar)&lt;br /&gt;&lt;br /&gt;правильно?&lt;br /&gt;&lt;br /&gt;[MORE=&quot;В итоге комманда pl-join1 выглядит так:&quot;](defun C:PL-JOIN1 ( / ssnab count en *error* ss)&lt;br /&gt;  (setq *error* pltool-err)&lt;br /&gt;  (or *pl-activedoc* (setq *pl-activedoc* (vla-get-activedocument (vlax-get-acad-object))))&lt;br /&gt;  (vla-StartUndoMark *pl-activedoc*)&lt;br /&gt;  &lt;b&gt;[COLOR=&quot;red&quot;](pl-error-save-sysvar '((&quot;PEDITACCEPT&quot; 1)(&quot;CMDECHO&quot; 0)))[/COLOR]&lt;/b&gt;&lt;br /&gt;  (setq ssnab (ssget &quot;_I&quot;))&lt;br /&gt;  (while (not ssnab)(setq ssnab (ssget)))&lt;br /&gt;  ;;;И 3d полилинии&lt;br /&gt;  ;(setq ssnab(3dpljn ssnab 1e-6 &quot;AcDb3dPolyline&quot;))&lt;br /&gt;  (setq count 0)&lt;br /&gt;  (while (setq en (ssname ssnab count))&lt;br /&gt;    (if (member '(100 . &quot;AcDb3dPolyline&quot;)(entget en))&lt;br /&gt;      (ssdel en ssnab)&lt;br /&gt;      (setq count (1+ count))&lt;br /&gt;    )&lt;br /&gt;    )&lt;br /&gt;  (setq en (entlast) count 0 ss (ssadd))&lt;br /&gt;  (if (&gt; (sslength ssnab) 1)&lt;br /&gt;  (if (and (getvar &quot;PEDITACCEPT&quot;) (= (getvar &quot;PEDITACCEPT&quot;) 1))&lt;br /&gt;    (vl-cmdf &quot;_pedit&quot; &quot;_Multiple&quot; ssnab &quot;&quot; &quot;_Join&quot; 0 &quot;&quot;)&lt;br /&gt;    (vl-cmdf &quot;_pedit&quot; &quot;_Multiple&quot; ssnab &quot;&quot; &quot;_Y&quot; &quot;_Join&quot; 0 &quot;&quot;))&lt;br /&gt;  )&lt;br /&gt;  (while (and (setq en (entnext en))&lt;br /&gt;	      (= (cdr(assoc 0 (entget en))) &quot;LWPOLYLINE&quot;))&lt;br /&gt;    (setq count (1+ count))(ssadd en ss)&lt;br /&gt;    )&lt;br /&gt;(if (&gt; count 0)&lt;br /&gt;(if (= (getvar &quot;SysCodePage&quot;) &quot;ANSI_1251&quot;)&lt;br /&gt;    (princ (strcat &quot;\nСоздано &quot; (itoa count) &quot; простых полилиний!!!&quot;))&lt;br /&gt;    (princ (strcat &quot;\nСreated &quot;(itoa count)&quot; LW polylines&quot;))&lt;br /&gt;    ))&lt;br /&gt;  (if (&gt; (sslength ss) 0)(vl-cmdf &quot;_.SELECT&quot; ss &quot;&quot;))&lt;br /&gt;  (setq ssnab nil ss nil)&lt;br /&gt;  &lt;b&gt;[COLOR=&quot;Red&quot;](pl-error-restore-sysvar)[/COLOR]&lt;/b&gt;&lt;br /&gt;  (vla-EndUndoMark *pl-activedoc*)&lt;br /&gt;  (princ))[/MORE]&lt;br /&gt;&lt;br /&gt;в test и test1 изменил &lt;br /&gt;&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Цитата :&lt;/b&gt;&lt;br /&gt;(defun C:TEST1 ()&lt;br /&gt;  (vl-load-com)&lt;br /&gt;  (C:PL-JOIN1)&lt;br /&gt;  (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object))&lt;br /&gt;    &quot;PL-VxRdc\n_p\n\n0.15\n&quot;)&lt;br /&gt;  )&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Цитата :&lt;/b&gt;&lt;br /&gt;(defun C:TEST ()&lt;br /&gt;  (C:PL-JOIN1)&lt;br /&gt;  (SSSETFIRST nil (ssget &quot;_p&quot;))&lt;br /&gt;  (C:PL-VxRdc)&lt;br /&gt;  )&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;b&gt;и результаты те же что и описывал #279&lt;/b&gt;&lt;br /&gt;для test1 ругается&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Цитата :&lt;/b&gt;&lt;br /&gt; Command:&lt;br /&gt;Введите max отклонение от прямой (H) [угловой допуск A/отклонение H] &lt;0.15&gt;: &lt;br /&gt;0.15[COLOR=&quot;Red&quot;]&lt;b&gt;&lt;br /&gt;ERRNO # 5: bad argument type: 2D/3D point: nil&lt;br /&gt;_.redrawall&lt;br /&gt;Command:&lt;/b&gt;[/COLOR] &lt;/div&gt;&lt;br /&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [284]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602829</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602829</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1619&quot;&gt;VVA&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 18:04 (GMT + 4)&lt;p&gt;PL-JOIN эта немного измененная команда pltools. Она использует определенные там ф-ции, в том числе и PL-ERROR-SAVE-SYSVAR. Открой pltools.lsp и добавь или вместо PL-JOIN (найди поиском) или переименуй в PL-JOIN1 и добавь в конец. Если переименуешь в PL-JOIN1, то в команде TEST1 и ТЕST так же не забудь переименовать</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [283]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602809</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602809</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=549&quot;&gt;sasha_lif&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 17:14 (GMT + 4)&lt;p&gt;&lt;b&gt;VVA&lt;/b&gt;, на лисп из №273 выдает:&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Цитата :&lt;/b&gt;&lt;br /&gt;Command: (LOAD &quot;D:/Documents and Settings/Admin/Рабочий стол/PL-JOIN.lsp&quot;) &lt;br /&gt;C:PL-JOIN&lt;br /&gt;&lt;br /&gt;Command: pl-join ERRNO # 93: no function definition: PL:ERROR-SAVE-SYSVAR&lt;br /&gt;_.redrawall&lt;br /&gt;Command:&lt;br /&gt;Command: pl-join&lt;br /&gt;ERRNO # 2: no function definition: PL:ERROR-SAVE-SYSVAR&lt;br /&gt;_.redrawall&lt;br /&gt;Command&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Так, наверно должно быть так:&lt;br /&gt;PL-ERROR-SAVE-SYSVAR&lt;br /&gt;&lt;br /&gt;но дальше все равно не работает &lt;b&gt; test1:&lt;/b&gt;&lt;br /&gt;&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Цитата :&lt;/b&gt;&lt;br /&gt;Command: test1&lt;br /&gt;Select objects: Specify opposite corner: 8 found&lt;br /&gt;&lt;br /&gt;Select objects:&lt;br /&gt;nil&lt;br /&gt;&lt;br /&gt;Command: PL-VxRdc&lt;br /&gt;&lt;br /&gt;Select objects: _p&lt;br /&gt;41 found&lt;br /&gt;22 were filtered out.&lt;br /&gt;&lt;br /&gt;Select objects:&lt;br /&gt;&lt;br /&gt;Command:&lt;br /&gt;Введите max отклонение от прямой (H) [угловой допуск A/отклонение H] &lt;0.15&gt;: &lt;br /&gt;0.15&lt;br /&gt;ERRNO # 5: bad argument type: 2D/3D point: nil&lt;br /&gt;_.redrawall&lt;br /&gt;Command:&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;b&gt;но, зато test работает&lt;/b&gt;.правда нестабильно: иногда спаивает, но не попалывает. Останавливается на select object, ты жмешь ентер, еще раз ентер (где спрашивается отклонение) и говорит , что ничего не выбрано!&lt;br /&gt;&lt;br /&gt;а иногда работает нормально: останов на допуске, жмешь ентер, и все пропалывает.&lt;br /&gt;&lt;br /&gt;Не уверен, но вроде работает если &lt;b&gt;test &lt;/b&gt;идет на взорванные объекты (т.е. Line),&lt;br /&gt; а если объекты Pline- то не работает</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [12]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602780</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602780</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 16:29 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;olegans :&lt;/b&gt;&lt;br /&gt;&quot;Так покажи им как надо рисовать...&quot;  Для начала про блоки с атрибутами а можно поподробней? Или где почитать?&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;на этом форуме тем по данной тематике тьма-тмущая - поиск.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [11]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602777</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602777</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50706&quot;&gt;olegans&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 16:27 (GMT + 4)&lt;p&gt;Да нет парни, как говориться - &quot;это долгая дорога в ДЮНЫ&quot; Я полностью согласен с ДИМА_, что надо раисовать изначально правильно. Единственное, что меня удручает, когда я обо все об этом скажу боссу он в свою очередь скажет - &quot;Так покажи им как надо рисовать...&quot;  Для начала про блоки с атрибутами а можно поподробней? Или где почитать?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [10]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602776</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602776</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 16:27 (GMT + 4)&lt;p&gt;Нажмите на кнопочку вставить блок и посмотрите - там среди &quot;мусора&quot; есть и &quot;рабоиче&quot; блоки - но в чертеже их нет (есть но в взорваном виде). Это классика кто-то не хочет чтоб воспользовались &quot;его великими наработками&quot; (не понимаю того, что они кроме как ему, как правило, никому нахрен не нужны) и скорее всего рисует нормально - а Вам отает взорванную копию (при том не умело очистив чертеж). Я этого бреда не понимаю и сталкивался с ним не однократно. А пытаться делать по &quot;этому&quot; какую-либо автоматизацию, из-за тараконов &quot;того&quot; парня - считаю принципиально неправильной позицией, да и даю практически 100% гарантию, что лисп написанный по этому образцу обязательно запнется\ошибется\руганется на первом-же 10-ке &quot;аналогичных&quot;.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [282]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602766</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602766</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1619&quot;&gt;VVA&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 16:16 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;sasha_lif :&lt;/b&gt;&lt;br /&gt;VVA, присоединяюсь к вопросу №275, что дает ключ _p в комманде PL-VxRdc?&lt;br /&gt;По идее он должен выбрать предыдущий набор.&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Так и есть. В PL-JOIN добавлено сохранение обработанных полилиний в текущий набор. Если просто выхвать PL-VxRdc и указать _p, то все будет зависеть от того, сформирован ли текущий набор какой-либо командой или нет. Я имел ввиду связку PL-JOIN, потом PL-VxRdc с опцией _p&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;sasha_lif :&lt;/b&gt;&lt;br /&gt;И все равно хотелось бы совместить работу комманд PL-JOIN и PL-VxRdc в один лисп&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;br /&gt;(defun C:TEST ()&lt;br /&gt;  (C:PL-JOIN)&lt;br /&gt;  (SSSETFIRST nil (ssget &quot;_p&quot;))&lt;br /&gt;  (C:PL-VxRdc)&lt;br /&gt;  )&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;*** Добавлено&lt;br /&gt;Вариант 2&lt;br /&gt;&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;br /&gt;(defun C:TEST1 ()&lt;br /&gt;  (vl-load-com)&lt;br /&gt;  (C:PL-JOIN)&lt;br /&gt;  (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object))&lt;br /&gt;    &quot;PL-VxRdc\n_p\n\n&lt;b&gt;[COLOR=&quot;Red&quot;]0.15[/COLOR]&lt;/b&gt;\n&quot;)&lt;br /&gt;  )&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;0.15 - отклонение</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [9]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602765</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602765</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=30283&quot;&gt;TararykovDG&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 16:14 (GMT + 4)&lt;p&gt;ИМХО, Написать лисп, который бы автоматически создавал бы таблицу по указанному образцу если и возможно, то “ОООчень” не просто, во всяком случае, при таких исходных данных. Как, например программно, при большой насыщенности разобрать, что надпись над линией относиться именно к этой линии, а не к соседней. Даже если для этого примера и можно будет написать алгоритм, то с высокой долей вероятности на следующей же схеме алгоритм перестанет работать, или еще хуже отработает с ошибками, которые трудно будут выявить. Вам придется перепроверять результаты каждой работы алгоритма, что займет еще больше времени, чем заполнение таблицы вручную.&lt;br /&gt;&lt;br /&gt; Как вариант возможен такой подход работы лиспа:&lt;br /&gt;&lt;br /&gt;1.    Указываете мышкой текст с данными Порт A &lt;br /&gt;2.    Указываете мышкой текст с данными Порт B&lt;br /&gt;3.    Указываете мышкой линию соединения и надпись над линией&lt;br /&gt;4.    Нажимает Enter сформированные данные занеслись в строку таблицы&lt;br /&gt;&lt;br /&gt;после каждого указания текст и линия подсвечивается каким-то цветом, что бы было видно обработанные данные&lt;br /&gt;&lt;br /&gt;   поправка в п.4 : линии соединяющие порты указывать не надо, указываем лишь текст надписи над линией</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [8]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602764</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602764</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50706&quot;&gt;olegans&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 16:11 (GMT + 4)&lt;p&gt;Уважаемый Дима ! Обязательно передам привет тем кто рисовал! Клянусь что то что есть так и нарисовано я ни чего не добавлял!</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [7]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602753</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602753</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7826&quot;&gt;Дима_&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 15:56 (GMT + 4)&lt;p&gt;Передайте привет тому кто это рисовал, что бы то что делаете в ручную делалось само &quot;на счет раз&quot;. Надо сильно поработать над форматом чертежа (одно только рисование на листе, вне области листа - чего стоит) а именно - перенести все кабели на отдельный слой, обрисовать их полилиниями, оборудование сделать в виде блоков с атрибутами, тогда да. А в Вашем варианте извините - предварительной работы (то что описанна выше) больше чем основной - компьютер не умеет догадываться где тут рамка, а где кабель, что там с пересечением кабелей? какие допуски? где искать описание кабеля или оборудования (слева? справа? сверху). Если Вам чертежи дают в таком виде - а Вы за это платите деньги - намекните чтоб они давали их в &quot;нормальном&quot; виде - а не &quot;взорванном&quot;. Я не поверю, что их так изначально рисовали.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [281]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602734</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602734</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=549&quot;&gt;sasha_lif&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 15:12 (GMT + 4)&lt;p&gt;&lt;b&gt;VVA&lt;/b&gt;, присоединяюсь к вопросу №275, что дает ключ _p в комманде PL-VxRdc?&lt;br /&gt;&lt;br /&gt;По идее он должен выбрать предыдущий набор.&lt;br /&gt;Но в Вашем случае, действительно происходит выделение всех полилиний на чертеже (Акад 2004).&lt;br /&gt;&lt;br /&gt;И все равно хотелось бы совместить работу комманд &lt;b&gt;PL-JOIN &lt;/b&gt;и&lt;b&gt; PL-VxRdc&lt;/b&gt; в один лисп.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [280]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602704</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602704</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50722&quot;&gt;ng-share&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 14:39 (GMT + 4)&lt;p&gt;Не имею опыта работы с лисп, приходится использовать программы SURPAC, MICROMINE и т.д., а исходнаЯ информация готовится часто в автокаде, поэтому возникает небходимость дополнительной обработки данных перед использованирем в вышеуказанных пакетах.&lt;br /&gt;&lt;b&gt;Вопрос первый&lt;/b&gt;:Посмотрела лисп ZTXT очень полезная штука, но как бы ее использовать не только для point но и для вершин 3d polyline, очень часто чертежи делались только для того чтобы напечатать, поэтому высотная отметка в подлилинии отсутствует, а может еще и по причине работы с двумерными полилиниями.&lt;br /&gt;&lt;b&gt;Вопрос второй&lt;/b&gt;:присвоить обекту техт Z ,ближайшей Point&lt;br /&gt;&lt;b&gt;Вопрос третий&lt;/b&gt;:Сохранить объекты MTEXT в файл EXCEL или таблицу автокад.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [6]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602697</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602697</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50706&quot;&gt;olegans&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 14:31 (GMT + 4)&lt;p&gt;Вот такая таблица которая в данный момент заполняется вручную то есть тупо перебиваются названия из схем.... А когда таких схем много ошибок соответственно тоже:unknw:&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Образец автокад 2004</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [279]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602696</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602696</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=27275&quot;&gt;alex8888&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 14:29 (GMT + 4)&lt;p&gt;&lt;b&gt;VVA&lt;/b&gt;, что дает &quot;_p&quot; в PL-VxRdc?&lt;br /&gt;Я попробовал ввести, выбрались все полилинии на чертеже. &lt;br /&gt;В справке PL-Tools про этот ключ не нашел.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602695</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602695</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=30283&quot;&gt;TararykovDG&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 14:27 (GMT + 4)&lt;p&gt;А образец документа каким ACadом сделан, а то 2008 открывать не хочет.&lt;br /&gt;Если не сложно пересохраните файл в формате до 2008, хочется посмотреть на образец</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602690</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602690</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=28&quot;&gt;Кулик Алексей aka kpblc&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 14:20 (GMT + 4)&lt;p&gt;А вот теперь еще надо понять:[list][*]какой формы должна быть таблица;&lt;br /&gt;[*]Где на каждой линии ПортА, а где - ПортБ[/list]</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602685</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602685</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50706&quot;&gt;olegans&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 14:06 (GMT + 4)&lt;p&gt;Здравствуйте!&lt;br /&gt;Образец документа</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602671</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602671</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=28&quot;&gt;Кулик Алексей aka kpblc&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 13:49 (GMT + 4)&lt;p&gt;Для начала - в сторону предоставления образца :)</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>перенос данных из МТекст в таблицу автокада  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602661</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602661</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50706&quot;&gt;olegans&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 13:33 (GMT + 4)&lt;p&gt;Добрый день уважаемые участники форума. Пытаюсь освоить LISP. Знаний нет, есть только желание и задача. Имеется чертеж на котором много отдельных прямоугольников которые соединены линиями друг с другом преимущественно попарно. То есть например один прямоугольник это есть порт  определенного оборудования и он соединен линией с другим прямоуголником (портом) другого оборудования. Внутри каждого прямоугольника при помощи MТекст обозначены названия и номера портов. Кроме этого каждая линия также при помощи MTeкста подписана (марка кабеля номер кабеля. Стоит задача сформировать из всего этого множества соединений таблицу в автокаде которой будет видно что с чем соединяется (портА, портB, марка кабеля) Подскажите в какую сторону двигаться?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [278]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602607</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602607</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1232&quot;&gt;zenon&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 12:08 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;VVA :&lt;/b&gt;&lt;br /&gt;Если узнать длину, то зачем объединять в полилиню?&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Ээ... это конечно хорошо вот только:&lt;br /&gt;1 это дополнительная программа. (у меня и так перегружен CAD)&lt;br /&gt;2 и результат нужно бывает сохранить в виде примитива.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [277]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602599</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602599</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1619&quot;&gt;VVA&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 11:59 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;sasha_lif :&lt;/b&gt;&lt;br /&gt;alex8888, в том то и дело, что выбереться только ОДНА ЛИНИЯ&lt;br /&gt;А если я спаивал PL-JOIN нескеолько полилиний, то результат , как ты советуешь, не подходит&lt;br /&gt;Хотелось бы , чтобы &quot;пропалывалось&quot; PL-VxRdc все полилинии&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;[MORE=&quot;Вариант PL-JOIN, добавляющий объединенные полилинии в текущий набор&quot;]&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;br /&gt;(defun C:PL-JOIN ( / ssnab count en *error* ss)&lt;br /&gt;  (setq *error* pltool-err)&lt;br /&gt;  (or *pl-activedoc* (setq *pl-activedoc* (vla-get-activedocument (vlax-get-acad-object))))&lt;br /&gt;  (vla-StartUndoMark *pl-activedoc*)&lt;br /&gt;  (pl:error-save-sysvar '((&quot;PEDITACCEPT&quot; 1)(&quot;CMDECHO&quot; 0)))&lt;br /&gt;  (setq ssnab (ssget &quot;_I&quot;))&lt;br /&gt;  (while (not ssnab)(setq ssnab (ssget)))&lt;br /&gt;  ;;;И 3d полилинии&lt;br /&gt;  ;(setq ssnab(3dpljn ssnab 1e-6 &quot;AcDb3dPolyline&quot;))&lt;br /&gt;  (setq count 0)&lt;br /&gt;  (while (setq en (ssname ssnab count))&lt;br /&gt;    (if (member '(100 . &quot;AcDb3dPolyline&quot;)(entget en))&lt;br /&gt;      (ssdel en ssnab)&lt;br /&gt;      (setq count (1+ count))&lt;br /&gt;    )&lt;br /&gt;    )&lt;br /&gt;  (setq en (entlast) count 0 ss (ssadd))&lt;br /&gt;  (if (&gt; (sslength ssnab) 1)&lt;br /&gt;  (if (and (getvar &quot;PEDITACCEPT&quot;) (= (getvar &quot;PEDITACCEPT&quot;) 1))&lt;br /&gt;    (vl-cmdf &quot;_pedit&quot; &quot;_Multiple&quot; ssnab &quot;&quot; &quot;_Join&quot; 0 &quot;&quot;)&lt;br /&gt;    (vl-cmdf &quot;_pedit&quot; &quot;_Multiple&quot; ssnab &quot;&quot; &quot;_Y&quot; &quot;_Join&quot; 0 &quot;&quot;))&lt;br /&gt;  )&lt;br /&gt;  (while (and (setq en (entnext en))&lt;br /&gt;	      (= (cdr(assoc 0 (entget en))) &quot;LWPOLYLINE&quot;))&lt;br /&gt;    (setq count (1+ count))(ssadd en ss)&lt;br /&gt;    )&lt;br /&gt;(if (&gt; count 0)&lt;br /&gt;(if (= (getvar &quot;SysCodePage&quot;) &quot;ANSI_1251&quot;)&lt;br /&gt;    (princ (strcat &quot;\nСоздано &quot; (itoa count) &quot; простых полилиний&quot;))&lt;br /&gt;    (princ (strcat &quot;\nСreated &quot;(itoa count)&quot; LW polylines&quot;))&lt;br /&gt;    ))&lt;br /&gt;  (if (&gt; (sslength ss) 0)(vl-cmdf &quot;_.SELECT&quot; ss &quot;&quot;))&lt;br /&gt;  (setq ssnab nil ss nil)&lt;br /&gt;  (pl:error-restore-sysvar)&lt;br /&gt;  (vla-EndUndoMark *pl-activedoc*)&lt;br /&gt;  (princ))&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;[/MORE]&lt;br /&gt;сначала вызвать PL-JOIN, объединить полилинии, затем вызвать PL-VxRdc и указать &quot;_p&quot;&lt;br /&gt;&lt;b&gt;Disney&lt;/b&gt;, Симпатичная иконка для PL-CSE. Поделишься?&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;zenon :&lt;/b&gt;&lt;br /&gt;много раз нужно было узнать общую длину разбросанных линий.&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Если узнать длину, то зачем объединять в полилиню?&lt;br /&gt;Я пользуюсь этими двумя замечатьльными программами Александра Ривилиса&lt;br /&gt;&lt;a href=&quot;http://&quot;http://www.caduser.ru/forum/index.php?PAGE_NAME=read&amp;FID=44&amp;TID=36136&quot;&quot;&gt;ObjectARX. GeomProps - площадь, длина, объем выбранных примитивов&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://&quot;http://www.caduser.ru/forum/index.php?PAGE_NAME=read&amp;FID=44&amp;TID=38009&quot;&quot;&gt;ObjectARX. SelSim - выбор по образцу&lt;/a&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>&quot;имена неименованных&quot; блоков  [19]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602493</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602493</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1232&quot;&gt;zenon&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 27 Jul 2010 09:29 (GMT + 4)&lt;p&gt;_.EXPLODE</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>&quot;имена неименованных&quot; блоков  [18]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602430</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602430</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=39499&quot;&gt;vade&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 23:52 (GMT + 4)&lt;p&gt;Ну а как же всетаки расчленить блоки  с именем которое  начинается на &quot;*E&quot;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Динамический зумминг  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602428</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602428</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=28&quot;&gt;Кулик Алексей aka kpblc&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 23:49 (GMT + 4)&lt;p&gt;Если делать это лиспом, то надо бы (по идее!):&lt;br /&gt;- отслеживать команду _.zoom со всеми ее вариантами опций&lt;br /&gt;- отслеживать команду _.zoom с вариантом движения мышью с нажатой левой кнопкой.&lt;br /&gt;- отслеживать движение колесом мыши&lt;br /&gt;ИМХО, лиспом можно попытаться реализовать только первый вариант, остальное потребует применения arx или аналога.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Динамический зумминг  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602427</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602427</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=16030&quot;&gt;gomer&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 23:41 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Кулик Алексей aka kpblc :&lt;/b&gt;&lt;br /&gt;Эта &quot;динамичность&quot; регулируется настройками команды vtoptions&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Алексей, вы правы, но например в Autocad 2004 &lt;b&gt;она&lt;/b&gt; никак не регулируется по причине отсутствия... в bricscad - аналогично...&lt;br /&gt;Кстати вот это&lt;p&gt;&lt;strong&gt;Код:&lt;/strong&gt;&lt;font color=&quot;#008000&quot;&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;(command &quot;_.zoom&quot; &quot;0.65X&quot;)&lt;/font&gt;&lt;/div&gt; тоже выглядит явно не динамично даже в Autocad 2008 почему-то...&lt;br /&gt;Проблему можно решить циклическим зуммированием, но как точно подобрать коэффициенты, не знаю...</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Динамический зумминг  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602424</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602424</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=28&quot;&gt;Кулик Алексей aka kpblc&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 23:18 (GMT + 4)&lt;p&gt;Эта &quot;динамичность&quot; регулируется настройками команды vtoptions, кажется.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Динамический зумминг  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602372</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602372</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=16030&quot;&gt;gomer&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 20:30 (GMT + 4)&lt;p&gt;С версии 16.2 (если не ошибаюсь) AutoCAD масштабирует (команда &lt;b&gt;ZOOM&lt;/b&gt;) динамически, т.е. плавно приближает и удаляет объекты...&lt;br /&gt;  Я пробовал сделать динамический зум для Bricscad V10, но задача мне оказалась не по зубам...&lt;br /&gt;  Может кто поможет? Может кто делал такое для предыдущих версий AutoCAD?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [276]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602350</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602350</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=25278&quot;&gt;Disney&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 18:53 (GMT + 4)&lt;p&gt;&lt;b&gt;SpillOver&lt;/b&gt;, используй команду &lt;b&gt;PL-CSE&lt;/b&gt; с опцией &lt;em&gt;&quot;допуск&quot;&lt;/em&gt;&lt;br /&gt;[MORE=&quot;смотреть&quot;][IMG]http://s60.radikal.ru/i170/1007/e8/b6b7ea3984db.gif[/IMG][/MORE]</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как программно определить, установлен ли SP1 (в частности, ACAD2008)  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602315</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602315</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7470&quot;&gt;Ax3&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 17:27 (GMT + 4)&lt;p&gt;Ага, понял. Спасибо. Эта ветка присутствует только если сервис пак установлен.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как программно определить, установлен ли SP1 (в частности, ACAD2008)  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602302</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602302</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=451&quot;&gt;KSI&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 16:57 (GMT + 4)&lt;p&gt;Поищи в реестре аналогичную ветку&lt;br /&gt;HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R17.0\ACAD-5004:419\Service Packs\Autodesk Architectural Desktop 2007 - Русский</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как программно определить, установлен ли SP1 (в частности, ACAD2008)  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602293</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602293</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=7470&quot;&gt;Ax3&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 16:48 (GMT + 4)&lt;p&gt;Привет, братья по каду.&lt;br /&gt;Кто-нибудь знает, как программно определить, установлен ли SP1?&lt;br /&gt;В случае ACAD2008 пременная acadver имеет значение ACADVER = &quot;17.1s (LMS Tech)&quot; (read only) в обоих случаях - без SP1 и с ним.&lt;br /&gt;Где можно еще порыть? Реестр?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [275]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602141</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602141</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1232&quot;&gt;zenon&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 12:45 (GMT + 4)&lt;p&gt;&lt;b&gt;VVA&lt;/b&gt;, еще раз повторю свой вопрос&lt;br /&gt;&lt;a href=&quot;http://forum.dwg.ru/showpost.php?p=519747&amp;postcount=256&quot;&gt;forum.dwg.ru/showpost.php?p=519747&amp;postcount=256&lt;/a&gt;&lt;br /&gt;много раз нужно было узнать общую длину разбросанных линий.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [274]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602125</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602125</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=549&quot;&gt;sasha_lif&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 12:22 (GMT + 4)&lt;p&gt;&lt;b&gt;alex8888&lt;/b&gt;, в том то и дело, что выбереться только ОДНА ЛИНИЯ&lt;br /&gt;А если я спаивал &lt;b&gt;PL-JOIN &lt;/b&gt;нескеолько полилиний, то результат , как ты советуешь, не подходит&lt;br /&gt;Хотелось бы , чтобы &quot;пропалывалось&quot; &lt;b&gt;PL-VxRdc&lt;/b&gt; все полилинии</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Новые команды для работы с полилинией  [273]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=602092</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=602092</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=27275&quot;&gt;alex8888&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 26 Jul 2010 11:25 (GMT + 4)&lt;p&gt;&lt;b&gt;sasha_lif&lt;/b&gt;, сначала вызвать PL-JOIN, объединить полилинии, затем  вызвать PL-VxRdc и указать &quot;_last&quot;  (в опциях функции есть), выберется последняя созданная полилиния.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Прописывание новых символов в среде _mtext “AUTOCAD 2006”  [14]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=601891</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=601891</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=28&quot;&gt;Кулик Алексей aka kpblc&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 25 Jul 2010 21:08 (GMT + 4)&lt;p&gt;Советую прочитать (только внимательно прочитать!) &lt;a href=&quot;http://dwg.ru/art/8&quot;&gt;dwg.ru/art/8&lt;/a&gt; и посмотреть - в коде приведен пример вызова.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Прописывание новых символов в среде _mtext “AUTOCAD 2006”  [13]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=601876</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=601876</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=15325&quot;&gt;Геннадий+&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 25 Jul 2010 19:18 (GMT + 4)&lt;p&gt;:)Я пробовал запускать &amp;#8594;(symbol-list / reg_key item counter)&lt;br /&gt;Не запускается, затем пробовал &amp;#8594; (defun _kpblc-add-symbols (symbol-list / reg_key item counter)&lt;br /&gt;Пиши  &amp;#8594;error: no function definition: SYMBOL-LIST&lt;br /&gt;Ввел по рекомендации команду (vlax-get-acad-object), не запускаеться&lt;br /&gt;Попробовал команду заменить на&amp;#8594; (vl-load-com), не результатов&lt;br /&gt;Вводил полный ЛИСП:&lt;br /&gt;(vl-load-com) ;&lt;br /&gt;(defun _kpblc-add-symbols (symbol-list / reg_key item counter)&lt;br /&gt;                          ;&lt;br /&gt;*    Добавление стандартных символов в редактор выпадающего текста.&lt;br /&gt;*    Параметры вызова:&lt;br /&gt;*	symbol-list	список точечных пар вида '((&quot;Наименование символа&quot; . &quot;Его описание&quot;))&lt;br /&gt;*    Примеры вызова:&lt;br /&gt;(_kpblc-add-symbols (list&lt;br /&gt;                      (cons &quot;Разработчик&quot; (_kpblc-get-user-name))&lt;br /&gt;                      (cons &quot;Катет&quot; &quot;\U+0009&quot;)&lt;br /&gt;                      (cons &quot;Промилле&quot; &quot;\U+2030&quot;)&lt;br /&gt;                      ))&lt;br /&gt;|;&lt;br /&gt;  (setq reg_key&lt;br /&gt;         (strcat &quot;HKEY_CURRENT_USER\\&quot; (vlax-product-key) &quot;\\MTEXT\\Symbols&quot;)&lt;br /&gt;        counter 1&lt;br /&gt;        ) ;_ end of setq&lt;br /&gt;  (foreach item symbol-list&lt;br /&gt;    (vl-registry-write reg_key (strcat &quot;Name &quot; (itoa counter)) (car item))&lt;br /&gt;    (vl-registry-write reg_key (strcat &quot;Contents &quot; (itoa counter)) (cdr item))&lt;br /&gt;    (setq counter (1+ counter))&lt;br /&gt;    ) ;_ end of foreach&lt;br /&gt;  ) ;_ end of defunВ штатном редакторе многострочника правый пинок - Add Symbol - выбрать свое&lt;br /&gt;&lt;br /&gt;В итоге все равно не запускается, запускал, в Лиспе только пример, а именно:&lt;br /&gt;(_kpblc-add-symbols (list&lt;br /&gt;                      (cons &quot;Разработчик&quot; (_kpblc-get-user-name))&lt;br /&gt;                      (cons &quot;Катет&quot; &quot;\U+0009&quot;)&lt;br /&gt;                      (cons &quot;Промилле&quot; &quot;\U+2030&quot;)&lt;br /&gt;                      ))&lt;br /&gt;|;&lt;br /&gt;  (setq reg_key&lt;br /&gt;         (strcat &quot;HKEY_CURRENT_USER\\&quot; (vlax-product-key) &quot;\\MTEXT\\Symbols&quot;)&lt;br /&gt;        counter 1&lt;br /&gt;        ) ;_ end of setq&lt;br /&gt;  (foreach item symbol-list&lt;br /&gt;    (vl-registry-write reg_key (strcat &quot;Name &quot; (itoa counter)) (car item))&lt;br /&gt;    (vl-registry-write reg_key (strcat &quot;Contents &quot; (itoa counter)) (cdr item))&lt;br /&gt;    (setq counter (1+ counter))&lt;br /&gt;    ) ;_ end of foreach&lt;br /&gt;  ) ;_ end of defunВ штатном редакторе многострочника правый пинок - Add Symbol - выбрать свое&lt;br /&gt;&lt;br /&gt;Проверял подругзку макроса, подгружается нормально.&lt;br /&gt;Прошу помочь найти ошибку.&lt;br /&gt;&lt;br /&gt;Заранее благодарен:cool:</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>конвертация REVIT-ANSYS  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=601844</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=601844</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1618&quot;&gt;СергейД&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 25 Jul 2010 15:47 (GMT + 4)&lt;p&gt;Тогда лучше свое написать.. сечения именно и интересны.&lt;br /&gt;что-то поиском никак не могу найти нормального описания IFc. лучше сразу делать полное. а не разбираться наугад.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>конвертация REVIT-ANSYS  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=601828</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=601828</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=23040&quot;&gt;Reyt&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 25 Jul 2010 14:02 (GMT + 4)&lt;p&gt;Полноценно воспользоваться не удалось. У меня только 11 версия ANSYS и CivilFEM работает. А при чтении командного файла (если не подводит память, именно он являлся результатом работы плагина) 11 версией появлялось большое число ошибок. Ошибки, как мне кажется, были связаны с характеристиками сечений, но можно попытаться получить только геометрию. Я свои попытки поработать с плагином на этом пока прекратил, т.к. все равно модели приходится создавать по 2D чертежам. До Revita'a пока еще далеко.&lt;br /&gt;Плагин работает только с Revit Structure 2010 г.&lt;br /&gt;&lt;br /&gt;UPD: Нашел кое-что про IFC в книге Ланцова А.Л. &quot;Revit 2010 - Компьютерное проектирование зданий. Архитектура. Инженерные сети. Несущие конструкции&quot;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>конвертация REVIT-ANSYS  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=601818</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=601818</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1618&quot;&gt;СергейД&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 25 Jul 2010 12:45 (GMT + 4)&lt;p&gt;это очень по теме.&lt;br /&gt;спасибо. мы легальные, уточню.&lt;br /&gt;&lt;br /&gt;зы&lt;br /&gt;уточнил. у нас civilfem11. 12 не брали.&lt;br /&gt;&lt;br /&gt;а вы не пробовали этим конвертором  пользоваться?&lt;br /&gt;что получаем на выходе? командный фаЙл ансис?&lt;br /&gt;пересечения хорошо делаются?&lt;br /&gt;&lt;br /&gt;все-таки свой конвертор хочется= хотя бы дополнение...&lt;br /&gt;&lt;br /&gt;подскажите описание IFC . чтото в гугле пока что все не то.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>конвертация REVIT-ANSYS  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=601808</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=601808</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=23040&quot;&gt;Reyt&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 25 Jul 2010 11:46 (GMT + 4)&lt;p&gt;Может и не совсем по теме, но есть плагин Revit to CivilFEM (только для 12 версии)&lt;br /&gt;&lt;a href=&quot;http://&quot;http://www.civilfem.com/download/revit/Setup_Revit_to_CivilFEM.exe&quot;&quot;&gt;http://www.civilfem.com/download/revit/Setup_Revit_to_CivilFEM.exe&lt;/a&gt;&lt;br /&gt;Вы его не пробовали?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>конвертация REVIT-ANSYS  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=601804</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=601804</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1618&quot;&gt;СергейД&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 25 Jul 2010 11:36 (GMT + 4)&lt;p&gt;друзья!&lt;br /&gt;пытаемся передать сложную модель из REVIT в расчеты.&lt;br /&gt;(в конце-концов в ansys)&lt;br /&gt;и ЛИра и ROBOT создали после импорта сетку с массой глюков (щели, нестыковки перекрытий со стенами и тп). исправлять из весьма утомительно. &lt;br /&gt;объемный sat читается в ансис. но он там -несклеивающиеся объемы. хватит балок-оболочек.&lt;br /&gt;&lt;br /&gt;решил попытаться самому читать сразу в ansys.&lt;br /&gt;если бы кто распечатал содержимое revit&lt;br /&gt;в формате &lt;br /&gt;координаты углов плиты, толщина&lt;br /&gt;коорд концов балки, сечение&lt;br /&gt;&lt;br /&gt;дальше мне работы было бы сравнительно немного.&lt;br /&gt;создам поверхности и линии, пересеку, разобью, &lt;br /&gt;выдам помимо ансис в лиру-скад-робот идеальную сетку.&lt;br /&gt;&lt;br /&gt;НО как сделать такую распечатку? возможно, кто-то занимался чем-то подобным. В долгу не останусь...&lt;br /&gt;мне еще подсказали применять IFC. &lt;br /&gt;есть ли еще варианты?</description>  
		<category>Программирование</category> 
		</item>
		
		</channel>
		</rss>
		