|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
![]() |
Поиск в этой теме |
![]() |
#1 | |
как с помощью vba начертить линию
Регистрация: 09.09.2008
Сообщений: 47
|
||
Просмотров: 31094
|
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,847
|
Ну, например, так:
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
![]() |
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,847
|
Как идея: создавать анонимный блок, в него засобачивать все примитивы, следом выполнять _.-insert и ждать завершения команды с проверкой введенной точки. Головняк...
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
![]() |
|
||||
Регистрация: 05.04.2007
Самара
Сообщений: 1,199
|
|
|||
![]() |
|
||||
Инженер Регистрация: 15.08.2007
Питер
Сообщений: 36
![]() |
А почему блоком не вставить, как Алексей предлагает?
pntDropBlk = ThisDrawing.Utility.GetPoint(, vbCrLf & "Куда блок кинуть?") Set objBlkRef = ThisDrawing.ModelSpace.InsertBlock(pntDropBlk, blkName, 1#, 1#, 1#, 0) Первая строчка - получение точки вставки курсором, вторая- вставка блока, blkName - переменная имени блока
__________________
Ошибку нашел и исправил, но в чем она заключалась, так и не понял... Последний раз редактировалось Клякса, 11.09.2008 в 22:24. |
|||
![]() |
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,847
|
Вообще-то для спецификаций не проще ли использовать объект таблицы и работать с ним?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
![]() |
|
||||
Регистрация: 09.09.2008
Сообщений: 47
|
а как заполнить таблицу програмно?
так, чтобы она была таких размеров , какие мне надо! Текст она должна принимать из textbox'ов, которые я заполняю в интерфейсе моей программы, той, что выше я выложил! Стандартная таблица автокада - это хорошо, как ее программно сделать спецификацией на арматуру. (размеры ячеек)? Для "КЛЯКСА" как из вашего кода сделать блок не очень понял! Как сделать блок програмно из нескольких линий? Если мне надо начертить линию разрыва, ладно, пусть будет она блоком, но всеже как эту группу линий превратить в блок? Как вставить? как повернуть на нужный угол? Как вставить элемент не в пространство модели, а в пространство листа?! |
|||
![]() |
|
||||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,847
|
Как обычно. Примеры см.в справке
Цитата:
Цитата:
Цитата:
Дальше, хотя и не ко мне обращение, отвечу: Цитата:
Цитата:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||||
![]() |
|
||||
Регистрация: 05.04.2007
Самара
Сообщений: 1,199
|
Таблицу акада имеющимися инструментами нормально настроить не всегда получиться, не говоря уже программно. Поэтому поинтами лучше. Да, определяй каждую точку начала и конца, ничего страшного, глаза боятся-руки делают, copy-paste разруливает на 80%.
|
|||
![]() |
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,847
|
stas_org, ну не выдумывай, а! Таблица заполняется вполне корректно!
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
![]() |
|
||||
Регистрация: 05.04.2007
Самара
Сообщений: 1,199
|
как-то пытался простою форму спецификации настроить, по ГОСТу не вышло, плюнул на это дело, и из тулбаров убрал все, что связанно с таблицами. Но спорить не хочется, извиняюсь за разногласия, но никому никогда советовать работать с таблицами не буду, вот.
|
|||
![]() |
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,847
|
Не-а, один раз программно и таблицу.
Код:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
![]() |
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,847
|
Можно. Смотри внимательно код.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
![]() |
![]() |
|
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как из автокада с помощью макроса-кнопки запустить файл exe | dextron3 | Программирование | 37 | 15.12.2008 19:15 |
Как начертить? | Circul | AutoCAD | 10 | 31.10.2007 15:00 |
Как в Акаде начертить коническую или цилиндрическу развёртку | Grinzaid | AutoCAD | 1 | 29.01.2004 13:23 |
Подскажите как построить кривую с помощью команды SPLiNE, к | boban | Программирование | 1 | 02.11.2003 19:58 |
Как на LISPе автоматически выбрать линию и точку? | Mikhail | LISP | 4 | 28.10.2003 10:33 |