18.06.2020 13:23

88214    

Arkadaşlar merhabalar.. Elimde şöyle bi lisp var tıklayınca taş duvarlar için koordinat veriyor.
Şöyle bi sorunum var tıkladığımda değer 5.84 ise 5.84 olarak veriyor ama 5 ise 5.00 vermiyor bana 5.00 olarak vermesi lazım. Lütfen yardımcı olabilirmisiniz ?
(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" "")
)

18.06.2020 14:05

88216    

Alıntı

---

ehya :
DIMZIN komutunu çalıştır ve değerini 0 yap.

---

ehya bey çok teşekkür ederim böyle çalıştı. bide çizginin üzerine rakamları ortalasa tadından yenmez :)