Diskuzní fórum, poradna

archiv · AcDbLine

   Zdravím užívateľov fóra,pracujem na prevádzke LASER a potrebujem zistiť ako by bolo možné zobrazovať dĺžku, resp.obvod všetkých objektov vo výkrese. Jedná sa o súčiastky zložitého tvaru s vonkajším obvodom a viacerými vnútornými. V predchádzajúcich dávnejších príspevkoch som našiel jeden lisp - dolu pod príspevkom je jeho celé znenie - avšak v ňom nie sú zahrnuté úsečky a oblúky - čo je vlastne 90% zloženia výkresovej dokumentácie, ktorá ku mne ide.
Moja otázka znie: Dá sa upraviť doleuvedený lisp, tak aby zahrňoval aj úsečky a oblúky?? Alebo jestvuje nejaký program, nejaká nástavba pre AutoCad, ktorá sa dokupuje??
Prosím poraďte, veľmi by mi to uľahčilo moju prácu.

Spomínaný 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) 

CZ \| SK \| EN \| DE
Přihlášení
či registrace
	právě nás čte: 6774

Autor	Zpráva Najít Téma Možnosti tématu Odpovědět Vytvořit nové téma Verze pro tisk Přeložit Téma
FilipTo Profil člena Odeslat soukromou zprávu Najít příspěvky člena Navštívit stránky člena Přidat do seznamu známých Nováček Přihlášen: 02.zář.2013 Lokalita: Slovensko Používám: AutoCad2007 Stav: Offline Bodů: 4	Téma: Dĺžka, resp obvod všetkých objektov vo výkrese Zasláno: 02.zář.2013 v 19:38
	Zdravím užívateľov fóra, pracujem na prevádzke LASER a potrebujem zistiť ako by bolo možné zobrazovať dĺžku, resp.obvod všetkých objektov vo výkrese. Jedná sa o súčiastky zložitého tvaru s vonkajším obvodom a viacerými vnútornými. V predchádzajúcich dávnejších príspevkoch som našiel jeden lisp - dolu pod príspevkom je jeho celé znenie - avšak v ňom nie sú zahrnuté úsečky a oblúky - čo je vlastne 90% zloženia výkresovej dokumentácie, ktorá ku mne ide. Moja otázka znie: Dá sa upraviť doleuvedený lisp, tak aby zahrňoval aj úsečky a oblúky?? Alebo jestvuje nejaký program, nejaká nástavba pre AutoCad, ktorá sa dokupuje?? Prosím poraďte, veľmi by mi to uľahčilo moju prácu. Spomínaný 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)

Vladimír Michl Profil člena Odeslat soukromou zprávu Najít příspěvky člena Navštívit stránky člena Přidat do seznamu známých Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21471	Zasláno: 10.zář.2013 v 09:38
	Zkuste do seznamu (pro member) přidat AcDbLine a AcDbArc. Ale na sčítání délek už existují hotové nástroje - např. náš Addlen (viz Download).
	Vladimír Michl (moderátor) Arkance Systems s.r.o. - www.arkance-systems.cz (podpora viz hd.cads.cz)

FilipTo Profil člena Odeslat soukromou zprávu Najít příspěvky člena Navštívit stránky člena Přidat do seznamu známých Nováček Přihlášen: 02.zář.2013 Lokalita: Slovensko Používám: AutoCad2007 Stav: Offline Bodů: 4	Zasláno: 20.zář.2013 v 21:41
	Veľmi pekne ďakujem za odpoveď, velice mi to uľahčilo robotu. Zaujíma ma ešte jedna vec a to či sa dá niekde vypnúť tá otravná hláška : Soubor byl naposledy uložen v dxf2000, chcete uložit ve formáte cad2007? , potom ako zavieram výkresy. Totižto ukladám ich zásadne v dxf2000.

Vladimír Michl Profil člena Odeslat soukromou zprávu Najít příspěvky člena Navštívit stránky člena Přidat do seznamu známých Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21471	Zasláno: 20.zář.2013 v 21:56
	Toto hlášení asi vypnout nepůjde, ale je namístě - DXF je jen exportní/výměnný formát, není to plnohodnotná náhrada nativního souboru DWG. Asi by to šlo obejít např. pomocí utility PreSave.
	Vladimír Michl (moderátor) Arkance Systems s.r.o. - www.arkance-systems.cz (podpora viz hd.cads.cz)

vbehun Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 04.říj.2004 Lokalita: ČR (ZL) Používám: Autocad R10 >> Autocad 2022 / altern. QCad Prof. Stav: Offline Bodů: 1221	Zasláno: 21.zář.2013 v 15:00
	Brání něco v tom, aby se ukládalo ve formátu Autocad 2007 - když už jej používáte?
	=^..^=

FilipTo Profil člena Odeslat soukromou zprávu Najít příspěvky člena Navštívit stránky člena Přidat do seznamu známých Nováček Přihlášen: 02.zář.2013 Lokalita: Slovensko Používám: AutoCad2007 Stav: Offline Bodů: 4	Zasláno: 20.říj.2013 v 18:24
	Brání - laser mašina :) Ale ináč ďakujem za odpovede a pomoc. Veľmi mi to pomohlo.

Příbuzné CAD tipy:
Tip 10593:		Délka vnějších a vnitřních hran rozvinu plechu.
Tip 7046:		Obvodová křivka AEC objektů.
Tip 6869:		Parametrické zobrazení šířky a délky rozvinu plechu ve výkresu.
Tip 5020:		Export místností z Revitu do ADT.
Tip 6771:		Zokruhovaná svítidla i v Revitu Architecture.
Tip 1174:		Jak nakreslit kružnici s daným obvodem nebo obsahem?

	CAD Fórum - tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion 360 a další Autodesk aplikace (support firmy Arkance Systems)	ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner	KONTAKT: webmaster.cz@arkance-systems.com tel. +420 910 970 111
	Copyright ©2024 \| Web reklama na tomto serveru \| Ochrana soukromí, podmínky

Diskuzní fórum, poradna

CAD diskuze, rady, výměna zkušeností

Dĺžka, resp obvod všetkých objektov vo výkrese