LISP. Подготовка подосновы

LISP. Подготовка подосновы · 13.04.2011, 20:25

Набор команд, опубликованных в теме Подоснова
Желательно ознакомиться с указанной темой или как минимум с описанием
Описание команд

Код:

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

BGLAYDEL - Удаление выключенных и замороженных слоев с примитивами
BG1BLEXP - Взрывает блоки, состоящие из одного примитива (возможно другого блока)
BGBLEXP  - Взрывает блок и все блоки, входящие в него, превращая видимые атрибуты в текст
BGBLEXP1 - Взрывает блоки 1-го уровня, превращая видимые атрибуты в текст
BGBLDYNEXP1 - Взрывает динамические блоки 1-го уровня, превращая видимые атрибуты в текст
BGBLEXP1NOATT - Взрывает блоки 1-го уровня, у которых нет видимых атрибутов
BGBLXCLIP - Показывает подрезанные блоки
BGBLDYN2A - Преобразовывает динамические блоки в анонимные
BGBLDYN2S - Преобразовывает динамические блоки в статические
BGBLALLDYN2A - Преобразовывает ВСЕ динамические блоки в анонимные    
BGBLALLDYN2S - Преобразовывает ВСЕ динамические блоки в статические  
BGBLXCLIPEXP - взорвать подрезанный блок
BGCB - копирует одно из вхождений блока в блок с новым именем 
BGRB - переименовывает одно из вхождений блока в блок с новым именем
M2U - Преобразовать MINSERT в Unnamed блок
M2B - Преобразовать MINSERT в блок
U2B - Преобразовать UNNAMED в блок
U2BM - Преобразовать UNNAMED в блок множественный выбор
UX - Взорвать UNNAMED блок
=======================================
BGRGB2ACI - Изменяет цвет с RGB на ACI
BGAll2RGB - Изменяет ACI цвет в его RGB эквивалент
BGCOLOR - Задает выбранный цвет всем объектам
BGCOLORCMD - Задает выбранный цвет всем объектам с запросом в командной строке
BGCOLORXREF - Меняет цвет выбранных внешних сылок (только в текушем сеансе)
BGCOLBL - Установка "послою" цвета примитивов подосновы. Если цвет задан явно- создается новый слой !Новое с версии 3.0
BGResetXRef -Сброс настроек слоев выбранных внешних ссылок на установленные в исходном файле
BGBLCC - Изменяет цвет выбранных блоков
BGENCC - Изменяет цвет выбранного элемента блока
BGCATT - Изменяет цвет атрибутов выбранных блоков
BGCBL2 - Изменяет цвет в блоках 2 и более уровня (вложенных блоках)
BGBLFIX - Нормализация блоков (цвет, слой, взрываемость и т.п.)
BGCFT   - Конвертирует все поля в обычный текст
BGCFTSEL - конвертирование полей в обычный текст в выбранных примитивах
BGHATCHDEL - Удаление штриховки

Текущая версия 3.13a
Отличие версий 3.3 и 3.6 и выше - переписана функция взрыва блоков (команды BGBLEXP...)
В версии 3.3 - вариант из expresstools. Сохраняются поля при взрыве. Медленная обработка при большом количестве блоков
В версии 3.6 функция bg:BURST-ONE заменена функцией Lee Mac LM:burst. На порядок быстрее, если атрибут многострочный и включена маскировка - получаем маскированный мтест.
Поля не сохраняются.

Код:

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

