[Zaghim]

Друзья, подскажите каким образом вытащенное значение из объекта и поменяное воткнуть назад. Т.е. нужно модифицировать объект. У меня лвполилиния, получаю я ее значение высоты, вот так:

Код:

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

(setq ov (entsel "Тыкай на линию или <Enter>: "))
  (setq ov1 (ssget "l"))
  (setq ob (entget (ssname ov1 0)))
  (setq lob (cdr (assoc 0 ob)))
  (if (equal lob "LWPOLYLINE")
    (setq prob1 (cdr (assoc 38 ob)))
    (progn
       (setq ob (entget (entnext (cdr (car ob)))))
       (setq prob1 (cdr (assoc 10 ob)))
       (setq prob1 (nth 2 prob1))
    )
  )

Т.е. в OB имею развернутый список, все свойства линии, в prob1 я вытащил значение высоты. Дальше я меняю значение высоты и как мне теперь воткнуть это новое значение назад в этот список и поменять свойства линии. Уже пробовал такое с атрибутами блоков, так работает, ребята помогли, а с простым не могу допереть. Помоги уже разобраться окончательно. ВСЕМ СПАСИБО ЗАРАНЕЕ!

[Дима_]

Чтобы поменять значение DXF пары - старое тебе в общем-то и не нужно:

Код:

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

((lambda (ent-list)
          (entmod (subst (cons xxx new-value) (assoc xxx ent-list) ent-list)))
 (entget ent))

где xxx DXF код пары, new-value - желаемое новое значение.

[Zaghim]

Т.е. в первом случае это 38, во втором 10, я правильно понял?
И что есть ent-list и ent

[Дима_]

ent - ename примитива (у тебя оно получается через (ssname ov1 0), но обычно, для одиночного выбора используют (car (entsel)), (entlast), (entnext)), все остальное - вымышленные имена. Где (и кто) у меня "первый" и "второй" случай - не понял уже я, так-же, как и то, что ты хочешь сделать с 10 и 38 кодами.

[Zaghim]

Не так написал. Т.е. получится

((lambda (ob)
(entmod (subst (cons 38 prob2) (assoc prob2 ob) ob)))
(entget ob))

38 - это код высоты, который я получаю и который мне нужно изменить и воткнуть назад.

[Лиспер]

http://forum.dwg.ru/showthread.php?t=15670

[Zaghim]

Не понял я как эта функция работает....
вызываю так:
(_dwgru-ent-modify (entsel) 38 251 T)

и пишет, что не определена функция

; error: no function definition: _DWGRU-CONV-ENT-TO-ENAME

[Лиспер]

_dwgru-conv-ent-to-ename

[Zaghim]

Всему надо тыкать пальцем
Сейчас отработала, но значение линии не присвоила

[Лиспер]

Стоп - линии (LINE) или полилинии (LWPOLYLINE)?

[Zaghim]

У меня может быть несколько вариантов...
Может быть POLYLINE, LWPOLYLINE и 3DPOLYLINE

[Лиспер]

38 код есть только у LWPOLYLINE, насколько я помню. Какой должен быть эффект по замене необрабатываемого кода?

[Zaghim]

Хм, а как тогда быть с другими? Я пробовал брать просто линию, и мнять в ней цвет, как в примере. Никакого эффекта(((

[Кулик Алексей aka kpblc]

Цвет регулируется 62 кодом, а не 38. Посмотри в DXF Reference.

[ShaggyDoc]

Никакого эффекта

Не забывай после любых модификаций делать entupd

[Zaghim]

Друзья, всех с Новым Годом. Тема осталась актуальна. Сейчас код в таком виде:

Код:

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

(_dwgru-ent-modify-autoregen (entsel) 62 10 nil)

  
 ; (setq ov (entsel "Тыкай на линию или <Enter>: "))
 ; (setq ov1 (ssget "l"))
 ; (setq ob (entget (ssname ov1 0)))
 ; (setq lob (cdr (assoc 0 ob)))
 ; (if (equal lob "LWPOLYLINE")
 ;   (setq prob1 (cdr (assoc 38 ob)))
 ;   (progn
 ;      (setq ob (entget (entnext (cdr (car ob)))))
 ;      (setq prob1 (cdr (assoc 10 ob)))
 ;      (setq prob1 (nth 2 prob1))
 ;   )
 ; )

)

 (defun _dwgru-ent-modify-autoregen (ent       bit       value     ent_regen
                                    /         ent_list  new_dxf   old_dxf
                                    )
  (if
    (and
      (setq ent (_dwgru-conv-ent-to-ename ent))
      (not (or (member bit '(-1 0 5 100)) ;_ есть и другие DXF-коды, ковыряться в которых не надо
               (member (strcase (cdr (assoc 0 (setq ent_list (entget ent)))))
                       '("STYLE" "DIMSTYLE" "LAYER")
                       ) ;_ end of member
               (equal (setq new_dxf (cons bit
                                          (if (and (= bit 62) (= (type value) 'str))
                                            (if (= (strcase value) "BYLAYER")
                                              256
                                              0
                                              ) ;_ end of if
                                            value
                                            ) ;_ end of if
                                          ) ;_ end of cons
                            ) ;_ end of setq
                      (setq old_dxf (assoc bit ent_list))
                      ) ;_ end of equal
               ) ;_ end of or
           ) ;_ end of not
      ) ;_ end of and
     (if (entmod (if old_dxf
                   (subst new_dxf old_dxf ent_list)
                   (append ent_list (list new_dxf))
                   ) ;_ end of if
                 ) ;_ end of entmod
       (if ent_regen
         (entupd ent)
         (redraw ent)
         ) ;_ end of if
       ) ;_ end of if
     ) ;_ end of if
  ent
  ) ;_ end of defun

(defun _dwgru-conv-ent-to-ename (ent)
  (cond
    ((= (type ent) 'ename) ent)
    ((= (type ent) 'vla-object) (vlax-vla-object->ename ent))
    ((= (type ent) 'str) (handent ent))
    (t nil)
    ) ;_ end of cond
  ) ;_ end of defun

и есть лвполилиния. Тыкаю на нее и должен по идеи измениться цвет, но никакого эффекта. А вообще мне нужно изменять по такому принципу:

1) Если LWPOLYLINE - изменить значение Elevation
2) Если 3DPOLYLINE - изменить значение Z

[Do$]

Что-то не вижу связи между цветом и Elevation+Z...
А цвет не меняется потому, что, для начала, надо брать функцию _dwgru-conv-ent-to-ename не из первого а из второго сообщения этой темы.

[Zaghim]

С цветом - это для того, что бы понять работает эта штука или нет. А вот с высотами буду думать дальше... как узнать какая линия это понятно, нужно просто менять разные dxf-коды, верно?

[TararykovDG]

Сообщение от Zaghim С цветом - это для того, что бы понять работает эта штука или нет. А вот с высотами буду думать дальше... как узнать какая линия это понятно, нужно просто менять разные dxf-коды, верно?

Несовсем верно.
Чтобы поменять цвет, нужно поменять 62 dxf-код.
Чтобы поменять Elevation (для lwpolyline) нужно помнять 38 dxf-код.
А вот для 3dpolyline нужно менять 10 dxf-коды, но не для самого 3dpolyline? а для примитивов vertex, которые получают entnext'ом от 3dpolyline

[Zaghim]

А можно попросить пример для 3dpolyline, с остальным, думаю, разбирусь, пожааааалста)))