AutoCAD R14 - souřadnice bodů.
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=5765
Datum vytištění: 01.zář.2026 v 11:40
Téma: AutoCAD R14 - souřadnice bodů.
Odeslal: Kotlaba
Předmět: AutoCAD R14 - souřadnice bodů.
Datum odeslání: 10.led.2008 v 11:01
|
Lze nějak jednoduše psát (tedy aby se to psalo samo) do výkresu souřadnice bodů které si odkliknu?
Příklad: Mám výkres plechové desky s vrtanými dírami, je to okótované ale potřebuji aby mi rychle v prototypové dílně udělali jeden kousek a tam mají vrtačku která vyžaduje zadávat středy otvorů jako souřadnice od nějakého počátku. Zkoušel jsem volit nějaký druh kótování ale na nic jsem nepřišel.
|
Odpovědi:
Odeslal: Mantlík
Datum odeslání: 10.led.2008 v 13:22
|
Během odpoledne se pokusím upravit zpět na normální souřadnice rutinku - viz téma lisp a souřadnice ------------- J. Mantlík |
Odeslal: Mantlík
Datum odeslání: 10.led.2008 v 13:46
|
Vyzkoušejte tohle:
http://www.cadforum.cz/forum/uploads/20080110_134526_sourad.LSP - uploads/20080110_134526_sourad.LSP
chová se to podle aktuálního kótovacího stylu obdobně jako odkaz (včetně úprav šipky, písma, apod ------------- J. Mantlík |
Odeslal: Kotlaba
Datum odeslání: 10.led.2008 v 15:01
| Děkuji, stáhnul jsem si to a vyzkouším to. |
Odeslal: Vladimír Michl
Datum odeslání: 10.led.2008 v 15:01
|
Nebo příkaz [CMD]KÓTYSTANIČNÍ[/CMD] (byl i v R14). ------------- Vladimír Michl (moderátor) ARKANCE CZ - https://arkance.world - arkance.world (podpora viz emea.support.arkance.world) |
Odeslal: Kotlaba
Datum odeslání: 10.led.2008 v 15:46
Tak to chodí
|
Odeslal: orlik
Datum odeslání: 11.led.2008 v 06:48
|
Díval jsem se na ten Lisp, mam udělano něco podobného, jen ještě se zadáním nulového bodu(ori) a výtisk souradnic do výkresu. (defun c:uu ( / pt1 pt2 ori osmod) (SETQ osmod (GETVAR "OSMODE")) (setq px1 0.0 py1 0.0 pz1 0.0 pts "" pt1 (list 0.0 0.0 0.0)) (setq ori (getpoint "\n Nulovy bod : ")) (while (/= pt1 nil) (setq pt1 (getpoint "\n Bod pro info : ")) (if (= pt1 nil) () (progn (setq pt2 (getpoint "\n Bod textu : ")) (SETQ px1 (- (CAR pt1) (car ori)) py1 (- (CADR pt1) (cadr ori))) (setq pts (strcat "X" (rtos px1 2 2) ",Y" (rtos py1 2 2))) (SETVAR "OSMODE" 0) (command "_qleader" pt1 pt2 "" "2" pts "") ) ) (SETVAR "OSMODE" osmod) ) ) |