Zobrazit plnou verzi příspěvku: AutoCAD R14 - souřadnice bodů.

Kotlaba
10.01.2008, 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.Kotlaba2008-01-10 11:02:31

Mantlík
10.01.2008, 13:22
Během odpoledne se pokusím upravit zpět na normální souřadnice rutinku - viz téma lisp a souřadnice

Mantlík
10.01.2008, 13:46
Vyzkoušejte tohle:
 
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

Kotlaba
10.01.2008, 15:01
Děkuji, stáhnul jsem si to a vyzkouším to.

Vladimír Michl
10.01.2008, 15:01
Nebo příkaz [CMD]KÓTYSTANIČNÍ[/CMD] (byl i v R14).

Kotlaba
10.01.2008, 15:46
Tak to chodí

orlik
11.01.2008, 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)   ))