[PL]

мне кажется что _fence хорошее решение, но если вам не нравится, то(vl-load-com)(defun c:test (/ SSE) (command "_.EXTEND" "\\" "") (if (= (logand (getvar 'CMDACTIVE)) 1) (progn (if (setq SSE (ssget (list (cons 0 "LINE,LWPOLYLINE")))) (progn (foreach EntName (vl-remove-if 'listp (mapcar 'cadr (ssnamex SSE))) (command (list EntName (vlax-curve-getStartPoint EntName))) (command (list EntName (vlax-curve-getEndPoint EntName))) ) ) ) (command "") ) ) (princ))

[Re:] PL (2008-03-29 02:32:51) [наверх]
>Vovka (2008-03-29 00:16:08)
Вот тут фаил. Надо растянуть все балки до колон или до ближаиших балок. Код работает на небольшом количестве пересечении (кстати когда вибираешь обьекты рамка на первом выборе не дается, только кликом можно выбрать одиночный обьект), если выбрать все колонны и балки в чертеже, код работает очень долго , фактически нет конца, результат не очень.(часть обьектов не растянута)

[Кулик Алексей aka kpblc]

1. О формате можно и предупредить
2. Запрашиваемых фонтов лично у меня не нашлось
3. Внешние ссылки в ауте
4. Мусор в файле чего делает?

Последовательность "на выбор":

1. 1. Команда _.extend
   2. Выбрать параллельные ближайшие балки
   3. _fence
   4. отключить osmode ([F3])
   5. выбрать поперечные балки
2. 1. Удалить все поперечные балки, кроме 1 пролета
   2. Команда _.extend
   3. Выбрать балки по краям здания
   4. Отключить osmode
   5. _fence

[PL]

Критика с мусором шрифтами и форматом 2004 полностью принимается.
Что касается стандартнои команды extend. Ну это не совсем то... я не хотел вдаваться в подробности.
И пример дал неудачный. Попробую обьяснить.
Есть план балок и колонн. Его кто то сделал. Все разрывы на глазок. Мне нужно сделать их одинаковыми. Например Разрыв между колоннои и балкой или (балкои и балкои) 6 единиц (масштаб вп 1:100)
На каких то колоннах есть разрыв балок , на каких то нет. В общем случае очень мало одинаковых пролетов. Работая стандартными командами думаю потратишь приличное время делая все разрывы одинаковыми. Vovka любезно дал код как уменьшить все отрезки на нужную величину (этот код мне и для других дел нужен). Теперь я думал про код который сможет в чертеже растянуть все балки до ближайших балок или колонн (что бы потом сделать одинаковые разрывы кодом Vovka)
Так как ты предложил будешь работать очень долго (надо смотреть где балка разорвана на колонне, где нет и т.д.)
Вот я здесь другои условныи чертежик приложил. Скажем это маленькая часть от общего плана, помоему fence не лучшая возможность.
Кстати измененный код Vovka работает нормально с балками, только колонны игнорируются - балки растягиваютсся через них.