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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Изменение атрибутов блока на lisp'e

Изменение атрибутов блока на lisp'e

Ответ
Поиск в этой теме
Непрочитано 08.02.2010, 13:30 #1
Изменение атрибутов блока на lisp'e
lex0101
 
инженер-программист
 
Иваново
Регистрация: 12.02.2009
Сообщений: 41

Есть проблемка. Куча чертежей, в каждом куча блоков с атрибутами. Нужно в каждом блоке всем атрибутам коэффициент ширины текста уменьшить на 20%. Поиском пользовался, но че то толком ненашел (хотя искал недолго, времени свободного мало). Кто подскажет как это реализовать на lisp'e тому большой РЕСПЕКТ
Просмотров: 2526
 
Непрочитано 08.02.2010, 13:44
#2
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,989


http://dwg.ru/dnl/97
Nike вне форума  
 
Автор темы   Непрочитано 08.02.2010, 13:58
#3
lex0101

инженер-программист
 
Регистрация: 12.02.2009
Иваново
Сообщений: 41


че-то не работает...
может в 2007-м она вообще не работает....
lex0101 вне форума  
 
Непрочитано 08.02.2010, 14:02
#4
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,989


Цитата:
может в 2007-м она вообще не работает
скорее всего

в Toolpac есть команда DSTP_BLKATTGPSW
Nike вне форума  
 
Непрочитано 08.02.2010, 14:36
#5
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Цитата:
Сообщение от lex0101 Посмотреть сообщение
Есть проблемка. Куча чертежей, в каждом куча блоков с атрибутами. Нужно в каждом блоке всем атрибутам коэффициент ширины текста уменьшить на 20%. Поиском пользовался, но че то толком ненашел (хотя искал недолго, времени свободного мало). Кто подскажет как это реализовать на lisp'e тому большой РЕСПЕКТ
Если нужно изменить только вставленные блоки то
можно так:
Код:
[Выделить все]
(defun C:CAW  (/ blk elist ent ss)
  (setq ss (ssget "X" (list (cons 0 "INSERT") (cons 66 1))))
  (while (setq blk (ssname ss 0))
    (setq ent (entnext blk))
    (setq elist (entget ent))
    (while
      (and ent (= (cdr (assoc 0 elist)) "ATTRIB"))
       (entmod (subst (cons 41 (* (cdr (assoc 41 elist)) 0.8));<--коэффициент сжатия
		      (assoc 41 elist)
		      elist))
       (entupd ent)
       (setq ent (entnext ent))
       (setq elist (entget ent))
       )
    (entupd blk)
    (ssdel blk ss)
    )
  (princ)
  )
~'J'~
Олег (jr.) вне форума  
 
Автор темы   Непрочитано 08.02.2010, 14:56
#6
lex0101

инженер-программист
 
Регистрация: 12.02.2009
Иваново
Сообщений: 41


Олег (jr.) - - - ТЕБЕ РЕСПЕКТ!!!!!!!!!!!!!!!!!!!
Это именно то что нужно!!!
СПАСИБО БОЛЬШОЕ!!!
lex0101 вне форума  
 
Непрочитано 09.02.2010, 00:51
#7
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Цитата:
Сообщение от lex0101 Посмотреть сообщение
Олег (jr.) - - - ТЕБЕ РЕСПЕКТ!!!!!!!!!!!!!!!!!!!
Это именно то что нужно!!!
СПАСИБО БОЛЬШОЕ!!!
Рад помочь

Удачи

~'J'~
Олег (jr.) вне форума  
 
Непрочитано 09.02.2010, 01:11
#8
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,989


Олег (jr.)
и от меня спасибо, код пригодится!
Nike вне форума  
 
Непрочитано 09.02.2010, 12:53
#9
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Стандартный _.attsync не подходит?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Изменение атрибутов блока на lisp'e

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменение атрибутов динамического блока сразу на нескольких листах в файле чертежа Builder_Drew Динамические блоки 34 13.12.2022 17:15
Назначение свойств атрибутов блока без attsync Кулик Алексей aka kpblc Программирование 9 15.08.2017 06:32
Извлечение атрибутов блока и вставка атрибутов в формулу andery AutoCAD 38 15.06.2009 02:39
Изменение характеристик атрибутов в вхождении блока zenon AutoCAD 9 27.11.2008 14:43
изменение свойств атрибутов блока elena_din AutoCAD 8 12.12.2005 14:16