[granit201z]

Код:

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

(defun c:ppp ( / )


  (vl-load-com) ; загружаем Актив-Х без нее все актив-х функции работать не будут

  (setq actdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq obj (vla-get-ModelSpace actdoc))


(setq nabor_primitivov (ssget))

(setq i 0)



(while (< i (sslength nabor_primitivov))

	(setq dannie_primitiva (entget(ssname nabor_primitivov i))) ; данные о примитиве


	(setq dannie_primitiva (subst (cons 8 "0") (assoc 8 dannie_primitiva) dannie_primitiva))

	(setq dannie_primitiva (vl-remove (assoc 62 dannie_primitiva) dannie_primitiva)) ; меняем цвет на по слою

	(setq dannie_primitiva (vl-remove (assoc 6 dannie_primitiva) dannie_primitiva)) ; меняем тип линии на по слою
(print (assoc 370 dannie_primitiva))
	(setq dannie_primitiva (vl-remove (assoc 370 dannie_primitiva) dannie_primitiva)) ; меняем вес линии на по слою


	(entmod dannie_primitiva)

	(setq i (+ i 1))


)

По идее этот код. должен поменять на всех выбранных объектах: слой на "0", цвет на "По слою", тип линии на "По слою", вес линии на "По слою". Но фактически этого не происходит. А именно большинство отрезков, текстов, кругов и прочих примитивов, конечно, подчиняются коду и меняются как я того от них и требую. Но встречаются на чертеже и "бронированные" примитивы, которым плевать на код, т.е. допустим слой, цвет, и тип они приняли как надо, а вес ни в какую не принимают, пока вручную не установишь "По слою", или цвет например не хотят принимать. Причем ф-я "Принт" в коде показывает, что "Ассок" извлекает из списка то, что надо, но дальше почему то "Вл-ремове" не удаляет элемент, который был извлечен "ассоком"

[ProPeller]

Прикрепите чертеж на котором не работает. И сразу обратите внимание, что в приложенном коде отсутствует одна скобка в конце.

[VVA]

granit201z, Извини, конечно. Но твой пост выше ниочем. Похоже на

У меня машина периодически не заводится и не едет. Пару раз в неделю она ездит, но в некоторые дни становится колом и не едет. Причем аккумулятор заряжен и бензин в баке есть. Но машина не едет. Не понимаю почему?

Если хочешь помощи, то выкладывай пример dwg с примитивом, в котором что-то не меняется. А то выяснится, что примитив вовсе не автокадовский, а сторонний (например СПДС графикс) и т.п.

[kakt00z]

1 entmod лучше использовать вместе с entupd
2 некоторые точечные пары таким образом не удаляются
3 на "послою" нужно ставить что-то вроде (62 . 255*)

*256,-1 ... (точно не помню)

[granit201z]

Прикрепите чертеж на котором не работает

Прикрепил до и после прогона через программу соответственно.

[VVA]

Ответ частично дан в #4. Нужно разбираться с dxf кодами.
В частности вес линий "послою" - не отсутствие dxf группы 370, а замена ее значения на -1

Код:

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

(setq e (car(entsel)))
(setq ed (entget e))
(setq ed (subst (cons 370 -1) (assoc 370 ed) ed))
(entmod ed)

По поводу цвета - "послою" - это значение 256

Код:

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

(setq e (car(entsel)))
(setq ed (entget e))
(setq ed (subst (cons 62 256) (assoc 62 ed) ed))
(entmod ed)

[granit201z]

Ответ частично дан в #4. Нужно разбираться с dxf кодами.

спасибо. разобрался. для типа линии по слою будет (cons 6 "BYLAYER")