Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Ссылки(Field) на листы (очень удобно)

Ссылки(Field) на листы (очень удобно)

Ответ
Поиск в этой теме
Непрочитано 24.06.2008, 18:43 #1
Ссылки(Field) на листы (очень удобно)
Павлюкас
 
Москва
Регистрация: 08.10.2007
Сообщений: 42

Функция очень удобно вставляет ссылки из листов проекта в текущий лист. (очень удобно и быстро)

Этот программный код разрабатывался здесь:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=21092Ky
и здесь
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=30203Tc
я лишь немножко доработал.

Инструкция по запуску. Файл z_layouts_field.dcl скопировать в папку по путям поиска AutoCAD.
Загрузить в _appload файл zf.lsp
Вызов функции. В командной строке ввести zf
Выберите из списка листов проекта один или несколько (удерживая ctrl) имён листов и нажмите OK.
Укажите точку вставки текста с полями.

Всем Удачи!

Вложения
Тип файла: rar zf.rar (2.0 Кб, 378 просмотров)

Просмотров: 6673
 
Непрочитано 20.10.2008, 17:22
#2
wetr

инженер
 
Регистрация: 09.08.2006
Владивосток
Сообщений: 1,535
<phrase 1= Отправить сообщение для wetr с помощью Skype™


Не нашел по ссылкам ничего про эту программу, да и что делает не понял. Разъясните
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Непрочитано 14.03.2009, 20:25
#3
sapr71rus

Инженер-конструктор, раздел ОВ
 
Регистрация: 19.11.2008
город Тула
Сообщений: 67


Можно по подробнее пожалуйста. У меня не сработало
sapr71rus вне форума  
 
Автор темы   Непрочитано 24.04.2009, 16:30
#4
Павлюкас


 
Регистрация: 08.10.2007
Москва
Сообщений: 42


Не сработало? А что выдаёт в командной строке?
Павлюкас вне форума  
 
Непрочитано 24.04.2009, 18:44
#5
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Гугл по ссылкам с #1 дал с следующие актуальные ссылки:
LISP, DCL. Нумерация листов в штампах и названиях layout(a)
http://www.caduser.ru/forum/index.ph...r=&FORUM_ID=23
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 24.04.2009, 19:45
#6
Павлюкас


 
Регистрация: 08.10.2007
Москва
Сообщений: 42


Из этих ссылок я взял программные коды, подделал их и на их основе сделал программу для вставки в активный лист поля с номером выбранного листа. Вся программа лежит во вложении zf.rar поста #1
Павлюкас вне форума  
 
Непрочитано 20.06.2009, 08:54
#7
kshatriy


 
Регистрация: 06.08.2008
Сообщений: 30


Не сработало....
в командной строке:
Команда:
ZF
Укажите точку вставки номера листа
Неправильное ключевое слово.

Неправильное ключевое слово.

Неправильное ключевое слово.

Неправильное ключевое слово.

Неправильное ключевое слово.
Задайте опцию
[впИсанный/Поширине/Центр/сЕредина/впРаво/ВЛ/ВЦ/ВП/СЛ/СЦ/СП/НЛ/НЦ/НП]: И
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.JPG
Просмотров: 459
Размер:	10.0 Кб
ID:	22559  
kshatriy вне форума  
 
Автор темы   Непрочитано 23.06.2009, 16:02
#8
Павлюкас


 
Регистрация: 08.10.2007
Москва
Сообщений: 42


Открой файл zf.lsp и замени с строке

(ru:text-draw (substr lststr 1 (- (strlen lststr) 1)) (getpoint"\n Укажите точку вставки номера листа") "2.5" "0" "tc")

"tc" на "_tc".
В русской версии не проверял, но должно сработать
Павлюкас вне форума  
 
Непрочитано 24.06.2009, 07:24
#9
kshatriy


 
Регистрация: 06.08.2008
Сообщений: 30


Спасибо!!!все работает.
А возможно сделать при вставке ссылок нескольких листов,чтобы поля перечислялись через запятую?
kshatriy вне форума  
 
Автор темы   Непрочитано 24.06.2009, 12:33
#10
Павлюкас


 
Регистрация: 08.10.2007
Москва
Сообщений: 42


Легко.
Измени в файле zf.lsp строку
(setq lststr (strcat lststr (str-field-objId "ЛИСТ" ent) " "))
на (setq lststr (strcat lststr (str-field-objId "ЛИСТ" ent) ", "))

и строку
(pah:text-draw lststr (getpoint"\n Укажите точку вставки номера листа") "2.5" "0" "_tc")
на
(pah:text-draw (substr lststr 1 (- (strlen lststr) 2)) (getpoint"\n Укажите точку вставки номера листа") "2.5" "0" "_tc")

И когда будешь выбирать листы, то выбирай несколько с нажатой клавишей Ctrl.
Павлюкас вне форума  
 
Непрочитано 24.06.2009, 13:03
#11
kshatriy


 
Регистрация: 06.08.2008
Сообщений: 30


у меня в лиспе была эта строка (ru:text-draw (substr lststr 1 (- (strlen lststr) 1)) (getpoint"\n Укажите точку вставки номера листа") "2.5" "0" "_tc")
заменил по аналогии на
(ru:text-draw (substr lststr 1 (- (strlen lststr) 2)) (getpoint"\n Укажите точку вставки номера листа") "2.5" "0" "_tc")
работает ...Спасибо!
(ru: или (pah: на что либо могут повлиять?
kshatriy вне форума  
 
Автор темы   Непрочитано 02.07.2009, 18:04
#12
Павлюкас


 
Регистрация: 08.10.2007
Москва
Сообщений: 42


Да нет. Ни на что не повлияет. Эти функции я взял с библиотеки RuLib выложенной на этом сайте.
Рад, что тебе помог
Павлюкас вне форума  
 
Непрочитано 06.12.2010, 07:09
#13
rain_day


 
Регистрация: 02.10.2008
Сообщений: 198


Не понятно. Говорит что нет штампа или он не на слое штам. Чего сделать-то надо что бы номера страниц проставить?

Последний раз редактировалось rain_day, 06.12.2010 в 07:21.
rain_day вне форума  
 
Непрочитано 27.12.2010, 20:31
#14
angel-fear

инженер-электрик
 
Регистрация: 21.10.2010
Краснодар
Сообщений: 134


Это аналогично вставке ведомости листов из подшивки или нет?
angel-fear вне форума  
 
Автор темы   Непрочитано 17.01.2011, 23:23
#15
Павлюкас


 
Регистрация: 08.10.2007
Москва
Сообщений: 42


Это немного другая программа. Когда в одном файле много layout и ссылки создаются на них.
Если интересен вариант ссылок на листы через Project, то у меня есть аналог.
Однако программа считывает только листы Sheet игнорируя SheetSet'ы
И только на текущую подшивку.
Всё собираюсь доработать её, но руки не доходят.
Могу выложить если действительно интересно.
Павлюкас вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Ссылки(Field) на листы (очень удобно)

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Очень станный глюк с зависанием буфера обмена при вставке micropyhcher AutoCAD 61 17.09.2012 10:58
Нужно пронумеровать листы Даниил AutoCAD 36 04.07.2011 16:01
Visual Lisp Developers Bible - очень хороша книга Startrek LISP 3 04.07.2008 16:36
!Очень нужна помощь при совмещении двух разномасштабных планов Александр K-н AutoCAD 14 29.01.2008 10:27
Автоматическая спецификация на Delphi goa_wert Программирование 15 27.10.2007 14:44