Мога ли автоматично да изчисля сбора от дължините на всички линиии в даден леяр в Autocad?

Може ...
Но "автоматично" е относително понятие, за някои Хора "автоматично" е даже ако ползват Компютър.
"леар" -> layer -> слой, пласт !
1 Вариант , ползваш трикове/функции в самият AutoCAD
2 Вариант , ползваш допълнителни "програмки" към AutoCAD направени с тази Идея.
-------------------------
По 1 Вариант , зависи от версията на AutoCAD ! 2008 е най-добре ...
По 2 Вариант , намираш готово "Нещо" и го ползваш или пък сам си го написваш.
Предполагам , че търсиш съвет от някой който ползва или често прави подобна Процедура и направо да сподели Как/Какво ... аз не съм правил такова действие т.е. не мога да дам Конкретно Упътване

Съдържаниет е скрито
Влезте за да го видите

Ето ти една прорамка
Запиши я в Супорт директория под име LINLONG.LSP
Зареди с:
(load "LINLONG")
Стартирай с :
(linlong "име_на_слой")
и ще ти даде брой и дължини на всички линии и полилинии в избрания слой

;МЕРИ ДЪЛЖИНИ НА ЛИНИИ И ПОЛИЛИНИИ В СЛОЙ
(DEFUN LINLONG (LAY / NAB SUM LAYSP EN ENT I NN bpt)
(FOREACH NN '("LINE" "POLYLINE" "LWPOLYLINE" )
(SETQ NAB (SSGET "X" (LIST(CONS 0 NN)(CONS 8 LAY)))
I 0
SUM 0);SETQ
(if nab
(PROGN
(print "Layer: ")(princ lay)
(repeat (SSLENGTH nab)
(setq en (ssname nab i)
i (1+ i)
ent (entget en)
);setq
(cond
((=(cdr(ASSOC 0 ent))"LINE")(SETQ SUM (+ SUM (LLONG ENT))))
((=(cdr(ASSOC 0 ent))"LWPOLYLINE")(SETQ SUM (+ SUM (LpLONG ENT))))
);cond
);repeat
(PRINT NN)(PRINC(STRCAT
" "
(ITOA(SSLENGTH NAB))" бр. "
(rtos SUM 2 2))
);PRINC
);PROGN
);if nab
);FOREACH
(princ)
);LINLONG
;ДАВА ДЪЛЖИНА НА ЛИНИЯ
(DEFUN LLONG (ENT / PT1 PT2)
(DISTANCE (CDR(ASSOC 10 ENT))(CDR(ASSOC 11 ENT)))
);LLONG
;дава дължина на полилиния
(DEFUN lplong (ent / sump pt1 pt2 su nn)
(setq sump 0
pt1 (cdr(ASSOC 10 ent))
ent(MEMBER (ASSOC 10 ent)ent)
);setq
;;; (print ent)
(FOREACH nn ent
(if (=(car nn) 10)
(PROGN
(setq pt2 (cdr nn)
sump (+ sump (DISTANCE pt1 pt2))
pt1 pt2
);setq
));PROGN if
);FOREACH
sump
);lplong

Идеята ми е примерно във ВИК чертеж, да изчисля приблизително линейните метри на тръбата необходима за изграждане на инсталация.

Ам'чи да това е Идеята ... Графичната информация да се ползва за "преброяване". Става защо да не става , нещата са ориентирани най-вече 3D за да е по-верна картинката ... По-горния Lisp е 2-ри Вариант на действие .
Ето едно дребно нещо което може да те улесни Малко.

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Чертежа на сградна инсталация или на разпределителна ВиК мрежа е?
Ако е на разпределителна - план или надлъжен разрез?

Ако е на сградна инсталация и линиите са чертани в 2D (z = const.) е най-лесно с тия двете програмки дето са ти дали на готово, обаче:
1. Руската програма - трябва да пробваш дали върви с твоя Аутокад,защото ОbjectARX го менят с всяка версия на Аутокада и не всичко работи на предишни/следващи версии.
2. Лисповската програма - ако работиш в основната координатна система WCS или паралелно ориентирана на нея, е най-лесно, защото би трябвало да работи на всички версии Аутокад(обаче няма да ти дава верен резулат ако координатна система е завъртяна)

За разпределителните инсталации - аз повечето ВиК чертежи, които съм виждал - не използват стандартнo ориентираната координатна система (XY да е плана, а Z e към тебе), ами използват геодезическата система - като плана им е XZ, освен това надлъжният разрез го правят с два различни машаба в съотношение 1:10.
Значи ако е някоя от тия ситуации, лисповската програма изобщо няма да ти даде верен резулат, за ObjectARX за надлъжният профил също няма да е верен резултата,а за плана най-вертоятно би трябвало да работи коректно, но ще трябва да я пробваш, защото го няма даден кода и не мога да преценя дали смята правилно за всякаква координатна система.

Благодаря на всички отзовали се, ще работя с чертежи 2D чертежи, но неможах да разбера как точно да направя lisp файла. Копирах програмката в Notpad и пробвах да запиша файла linlong, после сe опитах да го преименувам с разшиирение LSP но не стана.

Еми най-вероятно фаилът още ти е бил отворен с Notepad-а , докато си се опитвал да го преименуваш и за това не е станало.

1.Отвори отново фаила с Notepad-а
2.Провери да не си вкарал нещо излишно
-текста трябва да започва и сършва така:

;МЕРИ ДЪЛЖИНИ НА ЛИНИИ И ПОЛИЛИНИИ В СЛОЙ

.....

);lplong

3.От горното меню File>Save As
4.За име на фаила задаваш(да не збаравиш разширението) LINLONG.LSP
5. За Save As Type - Text Document *.txt (може и All Files)
6. За Encoding - ANSI
7. Бутонът Save

Така Няма нужда да го преименуваш

"... с разшиирение LSP но не стана"
Чекай малко, явно нещо не е доизказано или е прикрито !
Аз за това съм написал горе ДВА ВАРИАНТА на действие !
Т.е. според моментните Знания да решиш кой от двата варианта да ползваш, като начало !
Нали разбираш, че се опитвам да те върна в Първи Клас

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Можеш да отвориш редактора на Lisp с команда
vlide
отваряш нов лист и копираш в него текста
след това го записваш
редактора дава по подразбиране разширение LSP