https://www.cadforum.cz/forum/ Mon, 06 Jul 2026 15:44:21 +0000 Wed, 22 Jun 2011 14:49:09 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=13037 https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62345&title=urcenie-obvodu-kontury-zloziteho-tvaru#62345 Autor: p.t.r
Předmět: 13037
Zasláno: 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.]]> Wed, 22 Jun 2011 14:49:09 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62345&title=urcenie-obvodu-kontury-zloziteho-tvaru#62345 https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62157&title=urcenie-obvodu-kontury-zloziteho-tvaru#62157 Autor: Acid3P
Předmět: 13037
Zasláno: 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]]> Mon, 13 Jun 2011 14:10:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62157&title=urcenie-obvodu-kontury-zloziteho-tvaru#62157 https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62156&title=urcenie-obvodu-kontury-zloziteho-tvaru#62156 Autor: Acid3P
Předmět: 13037
Zasláno: 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) 

]]> Mon, 13 Jun 2011 14:07:41 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62156&title=urcenie-obvodu-kontury-zloziteho-tvaru#62156 https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62140&title=urcenie-obvodu-kontury-zloziteho-tvaru#62140 Autor: Vladimír Michl
Předmět: 13037
Zasláno: 11.čer.2011 v 19:15

zkuste utilitu CADstudio Wrapper]]> Sat, 11 Jun 2011 19:15:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62140&title=urcenie-obvodu-kontury-zloziteho-tvaru#62140 https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62138&title=urcenie-obvodu-kontury-zloziteho-tvaru#62138 Autor: p.t.r
Předmět: 13037
Zasláno: 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. ]]> Sat, 11 Jun 2011 17:47:44 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=13037&PID=62138&title=urcenie-obvodu-kontury-zloziteho-tvaru#62138