APEL - сборник функций

Раскопал, что здесь стопроцентно есть программа для преобразования множества одинаковых объектов в блоки одним чохом (описание см. http://forum.dwg.ru/showthread.php?t=67242). Только неясно, зачем автор так скрывает всё.

если автор не будет против
то вот несколько его функций:
"APEL-COMMAND" "C:AFAS" "C:ALOAD" "APEL-COMPILE" "APEL-CONFIG-READ" "APEL-CONFIG-WRITE" "APEL-COPY_ACAD_LSP" "APEL-CURSOR-COLOR_BY_CURRENT_LAYER" "APEL-DCL-_LIST_GET" "APEL-DCL-_LIST_SET" "APEL-DCL-_LIST_SET_ACTIVE" "APEL-DELETE" "APEL-DELETE_OBJ" "APEL-DIAMETER" "APEL-DIM-UCS-ALIGN" "APEL-DRAW-BLOCK-KANAL" "APEL-DRAW-BLOCK" "APEL-DRAW-BLOCK_ATT_NUMBERING" "APEL-DRAW-CIRCLE_AXIS" "APEL-DRAW-FIND_ANALOG_OBJECTS" "C:APEL-DRAW-FOR_SELECT_COM" "C:QW" "APEL-DRAW-FOR_SELECT_COM" "APEL-DRAW-FOR_SELECT" "APEL-DRAW-INTERSECT_BREAK" "APEL-DRAW-LEADER_2STR" "APEL-DRAW-LEADER_2STR_IN" "APEL-DRAW-LEADER_WITH_BLOCK" "APEL-DRAW-LINE-POINT_ANG_LINE" "APEL-DRAW-LINE" "APEL-DRAW-MOD_ROTATE_TO_0" "APEL-DRAW-PIPE_HEIGHT_MARK" "APEL-DRAW-PIPE_POLYLINE" "APEL-DRAW-PIPE_POLYLINE_EXPLPL" "APEL-DRAW-POINT" "APEL-DRAW-POLYLINE" "APEL-DRAW-PROFIL" "APEL-DRAW-PROFIL_HIGHT_MARK" "APEL-DRAW-RECTANGLE" "APEL-DRAW-SLOPE_LINE" "C:TEST" "APEL-DRAW-SPLINE-CONV_TO_PL" "APEL-DRAW-TEXT" "APEL-DRAW-TEXT_TRANSFER" "APEL-DRAW-VPORT_IN_MODEL" "APEL-

продолжение:
"APEL-DRAW_DWG_PARAM" "APEL-DWG-CURRENT_PATCH_NAME" "APEL-ENTSEL" "APEL-ENTSEL_POINT" "APEL-EXPLODE_ALL" "APEL-EXPLODE_OBJ" "APEL-EXPLODE_OBJ_IN_COMMAND" "APEL-FILE-APEL_PATH" "APEL-FILE-DCL_TEMP_LOAD" "APEL-FILE-DWG_OPEN" "APEL-FILE-DWG_PURGE" "APEL-FILE-MK3_INSPECT" "APEL-FILE-MULTIWORK" "APEL-FILE-NAME_FROM_PATCH" "APEL-FILE-READ" "APEL-FILE-READ_LIST" "APEL-FILE-SAVECOPY_DWG" "APEL-FILE-SELECT_FILE" "APEL-FILE-SELECT_FOLDER" "APEL-FILE-WRITE_LISTSTR_A" "APEL-FILE-WRITE_STR_W" "APEL-FUNCTION-ELEM_MATRIX" "APEL-FUNCTION-ELEM_MATRIX_2" "APEL-FUNCTION_TO_COMMAND" "APEL-GETANGLE" "APEL-GETCORNER" "APEL-GETDIAMETER" "APEL-GETDIST" "APEL-GETKWORD_YESNO" "APEL-GETPOINT" "APEL-GETSTRING_DCL" "APEL_HELP" "APEL-HVAC-FLANEC" "APEL-HVAC-INSULATION" "APEL-INTERSECT-BLOCK" "APEL-INTERSECT" "APEL_RUCAD-LTYPE-LIST-LTYPES" "APEL_RUCAD-LTYPE-EXISTS" "APEL_RUCAD-LTYPE-LOAD" "APEL-LAYER-CREATE" "APEL_PROV_STR_LAYERS" "APEL-LAYER-CREATE-PROP" "APEL-LAYER-FILTERS_DELETE" "APEL-LAYER-FOR_COMMAND" "APEL-LAYER-LAYERS_FROM_TEMPLATE" "APEL-LAYER-RENAME_ASNUMBER" "APEL-LAYER-UNCLOSED_P" "APEL-LAYER-UNCLOSED_P_OBJ" "APEL-LAYER-UNLOCKED_ALL" "APEL-LAYOUT-LOAD_FROM_TEMPLATE" "APEL-LAYOUT-LOCALE_TO_CANONICAL" "APEL-LAYOUT-RENAME_ASNUMBER" "APEL-LDATA-GET" "APEL-LDATA-PUT" "APEL-LEADER_BLOCK_ADD_ATTR" "APEL-LENDREC2POINT" "RU-VIEWPORT-GET-PERIMETER" "RU-MLINE-GET-LENGTH" "RU-ENT-DXF-CODE-CLEAR-LIST" "RU-3DFACE-GET-PERIMETER" "RU-GEOM-GET-PERIMETER" "APEL-LENGTH" "APEL-LIMIT-ROTATION_REAL" "APEL-LINE-2COORD" "APEL-LINE-2LINE_IN_LINE" "APEL-LINE-2LINE_SEPOINT" "APEL-LINE-2LINE_UNION" "APEL-LINE-SEPOINT_IN_POINT" "APEL-LINE-UNION" "APEL-LISP-FUNC_LIST_TO_FILE_LIST" "APEL-LIST-ASSOC_LIST" "APEL-LIST-REMOVE_DUBLICATE" "APEL-LOG_NEW_ALERT" "APEL-MAGIC-ML" "APEL-MAT-PODBOR_PEC" "APEL-MENU-TB_HIDE_VIS" "APEL-MLINE-WRITE_MLSTYLE_IN_ACADMLN" "APEL-MOD-ALL_OBJ_TO_1COLOR" "APEL-MOD-BLOCK-ATT-ROTATE0" "APEL-MOD-BLOCK-NORMALIZE" "APEL-MOD-BREAK_OBJ" "APEL-MOD-CHAMFER_TRIM" "APEL-MOD-GET_PROPERTY" "APEL-MOD-INTERSECT_OBJ" "APEL-MOD-MATCH_PROPERTY" "APEL-MOD-OFFSET" "APEL-MOD-PUT_PROPERTY" "APEL-MOD-SELSET_COLOR" "APEL-MOD-SELSET_FUNC" "APEL-MOD-SELSET_TSTYLE" "APEL-MODELBACKGRNDCOLOR_OLE" "APEL-MODEL_SPACE" "APEL-MTEXT-PURGE_FONT"

"APEL-MTEXT-STR_PURGE_FONT" "APEL-NENTSEL" "APEL-NENTSEL_POINT" "APEL-OBJECT-MODIFED" "APEL-OLE-TO-ACI-COLOR" "APEL-PAPER_SPACE" "APEL-PIPE-BLOCK_IN_PIPE" "APEL-PIPE-DIAM_PIPE_TYPE" "APEL-PIPE-DRAW_3LINE" "APEL-PIPE-DRAW_DOWN_UP" "APEL-PIPE-FILLET" "APEL-PIPE-GET_LAYER_AXIS" "APEL-PIPE-INSULATION" "APEL-PIPE-LINE" "APEL-PIPE-OPEN" "APEL-PIPE-OPEN_CHOP" "APEL-PIPE-OPTIONS" "APEL-PIPE-PIPE_TYPE_LIST" "APEL-PIPE-READ_PARAM" "APEL-PIPE-SISTEM-GET" "APEL-PIPE-TBRANCH_1_1_135_INSERT" "APEL-PIPE-TYPE_LIST_CONTROL" "APEL-PIPE-TYPE_LIST_CONTROL_PIPE" "APEL-PLINE-CONV_3DPL_TO_LWP" "APEL-PLINE-COORDINATESPARAMATPOINT" "APEL-PLINE-RECTANGLE-P" "APEL-PLOT-LIST_CONF-FILE" "APEL-PLOT-LIST_CONF" "APEL-PLOT-REC_ORIENT_AB" "APEL-PLOT-SPIS" "APEL-POINT-IN_LINE_DIST" "APEL-POINT-LIST_TO_VARIANT" "APEL-POINT-MINDIST_POINT" "APEL-POINT-PO_LINE" "APEL-POINT-UCS_TO_WORLD" "APEL-POINT-UCS_WORLD_TO_ACTIVE" "APEL-POINT-VARIANT_TO_LIST" "APEL-POLAR" "APEL-RASTER-VISIBLE_ALL" "APEL-RENAME-TRANSLIT" "APEL-REVERSE-PLINE" "APEL-RTOS" "APEL-SCALE" "APEL-SELSET-TO-VARIANT" "APEL-SETUP" "APEL-SETVAR-ERR" "APEL-SETVAR" "APEL-SP-INT_TO_REAL" "APEL-SPECIF_PIPE_POLYLINE" "APEL-SSGET-LIST" "APEL-SSGET" "APEL-STR-NUMBERING_STRCHANGE" "APEL-STR-STR_LST" "APEL-STR-TO_LIST_STRNUMBERS" "APEL-SYNCH" "APEL-TEPLO_LEADER" "APEL-TEXT-ALIGN_OPT_TO_COMMAND" "APEL-TEXT-DELETE_ALL_EMPTY" "APEL-TEXT-FIND_MASK" "APEL-TEXT-STR-LENG" "APEL-TEXT-TEXTSTRING" "APEL-TEXT_FROM_CLIPBOARD" "APEL-TEXT_REPAIR" "APEL-TEXT_SUMM" "APEL-TEXT_SUMM_DRAW" "APEL-TEXT_TO_CLIPBOARD" "APEL-TOL" "APEL-TRANSP-DUGL_VILSON" "APEL-TRUE_FALSE-T_NIL" "APEL-UNVISIBLE" "APEL-UTILITY" "APEL-WIPEOUT-FRAMEOFF" "APEL-XPIPE" "APEL-XREF-ALL_LOAD" "APEL-XREF-BLOCKREF_OR_XREF" "APEL-XREF-SELECT_UNLOAD" "APEL-XREF-TEXTSTRING" "APEL-XREF-UNLOAD" "APEL_DRAW_BLOCK_REFERENCE_MOD_SCALE" "APEL_RAND" "APEL_SP_FORM_N" "APEL_SP_PER_N" "APEL_SP_PO_N" "APEL_SP_SUBST_N" "APEL_UCS_PLAN_2POINT" "DWGRU-STRING-ALIGN-TO-LEFT" "DWGRU-STRING-ALIGN-TO-RIGHT" "DWGRU-STRING-LEFT-PART" "DWGRU-STRING-REPLACE" "DWGRU-STRING-RIGHT-PART" "DWGRU-STRING-TO-LIST" "APEL-LTEXT" "MOD_ARC" "DIALOG_NPER_OPTIONS" "PER_ARC" "LINE-OBR" "OBJ_PPER" "C:NPER" "APEL-PLOT-WIN" "APEL-PLOT-EXTENTS"
часть запускается вот так(apel-com '(имя_функции без ковычек)) например: (apel-com '(APEL-FILE-DWG_PURGE))

Ув. Автор выложи пожалуйста описание всех своих функций и порядок их вызова.
У Вас очень удобные и нужные большому кругу людей уже написанные программы и функции

Описание некоторого функционала
(apel-com '(apel-draw-find_analog_objects))
востановить блоки
https://forum.dwg.ru/showthread.php?p=1862230#post1862230
https://forum.dwg.ru/showthread.php?t=67242

(apel-com '(APEL-LINE-2LINE_IN_LINE))
https://forum.dwg.ru/showpost.php?p=40236&postcount=8
проверка на принадлежность одной прямой для двух линий

(apel-com '(APEL-PLOT-LIST_CONF))
https://forum.dwg.ru/showpost.php?p=63274&postcount=145
Получение списка всех конфигураций листов для всех принтеров


(apel-com '(APEL-REVERSE-PLINE))
(apel-com '(APEL-REVERSE-LINE))
https://forum.dwg.ru/showpost.php?p=28525&postcount=8

(apel-com '(APEL-POINT-IN_LINE_DIST))
Есть отрезок, нужно расставить точки на разных расстояниях друг от друга (координаты их не известны, известны только расстояния от одного из концов отрезка). Есть ли такая команда в автокаде (у меня 2005)? если нет, то как это проще сделать? точек много очень
https://forum.dwg.ru/showpost.php?p=40135&postcount=11

(apel-com '(apel-draw-pipe_height_mark))
программка для расчета отметок по уклону
https://forum.dwg.ru/showpost.php?p=1707991&postcount=10

(apel-com '(apel-draw-find_analog_objects))
ищет только одинаковые примитивы.
https://forum.dwg.ru/showthread.php?p=1281248&&highlight;=apel-com#post1281248

(apel-com '(apel-draw-block_att_numbering))
https://forum.dwg.ru/showpost.php?p=1249091&postcount=2124
Нумерация блоков с атрибутами (см.подпись)

(apel-com '(apel-block-explode_cor_select nil))
https://forum.dwg.ru/showpost.php?p=748795&postcount=103
вот этим можно разбивать любые блоки, кроме обрезаных xclip:

(apel-com '(apel-block-explode_cor_select T))
https://forum.dwg.ru/showpost.php?p=748795&postcount=103
разобьет и вложенные тоже, до последней вложенности, но корректно только блоки БЕЗ атрибутов, проблему конвертации атрибутов при разбитии блока в блок мне пока не удалось решить.

(apel-com '(APEL-FILE-DWG_PURGE))
https://forum.dwg.ru/showpost.php?p=748704&postcount=22
Программно. Из чертежа удаляются пустые тексты, переименовываются слои, содержащие русские буквы, файл пуржится и аудитится.

(apel-com '(APEL-MOD-SELSET_COLOR 0))
https://forum.dwg.ru/showpost.php?p=748704&postcount=22
Программно.Чертеж обесцвечивается, т.е. всем объектам присваивается цвет byblock - это позволяет впоследствии задать подложке тот цвет, который необходимо, и это очень удобно, например, если надо сравнить две подложки одного этажа, выполненные в разное время. Производится это действо специальной программкой которая обрабатыват все объекты , в т.ч. внутри блоков, атрибуты, мультитексты, составные части размеров и т.д