Lisp. Почему может не работать entmod. Не работает в 1-м отдельно взятом файле. - Форум DWG.RU

Kirill_Ja · 18.07.2013, 15:49

А почему может не работать (entmod)?

Код:

 (entmod (subst (cons dxf_kode new_val) old_pair entry))
Результат nil

old_pair
(1 . "")
_1_$ dxf_kode
1
_1_$ new_val
"17"
_1_$ entry
((-1 . <Имя объекта: 78c8a070>) (0 . "ATTRIB") (330 . <Имя объекта: 78c8a068>) (5 . "2C39D6") (100 . "AcDbEntity") 
(67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10 -137353.0 -16418.4 6529.61) (40 . 60.0) (1 . "") (50 . 0.0) (41 . 1.0) 
(51 . 0.0) (7 . "ARIAL") (71 . 0) (72 . 0) (11 0.0 0.0 6529.61) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") 
(2 . "NUM") (70 . 0) (73 . 0) (74 . 0))
_1_$ 
1_$ (subst (cons dxf_kode new_val) old_pair entry)
((-1 . <Имя объекта: 78c8a070>) (0 . "ATTRIB") (330 . <Имя объекта: 78c8a068>) (5 . "2C39D6") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "0") (100 . "AcDbText") (10 -137353.0 -16418.4 6529.61) (40 . 60.0) (1 . "17") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "ARIAL") 
(71 . 0) (72 . 0) (11 0.0 0.0 6529.61) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "NUM") (70 . 0) (73 . 0) (74 . 0))
_1_$

При этом не работает в одном отдельно взятом файле. В остальных работает.