|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
30.01.2013, 03:49 | #1 | |
Изменение ширины столбцов в таблице по данным из нее
Проектирование систем ТГВ
Хабаровск
Регистрация: 30.01.2013
Сообщений: 17
|
||
Просмотров: 4729
|
|
||||
Все-таки удалось найти начало куска необходимого мне кода:
(defun c:ResizeTable() (vl-load-com) (setq tbl (vlax-ename->vla-object(car(entsel)))) (vla-setcolumnwidth tbl 0 10.0) (vla-setcolumnwidth tbl 1 20.0) ...НО! Хотелось бы, что бы назначение ширины столбца происходило в цикле и ширина бралась из строки этой таблицы (она уже связана с Excel и в ней есть все, что надо). Также в случае, если эта ширина меньше определенного значения (например 7 мм), необходимо перед изменением ширины столбца уменьшить в определенных его ячейках размер шрифта например до 1мм. Помогите пожалуйста! Не могу с лету разобраться в этом языке (владею только VBA для Excel и то лишь в своих прикладных целях) |
||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Без особых проверок:
Код:
Перепутал пару параметров. Исправил.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. Последний раз редактировалось Кулик Алексей aka kpblc, 31.01.2013 в 09:43. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Лисп загружать умеешь? Если да, то вызов (test НомерСтрокиГдеУказаныШирины)
Например: (test 3) ; ширины столбцов указаны в 3-й строке (test nil) ; ширины столбцов указаны в последней строке
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Большое спасибо за программку! Но у меня этот лисп даже загружаться не хочет... После выхода из окна загрузки приложений в командной строке пишет следующее:
; ошибка: неверный синтаксис COND: (14 ((= (TYPE VALUE) (QUOTE REAL)) Попробовал закомментировать данный кусок лиспа, тогда уже другая ошибка: ; ошибка: неверный элемент в списке аргументов: 25 Естественно, в результате, лисп и не работает то же самое происходило и с лиспом по ссылке в первом посте: ; ошибка: слишком много аргументов: (IF (AND NBR 8 (NOTА также, к сожалению, я не разобрался в приведенном коде (язык намного сложнее VBA на мой взгляд) |
||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Пример в студию. И образец вызова.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Алексей, пример в сообщении №3, до вызова и дела не доходит, т.к. она просто не загружается, а пишет в командной строке сообщения об ошибке (например еще до редактирования первых строк лиспа, остальные примеры - после аккуратных манипуляций):
Команда: _appload test.lsp успешно загружено. Команда: ; ошибка: синтаксическая ошибка Т.е. вначале лисп загружается, но потом находит ошибку в коде и выгружается (при повторном заходе в окно загрузки приложений этого лиспа в списке загруженных нет), а код последнего примера здесь: http://forum.dwg.ru/showpost.php?p=812361&postcount=4 |
||||
|
||||
Alexeipost, спасибо!!! Я - балбес ((( Действительно вся проблема в этих цифрах )))
Кулик Алексей aka kpblc, благодарю за помощь! Если бы еще смог в коде разобраться и сделать изменение размера шрифта в зависимости от ширины столбца - было бы просто шикарно! Но мне итак очень помогли! |
||||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
Цитата:
P.S. Как загружать код с dwg.ru: https://www.youtube.com/watch?v=wFKc6EfRofo
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автоматическое задание ширины столбцов таблицы, | shartal | Программирование | 7 | 23.05.2014 13:40 |
Изменение ширины текста многострочного атрибута | Алексий31 | AutoCAD | 4 | 21.07.2011 14:00 |
Как удалять в таблице линии внутри столбцов или внутри строк? | Elbrus | AutoCAD | 8 | 03.11.2009 10:59 |
Изменение размера в эскизе и таблице. | Arkanoid | AutoCAD | 9 | 14.05.2009 08:46 |