[antonio_k]

Привет всем!!!
Такой вопрос: возможно ли сделать слияние заливок?
у меня куча заливок одного цвета все в одном слое,все они рядышком прилягают,можно их объединить в одну заливку???

[engngr]

А зачем?

[antonio_k]

это уже другой вопрос))))

[Хмурый]

в одну объединить без программирования нельзя.
можно сгруппировать _group

[antonio_k]

благодарю!!!

[Дмитрий Факс]

Программа Dena. Надеюсь он не обидится.

Код:

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

(defun C:HatchUnion_Den (/ b c d)

(princ "\nВыбор штриховок для объединения:")
(if (setq b (ssget '((0 . "hatch"))))(progn
(setvar "CMDECHO" 0)
(command "_.undo" "_g")
(setq c (sslength b)
d (ssadd))
(repeat c
(setq c (1- c))
(command "_-hatchedit" (ssname b c) "_b" "_r" "_n")
(setq d (ssadd (entlast) d))
)
(command "_.union" d "")
(setq d (entlast))
(command "_.bhatch" "_s" d "" ""
"_.matchprop" (ssname b 0)(entlast) ""
"_.erase" d b "")
(command "_.undo" "_e")
(setvar "CMDECHO" 1)
))
(princ)
)
(princ)