Не могу перерисовать объект

[zavor]

Всем привет. У меня такая проблема. Мне нужно в autocad перерисовать полилинию. Делаю я это с помощью функции entmod. Сначала я удаляю старые вершины, потом добавляю новые. Но полилиния не перерисовывается, хотя вершины добавляются.  Но если нажать на полиниию и задать действие обратить, тогда линия нормально перерисовывается. Привожу код ниже с результатами его выполнения.
(entmod (append (vl-remove nil (mapcar '(lambda (x) (if (or (/= 10 (car x) (/= 90 (car x)))) x)) (entget(handent (cdr(nth 12 QPrim))))))
                  (list
                        ;(cons 62 7)
                   (cons 90 10)
                   (cons 10 ACoord)
                  
                   (cons 10 (list (car ACoord) (- (cadr ACoord) (* 0.72 K))))
                  
                   (cons 10 (list (+ (* 0.62 K) (car ACoord)) (- (cadr ACoord) (* 0.72 K))))
                  
                   (cons 10 (list (+ (* 0.62 K) (car ACoord)) (cadr ACoord)))

                   (cons 10 (list (+ (* 1.24 K) (car ACoord)) (cadr ACoord)))

                   (cons 10 (list (+ (* 1.24 K) (car ACoord)) (- (cadr ACoord) (* 0.36 K))))

                   (cons 10 (list (car ACoord) (- (cadr ACoord) (* 0.36 K))))

                   (cons 10 (list (car ACoord) (- (cadr ACoord) (* 0.72 K))))

                   (cons 10 (list (+ (* 1.24 K) (car ACoord)) (- (cadr ACoord) (* 0.72 K))))

                   (cons 10 (list (+ (* 1.24 K) (car ACoord)) (cadr ACoord)))

                   (cons 10 ACoord)
            
                  )
            )
         )

На рисунке рамки нет


Задаем параметр обратить


и рамка прорисовывается через все вершины

[Александр Ривилис]

zavor
1) Прочитай у меня в подписи как следует форматировать код для форума и исправь в своём сообщении.
2) Показан не код, а обрывок кода, который нельзя запустить для проверки. Не ленись делать нормальный тестовый код.
3) Если после обращения полилиния становится видимой, то сделай два обращения. Затем сделай (entget) для результирующей полилинии и сравни результаты выполнения этой функции с результатом твоего (entmod). Возможно не хватает некоторых групп:

Command: (entget(car(entsel)))
Select object: ((-1 . <Entity name: 7ffffb07040>) (0 . "LWPOLYLINE") (330 . <Entity name: 7ffffb039f0>) (5 . "28C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 7) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 1962.61 922.315) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 1962.61 1469.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 2094.19 1469.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 2094.19 1274.96) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 2282.58 1274.96) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 2282.58 1056.8) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 2133.06 1056.8) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0))

[Дима_]

Автолисп конечно многое прощает в плане небрежности кода - на других API автокада - подобный код неминуемо привел-бы к фаталу - а у Вас он просто не работает:
Вы если "чистите" dxf список полилинии от вершин - то делайте это для всех кодов вершин, а не только для 10-го, наверное это правильней сделать для всех кодов от первой dxf 10 до dxf 210 - иначе жди чего угодно - в любой момент времени работы с данной полилинией.
з.ы. связку (vl-remove nil (mapcar ....)) лучше заменить на (vl-removie-if[-not]... )
ООООООООООООПС - слона то я и не заметил -

Код: [Выделить]

(or (/= 10 (car x) (/= 90 (car x)))) - это что должно делать??