02.07.2020 18:55

88265    

Arkadaşlar elimde bi lisp var, tıklayınca koordinat veriyor. bunun boyutları ile nasıl oynama yapabilirim, kullandığım alan biraz dar olduğu için çok karışık oluyor. scale ile de küçültemem birsürü kot var, kot aşağıdaki gibi;
(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.90)
PT3 (polar PT2 (/ pi 4) 0.15)
PT4 (polar PT2 (* pi 1.5) 0.25)
PT5 (polar PT1 pi 0.90)
PT6 (polar PT5 (/ pi 4) 0.15)
PT7 (polar PT5 (* pi 1.5) 0.25)
)

( 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.15" "0" TY)
(command "text" "r" pt4 "0.15" "0" TX)
(COMMAND "LINE" PT0 PT1 PT2 "")
(command "COLOR" "BYLAYER" "")
(command "osmode" osm)
);progn
);if

(if (< (- TPX1 TPX) 0)
(progn
(command "text" pt6 "0.15" "0" TY)
(command "text" pt7 "0.15" "0" TX)
(COMMAND "LINE" PT0 PT1 PT5 "")
(command "COLOR" "BYLAYER" "")
(command "osmode" osm)
);progn
);if
; (command "layer" "s" "TABAKA" "")
)

03.07.2020 13:02

88267    

Alıntı

---

ehya :
(command "text" "r" pt3 "0.15" "0" TY)

satırında "0.15" yazan değer yazı yüksekliğidir. Bu değeri değiştirmelisin.

---

Hocam bu işe yaradı çok teşekkür ederim. birde yazıyı çizginin üzerinde nasıl ortalayabiliriz bu konuda yardımcı olabilirmisiniz