Alıntı
Travaci :
Tamamını paylaşırsanız yardımcı oluruz.
tabiki,
(DEFUN C:XS()
(setq osm (getvar "OSMODE"))
(setq w1 (getpoint "\nnoktayi pikle:")
w2 (getreal "\nkiyas kotu:"))
(command "osmode" "0")
(setvar "DONUTID" w2)
(setq w (list (car w1) (- (cadr w1) w2)))
(command "ucs" "o" w)
(command "osmode" osm)
)
;ENKESIT OFSET VE KOTLARI UZERINE YAZAR
(DEFUN C:KK (/ PT0 TPX TPY PT1 PT2 PT3 PT4 PT5 PT6 PT7 YAZYUK MESAFE ACI TX TY DONME)
(SETQ PT0 (GETPOINT "\nNOKTAYI PICK'LE :")
has 2)
(SETQ TPX (NTH 0 PT0)
TPY (NTH 1 PT0)
TPZ (NTH 2 PT0)
PT1 (GETPOINT "\nYERLESTIRME NOKTASINI GIR: ")
TPX1 (NTH 0 PT1)
PT2 (polar PT1 0 0.60)
PT3 (polar PT2 (/ pi 1.5) 0.05)
PT4 (polar PT2 (* pi 1.5) 0.19)
PT5 (polar PT1 pi 0.60)
PT6 (polar PT5 (/ pi 1.5) 0.05)
PT7 (polar PT5 (* pi 1.5) 0.19)
)
( SETQ TX (RTOS TPX 2 has))
( SETQ TY (RTOS TPY 2 has))
( SETQ TZ (RTOS TPZ 2 has))
(command "layer" "n" "ENK_KOTLAR" "")
(command "layer" "s" "ENK_KOTLAR" "")
(command "layer" "c" "2" "" "")
(setq osm (getvar "OSMODE"))
(command "osmode" "0")
(if (> (- TPX1 TPX) 0)
(progn
(command "text" "r" pt3 "0.13" "0" TY)
(command "text" "r" pt4 "0.13" "0" TX)
(COMMAND "LINE" PT0 PT1 PT2 "")
(command "COLOR" "BYLAYER" "")
(command "osmode" osm)
);progn
);if
(if (< (- TPX1 TPX) 0)
(progn
(command "text" pt6 "0.13" "0" TY)
(command "text" pt7 "0.13" "0" TX)
(COMMAND "LINE" PT0 PT1 PT5 "")
(command "COLOR" "BYLAYER" "")
(command "osmode" osm)
);progn
);if
; (command "layer" "s" "TABAKA" "")
)
