[DEM]

Столкнулся с проблемой не могу найти функцию замены точечной пары на другую точечную пару.
То есть Я считал список свойств элемента с помощью entget, надо
поменять свойства объекта (301 . Первая строка) (300 . Примитив)
надо заменить на (301 . Первая строка) (300 . Получилось)

[_Andre_]

Я думаю пригодиться функция ru-ent-mod из состава ruCAD
http://www.kurganobl.ru/cad/book.jsp...id=734&tn=main

[Елпанов Евгений]

Сообщение от DEM Столкнулся с проблемой не могу найти функцию замены точечной пары на другую точечную пару. То есть Я считал список свойств элемента с помощью entget, надо поменять свойства объекта (301 . Первая строка) (300 . Примитив) надо заменить на (301 . Первая строка) (300 . Получилось)

Код:

[Выделить все]

(subst newitem olditem lst)
(subst '(301 . "newitem") '(301 . "olditem") '((300 . "olditem")(301 . "olditem")(302 . "olditem")))

[DEM]

Спасибо сейчас сижу разбираюсь.
И Ищу на Автокад.ру

[DEM]

Вобщем опять попал в тупик, тнцы с бумном уже не помогают.
Имеется следующий код:
(defun C:примитив (/ SL1 SL2 y)

(setq SL1 (entsel "Выберете объект: ")) (setq SL2 (entget (car SL1))) (princ SL2) (setq y (+ 1 (vl-position '(301 . "Первая строка") SL2))) (setq y (last (nth y SL2))) )

Он выдает список свойств элемента (выноски СПДС-график)

Код:

[Выделить все]

((-1 . <Имя объекта: 7ef6c688>) (0 . spdsNotePosition) (330 . 
<Имя объекта: 7ef69cc0>) (5 . 2729) (100 . AcDbEntity) (67 . 0) (410 . Model) 
(8 . 0) (48 . 100.0) (370 . 25) (100 . mcsDbObject) (100 . 
mcsDbObjectNotePosition) (90 . 1) (301 . Name) (300 . 651651) (301 . Info) (300 
. Позиционная выноска
651651) (301 . Scale) (40 . 100.0) (301 . CutAcElements) (290 . 1) (301 . Text 
style) (300 . GOST 2.304) (301 . Первая строка) (300 . 651651) (301 . Вторая 
строка) (300 . ) (301 . Выравнивание текста) (90 . 1) (301 . Направление полки) 
(40 . 0.0) (301 . Высота текста) (40 . 2.5) (301 . Высота малого текста) (40 . 
2.5) (301 . Шаг угла) (40 . 0.0))

Мне надо извлечь начальное содержание Первой строки (выделено)
что бы потом произвести замену с помощью функции subst и entmod

[DEM]

И еще как можно добраться до точек вставки данного эл-та т.д.
Определить координаты линий объекта.