[ilka_t]

что бы зливался угол отверстия, и желательно чтобы при выделении многих обектов (примоугольников) заливка была отдельная для каждого объекта
Надеюсь я смог объяснить чего мне хоется...
Может мне ктонибудь сможет помочь...

[{Smirnoff}]

Вместо 5-ки, число на которое ты хочешь делить диагональ:

Код:

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

(setq newPoint 
         (vlax-curve-getPointAtDist 
           (vlax-ename->vla-object tempLine) 
           (/   (distance (car pointList) (nth 3 pointList)) 
         5 
           ) 
         ) 
       )

В принципе можно воткнуть зависимость отношения габаритов к числу на которое делиться диагональ.

Если хочешь убрать заливку, (товариши советуют) сотри:

Код:

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

       
       (command "_.hatch" "_solid" tempPLine "") 
       (entdel tempPLine)