Vytisknout stránku | Zavřít okno

urcenie obvodu (kontury) zloziteho tvaru

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD web, prohlížečů, DWG a DXF, Design Review, Navisworks, nadstavby, Drive a cloud Autodesk
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=13037
Datum vytištění: 08.čvc.2026 v 03:19


Téma: urcenie obvodu (kontury) zloziteho tvaru
Odeslal: p.t.r
Předmět: urcenie obvodu (kontury) zloziteho tvaru
Datum odeslání: 11.čer.2011 v 17:47
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. 


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 11.čer.2011 v 19:15
zkuste utilitu CADstudio Wrapper

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: Acid3P
Datum odeslání: 13.čer.2011 v 14:07
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-getDistAtParam
obj
(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) 

Odeslal: Acid3P
Datum odeslání: 13.čer.2011 v 14:10
respektive asi by si potreboval spocitat jednotlive plochy, na to tiez pouzivam sikovny lisp, ak ho budes chciet tiez mozem uverejnit

Odeslal: p.t.r
Datum odeslání: 22.čer.2011 v 14:49
potrebujem spocitat obvod, zlozeny z polyline, takze ten prvy lisp by mal byt vhodny. odskusam  to. dakujem za pomoc.


Vytisknout stránku | Zavřít okno