[Volodich]

Здравствуйте!
В свое время на форуме caduser была выложена программа по расчету дистанций (FDIST).
Вот две ссылки на тот форум.
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=26788aY
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=43132gD

Я просил чуть чуть переделать программу. Цитирую:
"хотелось бы каким-то образом или быстро записывать результаты или как-то сделать чтобы можно было замерять несколько трасс. Т.е. Сейчас программа показывает длину непрерывной трассы, а хотелось бы возможность сделать разрыв. (то есть просто не учесть в программе расстояние между двумя точками разрыва).
То есть нужно в окошко программы добавить еще одну кнопочку — "Продолжить". Сейчас программа останавливает расчет длины по нажатию клавиши Enter или Esc. А при повторном нажатии кнопок "по точкам" или "по элементам" — обнуляет результат. А нужна кнопка "продолжить", чтобы результат не обнулялся а суммировался с предыдущим значением! Это ведь точно не сложно! (но я в автолиспе ничего не понимаю)"

К сожалению, мне так и не ответили.
Может быть тут кто-нибудь сможет это сделать?
Весь наш коллектив будет очень благодарен!

Прикладываю ссылки на программу:
http://ustation.ru/apps/fdist.zip - для 2005-2006
http://ustation.ru/apps/fdist-1.0-src.zip - исходник этой программы
http://ifolder.ru/3297782 - для 2007-2008

На всякий случай прикреплю программу и исходник.

Конечно, в идеале переделать нужно обе версии, но хотя бы что-то, не буду наглеть

[Олег К.]

>> Volodich
Может тут нужное найдешь:
LISP для подсчета суммы длин линий
Нужен LISP для суммы длин отрезков линни

[Красин]

Теперь результат вычислений сохраняется и может быть обнулен третьей кнопкой. Чтобы сделать "разрыв" при измерении длины трассы, нужно прервать измерение по точкам (лучше всего нажатием клавиши Escape)


Конечно, использование С++ для такой ерунды - это стрельба из пушки по воробьям и напрасная трата времени, да к тому же требует квалификации. Тут лучше Lisp (поддержка все версий автокада)

[Volodich]

Олег К., эти темы не совсем то. Там сумму длин линий считают, а мне надо просто по точкам. Я считаю, что так быстрее и удобнее, чем каждую линию выделять. Хотя кому как.
Красин, Спасибо. К сожалению, у меня на работе акад 2006, пока вашу программу проверить не могу. Попробую дома. А насчет из пушки по воробьям... Ну что уж делать, лисп такой почему-то никто не написал. А программа мне нравится, удобная.

[VVA]

Volodich, Если чертеж организован правильно, то Selsim + GeomProps = Классная вещь

[Volodich]

VVA, Эх... Есть у меня и SelSlim (всем рекомендую, кстати, очень удобная вещь!) и GeomProps.
Но с помощью этих утилит не все можно сделать.
Например, я черчу сети электроснабжения какого-то завода. (этим я и занимаюсь ). У меня вся сеть выполнена одним слоем. И с помощью указанных выше утилит я могу, например, общую длину кабеля по заводу посчитать. Но мне этого не надо! Мне надо посчитать длину трассы между двумя зданиями. Конечно, можно выделять кусочки трассы вручную, потом смотреть в свойствах общую длину. Но это неудобно. Гораздо проще "прощелкать" угловые точки и все. Но это мое мнение.
Еще раз спасибо Красину за переделку программы! Все работает как надо! Всем рекомендую!

[darsunny]

Сообщение от Красин Теперь результат вычислений сохраняется и может быть обнулен третьей кнопкой. Чтобы сделать "разрыв" при измерении длины трассы, нужно прервать измерение по точкам (лучше всего нажатием клавиши Escape) Конечно, использование С++ для такой ерунды - это стрельба из пушки по воробьям и напрасная трата времени, да к тому же требует квалификации. Тут лучше Lisp (поддержка все версий автокада)

Здравствуйте.
Программа работала суперски, но только в 2008 автокаде, очень бы хотелось и дальше ее использовать, тк она очень ускоряет рабочий процесс. Может, г-н Красин или кто-нибудь другой смог бы адаптировать ее под Автокад 2010-2012. Заранее спасибо.

[VVA]

Посмотри эти темы, может чего подберешь
LISP. Трассировка линий связи на плане
Трассировка линий связи на плане (корректировка)
Автоматическая трассировка по существующему скелету для Autocad (оптимизируем код общими усилиями)

[Олег (jr.)]

darsunny,
попробуй такой вариант

Код:

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

(defun c:legs(/ cnt eh legs obj p1 p2 par1 par2 pp sset)

(setq sset nil
      legs 0.
      cnt 0)
(while
  (setq sset (ssget "_+.:S:E" '((0 . "*LINE"))))
   (progn
     (setq eh (ssname sset 0))
     (setq obj (vlax-ename->vla-object eh))
     (if (and (vlax-property-available-p obj 'closed)
       (eq :vlax-true  (vla-get-closed obj)))
       (progn
	 (alert "Не применяется для замкнутых кривых, выход.")
	 (exit)(princ)))
     (setq pp (last (last (last (ssnamex sset)))))
     (setq p1 (getpoint pp "Начало измерения объекта:")
	   p2 (getpoint pp "Конец  измерения объекта:"))

     (setq p1 (vlax-curve-getclosestpointto obj p1)
	   p2 (vlax-curve-getclosestpointto obj p2))

(if (and (not (vl-catch-all-error-p
		(setq par1
		       (vl-catch-all-apply
			 '(lambda () (vlax-curve-getparamatpoint obj p1))))))
	 (not (vl-catch-all-error-p
		(setq par2
		       (vl-catch-all-apply
			 '(lambda () (vlax-curve-getparamatpoint obj p2)))))))
  (progn
    (setq legs (+ legs
		  (abs (- (vlax-curve-getdistatpoint obj p1)
			  (vlax-curve-getdistatpoint obj p2))
		       )
		  )
	  )
    (setq cnt (1+ cnt))
    )
  )
 )
)

(if (not (zerop legs))
  (alert (strcat "Количество промеров: " (itoa cnt) "\nОбщая длина : " (rtos  legs  2 3))))

(princ)
  )
(princ "\nСтартуй командой LEGS ...")
(prin1)
(or (vl-load-com)(princ))

[darsunny]

VVA и Олег (jr.), спасибо большое!