Forum
Download
Galeri
Üye Ol
|
Giriş
AutoCAD
•
AutoLISP
•
Programlama
•
Püfler
•
Komutlar
•
Terimler
•
Eğitim
aLd
•
TCad
•
FacadeCAD
•
Cephe Kot
•
HQ Library
•
FreeMUST
•
Pasdoc.A
Forumlar
>
AutoCAD Acil Yardım
>
KOT YAZIMI
88214
18.06.2020 13:23
eglacier61
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" "")
)
88215
18.06.2020 13:47
ehya
DIMZIN
komutunu çalıştır ve değerini
0
yap.
88216
18.06.2020 14:05
eglacier61
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 :)
>
1
<
Copyright © 2004-2022 SQL: 0.964 saniye - Sorgu: 48 - Ortalama: 0.02008 saniye