;;;	Версии:
;;;	1.0 - исправлены ошибки burst - при наследовании типа линии поблоку, показ скрытых атрибутов и наследования типа линии блока
;;;	                                если в блок примитив входил не на 0 слое, тип линии поблоку.
;;;	      добавлена обработка Burst LineWeight
;;;	1.1  изменение цвета блока при наличии атрибутов (см ;;; Change VVA 12.09.2008)
;;;	...
;;;	1.4  Обработка стилей мультилиний
;;;	1.11 ChangeAllObjectsColor - Обработка размеров, leader и mtext с явным заданием цвета.
;;;	     BGBLEXP - обработка видимостей динамических блоков (если в видимости включены атрибуты)
;;;	     BG1BLEXP - Обабатываются блоки, состоящие из одного элемента и
;;;	     - имя блока A$C*
;;;	     - или любое другое имя и этот один элемент другой блок
;;;	1.12 - Не удаляет блоки, расположенные на выключенном/ замороженном слое
;;;	       и имеющие хотя бы 1 примитив на включенном слое, отличном от "0"
;;;	2.0  - BGBLEXP - исправлена ошибка со списком
;;;	2.1  - обработка блоков внешних ссылок ChangeXrefAllObjectsColor
;;;	2.2  - команда BGCFT
;;;	2.3  - add BGCOLORXREF and BGRGB2ACI
;;;	2.4  - Обработка многострочных атрибутов
;;;     2.5  - Добавленна gc:FieldCode ChangeAllObjectsColor ChangeXrefAllObjectsColor - обработка Unicode символов
;;;     2.6  - Добавленны команды BGBLDYN2A BGBLDYN2S
;;;     2.7  - Добавлена обработка предварительного выбора
;;;     2.8  - Баги с обработкой атрибутов и visibility
;;;     2.9 - Команда BGBLDYNEXP1 
;;;     2.9.1 - добавлена ф-ция bg:massoc
;;;     2.10  - Конвертация динамических блоков  bg:DynToStatic. Сохранение и восстановление значений атрибутов
;;;     2.11 - Изменения в bg:get-all-atts (обработка UNICOD символов в значениях атрибутов)
;;;              добавлена команда BGHATCHDEL
;;;             ChangeAllObjectsColor - change table text and grid color
;;;    2.12  - Учтен lineweight для атрибутов. Изменен BgBlFIX
;;;    2.13  - Добавлена функция BG:GET-TEXTSTRING (как замена vla-get-textstring. Т.к. неверно возвращает строку при наличии юникод символов)
;;;    2.14  - Добавлена команда BGAll2RGB Изменена ClearFieldInAllObjects
;;;    2.15  - Небольшие изменения в BGAll2RGB. добавлены BGCB и BGRB
;;;;   2.16  - BGCBL2 теперь работает с RGB и ACI цветами
;;;;   2.17  - BGBLCC  теперь работает с RGB и ACI цветами + мелкие изменения
;;;;   2.18  - Учтено предложение http://forum.dwg.ru/showpost.php?p=949149&postcount=102
;;;;           Добавлена команда BGBLXCLIPEXP
;;;;   2.19  - Команда BGBLFIX. Добавлена опция игнорирования блокированных слоев
;;;    2.22  - Добавлены опции Одинаковые масштабы и Разрешить расчленение
;;;    2.23 - Внесены изменения в команду BGBLXCLIPEXP
;;;    2.24  - Отредактирована команда UX (вложенность анонимных блоков)
;;;    2.25  - Fix BGBLCC и BGCBL2 command. Add BGCFTSEL
;;;    2.26  - BGCFT - добавлена обработка формата текста в таблице. Добавлены команды BGBLALLDYN2A и BGBLALLDYN2S
;;;    2.27  - в командах U2B ,UX добавлена обработка блоков с именем *E
;;;    2.28  - BGCFT - исправлена ошибка + изменения в function bg:DynToStatic
;;;    2.29  - Исправлен недочет ClearFieldInThisObject
;;;    2.30    Fixed minor bugs in function ClearFieldInThisObject   http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/vla-get-textstring-u-symbols/td-p/4365165
;;;    2.31    BGCFT добавлена очистка полей в размерах  ( http://forum.dwg.ru/showthread.php?p=1335110#post1335110 )
;;;    2.32    изменения в bg:get-TextString (http://forum.dwg.ru/showpost.php?p=1386990&postcount=235)
;;;    2.33    изменения в bg:get-TextString (http://forum.dwg.ru/showpost.php?p=1386990&postcount=252) 
;;;    2.34    BGBLFIX обработка именованных стилей печати
;;;    2.35    BGBLEXP изменения
;;;    2.36    изменения в команде UX http://forum.dwg.ru/showthread.php?p=1421560#post1421560
;;;    2.37    BGCFT исправлена ошибка при обработке заблокированных ячеек таблицы
;;;    2.38    BGLAYDEL исправлена ошибка с востановлением слоев
;;;    2.40    Изменения в ф-ции bg:FieldCode. Добавлена ф-ция bg:GetObjectIDString mark VVA 2015-12-07
;;;    2.41    Изменения в ф-ции ClearFieldInThisObject. Обработка значений размеров над и под размерной линией. Mark VVA 2016-01-04
;;;    3.0    Добавлена команда BGCOLBL
;;;            Установка послою цвета примитивов подосновы. Если цвет задан явно- создается новый слой
;;;    3.1    BGBLEXP - сохранение полей в атрибутах
;;;   3.2    BGCFT игнор
;;;   3.3    Исправление в команде M2B
;;;   3.4    Исправление fix bg:explode-block (исключение обработки внешних ссылок)
;;;   3.5    BG:BURST-ONE измененая для сохранения постоянных атрибутов
;;;   3.6    добавлено bg:del-constraint в BGBLEXP
;;;   3.7    изменения в команде M2B
;;;   3.8    Изменения в bg:FieldCode (http://forum.dwg.ru/showpost.php?p=1754063&postcount=467)
;;;   3.9    Изменения BGLAYDEL. Слои удаляются командой _-LAYDEL
;;;   3.10   Добавлена команда BGCOLORCMD
;;;;  3.11   Изменения BGLAYDEL
;;;;  3.12   Изменения в функции mip_MTEXT_Unformat (VVA 2021-12-24)
;;;;          https://forum.dwg.ru/showthread.php?p=1975506#post1975506
;;;;   3.12a   Изменения в функции bg:hatch-delete-form-Block (VVA 2022-05-13)
;;;;            https://forum.dwg.ru/showpost.php?p=1991289&postcount=624

Полезные ссылки
C2L - Color to Layer или еще здесь
COLORFL - Color From Layer
PFL - Properties From Layer

VVA · 25.03.2016, 15:34

Цитата:

Сообщение от marcis

А почему режим "Постоянный" так не "нравится" этим командам?

Установи этот режим, обнови блок и найди этот атрибут в окне свойств. Его там не будет, следовательно, его нет во вхождении блока, поэтому он не нравится командам.

marcis · 25.03.2016, 16:05

Да, в свойствах этого атрибута нет. Понимаю, что его нет во вхожении блока. Вот только непонятно, что видно в том самом месте, где в редакторе блоков стоит атрибут ФАЙЛ. И при этом отображает то, что забито полем в этом атрибуте?
Я не прикалываюсь, мне дейсвительно интересно

csi · 03.04.2016, 14:44

VVA, не знаю насколько сложно в реализации...

LISP, который взрывает все блоки (1, 2, 3... уровней), входящие в состав целевого блока (0 уровня), не взрывая его.
В результате получаем блок с набором примитивов вместо каши с многоуровневыми вхождениями блоков.
В идеале — с мультивыбором блоков для данного типа обработки.

Если есть возможность реализации — буду рад. Наверняка пригодится кому-либо еще.

Возможно решите включить в состав bgtools (думаю оно того стоит).

Linkshunter · 05.04.2016, 08:36

Цитата:

Сообщение от csi

Наверняка пригодится кому-либо еще.

...да, неплохо было бы, часто возникает вышеописанная потребность.

Кулик Алексей aka kpblc · 05.04.2016, 08:54

Что делать, если блоку, который надо разбить, установлен признак "неразбиваемости"? Как обрабатывать заблокированные, замороженные и выключенные слои? Как обрабатывать атрибуты?
P.S. В принципе, можно попробовать использовать готовые исходники burst...

csi · 06.04.2016, 22:55

Кулик Алексей aka kpblc,
— неразбиваемость: не обрабатывать, игнорировать, на совести пользователя (BGBLFIX)
— обработка слоев: не обрабатывать, игнорировать, на совести пользователя (вручную)
— атрибуты блока: преобразовывать в текст средствами самой функции (или удалять)

kheylan · 25.04.2016, 17:51

VVA, а можно добавить команду, чтобы после нормализации блоков, задать цвет штриховки во всех блоках - 255, или как это сделать отдельным lispом.

VVA · 25.04.2016, 18:08

Образец штриховки любой или только SOLID?

kheylan · 25.04.2016, 18:15

VVA, только Solid.

VVA · 26.04.2016, 12:41

Для работы нужно, чтобы bgtools были загружены (либо скопировать оттуда функции bg:layer-status-save и bg:layer-status-restore)

Код:

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

(defun C:BGHSCOLOR ( / doc col)
  ;;BackGround Hatch Solid COLOR
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark doc)
  (bg:layer-status-save)
  (if (setq col (acad_colordlg 256))
    (progn
      (ChangeHatchObjectsColor doc col)
      )
    )
  (bg:layer-status-restore)
  (vla-regen doc acallviewports)
  (vla-endundomark doc)
  (princ)
  )
(defun ChangeHatchObjectsColor (Doc Color  / txtstr tmp txt count)
  (vlax-for Blk	(vla-get-Blocks Doc)
    (if (= (vla-get-IsXref Blk) :vlax-false)
      (progn
	(setq count 0 txt (strcat "Changed " (vla-get-name Blk)))
	(grtext -1 txt)
      (if (not (wcmatch (vla-get-name Blk) "`*T*,`*D*")) ;_exclude table  dimension
      (vlax-for	Obj Blk
	(setq count (1+ count))
	(if (zerop(rem count 10))(grtext -1 (strcat txt " : " (itoa count))))
	(if (and (vlax-write-enabled-p Obj)
		 (vlax-property-available-p Obj 'Color)
                 (= (vla-get-ObjectName obj) "AcDbHatch")
                 (= (strcase(vla-get-PatternName obj)) "SOLID")
	    ) ;_ end of and
	  (vla-put-Color Obj Color)
	) ;_ end of if
      ) ;_ end of vlax-for
        )
      )
    ) ;_ end of if
  ) ;_ end of vlax-for
 (vl-cmdf "_regenall")
)

kheylan · 26.04.2016, 13:02

VVA, спасибо. То, что нужно.
Но в приложенном файле не везде штриховка поменяла цвет, опора ЛЭП 10кВ осталась черной

Composter · 26.04.2016, 17:44

замечательный набор лиспов!!!

еще бы BGBLFIX работал для вложенных блоков, было б еще лучше

VVA · 26.04.2016, 18:29

Цитата:

Сообщение от kheylan

ора ЛЭП 10кВ осталась черной

Цитата:

Сообщение от kheylan

VVA, только Solid.

Зайди в редактор блоков и посмотри имя образца штриховки. Оно не SOLID, а _SOLID
Поменяй на SOLID, и все отработает

Цитата:

Сообщение от Composter

еще бы BGBLFIX работал для вложенных блоков, было б еще лучше

BGBLFIX , обрабатывает указанные в списке для нормализации блоки в таблице описания блоков. Там без разницы, вложенный блок или нет.
Но у меня ощущения что я не понял сути вопроса

Composter · 26.04.2016, 21:58

использовав BGBLFIX можно вручную указать блоки просто выделяя их, но вложенные блоки комманда не определяет

kheylan · 27.04.2016, 11:42

VVA, спасибо, понял свою ошибку.
А нельзя ли объединить с командой нормализация блоков, где можно выбрать определенные блоки, так как, в каких то блоках штриховку, надо сделать цветом 255, а в каких то цветом по блоку.

VVA · 27.04.2016, 12:59

Цитата:

Сообщение от VVA

Для работы нужно, чтобы bgtools были загружены (

Цитата:

Сообщение от kheylan

А нельзя ли объединить с командой нормализация блоков, где можно выбрать определенные блоки, так как, в каких то блоках штриховку, надо сделать цветом 255, а в каких то цветом по блоку

Код:

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

(defun C:BGHSCOLOR1 (/ doc col lst)
  ;;BackGround Hatch Solid COLOR
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark doc)
  (bg:layer-status-save)
  (if (setq lst (bg:blfixdialog))
    (setq lst (mapcar 'strcase (cdr lst)))
  ) ;_ end of if
  (setq lst
         (apply 'append
         (mapcar '(lambda (bname)
                    (cons bname (LM:getanonymousreferences bname))
                  ) ;_ end of lambda
                 lst
         ) ;_ end of mapcar
                )
  ) ;_ end of setq
  (if (setq col (acad_colordlg 256))
    (progn
      (ChangeHatchObjectsColor1 doc col lst)
    ) ;_ end of progn
  ) ;_ end of if
  (bg:layer-status-restore)
  (vla-regen doc acallviewports)
  (vla-endundomark doc)
  (princ)
) ;_ end of defun
(defun block-get-name (blkobj)
  (cond
    ((and (vlax-property-available-p blkobj 'isdynamicblock)
          (= (vla-get-isdynamicblock blkobj) :vlax-true)
          (vlax-property-available-p blkobj 'effectivename)
     ) ;_ end of and
     (vla-get-effectivename blkobj)
    )
    (t (vla-get-name blkobj))
  ) ;_ end of cond
) ;_ end of defun

(defun ChangeHatchObjectsColor1 (Doc Color lst / txtstr tmp txt count)
  (vlax-for Blk (vla-get-blocks Doc)
    (if (= (vla-get-isxref Blk) :vlax-false)
      (progn
        (setq count 0
              txt   (strcat "Changed " (vla-get-name Blk))
        ) ;_ end of setq
        (grtext -1 txt)
        (if (and
              lst
              (not (wcmatch (vla-get-name Blk) "`*T*,`*D*")) ;_exclude table  dimension
              (member (strcase (block-get-name Blk)) lst)
            ) ;_ end of and
          (vlax-for Obj Blk
            (setq count (1+ count))
            (if (zerop (rem count 10))
              (grtext -1 (strcat txt " : " (itoa count)))
            ) ;_ end of if
            (if (and (vlax-write-enabled-p Obj)
                     (vlax-property-available-p Obj 'Color)
                     (= (vla-get-objectname obj) "AcDbHatch")
                     (= (strcase (vla-get-patternname obj)) "SOLID")
                ) ;_ end of and
              (vla-put-color Obj Color)
            ) ;_ end of if
          ) ;_ end of vlax-for
        ) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of vlax-for
  (vl-cmdf "_regenall")
) ;_ end of defun
(defun LM:getanonymousreferences (blk / ano def lst rec ref)
  ;; Get Anonymous References  -  Lee Mac
  ;; Returns the names of all anonymous references of a block.
  ;; blk - [str] Block name/wildcard pattern for which to return anon. references
  (setq blk (strcase blk))
  (while (setq def (tblnext "block" (null def)))
    (if
      (and (= 1 (logand 1 (cdr (assoc 70 def))))
           (setq rec
                  (entget
                    (cdr
                      (assoc 330
                             (entget
                               (tblobjname
                                 "block"
                                 (setq ano (cdr (assoc 2 def)))
                               ) ;_ end of tblobjname
                             ) ;_ end of entget
                      ) ;_ end of assoc
                    ) ;_ end of cdr
                  ) ;_ end of entget
           ) ;_ end of setq
      ) ;_ end of and
       (while
         (and
           (not (member ano lst))
           (setq ref (assoc 331 rec))
         ) ;_ end of and
          (if
            (and
              (entget (cdr ref))
              (wcmatch (strcase (LM:al-effectivename (cdr ref))) blk)
            ) ;_ end of and
             (setq lst (cons ano lst))
          ) ;_ end of if
          (setq rec (cdr (member (assoc 331 rec) rec)))
       ) ;_ end of while
    ) ;_ end of if
  ) ;_ end of while
  (reverse lst)
) ;_ end of defun
;; Effective Block Name  -  Lee Mac
;; ent - [ent] Block Reference entity

(defun LM:al-effectivename (ent / blk rep)
  (if (wcmatch (setq blk (cdr (assoc 2 (entget ent)))) "`**")
    (if
      (and
        (setq rep
               (cdadr
                 (assoc -3
                        (entget
                          (cdr
                            (assoc 330
                                   (entget
                                     (tblobjname "block" blk)
                                   ) ;_ end of entget
                            ) ;_ end of assoc
                          ) ;_ end of cdr
                          '("acdbblockrepbtag")
                        ) ;_ end of entget
                 ) ;_ end of assoc
               ) ;_ end of cdadr
        ) ;_ end of setq
        (setq rep (handent (cdr (assoc 1005 rep))))
      ) ;_ end of and
       (setq blk (cdr (assoc 2 (entget rep))))
    ) ;_ end of if
  ) ;_ end of if
  blk
) ;_ end of defun

kheylan · 27.04.2016, 14:43

VVA, спасибо, вот, что получилось, что гораздо быстрее стандартных средств!
Чтобы выделить объект для проектирования или досъемку, приходиться выполнять такой алгоритм команд
1. BGCOLOR - Задает выбранный цвет всем объектам
2. BGHSCOLOR - Задает цвет 255 штриховкам всех блоков.
3. BGHSCOLOR1 - Задает цвет заданный BGCOLOR штриховкам выбранных блоков, так как их гораздо меньше, чем со штриховкой 255
4. BGENCC - Изменяет цвет выбранного элемента блока, где штриховка _SOLID
В итоге получается приложенный файл, сделанный из предыдущего.

engngr · 27.04.2016, 23:59

Offtop: kheylan, зря вы так обрабатываете инженерно-топографический план. Удобнее, имхо, внешними ссылками и правильными стилями печати.

gomer · 28.04.2016, 07:53

Цитата:

Сообщение от kheylan

Чтобы выделить объект для проектирования или досъемку, приходиться выполнять такой алгоритм команд

Так используйте макросы! Они для этого и предназначены.

quazi · 02.06.2016, 18:21

Необходимо взрывать динамические блоки с геометрическими зависимостями так, чтоб геометрия оставалась неизменной, а зависимости снимались.
Выполняю BGBLDYN2S затем explode - геометрия неизменна, но все свойства примитивов и атрибуты естественно теряются
После BGBLDYN2S + BGBLEXP геометрия разлетается.
Если после BGBLDYN2S в редакторе блоков снять все зависимости, сохранить его, и выполнить BGBLEXP -то получается то что нужно.
Может сможете дописать к BGBLDYN2S снятие всех зависимостей внутри блока?
Или отдельной командой, которая отфильтрует только статические блоки из выборки и снимет внутри них зависимости.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу)	Red Nova	LISP	4555	24.03.2024 13:44
{Конкурс} Lisp. Задачки для студентов	gomer	LISP	10	05.01.2011 16:33
LISP на команду 3dcorbit	Малюк	LISP	2	30.09.2009 14:18
Запуск Lisp команды в новом документе	BlackHarp	LISP	1	26.03.2009 23:06
загрузка DOS прог через LISP	Gaa	LISP	15	12.08.2005 19:19

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск