<?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>не работает макрос &quot;поворот группы объектов&quot;  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871940</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871940</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;Добавлено: 04 Feb 2012 22:54 (GMT + 4)&lt;p&gt;&lt;b&gt;A-l-l-A&lt;/b&gt;, тогда с макроса убери цифры 90 для rotate и соответственно 2 в scale</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>привязки при изменении динамического блока через grread  [9]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871852</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871852</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=73779&quot;&gt;Eghor123&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 04 Feb 2012 17:01 (GMT + 4)&lt;p&gt;да. проблему я так и не решил. привязки прорисовываются. но одновременно меняется динамический параметр блока. и привязка срабатывает именно к нему. попытался в цикле перевести блок в нейтральное положение, потом найти точку и уже к в нее переместить линию блока. но тут у меня автокад какие то невероятные результаты выдает.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>не работает макрос &quot;поворот группы объектов&quot;  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871837</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871837</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=70839&quot;&gt;A-l-l-A&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 04 Feb 2012 15:48 (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;A-l-l-A, тебе большое спасибо подвигла меня внимательно посмотреть&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;Во всех этих макросах фишка в том, что очень легко изменить цифру в конце на нужную, а для этого макросы следует расположить на инструментальной палитре, в которой к ним есть легкий доступ&lt;/div&gt;&lt;br /&gt;- а можно сделать так, чтоб угол или масштаб он запрашивал? Получается, что мне надо будет постоянно менять запись макроса в адаптации команд?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Автоматическое редактирование текста и блоков с помощью лисп.  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871807</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871807</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;Добавлено: 04 Feb 2012 13:38 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;markseder :&lt;/b&gt;&lt;br /&gt;суть в том как эти блоки заменить точками с координатами точки вставки блоков&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Есть такая команда FRTO называется &lt;a href=&quot;http://&quot;http://forum.dwg.ru/showthread.php?t=32214&quot;&quot;&gt;Замена ряда одних объектов другими&lt;/a&gt;&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;markseder :&lt;/b&gt;&lt;br /&gt;Или как можно извлечь ID атрибута и превратить его в текст,&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;a href=&quot;http://&quot;http://www.cadtutor.net/forum/showthread.php?56833-Display-ATTRIBUTES-as-Text-from-multiple-blocks&amp;highlight=attmt&quot;&quot;&gt;Display ATTRIBUTES as Text from multiple blocks&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://&quot;http://www.cadforum.cz/cadforum_en/how-to-convert-attribute-definitions-to-plain-texts-tip8309&quot;&quot;&gt;How to convert attribute definitions to plain texts?&lt;/a&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Автоматическое редактирование текста и блоков с помощью лисп.  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871767</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871767</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=60380&quot;&gt;markseder&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 04 Feb 2012 10:37 (GMT + 4)&lt;p&gt;В прикрепленном файле можно увидеть что блоки состоят из отрезков, суть в том как эти блоки заменить точками с координатами точки вставки блоков.  А самое главное как быстро отредактировать текст в прикрепленном файле, сделать так что бы осталось только то, что написано перед первой запятой. Или как можно извлечь ID атрибута и превратить его в текст, оно совпадает с текстом перед первой запятой. Помогите кто чем может, спасибо.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>не работает макрос &quot;поворот группы объектов&quot;  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871752</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871752</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=77&quot;&gt;Vova&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 04 Feb 2012 08:09 (GMT + 4)&lt;p&gt;Макрос взят отсюда &lt;a href=&quot;http://dwg.ru/pub/6&quot;&gt;dwg.ru/pub/6&lt;/a&gt;, и не будет работать, ибо только сейчас я обнаружил в нем, и еще в нескольких, недопустимые ошибки. Спрошу админа как исправить и сделаю это позже.&lt;br /&gt;А пока как правильно смотрите здесь: &lt;br /&gt;Макрос, поворачивающий объекты последовательно один за другим *^C^C_Rotate;\\;\90    &lt;br /&gt;Макрос, изменяющий величину объектов последовательно, один за другим *^C^C_Scale;\\;\2&lt;br /&gt;Две косые черты подряд определяют выделение объектов рамкой либо двумя щелчками по объекту   в любом месте. Так мне показалось более универсальным. Так что не забывайте дважды шелкнуть по объекту, а затем еще раз чтобы указать базовую точку&lt;br /&gt;Макросы, меняющие цвет или угол поворота атрибута, в них лишняя точка с запятой. Их должно быть 5 а не 6&lt;br /&gt;Столько лет прошло, никто не поправил.&lt;br /&gt;Во всех этих макросах фишка в том, что очень легко изменить цифру в конце на нужную, а для этого макросы следует расположить на инструментальной палитре, в которой к ним есть легкий доступ&lt;br /&gt;A-l-l-A, тебе большое спасибо подвигла меня внимательно посмотреть. Вообще-то странно, обычно такие дела я перепроверяю в 4 глаза, а в книге на всякий случай давал снимки с экрана с достоверно работающими макросами вместо обычной записи на бумаге. Я не смог найти у себя первоисточник данной статьи чтобы перепроверить, каким-же образом вкралась ошибка&lt;br /&gt;Приношу свои извинения</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>не работает макрос &quot;поворот группы объектов&quot;  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871657</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871657</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=70839&quot;&gt;A-l-l-A&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 21:59 (GMT + 4)&lt;p&gt;Здравствуйте.&lt;br /&gt;Как-то здесь на форуме находила такой макрос: *^C^C_ROTATE;\;90, очень, кстати, нужный.&lt;br /&gt;Только вот он у меня, почему-то, не работает: объекты поворачиваются, но вокруг одной точки, как при обычном повороте. А очень надо, чтоб каждый вокруг своей оси, я так поняла- этот макрос именно для этого.&lt;br /&gt;У меня 2012 Автокад.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Печатает не то, что выбирает. VBA. AutoCAD 2008  [7]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871632</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871632</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=57011&quot;&gt;Shraybicus&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 20:40 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;kakt00z :&lt;/b&gt;&lt;br /&gt;столкнулся с такой же проблемой, но только на лиспе...&lt;br /&gt;установка в ноль параметра target проблему не решает (на лиспе), печатает все так же указанную&lt;br /&gt;(программно [vla-SetWindowToPlot]) область со смещением на [Camera x y z] хоть и показывает&lt;br /&gt;объект activeViewport свойство Target (0.0 0.0 0.0)&lt;br /&gt;сохранение/открытие чертежа заново - не помогает - свойство возвращается&lt;br /&gt;хорошо смотреть истинное значение из меню View-&gt;NamedViews - вид Current - там &quot;не врут&quot; :)&lt;br /&gt;&lt;br /&gt;пробовал создать свой вид и назначить его активным (vla-setview [activeViewport] [myViewport])&lt;br /&gt;но результат тот же&lt;br /&gt;&lt;br /&gt;пробовал из меню View-&gt;NamedViews &quot;пальцами&quot; назначить свой созданный выше вид активным - сработало,&lt;br /&gt;но пока не придумал как это сделать в коде&lt;br /&gt;&lt;br /&gt;вопрос актуален&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Так используй макрос VBA, который выше.)</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>[autolisp] координаты угла графического экрана в мировой СК  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871592</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871592</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=55757&quot;&gt;kriolog&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 18:59 (GMT + 4)&lt;p&gt;Merci!</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>ищу функцию построения 3d полилинии  [7]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871579</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871579</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=29081&quot;&gt;Victor&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 18:27 (GMT + 4)&lt;p&gt;Выражовываться нужно так, чтобы можно понять о чём идёт речь. У вас блоки а не точки. Вариант для блоков. Распаковать, затащить в модель, запустить 3pl. Сначала кликнуть блок, чтобы прога знала какие блоки искать, потом выбрать полилинии.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>[autolisp] координаты угла графического экрана в мировой СК  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871554</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871554</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;Добавлено: 03 Feb 2012 17:36 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;kriolog :&lt;/b&gt;&lt;br /&gt;Есть ли способ средствами autolisp получить координаты этого самого угла в мировой СК?&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Да: &lt;a href=&quot;http://www.caduser.ru/forum/index.php?PAGE_NAME=message&amp;FID=2&amp;TID=13803&amp;MID=74210#message74210&quot;&gt;www.caduser.ru/forum/index.php?PAGE_NAME=message&amp;FID=2&amp;TID=13803&amp;MID=74210#message74210&lt;/a&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Помогите объединить команду полилиния с конточкой?  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871465</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871465</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78359&quot;&gt;Григорьев Виктор&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 15:15 (GMT + 4)&lt;p&gt;Спасибо огромное, то что мне нужно))</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Помогите объединить команду полилиния с конточкой?  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871462</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871462</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;Добавлено: 03 Feb 2012 15:11 (GMT + 4)&lt;p&gt;&lt;a href=&quot;http://dwg.ru/pub/9&quot;&gt;Как использовать лисп, опубликованный на форуме&lt;/a&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;^C^Cosmode;1;_.pline;&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Помогите объединить команду полилиния с конточкой?  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871458</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871458</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78359&quot;&gt;Григорьев Виктор&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 15:06 (GMT + 4)&lt;p&gt;А можете написать макросс, лиспом не знаю как</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [10]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871445</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871445</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78338&quot;&gt;Xara&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 14:37 (GMT + 4)&lt;p&gt;Да, именно так.&lt;br /&gt;[SIZE=&quot;1&quot;]&lt;b&gt;(setq sell (ssget &quot;_X&quot; '((0 . &quot;DIMENSION&quot;))))&lt;br /&gt;(if (/= sell nil) (progn&lt;br /&gt;(setq len_dim (sslength sell))&lt;br /&gt;(command &quot;-style&quot; &quot;s_geniso&quot; &quot;geniso,special&quot; 0.0 0.8 &quot;&quot; &quot;&quot; &quot;&quot; &quot;&quot;)&lt;br /&gt;(while (&gt; len_dim 0)&lt;br /&gt;(setq dim_ent (ssname sell (setq len_dim (1- len_dim)))&lt;br /&gt;dim_edd (entget dim_ent))&lt;br /&gt;...&lt;/b&gt;[/SIZE]&lt;br /&gt;&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Do$ :&lt;/b&gt;&lt;br /&gt;(setq elist (entsel &quot;\nВыберите обычный такой размер на чертеже типа DIMENSION:&quot;)) ;Это entsel-лист&lt;br /&gt;(setq ent (car entsel)) ;Это ENAME&lt;br /&gt;(setq eglist (entget ent)) ;Это entget-лист&lt;br /&gt;(setq obj (vlax-ename-&gt;vla-object ent)) ;Это vla-object&lt;br /&gt;(setq ss (ssadd ent)) ;Это набор (PICKSET)&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Спасибо, буду знать :)</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [9]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871427</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871427</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;Добавлено: 03 Feb 2012 13:48 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Xara :&lt;/b&gt;&lt;br /&gt;(setq vla-objj (vlax-ename-&gt;vla-object (cdr (assoc -1 dim_edd))))&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Если вот так работает, то dim_edd - это entget-список.&lt;br /&gt;Типа такого:&lt;br /&gt;(setq elist (entsel &quot;\nВыберите обычный такой размер на чертеже типа DIMENSION:&quot;)) ;Это entsel-лист&lt;br /&gt;(setq ent (car entsel)) ;Это ENAME&lt;br /&gt;(setq eglist (entget ent)) ;Это entget-лист&lt;br /&gt;(setq obj (vlax-ename-&gt;vla-object ent)) ;Это vla-object&lt;br /&gt;(setq ss (ssadd ent)) ;Это набор (PICKSET)</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [8]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871418</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871418</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78338&quot;&gt;Xara&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 13:29 (GMT + 4)&lt;p&gt;Все, разобрался! Спасибо всем большое, вы все мне очень помогли!&lt;br /&gt;Поправил в коде:&lt;br /&gt;&lt;b&gt;(setq vla-objj (vlax-ename-&gt;vla-object (cdr (assoc -1 dim_edd))))&lt;/b&gt;&lt;br /&gt;&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Do$ :&lt;/b&gt;&lt;br /&gt;Объект в виде чего?&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Я так понимаю, что VLA_OBJECT. Но не уверен)) Объект - DIMENSION. Обычный такой размер на чертеже :crazy:</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [7]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871412</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871412</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;Добавлено: 03 Feb 2012 13:14 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Xara :&lt;/b&gt;&lt;br /&gt;как в строку (vlax-ename-&gt;vla-object (car (entsel)) вместо entsel вставить свой объект?&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Объект в виде чего? ENAME? VLA_OBJECT? Список после ENTSEL или ENTGET? Может вообще набор (PICKSET)?&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Xara :&lt;/b&gt;&lt;br /&gt;У меня это dim_edd&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Если это ENAME, тогда так: &lt;br /&gt;(vl-load-com)&lt;br /&gt;(setq obj (vlax-ename-&gt;vla-object dim_edd))&lt;br /&gt;(vla-get-TextSuffix obj)</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [6]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871395</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871395</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78338&quot;&gt;Xara&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 12:38 (GMT + 4)&lt;p&gt;Отлично, спасибо!&lt;br /&gt;А нельзя сделать так, чтобы лисп сам брал автоматом объект?&lt;br /&gt;В частности, у меня по циклу бегает и ищет размерные примитивы в чертеже, и берет их по очереди.&lt;br /&gt;Если поконкретнее, - как в строку &lt;b&gt;(vlax-ename-&gt;vla-object (car (entsel))&lt;/b&gt; вместо &lt;b&gt;entsel&lt;/b&gt; вставить свой объект?&lt;br /&gt;У меня это &lt;b&gt;dim_edd&lt;/b&gt;, но он ругается:&lt;br /&gt;&lt;em&gt;; error: extra cdrs in dotted pair on input&lt;/em&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871384</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871384</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=55757&quot;&gt;kriolog&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 12:24 (GMT + 4)&lt;p&gt;Из книги Полещука:&lt;br /&gt;(vl-load-com)&lt;br /&gt;(setq obj (vlax-ename-&gt;vla-object (car (entsel))))&lt;br /&gt;(vla-get-TextSuffix obj)</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Помогите объединить команду полилиния с конточкой?  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871383</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871383</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;Добавлено: 03 Feb 2012 12:24 (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;(vl-load-com)&lt;br /&gt;&lt;br /&gt;(defun c:plend (/ adoc osmode *error*)&lt;br /&gt;  (defun *error* (msg)&lt;br /&gt;    (if osmode&lt;br /&gt;      (setvar &quot;osmode&quot; osmode)&lt;br /&gt;      ) ;_ end of if&lt;br /&gt;    (vla-endundomark adoc)&lt;br /&gt;    (princ msg)&lt;br /&gt;    (princ)&lt;br /&gt;    ) ;_ end of defun&lt;br /&gt;  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))&lt;br /&gt;  (setq osmode (getvar &quot;osmode&quot;))&lt;br /&gt;  (setvar &quot;osmode&quot; 1)&lt;br /&gt;  (command &quot;_.pline&quot;)&lt;br /&gt;  (while (/= (getvar &quot;cmdactive&quot;) 0)&lt;br /&gt;    (command pause)&lt;br /&gt;    ) ;_ end of while&lt;br /&gt;  (setvar &quot;osmode&quot; osmode)&lt;br /&gt;  (vla-endundomark adoc)&lt;br /&gt;  (princ)&lt;br /&gt;  ) ;_ end of defun&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;Можно, конечно, и макросом - но привязки тогда придется восстанавливать вручную по завершении кода.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как программно переключать фильтры слоев?  [13]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871378</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871378</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=75871&quot;&gt;OSIP&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 12:15 (GMT + 4)&lt;p&gt;Вот я набираю в commandline строку _-layer, делаю всё что хочу со слоями, а какой потом командой из этого _-layer выйти??</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Помогите объединить команду полилиния с конточкой?  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871365</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871365</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78359&quot;&gt;Григорьев Виктор&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 11:57 (GMT + 4)&lt;p&gt;хочу объединить полилинию с конточкой, но ну получается конточка показывается только в самом начале команды, когда написано введите начальную точку, начинаю обводку а дальше конточка не показывается у меня получилось вот так: ^C^C_pline;_endp; , хотелось чтобы команда, _endp работала вместе с полилинией</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>[autolisp] координаты угла графического экрана в мировой СК  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871364</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871364</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=55757&quot;&gt;kriolog&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 11:57 (GMT + 4)&lt;p&gt;Нужно нарисовать временный отрезок в левом верхнем углу графического экрана. Один из вариантов --- grvecs, нужна только матрица преобразования (сдвига). Есть ли способ средствами autolisp получить координаты этого самого угла в мировой СК?&lt;br /&gt;В итога должно получиться что-то типа родных автокадовских координатных осей , когда ноль СК находится за пределами видимости.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871341</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871341</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78338&quot;&gt;Xara&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 11:23 (GMT + 4)&lt;p&gt;Спасибо, а нельзя ли поподробнее?&lt;br /&gt;Я с функциями VLA вообще не дружу :blush:</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Определение типа СПДС объектов на C#  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871324</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871324</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78296&quot;&gt;CyberNeo&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 11:08 (GMT + 4)&lt;p&gt;Спасибо! Как раз то что нужно!</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Определение типа СПДС объектов на C#  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871282</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871282</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=5211&quot;&gt;bargool&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 10:07 (GMT + 4)&lt;p&gt;Как вариант, получаешь ObjectId, затем смотри свойство ObjectClass.Name - оно даст тебе необходимую информацию&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;[CPP][CommandMethod(&quot;gcn&quot;)]&lt;br /&gt;public void getclassname()&lt;br /&gt;{&lt;br /&gt;	Editor ed = acad.DocumentManager.MdiActiveDocument.Editor;&lt;br /&gt;	PromptEntityResult res = ed.GetEntity(&quot;Укажите примитив&quot;);&lt;br /&gt;	if (res.Status!= PromptStatus.OK)&lt;br /&gt;		return;&lt;br /&gt;	ed.WriteMessage(&quot;\nClassname: {0}&quot;, res.ObjectId.ObjectClass.Name);&lt;br /&gt;}[/CPP]&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;у твоей таблицы тип mcsDbObjectTable, а у выноски mcsDbObjectNoteMultilayer&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: gcn Укажите примитив:&lt;br /&gt;Classname: mcsDbObjectNoteMultilayer&lt;br /&gt;Command:&lt;br /&gt;GCN Укажите примитив:&lt;br /&gt;Classname: mcsDbObjectTable&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Задание области печати. Помогите найти координаты окна.  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871281</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871281</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=20469&quot;&gt;Puroshev&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 10:06 (GMT + 4)&lt;p&gt;Спасибо!!!. Тема закрыта.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871244</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871244</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;Добавлено: 03 Feb 2012 08:36 (GMT + 4)&lt;p&gt;Через VLA - функцией vla-get-TextSuffix.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Задание области печати. Помогите найти координаты окна.  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871241</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871241</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;Добавлено: 03 Feb 2012 08:32 (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;((lambda (/ minpt maxpt)&lt;br /&gt;   (vla-GetWindowToPlot&lt;br /&gt;     (vla-get-layout&lt;br /&gt;       (vla-get-ModelSpace&lt;br /&gt;	 (vla-get-ActiveDocument (vlax-get-acad-object))&lt;br /&gt;       ) ;_ end of vla-get-ModelSpace&lt;br /&gt;     ) ;_ end of vla-get-layout&lt;br /&gt;     'minpt&lt;br /&gt;     'maxpt&lt;br /&gt;   ) ;_ end of vla-GetWindowToPlot&lt;br /&gt;   (mapcar 'vlax-safearray-&gt;list (list minpt maxpt))&lt;br /&gt; ) ;_ end of lambda  &lt;br /&gt;)&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Определение типа СПДС объектов на C#  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871205</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871205</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78296&quot;&gt;CyberNeo&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 06:19 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;bargool :&lt;/b&gt;&lt;br /&gt;А можно образец такой таблицы?&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Вот образец 2 таких таблиц. И еще СПДСовская выноска, которая по GetType выдает точно такой же результат</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871191</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871191</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;Добавлено: 03 Feb 2012 01:39 (GMT + 4)&lt;p&gt;зри в корень &lt;&gt; и отыщешь суффикс</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как извлечь суффикс из размера? (LISP)  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871181</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871181</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78338&quot;&gt;Xara&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 03 Feb 2012 00:38 (GMT + 4)&lt;p&gt;Вот какая проблема, требующая срочного решения.&lt;br /&gt;Имеется у нас несколько размеров. А необходимо извлечь из каждого его суффикс (текст пользовательский после значения размера), который значится в свойствах размера, в разделе Primary Units.&lt;br /&gt;Вопрос: Как извлечь значение суффикса в лиспе? :crazy:</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>О наименовании топиков данной ветви форума.  [59]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871173</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871173</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=19125&quot;&gt;kakt00z&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 23:59 (GMT + 4)&lt;p&gt;перечитал ..., не разочаровался ))&lt;br /&gt;инжиниринг легче (для меня)&lt;br /&gt;[намного позже]&lt;br /&gt;эмммм...  вижу что когда писал - тема была другая,... сори :)&lt;br /&gt;&lt;br /&gt;что касается разделения на языки,- то это для каждого удобнее так как он видит-&lt;br /&gt;я спокойно могу посмотреть топик интересующего меня вопроса на VBA , хотя  я играю с лиспом, и уже сегодня  яблагодарен одному VBAшнику</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Express Tools Bugs ( Ошибки Express Tools )  [53]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871089</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871089</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=19125&quot;&gt;kakt00z&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 20:35 (GMT + 4)&lt;p&gt;Может кому приглянется мой вариант или его части&lt;br /&gt;правда без обработки ошибок и т.п. местами может не доработано, но с моими случаями мне хватает&lt;br /&gt;&quot;раздолбать&quot; чертеж</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Печатает не то, что выбирает. VBA. AutoCAD 2008  [6]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=871083</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=871083</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=19125&quot;&gt;kakt00z&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 20:16 (GMT + 4)&lt;p&gt;столкнулся с такой же проблемой, но только на лиспе...&lt;br /&gt;установка в ноль параметра target проблему не решает (на лиспе), печатает все так же указанную&lt;br /&gt;(программно [vla-SetWindowToPlot]) область со смещением на [Camera x y z] хоть и показывает&lt;br /&gt;объект activeViewport свойство Target (0.0 0.0 0.0)&lt;br /&gt;сохранение/открытие чертежа заново - не помогает - свойство возвращается&lt;br /&gt;хорошо смотреть истинное значение из меню View-&gt;NamedViews - вид Current - там &quot;не врут&quot; :)&lt;br /&gt;&lt;br /&gt;пробовал создать свой вид и назначить его активным (vla-setview [activeViewport] [myViewport])&lt;br /&gt;но результат тот же&lt;br /&gt;&lt;br /&gt;пробовал из меню View-&gt;NamedViews &quot;пальцами&quot; назначить свой созданный выше вид активным - сработало,&lt;br /&gt;но пока не придумал как это сделать в коде&lt;br /&gt;&lt;br /&gt;вопрос актуален</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Lisp - сотрировка по слоям, по цвету и толщине  [14]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870864</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870864</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50047&quot;&gt;crosandr&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 15:01 (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;Спасибо, то, что нужно. :good: Остальное сам допишу.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Программная настройка AutoCAD, как это делается?  [140]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870846</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870846</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=833&quot;&gt;Krieger&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 14:39 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;crosandr :&lt;/b&gt;&lt;br /&gt;&lt;b&gt;Krieger&lt;/b&gt;, может в шапку занесешь актуальную версию, чтоб не собирать ее по всем веткам?&lt;/div&gt;&lt;br /&gt;Он собран в посте №85. Однако перенес код в шапку.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Определение типа СПДС объектов на C#  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870843</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870843</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=5211&quot;&gt;bargool&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 14:36 (GMT + 4)&lt;p&gt;А можно образец такой таблицы?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Lisp - сотрировка по слоям, по цвету и толщине  [13]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870833</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870833</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;Добавлено: 02 Feb 2012 14:24 (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;(defun c:Obj2lay (/ ss rule)&lt;br /&gt;  ;;; VVA for dwg.ru&lt;br /&gt;  ;;; http://forum.dwg.ru/showthread.php?p=870797#post870797&lt;br /&gt;  ;;; Правило: 1-й элемент списка значение dxf группы 0&lt;br /&gt;  ;;;          2-й элемент - имя слоя&lt;br /&gt;  ;;;  Чтобы узнать значение dxf группы 0&lt;br /&gt;  ;;; скопируйте в командную строчку строку ниже без символов ;;; начиная с (&lt;br /&gt;  ;;; (cdr(assoc 0 (entget(car(entsel)))))&lt;br /&gt;  (setq	rule ;;;Правило&lt;br /&gt;	 (list&lt;br /&gt;	   (list &quot;DIMENSION&quot; &quot;DimLayer&quot;)&lt;br /&gt;	   (list &quot;TEXT&quot; &quot;TextLayer&quot;)&lt;br /&gt;	 )&lt;br /&gt;  )&lt;br /&gt;  (if (setq ss (ssget &quot;_:L&quot;))&lt;br /&gt;    (&lt;br /&gt;     (lambda (i / e lay)&lt;br /&gt;       (while (setq e (ssname ss (setq i (1+ i))))&lt;br /&gt;	 (if (setq lay (assoc (cdr (assoc 0 (entget e))) rule))&lt;br /&gt;	   (entupd&lt;br /&gt;	     (cdr&lt;br /&gt;	       (assoc -1&lt;br /&gt;		      (entmod&lt;br /&gt;			(subst&lt;br /&gt;			  (cons 8 (cadr lay))&lt;br /&gt;			  (assoc 8 (entget e))&lt;br /&gt;			  (entget e)&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;      -1&lt;br /&gt;    )&lt;br /&gt;  )&lt;br /&gt;  (princ)&lt;br /&gt;)&lt;br /&gt;&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Lisp - сотрировка по слоям, по цвету и толщине  [12]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870797</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870797</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50047&quot;&gt;crosandr&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 13:36 (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;Нужен лисп, чтоб расфасовку делал в уже &lt;em&gt;существующем&lt;/em&gt; файле. Приходится брать за основу чертежи, в которых все начерчено в слое ноль черным чветом (такое тоже еще встречается). Или бывают варианты в которых примитивы разного типа (размеры, штриховка, текст, выноски и т.п.) лежат по слоям совершенно хаотично на мой взгляд. Так вот хочется отделить мух от котлет и разложить все по полочкам. Думаю, что в похожей ситуации побывали многие. Своя разработка есть, но кривая и не отлаженная. Может прогрессивное человечество этот вопрос давно решило?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Lisp - сотрировка по слоям, по цвету и толщине  [11]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870786</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870786</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;Добавлено: 02 Feb 2012 13:22 (GMT + 4)&lt;p&gt;Для вновь создаваемых здесь посмотри&lt;br /&gt;&lt;a href=&quot;http://&quot;http://forum.dwg.ru/showthread.php?t=2721&amp;page=2&quot;&quot;&gt;Автоматический перенос размеров на слой размеры. Break макро&lt;/a&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Задание области печати. Помогите найти координаты окна.  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870775</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870775</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=20469&quot;&gt;Puroshev&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 13:08 (GMT + 4)&lt;p&gt;Ребята вопрос по LISPу.&lt;br /&gt;Вызываю окно печати (из Model), задаю область печати рамкой, кликаю &lt;&lt;ПРИМЕНИТЬ К ЛИСТУ&gt;&gt;. После этого Автокад запоминает эту область печати. Вопрос к программистам как LISPом или VB вытащить эти координаты окна.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Определение типа СПДС объектов на C#  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870765</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870765</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=78296&quot;&gt;CyberNeo&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 13:01 (GMT + 4)&lt;p&gt;Появилась необходимость найти на чертеже AutoCAD'a СПДСовские таблицы с помощью C#. Обычный GetType при выделении нужного объекта выдает объект класса ImpCurve. Это явно не то что нужно:) Единственный вариант, который удалось придумать - использовать лисп-скрипт который выдирает из параметров объекта его тип, скидывает во внешний текстовый файл и уже в нем мы проверяем совпадает ли он с spdsTable. &lt;br /&gt;Может быть существует какое то более изящное решение?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Lisp - сотрировка по слоям, по цвету и толщине  [10]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870727</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870727</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50047&quot;&gt;crosandr&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 12:24 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;skkkk :&lt;/b&gt;&lt;br /&gt;Что тут может быть быстрее быстрого выбора (_qselect)?&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;lisp хочется.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Экспорт координат выбранных точек в *.txt  [72]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870708</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870708</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;Добавлено: 02 Feb 2012 11:55 (GMT + 4)&lt;p&gt;&lt;b&gt;Grigarash&lt;/b&gt;, Не стоит писать одно и тоже во всех темах, в которых есть ссылка или упомянута программа, достаточно вашего вопроса в основной теме посвящённой программе. Если вам не отвечают сразу, значит либо ищут решения вашей проблемы, либо некогда, либо ваш вопрос не интересен автору.&lt;br /&gt;&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Grigarash :&lt;/b&gt;&lt;br /&gt;А можно еще добавить следующее:&lt;br /&gt;[LIST=1][*]Учёт ПСК[*]Масштаб[*]Автонумерацию&lt;br /&gt;[/LIST]&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Как можно предлагать, если вы не видели работу программы&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Grigarash :&lt;/b&gt;&lt;br /&gt;данный скрипт не работает&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;b&gt;1&lt;/b&gt;-ый не сложно, но пока нет желания, &lt;br /&gt;&lt;b&gt;2&lt;/b&gt;-ой считаю не уместным (чертить нужно 1:1).&lt;br /&gt;&lt;b&gt;3&lt;/b&gt;-иё пункт реализован, во всех возможных вариациях,</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>ищу функцию построения 3d полилинии  [6]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870681</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870681</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=72651&quot;&gt;mankurt&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 11:22 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;kp+ :&lt;/b&gt;&lt;br /&gt;&quot;Прополка полилинии&quot; и функция удаления вершин из PLTOOLS может помочь, хотя бы частично.&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;Прополка не сильно помогает, так как полученная линия должна проходить через съемочные пикеты. Прополка же происходит по заданным параметрам &quot;не прямолинейности&quot;, поэтому полилиния уже не проходит через них в некоторых местах. Можно, конечно, вручную их потом натягивать на  пикеты, но задача - меньше движений руками делать&lt;br /&gt;&lt;br /&gt;Во вложении - небольшой кусок. Все линии надо разрядить так, чтобы вертексы совпадали с точками, и были на их высоте (3d полилинии).</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>ищу функцию построения 3d полилинии  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870654</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870654</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1711&quot;&gt;kp+&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 10:52 (GMT + 4)&lt;p&gt;&quot;Прополка полилинии&quot; и функция удаления вершин из PLTOOLS может помочь, хотя бы частично.&lt;br /&gt;А вообще трудно советовать, не видя &quot;пациента&quot;:) Чертеж в студию!</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>ищу функцию построения 3d полилинии  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870635</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870635</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=72651&quot;&gt;mankurt&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 02 Feb 2012 10:36 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;Victor :&lt;/b&gt;&lt;br /&gt;что то нашёл, не поиню интерполирует или нет&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;а как запустить команду этого лиспа?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Экспорт координат выбранных точек в *.txt  [71]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870537</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870537</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=2389&quot;&gt;Grigarash&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 23:32 (GMT + 4)&lt;p&gt;А можно еще добавить следующее:&lt;br /&gt;[LIST]&lt;br /&gt;[*]определение координат с запросом МСК или ПСК&lt;br /&gt;[*]Масштаб координат из текущего размерного стиля&lt;br /&gt;[*]Автонумерация (с указанием номера первой точки) выделенных точек в том порядке, в котором выделяют&lt;br /&gt;[/LIST]&lt;br /&gt;&lt;br /&gt;&lt;b&gt;[COLOR=&quot;Red&quot;]ВАЖНО:[/COLOR]&lt;/b&gt;&lt;br /&gt;данный скрипт не работает на ACAD 2012 x64 SP1 RUS&lt;br /&gt;Исправьте плз</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>VBA Как узнать, какие версии автокада установлены  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870481</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870481</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=58223&quot;&gt;_mikka&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 21:02 (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;Option Explicit&lt;br /&gt; &lt;br /&gt;Private Const MAX_PATH As Long = 260&lt;br /&gt; &lt;br /&gt;Private Const HKEY_CLASSES_ROOT As Long = &amp;H80000000&lt;br /&gt;Private Const HKEY_CURRENT_USER As Long = &amp;H80000001&lt;br /&gt;Private Const HKEY_LOCAL_MACHINE As Long = &amp;H80000002&lt;br /&gt;Private Const HKEY_USERS As Long = &amp;H80000003&lt;br /&gt;Private Const HKEY_PERFORMANCE_DATA As Long = &amp;H80000004&lt;br /&gt;Private Const HKEY_CURRENT_CONFIG As Long = &amp;H80000005&lt;br /&gt; &lt;br /&gt;Private Const KEY_ALL_ACCESS = &amp;H3F&lt;br /&gt;Private Const KEY_READ As Long = &amp;H20019&lt;br /&gt; &lt;br /&gt;Private Const ERROR_SUCCESS As Long = 0&lt;br /&gt; &lt;br /&gt;Private Type FILETIME&lt;br /&gt;    dwLowDateTime As Long&lt;br /&gt;    dwHighDateTime As Long&lt;br /&gt;End Type&lt;br /&gt; &lt;br /&gt;Private Declare Function RegEnumKeyEx Lib &quot;advapi32&quot; Alias &quot;RegEnumKeyExA&quot; _&lt;br /&gt;    (ByVal hKey As Long, _&lt;br /&gt;    ByVal dwIndex As Long, _&lt;br /&gt;    ByVal lpName As String, _&lt;br /&gt;    lpcbName As Long, _&lt;br /&gt;    ByVal lpReserved As Long, _&lt;br /&gt;    ByVal lpClass As String, _&lt;br /&gt;    lpcbClass As Long, _&lt;br /&gt;    lpftLastWriteTime As FILETIME) As Long&lt;br /&gt; &lt;br /&gt;Private Declare Function RegOpenKeyEx Lib &quot;advapi32.dll&quot; Alias &quot;RegOpenKeyExA&quot; ( _&lt;br /&gt;    ByVal hKey As Long, _&lt;br /&gt;    ByVal pSubKey As String, _&lt;br /&gt;    ByVal ulOptions As Long, _&lt;br /&gt;    ByVal samDesired As Long, _&lt;br /&gt;    phkResult As Long) As Long&lt;br /&gt;    &lt;br /&gt;Private Declare Function RegCloseKey Lib &quot;advapi32.dll&quot; ( _&lt;br /&gt;    ByVal hKey As Long) As Long&lt;br /&gt;    &lt;br /&gt;Private Declare Function RegQueryValueExString Lib &quot;advapi32.dll&quot; Alias &quot;RegQueryValueExA&quot; ( _&lt;br /&gt;    ByVal hKey As Long, _&lt;br /&gt;    ByVal lpValueName As String, _&lt;br /&gt;    ByVal lpReserved As Long, _&lt;br /&gt;    lpType As Long, _&lt;br /&gt;    ByVal lpData As String, _&lt;br /&gt;    lpcbData As Long) As Long&lt;br /&gt;    &lt;br /&gt;Private Declare Function RegQueryValueExLong Lib &quot;advapi32.dll&quot; Alias &quot;RegQueryValueExA&quot; ( _&lt;br /&gt;    ByVal hKey As Long, _&lt;br /&gt;    ByVal lpValueName As String, _&lt;br /&gt;    ByVal lpReserved As Long, _&lt;br /&gt;    lpType As Long, lpData As Long, _&lt;br /&gt;    lpcbData As Long) As Long&lt;br /&gt;    &lt;br /&gt;Private Declare Function RegQueryValueExNULL Lib &quot;advapi32.dll&quot; Alias &quot;RegQueryValueExA&quot; ( _&lt;br /&gt;    ByVal hKey As Long, _&lt;br /&gt;    ByVal lpValueName As String, _&lt;br /&gt;    ByVal lpReserved As Long, _&lt;br /&gt;    lpType As Long, ByVal lpData As Long, _&lt;br /&gt;    lpcbData As Long) As Long&lt;br /&gt; &lt;br /&gt;Private Sub GetAssociatedFileListing()&lt;br /&gt;    Dim dwIndex As Long&lt;br /&gt;    Dim sTypeName As String&lt;br /&gt;    Dim sSubkey As String * MAX_PATH&lt;br /&gt;    Dim sClass As String * MAX_PATH&lt;br /&gt;    Dim ft As FILETIME&lt;br /&gt;    Dim lSubkey As Long&lt;br /&gt;    Dim hKey As Long&lt;br /&gt;    &lt;br /&gt;    If RegOpenKeyEx(HKEY_LOCAL_MACHINE, &quot;SOFTWARE\Autodesk\AutoCAD&quot;, 0, KEY_READ, hKey) &lt;&gt; ERROR_SUCCESS Then Exit Sub&lt;br /&gt;    &lt;br /&gt;    lSubkey = MAX_PATH&lt;br /&gt;    Do While RegEnumKeyEx(hKey, _&lt;br /&gt;                          dwIndex, _&lt;br /&gt;                          sSubkey, _&lt;br /&gt;                          lSubkey, _&lt;br /&gt;                          0, sClass, _&lt;br /&gt;                          MAX_PATH, ft) = ERROR_SUCCESS&lt;br /&gt;        Debug.Print Left(sSubkey, lSubkey)&lt;br /&gt;        lSubkey = MAX_PATH&lt;br /&gt;        dwIndex = dwIndex + 1&lt;br /&gt;    Loop&lt;br /&gt;End Sub&lt;br /&gt;&lt;br /&gt;'Возвращает значения записанные в ключе(т.е. чтение)&lt;br /&gt;Public Function QueryValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)&lt;br /&gt;    Dim lRetVal As Long&lt;br /&gt;    Dim hKey As Long&lt;br /&gt;    Dim vValue As Variant&lt;br /&gt; &lt;br /&gt;    lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)&lt;br /&gt;    lRetVal = QueryValueEx(hKey, sValueName, vValue)&lt;br /&gt;    QueryValue = vValue&lt;br /&gt;    RegCloseKey (hKey)&lt;br /&gt;End Function&lt;br /&gt; &lt;br /&gt;Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long&lt;br /&gt;    Dim cch As Long&lt;br /&gt;    Dim lrc As Long&lt;br /&gt;    Dim lType As Long&lt;br /&gt;    Dim lValue As Long&lt;br /&gt;    Dim sValue As String&lt;br /&gt; &lt;br /&gt;    On Error GoTo QueryValueExError&lt;br /&gt; &lt;br /&gt;    'Определение размера и типа считываемых данных&lt;br /&gt;    lrc = RegQueryValueExNULL(lhKey, szValueName, 0&amp;, lType, 0&amp;, cch)&lt;br /&gt;    If lrc &lt;&gt; ERROR_NONE Then MsgBox &quot;Данных (ключа) не существует!&quot;, vbExclamation, &quot;&quot;&lt;br /&gt;    Select Case lType&lt;br /&gt;        'Для символьных&lt;br /&gt;    Case REG_SZ:&lt;br /&gt;        sValue = String(cch, 0)&lt;br /&gt;        lrc = RegQueryValueExString(lhKey, szValueName, 0&amp;, lType, sValue, cch)&lt;br /&gt;        If lrc = ERROR_NONE Then&lt;br /&gt;            vValue = Left$(sValue, cch)&lt;br /&gt;        Else&lt;br /&gt;            vValue = Empty&lt;br /&gt;        End If&lt;br /&gt;        'Для числовых&lt;br /&gt;    Case REG_DWORD:&lt;br /&gt;        lrc = RegQueryValueExLong(lhKey, szValueName, 0&amp;, lType, lValue, cch)&lt;br /&gt;        If lrc = ERROR_NONE Then vValue = lValue&lt;br /&gt;        'Для остальных не поддержанных типов данных&lt;br /&gt;    Case Else&lt;br /&gt;        lrc = -1&lt;br /&gt;    End Select&lt;br /&gt;QueryValueExExit:&lt;br /&gt;    QueryValueEx = lrc&lt;br /&gt;    Exit Function&lt;br /&gt;QueryValueExError:&lt;br /&gt;    Resume QueryValueExExit&lt;br /&gt;End Function&lt;br /&gt;&lt;br /&gt;Sub test2()&lt;br /&gt;    Call GetAssociatedFileListing&lt;br /&gt;    &lt;br /&gt;    Dim tmp&lt;br /&gt;    tmp = QueryValue(HKEY_LOCAL_MACHINE, &quot;\SOFTWARE\Autodesk\AutoCAD&quot;, &quot;&quot;)&lt;br /&gt;End Sub&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как вывести в эксель длинны нескольких линий?  [14]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870426</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870426</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;Добавлено: 01 Feb 2012 18:44 (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;(defun C:Len2XL (  / ss i lst)&lt;br /&gt;  (vl-load-com)&lt;br /&gt;  (and (setq ss (ssget))&lt;br /&gt;       (setq i -1)&lt;br /&gt;       (repeat (sslength ss)&lt;br /&gt;	 (setq obj (vlax-ename-&gt;vla-object (ssname ss (setq i (1+ i)))))&lt;br /&gt;	 (if (vlax-property-available-p obj 'length)&lt;br /&gt;	   (setq lst (cons (list(vla-get-Length obj)) lst))&lt;br /&gt;	   )&lt;br /&gt;	 )&lt;br /&gt;       lst&lt;br /&gt;       (xls (reverse lst) '(&quot;Length&quot;) nil &quot;Length&quot;)&lt;br /&gt;       )&lt;br /&gt;       &lt;br /&gt;  )&lt;br /&gt;(defun xls ( Data-list header Colhide Name_list / *aplexcel* *books-colection* Currsep&lt;br /&gt;*excell-cells* *new-book* *sheet#1* *sheet-collection* col iz_listo row cell cols)&lt;br /&gt;;|= EN ================= XLS ========================================&lt;br /&gt;*  published http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31371zf&lt;br /&gt;               http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19833nl&amp;page=2&lt;br /&gt;               http://dwg.ru/f/showthread.php?p=201021&lt;br /&gt;               http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31596eW&lt;br /&gt;               http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31371zf&lt;br /&gt;               http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31596eW&lt;br /&gt;* posted by Vladimir Azarko (VVA)&lt;br /&gt;* Purpose: Export of the list of data Data-list in Excell&lt;br /&gt;*             It is exported to a new leaf of the current book.&lt;br /&gt;              If the book is not present, it is created&lt;br /&gt;* Arguments:&lt;br /&gt;              Data-list - The list of lists of data (LIST) &lt;br /&gt;                            ((Value1 Value2 ... VlalueN)(Value1 Value2 ... VlalueN)...)&lt;br /&gt;                            Each list of a kind (Value1 Value2... VlalueN) enters the name in&lt;br /&gt;                            a separate line in corresponding columns (Value1-A Value2-B and .т.д.)&lt;br /&gt;                  header -  The list (LIST) headings or nil a kind (&quot; Signature A &quot; &quot; Signature B &quot;...)&lt;br /&gt;                            If header nil, is accepted (&quot;X&quot; &quot;Y&quot; &quot;Z&quot;)&lt;br /&gt;                 Colhide -  The list of alphabetic names of columns to hide or nil - to not hide (&quot;A&quot; &quot;C&quot; &quot;D&quot;) - to hide columns A, C, D&lt;br /&gt;                 Name_list - The name of a new leaf of the active book or nil - is not present&lt;br /&gt;* Return: nil&lt;br /&gt;* Usage&lt;br /&gt;(xls '((1.1 1.2 1.3 1.4)(2.1 2.2 2.3 2.4)(3.1 3.2 3.3 3.4)) '(&quot;Col1&quot; &quot;Col2&quot; &quot;Col3&quot;  &quot;Col4&quot;) '(&quot;B&quot;) &quot;test&quot;)   |;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;;|= RUS ================= XLS ========================================&lt;br /&gt;* Опубликовано http://www.caduser.ru/cgi-bin/f1/board.cgi?t=19833nl&amp;page=2&lt;br /&gt;               http://dwg.ru/f/showthread.php?p=201021&lt;br /&gt;               http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31371zf&lt;br /&gt;               http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31596eW&lt;br /&gt;* Автор: Владимир Азарко aka VVA&lt;br /&gt;* Назначение: Печать списка данных Data-list в Excell&lt;br /&gt;*             Для вывода создается новый лист активной книги или&lt;br /&gt;              создается новая книга.&lt;br /&gt;              &lt;br /&gt;* Аргументы:&lt;br /&gt;              Data-list — список списков данных (LIST) вида&lt;br /&gt;                            ((Value1 Value2 ... VlalueN)(Value1 Value2 ... VlalueN)...)&lt;br /&gt;                            Каждый список вида (Value1 Value2 ... VlalueN) записывается&lt;br /&gt;                            в отдельную строку в соответствующие столбцы (Value1-A Value2-B и .т.д.)&lt;br /&gt;                  header —  список (LIST) заголовков или nil вида (&quot;Подпись A&quot; &quot;Подпись B&quot; ...)&lt;br /&gt;                            Если header nil, принимается (&quot;X&quot; &quot;Y&quot; &quot;Z&quot;)&lt;br /&gt;                 Colhide —  список буквенных названий стоблцов для скрытия или nil — не скрывать&lt;br /&gt;                            (&quot;A&quot; &quot;C&quot; &quot;D&quot;) — скрыть столбцы A, C, D&lt;br /&gt;                 Name_list — имя нового листа активной книги или nil — нет (&quot;&quot;)&lt;br /&gt;Имя получается как конкатенация Имя_рисунка + Name_list + счетчик для уникальности&lt;br /&gt;* Возврат: nil&lt;br /&gt;* TIPS!!! : При передачи функции xls числовых вещественных данных нет необходимости проверять текущий системный&lt;br /&gt;            разделитель целой и дробной части (&quot;HKEY_CURRENT_USER\\Control Panel\\International&quot; &quot;sDecimal&quot;)&lt;br /&gt;            Функцией на время вывода отключается использование в Excele системного разделителя, разделителем&lt;br /&gt;            целой и дробной части устанавливается точка. После завершения ф-ции все восстанавливается.&lt;br /&gt;Пример вызова&lt;br /&gt;(xls '((1.1 1.2 1.3 1.4)(2.1 2.2 2.3 2.4)(3.1 3.2 3.3 3.4)) '(&quot;Столбец1&quot; &quot;Столбец2&quot; &quot;Столбец3&quot; &quot;Столбец4&quot;) '(&quot;B&quot;) nil)&lt;br /&gt;подробнее http://dwg.ru/f/showthread.php?p=183912&lt;br /&gt;пример http://dwg.ru/f/showthread.php?p=201021&lt;br /&gt;|;&lt;br /&gt;(vl-load-com)&lt;br /&gt;(defun Letter (N / Res TMP)(setq Res &quot;&quot;)(while (&gt; N 0)(setq TMP (rem N 26)&lt;br /&gt;  TMP (if (zerop TMP)(setq N (1- N) TMP 26) TMP)&lt;br /&gt;  Res (strcat (chr (+ 64 TMP)) Res)  N   (/ N 26))) Res)&lt;br /&gt;(if (null Name_list)(setq Name_list &quot;&quot;))&lt;br /&gt;  (setq  *AplExcel*     (vlax-get-or-create-object &quot;Excel.Application&quot;))&lt;br /&gt;  (if (setq *New-Book*  (vlax-get-property *AplExcel* &quot;ActiveWorkbook&quot;))&lt;br /&gt;    (setq *Books-Colection*  (vlax-get-property *AplExcel* &quot;Workbooks&quot;)&lt;br /&gt;          *Sheet-Collection* (vlax-get-property *New-Book* &quot;Sheets&quot;)&lt;br /&gt;               *Sheet#1*     (vlax-invoke-method *Sheet-Collection* &quot;Add&quot;))&lt;br /&gt;(setq *Books-Colection*  (vlax-get-property *AplExcel* &quot;Workbooks&quot;)&lt;br /&gt;              *New-Book*     (vlax-invoke-method *Books-Colection* &quot;Add&quot;)&lt;br /&gt;          *Sheet-Collection* (vlax-get-property *New-Book* &quot;Sheets&quot;)&lt;br /&gt;               *Sheet#1*     (vlax-get-property *Sheet-Collection* &quot;Item&quot; 1)))&lt;br /&gt;(setq *excell-cells*     (vlax-get-property *Sheet#1* &quot;Cells&quot;))&lt;br /&gt;(setq Name_list (if (= Name_list &quot;&quot;)&lt;br /&gt;                  (vl-filename-base(getvar &quot;DWGNAME&quot;))&lt;br /&gt;                  (strcat (vl-filename-base(getvar &quot;DWGNAME&quot;)) &quot;&amp;&quot; Name_list))&lt;br /&gt;   col 0 cols nil)&lt;br /&gt;(if (&gt; (strlen Name_list) 26)&lt;br /&gt;(setq Name_list (strcat (substr Name_list 1 10) &quot;...&quot; (substr Name_list (- (strlen Name_list) 13) 14))))  &lt;br /&gt;(vlax-for sh *Sheet-Collection* (setq cols (cons (strcase(vlax-get-property sh 'Name)) cols)))&lt;br /&gt;(setq row Name_list)&lt;br /&gt;(while (member (strcase row) cols)(setq row (strcat Name_list &quot; (&quot; (itoa(setq col (1+ col)))&quot;)&quot;)))&lt;br /&gt;(setq Name_list row)&lt;br /&gt;(vlax-put-property *Sheet#1* 'Name Name_list)&lt;br /&gt;(setq Currsep (vlax-get-property *AplExcel* &quot;UseSystemSeparators&quot;))&lt;br /&gt;(vlax-put-property *AplExcel* &quot;UseSystemSeparators&quot; :vlax-false) ;_не использовать системные установки&lt;br /&gt;(vlax-put-property *AplExcel* &quot;DecimalSeparator&quot; &quot;.&quot;)            ;_разделитель дробной и целой части&lt;br /&gt;(vlax-put-property *AplExcel* &quot;ThousandsSeparator&quot; &quot; &quot;)          ;_разделитель тысячей&lt;br /&gt;(vla-put-visible *AplExcel* :vlax-true)(setq row 1 col 1)&lt;br /&gt;(vlax-put-property *AplExcel* 'DisplayAlerts :vlax-false)&lt;br /&gt;(if (null header)(setq header '(&quot;X&quot; &quot;Y&quot; &quot;Z&quot;)))&lt;br /&gt;(repeat (length header)(vlax-put-property *excell-cells* &quot;Item&quot; row col&lt;br /&gt;(vl-princ-to-string (nth (1- col) header)))(setq col (1+ col)))(setq  row 2 col 1)&lt;br /&gt;(repeat (length Data-list)(setq iz_listo (car Data-list))(repeat (length iz_listo)&lt;br /&gt;(vlax-put-property *excell-cells* &quot;Item&quot; row col (vl-princ-to-string (car iz_listo)))&lt;br /&gt;(setq iz_listo (cdr iz_listo) col (1+ col)))(setq Data-list (cdr Data-list))(setq col 1 row (1+ row)))&lt;br /&gt;(setq col (1+(length header)) row (1+ row))&lt;br /&gt;(setq cell (vlax-variant-value (vlax-invoke-method *Sheet#1* &quot;Evaluate&quot;&lt;br /&gt;    (strcat &quot;A1:&quot; (letter col)(itoa row))))) ;_ end of setq&lt;br /&gt;(setq cols (vlax-get-property cell  'Columns))&lt;br /&gt;(vlax-invoke-method cols 'Autofit)&lt;br /&gt;(vlax-release-object cols)(vlax-release-object cell)&lt;br /&gt;(foreach item ColHide (if (numberp item)(setq item (letter item)))&lt;br /&gt;(setq cell (vlax-variant-value (vlax-invoke-method *Sheet#1* &quot;Evaluate&quot;&lt;br /&gt;    (strcat item &quot;1:&quot; item &quot;1&quot;))))&lt;br /&gt;(setq cols (vlax-get-property cell  'Columns))&lt;br /&gt;(vlax-put-property cols 'hidden 1)&lt;br /&gt;(vlax-release-object cols)(vlax-release-object cell))&lt;br /&gt;(vlax-put-property *AplExcel* &quot;UseSystemSeparators&quot; Currsep)&lt;br /&gt;(mapcar 'vlax-release-object (list *excell-cells* *Sheet#1* *Sheet-Collection* *New-Book* *Books-Colection*&lt;br /&gt;*AplExcel*))(setq *AplExcel* nil)(gc)(gc)(princ))&lt;br /&gt;&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Lisp - сотрировка по слоям, по цвету и толщине  [9]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870421</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870421</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=15644&quot;&gt;skkkk&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 18:24 (GMT + 4)&lt;p&gt;Что тут может быть быстрее быстрого выбора (_qselect)?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Lisp - сотрировка по слоям, по цвету и толщине  [8]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870398</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870398</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50047&quot;&gt;crosandr&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 17:16 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;dextron3 :&lt;/b&gt;&lt;br /&gt;Есть лисп который сортирует размеры в размеры штриховку штриховку&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;ссылочкой поделитесь?&lt;br /&gt;потому как похожая задача возникла</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>ищу функцию построения 3d полилинии  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870324</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870324</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=29081&quot;&gt;Victor&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 15:30 (GMT + 4)&lt;p&gt;что то нашёл, не поиню интерполирует или нет</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>ищу функцию построения 3d полилинии  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870278</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870278</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;Добавлено: 01 Feb 2012 14:14 (GMT + 4)&lt;p&gt;Смотри vla-Add3DPoly и свойства возвращаемого объекта.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>ищу функцию построения 3d полилинии  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870258</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870258</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=72651&quot;&gt;mankurt&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 13:50 (GMT + 4)&lt;p&gt;Здравствуйте!&lt;br /&gt;Есть план с полилиниями, построенными по съемочным точкам. Полилинии кем-то переведены в сплайн, скруглены, затем заново превращены в полилинии. Содержат кучу ненужных вертексов. Из этих полилиний нужно добыть 3d полилинии с узлами в точках на своей высоте. Соответственно ищу способы решить след. задачи (и прошу в этом у вас помощи):&lt;br /&gt;1. &lt;b&gt;Построить 3d полилинии по точкам и полилиниям, присвоить при этом узлам высоты точек.&lt;br /&gt;    Узлы, которые находятся не в точках должны остаться с высотой ноль.&lt;/b&gt;&lt;br /&gt;    Это вроде как должно реализовываться функцией Toolpac &quot;2d to 3d by points&quot;, но работает она криво - большинство вертексов остаются на высоте 0.&lt;br /&gt;&lt;br /&gt;2. &lt;b&gt;Удалить из вновь образованной 3d полилинии вертексы с высотой 0.&lt;/b&gt; &lt;br /&gt;Аналогов чего-то не нашел нигде.&lt;br /&gt;&lt;b&gt;На выходе - структурная линия с узлами на своей, &quot;правильной&quot; высоте&lt;/b&gt;&lt;br /&gt;&lt;br /&gt;Можно конечно тупо проводить новую 3d-полилинию с привязкой по точкам/блокам, но тупо не хочется. &lt;br /&gt;&lt;br /&gt;Буду рад идеям )</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>GeomProps2007.ARX в версии 11 AutoCAD  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870176</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870176</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;Добавлено: 01 Feb 2012 12:24 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;wluk1958 :&lt;/b&gt;&lt;br /&gt;GeomProps2007.ARX не работает в версии 11 AutoCAD.&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;И не должен.&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;wluk1958 :&lt;/b&gt;&lt;br /&gt;Есть ли разработки для 11 версии ?&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Есть.&lt;br /&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;wluk1958 :&lt;/b&gt;&lt;br /&gt;Спасибо.&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;Пожалуйста.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>GeomProps2007.ARX в версии 11 AutoCAD  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870173</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870173</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=56511&quot;&gt;wluk1958&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 12:21 (GMT + 4)&lt;p&gt;Замечательно ! Огромное спасибо !</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Программная настройка AutoCAD, как это делается?  [139]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870167</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870167</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=50047&quot;&gt;crosandr&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 12:16 (GMT + 4)&lt;p&gt;&lt;b&gt;Krieger&lt;/b&gt;, может в шапку занесешь актуальную версию, чтоб не собирать ее по всем веткам?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>GeomProps2007.ARX в версии 11 AutoCAD  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870159</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870159</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;Добавлено: 01 Feb 2012 12:09 (GMT + 4)&lt;p&gt;&lt;a href=&quot;http://www.maestrogroup.com.ua/support/&quot;&gt;www.maestrogroup.com.ua/support/&lt;/a&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>GeomProps2007.ARX в версии 11 AutoCAD  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870158</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870158</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=56511&quot;&gt;wluk1958&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 12:08 (GMT + 4)&lt;p&gt;GeomProps2007.ARX не работает в версии 11 AutoCAD. Есть ли подобная программа для 11 версии ? Спасибо.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>GeomProps2007.ARX в версии 11 AutoCAD  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870157</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870157</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;Добавлено: 01 Feb 2012 12:08 (GMT + 4)&lt;p&gt;Бери здесь &lt;a href=&quot;http://www.maestrogroup.com.ua/support/&quot;&gt;www.maestrogroup.com.ua/support/&lt;/a&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>GeomProps2007.ARX в версии 11 AutoCAD  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870149</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870149</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=56511&quot;&gt;wluk1958&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 12:03 (GMT + 4)&lt;p&gt;GeomProps2007.ARX не работает в версии 11 AutoCAD. Есть ли разработки для 11 версии ? Спасибо.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Расчленение и удаление proxy-объектов для весий 10, 11 AutoCAD  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870110</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870110</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=56511&quot;&gt;wluk1958&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 11:11 (GMT + 4)&lt;p&gt;Спасибо большое. Пробую.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Расчленение и удаление proxy-объектов для весий 10, 11 AutoCAD  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870105</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870105</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;Добавлено: 01 Feb 2012 11:06 (GMT + 4)&lt;p&gt;Есть: &lt;a href=&quot;http://www.maestrogroup.com.ua/support/ExplodeProxy.zip&quot;&gt;www.maestrogroup.com.ua/support/ExplodeProxy.zip&lt;/a&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Расчленение и удаление proxy-объектов для весий 10, 11 AutoCAD  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870100</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870100</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=56511&quot;&gt;wluk1958&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 11:01 (GMT + 4)&lt;p&gt;Есть ли программа для расчленение и удаление proxy-графики для весий 10, 11 AutoCAD</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Изменение команды NUM (автоматическая нумерация)  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870093</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870093</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=20884&quot;&gt;ПроктантБС&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 10:51 (GMT + 4)&lt;p&gt;Спасибо! то что надо было</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу)  [1768]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870066</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870066</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;Добавлено: 01 Feb 2012 10:10 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;_mikka :&lt;/b&gt;&lt;br /&gt;Народ подскажите, как удалить колонку из таблицы автокад ?&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;(&lt;b&gt;vla-deletecolumns&lt;/b&gt; &lt;em&gt;vla_представление_таблицы номер_столбца количество&lt;/em&gt; ) - а вобще лучше изучить как пользоваться справкой.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Express Tools Bugs ( Ошибки Express Tools )  [52]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870056</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870056</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;Добавлено: 01 Feb 2012 09:54 (GMT + 4)&lt;p&gt;Спасибо за исправленный Burst! Очень кстати оказался.&lt;br /&gt;Обнаружился только один неприятный момент - если у блока масштабные коэффициенты равны по абсолютному значению, но не равны по знаку (такое бывает, если блок &quot;зеркалить&quot;), то у полилиний терялось свойство &quot;глобальный вес&quot;. На скорую руку подправил функцию BURST-ONE.&lt;br /&gt;UPDATE: В BGTolls подглядел, как правильно &quot;взрывать&quot; блоки. Снова спасибо VVA! :)&lt;br /&gt;UPDATE1: Полностью перелопатил всю программу, т.к. нужно было зараз тысячи блоков расчленять. Теперь на несколько тысяч блоков вместо десятков минут тратится пара. Код выкладываю на обсуждение (или осуждение :))&lt;br /&gt;UPDATE2: Обнаружился &quot;косяк&quot;: если у какого-либо из свойств атрибута значение &quot;ByLayer&quot; (по слою), и текущее значение в чертеже этого свойства не &quot;ByLayer&quot;, то после BURST у этого свойства полученного текста будет значение такое же, как текущее в четреже а не наследованное от слоя атрибута или слоя блока. Нашел причину - в функции att-text при использовании функции entmake если у атрибута нет группы 62, 6 или 370, то они берутся из текущих свойств чертежа.&lt;br /&gt;UPDATE3: &quot;Косяк&quot; исправил. Файл перезалил.</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>VBA Как узнать, какие версии автокада установлены  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870042</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870042</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=5211&quot;&gt;bargool&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 09:31 (GMT + 4)&lt;p&gt;слегка &lt;a href=&quot;http://&quot;http://www.google.ru/search?q=get+autocad+versions+registry&amp;ie=utf-8&amp;oe=utf-8&amp;aq=t&amp;rls=org.mozilla:ru:official&amp;client=firefox#sclient=psy-ab&amp;hl=ru&amp;safe=off&amp;client=firefox&amp;hs=PUo&amp;rls=org.mozilla:ru%3Aofficial&amp;source=hp&amp;q=get+installed+autocad+versions+vba&amp;pbx=1&amp;oq=get+installed+autocad+versions+vba&amp;aq=f&amp;aqi=&amp;aql=&amp;gs_sm=e&amp;gs_upl=19579l20783l1l21067l4l4l0l0l0l0l617l1548l4-1.2l3l0&amp;bav=on.2,or.r_gc.r_pw.,cf.osb&amp;fp=8e667bd72d02f8e6&amp;biw=1680&amp;bih=910&quot;&quot;&gt;погуглил&lt;/a&gt;&lt;br /&gt;&lt;a href=&quot;http://www.devx.com/vb2themax/Tip/18726&quot;&gt;www.devx.com/vb2themax/Tip/18726&lt;/a&gt; - может служить отправной точкой?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>LISP. Подскажите пожалуйста, как узнать ширину текста?  [5]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=870001</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=870001</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=68480&quot;&gt;LastGraff&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 06:38 (GMT + 4)&lt;p&gt;спасибо, попробую</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Как создать в тексте поле - счетчик копий  [4]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=869996</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=869996</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=59847&quot;&gt;azetown&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 04:40 (GMT + 4)&lt;p&gt;Что то подобное только с помощью блоков</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>AutoCAD и delphi 7, добавление шаблонов  [38]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=869995</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=869995</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=59847&quot;&gt;azetown&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 01 Feb 2012 04:32 (GMT + 4)&lt;p&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;//FirstPoint - точка вставки блока&lt;br /&gt;//N_count_block - порядковый номер блока (зависит название блока)&lt;br /&gt;Function Insert_block_n(FirstPoint: OleVariant; N_count_block:integer): IAcadBlockReference;&lt;br /&gt;var     //   вставляет блок &quot;N_count_block&quot;(если блока нет то создает его) в нужной точке автокада&lt;br /&gt;    acB1: IAcadBlock;&lt;br /&gt;    n:integer;&lt;br /&gt;    N_block: string;&lt;br /&gt;    i:integer;&lt;br /&gt;    Ex_block :boolean;&lt;br /&gt;    acbr1: IAcadBlockReference;&lt;br /&gt;&lt;br /&gt;  function SetPAC(x,y,z:real) : OleVariant;&lt;br /&gt;  begin&lt;br /&gt;    result:=VarArrayCreate([0, 2], varDouble);&lt;br /&gt;    result[0]:=x;&lt;br /&gt;    result[1]:=y;&lt;br /&gt;    result[2]:=z;&lt;br /&gt;  end;&lt;br /&gt;&lt;br /&gt;  function addBlock(n_name:integer):IAcadBlock;&lt;br /&gt;  var FP_1: OleVariant;&lt;br /&gt;      i_1:integer;&lt;br /&gt;  begin   // Добавляет блок с именем: N_block&lt;br /&gt;       FP_1:= VarArrayCreate([0, 2], varDouble) ;&lt;br /&gt;       FP_1:=setpac(0,0,0);&lt;br /&gt;       N_block:='Point_'+Inttostr(n_name);&lt;br /&gt;&lt;br /&gt;       for i_1:=0 to AcadDocument1.Blocks.Count-1 do&lt;br /&gt;       begin                        // очистить блоки&lt;br /&gt;         if AcadDocument1.Blocks.Item(i_1).Name=N_block then&lt;br /&gt;         begin&lt;br /&gt;            acb1:=AcadDocument1.Blocks.Item(i_1);&lt;br /&gt;            acb1.Item(0).delete;&lt;br /&gt;         end;&lt;br /&gt;       end;&lt;br /&gt;&lt;br /&gt;       acb1:=AcadDocument1.Blocks.Add(FP_1,N_block);&lt;br /&gt;       acb1.AddCircle(FP_1,1);&lt;br /&gt;       acb1.AddLine(SetPAC(FP_1[0]-1.5,FP_1[1],    FP_1[2]),SetPAC(FP_1[0]+1.5,FP_1[1],    FP_1[2]));&lt;br /&gt;       acb1.AddLine(SetPAC(FP_1[0],    FP_1[1]-1.5,FP_1[2]),SetPAC(FP_1[0],    FP_1[1]+1.5,FP_1[2]));&lt;br /&gt;       if (n_name&gt;0) then&lt;br /&gt;       acb1.AddText(inttostr(n_name),setpac(FP_1[0]+1,FP_1[1]+1,FP_1[2]),1);&lt;br /&gt;&lt;br /&gt;       acb1.Item(0).color:=acByBlock;&lt;br /&gt;       acb1.Item(1).color:=acByBlock;&lt;br /&gt;       acb1.Item(2).color:=acByBlock;&lt;br /&gt;       if (n_name&gt;0) then acb1.Item(3).color:=acByBlock;&lt;br /&gt;  end;&lt;br /&gt;&lt;br /&gt;begin  //   вставляет блок &quot;N_count_block&quot;(если блока нет то создает его) в нужной точке автокада&lt;br /&gt;&lt;br /&gt;   begin&lt;br /&gt;     n:=N_count_block;&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;//================================================================================&lt;br /&gt;     begin&lt;br /&gt;        N_block:='Point_'+Inttostr(n);&lt;br /&gt;&lt;br /&gt;        Ex_block:=false;&lt;br /&gt;        for i:=0 to AcadDocument1.Blocks.Count-1 do&lt;br /&gt;          if AcadDocument1.Blocks.Item(i).Name=N_block then Ex_block:=true;&lt;br /&gt;&lt;br /&gt;        if not Ex_block then addBlock(n);&lt;br /&gt;&lt;br /&gt;        acbr1:=AcadDocument1.ModelSpace.InsertBlock(FirstPoint,N_block,1,1,1,0,'');&lt;br /&gt;        acbr1.Layer:= 'Defpoints';&lt;br /&gt;        acbr1.color:=acRed;&lt;br /&gt;     end;&lt;br /&gt;&lt;br /&gt;     AcadDocument1.Application.Update;&lt;br /&gt;&lt;br /&gt;   end;&lt;br /&gt;end;&lt;br /&gt;&lt;/font&gt;&lt;/div&gt;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу)  [1767]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=869945</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=869945</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=1346&quot;&gt;ShaggyDoc&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 31 Jan 2012 22:50 (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;Как это нельзя, когда у всех льзя? Именно так моделируется построение отрезков, только надо опциями и проверками дополнять.&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;[LISP]Command: (setq pt1 (getpoint &quot;Первая точка: &quot;))&lt;br /&gt;[/LISP]&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;&lt;b&gt;Первая точка:&lt;/b&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;[LISP](2240.0 970.0 0.0)[/LISP]&lt;/font&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;[LISP]Command: (setq pt2 (getpoint pt1 &quot;Вторая точка&quot;))&lt;br /&gt;[/LISP]&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;&lt;b&gt;Вторая точка&lt;/b&gt;&lt;br /&gt;Вводим с клавиатуры расстояние и смещение&lt;br /&gt;&lt;b&gt;@300&lt;0&lt;/b&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;[LISP](2540.0 970.0 0.0)[/LISP]&lt;/font&gt;&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;[LISP](setq ang (angle pt1 pt2))[/LISP]&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;&lt;b&gt;0.0&lt;/b&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;[LISP](setq dist (distance pt1 pt2))[/LISP]&lt;/font&gt;&lt;/div&gt;&lt;br /&gt;&lt;b&gt;300.0&lt;/b&gt;&lt;br /&gt;&quot;надеюсь объяснил более или менее поянтно&quot;</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>VBA Как узнать, какие версии автокада установлены  [3]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=869941</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=869941</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=58223&quot;&gt;_mikka&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 31 Jan 2012 22:45 (GMT + 4)&lt;p&gt;Спасибо большое это я знаю, но этим путем мне пройти не удалось...&lt;br /&gt;Моих знаний не хватило, что бы на VBA вытащить эти ключи из реестра...&lt;br /&gt;Может быть у кого нибудь получилось...</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу)  [1766]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=869940</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=869940</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=58223&quot;&gt;_mikka&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 31 Jan 2012 22:40 (GMT + 4)&lt;p&gt;Народ подскажите, как удалить колонку из таблицы автокад ?</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>VBA Как узнать, какие версии автокада установлены  [2]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=869937</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=869937</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=5211&quot;&gt;bargool&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 31 Jan 2012 22:34 (GMT + 4)&lt;p&gt;Из VBA есть доступ к реестру? ИМХО только там можно узнать, какие версии установлены&lt;br /&gt;[thread=23625]Коллекция ключей AutoCAD в реестре[/thread]</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу)  [1765]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=869892</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=869892</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=75237&quot;&gt;Никита Ремизов&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 31 Jan 2012 20:54 (GMT + 4)&lt;p&gt;&lt;div style=&quot;padding-left: 50px;&quot;&gt;&lt;p&gt;&lt;b&gt;ShaggyDoc :&lt;/b&gt;&lt;br /&gt;Функцией getpoint от начальной точки pnt1. Запрос точки pnt2&lt;/div&gt;&lt;br /&gt;&lt;br /&gt;пробовал, получается не так комфортно - нельзя задать угол и расстояние с клавиатуры, кроме того не попользуешься полярной привязкой и т.д. в идеале было бы чтобы механизм задания угла и расстояния совпадал с механизмом рисования отрезка, т.е. чтоб можно было как задать угол, длину(или что-то одно) с клавиатуры, так и &quot;графически&quot; мышью. надеюсь объяснил более или менее поянтно</description>  
		<category>Программирование</category> 
		</item>
		<item>
		<title>VBA Как узнать, какие версии автокада установлены  [1]</title> 
		<link>http://forum.dwg.ru/showthread.php?p=869881</link> 
		<guid>http://forum.dwg.ru/showthread.php?p=869881</guid>
		<description>Автор: &lt;a href=&quot;http://forum.dwg.ru/member.php?u=58223&quot;&gt;_mikka&lt;/a&gt;&lt;br&gt;&lt;br&gt;Добавлено: 31 Jan 2012 20:22 (GMT + 4)&lt;p&gt;Добрый день уважаемые, возник вопрос, как через VBA узнать какие версии автокада установлены на машине?&lt;br /&gt;А в идеале и какие запущены?</description>  
		<category>Программирование</category> 
		</item>
		
		</channel>
		</rss>
		
