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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Как изменить характеристики объекта из таблицы?

LISP. Как изменить характеристики объекта из таблицы?

Ответ
Поиск в этой теме
Непрочитано 14.05.2022, 18:35 #1
LISP. Как изменить характеристики объекта из таблицы?
solo123
 
Регистрация: 19.08.2009
Сообщений: 91

Возможно, изменить характеристики объекта из таблицы DIMSTYLE возвращаемой функцией tblnext с помощью lisp функций?
Пробовал создать изменения с помощью entmake , не выходит...

Последний раз редактировалось solo123, 15.05.2022 в 13:20.
Просмотров: 3687
 
Непрочитано 15.05.2022, 14:10
#2
StupidDuck


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


нужно создать размер, наделить его нужными характеристиками, потом через vla-CopyFrom перенести характеристики в нужный DIMSTYLE. размер удалить.
StupidDuck вне форума  
 
Автор темы   Непрочитано 15.05.2022, 18:26
#3
solo123


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


создаю размер:
Код:
[Выделить все]
  (setq rz_g1 (entmake (list 
                       (cons 0 "DIMENSION")
                       (cons 100  "AcDbEntity") 
                       (cons  100   "AcDbDimension") 
                       (cons 10  (list 1000.0 2100.0 0.0))  
                       (cons  11 (list    500.0  2100.0 0.0))
                       (cons  70   32)
                       (cons 100  "AcDbAlignedDimension")
                       (cons  13   (list 0.0 2000.0 0.0))
                       (cons 14  (list  1000.0  2000.0 0.0) )
                       (cons 100   "AcDbRotatedDimension"))))
----- добавлено через ~6 мин. -----
как поменять стиль, а именно ( assoc 5 ( tblnext "DIMSTYLE")) на "Obligue"

Последний раз редактировалось solo123, 15.05.2022 в 18:53.
solo123 вне форума  
 
Непрочитано 15.05.2022, 19:32
#4
StupidDuck


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


Код:
[Выделить все]
 (setq dim_temp (vla-adddimaligned (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
			(vlax-3d-point '(0.0 0.0 0.0))
			(vlax-3d-point '(10.0 0.0 0.0))
			(vlax-3d-point '(5.0 0.0 0.0))))	
        (vla-put-StyleName dim_temp "Имя размерного стиля")
   	(vla-put-Arrowhead1Type dim_temp 5)
   	(vla-put-Arrowhead2Type dim_temp 5)
	(vla-put-ArrowheadSize dim_temp размер засечки)
(vla-CopyFrom (vla-item (vla-get-DimStyles (vla-get-activedocument (vlax-get-acad-object)))
							   "Имя размерного стиля") dim_temp)
(vla-delete dim_temp)
StupidDuck вне форума  
 
Автор темы   Непрочитано 16.05.2022, 09:33
#5
solo123


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


Спасибо за подробный ответ, выходит без ActiveX здесь не обойтись?
solo123 вне форума  
 
Непрочитано 16.05.2022, 14:44
#6
StupidDuck


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


вроде бы можно и так:
Код:
[Выделить все]
 (setvar 'DIMBLK "_Oblique")
(command "_.dimstyle" "_save" "Название размерного стиля" "_yes" "")
посмотреть какие нужные переменные, установить их через setvar. сохранить размерный стиль.

может быть, имеет смысл сохранить переменные перед изменением и потом их восстановить
StupidDuck вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Как изменить характеристики объекта из таблицы?

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как выглядит команда LISP для определения типа выделенного объекта на чертеже? МишаИнженер LISP 9 22.04.2022 10:44
Как на LISP подобрать коэффициент сжатия Mтекста в ячейке таблицы, чтобы текст был в одну строчку, без переноса Danil55 LISP 3 16.07.2020 10:57
Как в AutoCad 2009 изменить привязку координат 3D объекта из центра основания к точке, от которой этот объект построен Oleg_74 AutoCAD 12 23.05.2015 00:38
Подскажите, что изменить в Lisp коде. sathalex LISP 2 19.03.2015 06:00
Lisp. Изменение свойств у ячеек таблицы. Не могу докопаться до vla объекта. Kirzaa LISP 2 21.09.2009 10:32