Zobrazit plnou verzi pøíspìvku: urcenie obvodu (kontury) zloziteho tvaru
zdravim. chcel by som sa spytat, ci v AutoCAD2007 existuje jednoduchy a rychly postup, ako zmerat obvod respektive konturu nakreslenej suciastky, cleniteho, nepravidelneho tvaru. suciastka obsahuje rozne otvory, ktore by mali byt zapocitane do celkovej dlzky kontury tiez. da sa tato nejak oznacit komplet cela a nasledne nejak zmerat dlzku kontury? dakujem za rady.
Vladimír Michl
11.06.2011, 19:15
zkuste utilitu CADstudio Wrapper
na zmeranie dlzok oznacenych polyline pouzivam nasledovny lisp:(defun c:pll (/ ss cnt area len)(vl-load-com)(setq cnt 0 area 0.0 len 0.0)(if (ssget (list'(-4 . "<OR")'(0 . "CIRCLE")'(-4 . "<AND")'(0 . "ELLIPSE")'(41 . 0.0)(cons 42 (* 2 pi))'(-4 . "AND>")'(-4 . "<AND")'(0 . "LWPOLYLINE");;; '(-4 . "&");;; '(70 . 1)'(-4 . "AND>")'(0 . "MPOLYGON")'(-4 . "<AND")'(0 . "POLYLINE");;; '(-4 . "&");;; '(70 . 1)'(-4 . "<")'(70 . 8)'(-4 . "AND>")'(0 . "REGION")'(-4 . "<AND")'(0 . "SPLINE")'(-4 . "&")'(70 . 9)'(-4 . "AND>")'(-4 . "OR>")))(progn(vlax-for obj (setq ss (vla-get-ActiveSelectionSet(vla-get-ActiveDocument(vlax-get-acad-object))))(setq cnt (1+ cnt)area (+ area (vla-get-area obj))len (+ len(if (member (vla-get-ObjectName obj)'("AcDbMPolygon" "AcDbRegion"))(vla-get-Perimeter obj)(vlax-curve-getDistAtParamobj(vlax-curve-getEndParam obj))))));; (princ "\nZTOTM v2.1 - Cercle, Polyligne, Ellipse, Spline, Region, MPOLYGON") (princ "\nZTOTM v2.1 - Circle, Pline, Ellipse, Spline, Region, MPOLYGON");; (princ (strcat "\n""TOTAL -Surface: "(rtos area) " -Perimetre: "(rtos len)" -Objets: "(itoa cnt) (princ (strcat "\n""TOTAL -Area: " (rtos area) " -Length: " (rtos len)" -Objects: "(itoa cnt)))(vla-delete ss))(prompt "\n*** Rien de Valable / Nothing available "))(princ)) (princ "\n==> ZTOTM (Version 2.1) ")(princ)
respektive asi by si potreboval spocitat jednotlive plochy, na to tiez pouzivam sikovny lisp, ak ho budes chciet tiez mozem uverejnit
potrebujem spocitat obvod, zlozeny z polyline, takze ten prvy lisp by mal byt vhodny. odskusam to. dakujem za pomoc.