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
>
Ucs 3 point lispi ve ucs world lispi
49671
11.06.2009 10:30
yazgunesi
Komut ismi:
uc3p
Lisp hakkında ; kullanıcının tıkladığı noktalara göre ucs 3 point yapması yani ucs'yi istediği yere koymasını sağlayan autolisp programı.
Kod:
; *******************************
; UCS 3 point lispi
;
; Powered by ''yazgunesi''.
; www.autocadokulu.com
;
; *******************************
(defun c:uc3p ()
(setq oldsnap (getvar "osmode")) ; osnap modunu değikene kaydet..
(setq p1 (getpoint "\n UCS Merkez için TIKLA ! :" ))
(setq p2 (getpoint "\n << X >> istikameti için TIKLA ! :" ))
(setq p3 (getpoint "\n << Y >> istikameti için TIKLA ! :" ))
(setvar "osmode" 0) ; osnap modunu sıfırladık
(command "ucs" "3" p1 p2 p3)
(setvar "OSMODE" oldsnap) ; osnap modunu eski hale getir..
(princ)
) ; program bitimi
(Princ "Lisp'i çalıştırmak için > uc3p < yazınız! ")
Yukarıdaki lispte ucs 3 point kullanarak ucs yerini değiştirdik..
Şimdi ucs world yaparak ucs'yi eski haline getirelim..
Komut ismi:
uccw
Lisp hakkında ; klavyeden
uccw
yazarak ucs'in world konumuna getirilmesi..
Yukarıda gözüken ilk lispi kullandıktan sonra oldukça işe yarar..
Kod:
; *******************************
; UCS world lispi
;
; Powered by ''yazgunesi''.
; www.autocadokulu.com
;
; *******************************
(defun c:uccw ()
(command "ucs" "w") ; ucs world
(princ)
) ; program bitimi
(Princ "Lisp'i çalıştırmak için > uccw < yazınız! ")
yazgunesi (11.06.2009 10:42 GMT)
49800
14.06.2009 12:35
highcivil
çok teşekkür ederim ellerine sağlık
66602
21.11.2011 13:45
selkaf
Merhaba peki bu lisple imar kordinatlı bir çizimi memleket kordinatına çevire bilirmiyiz .. yada bunu yapabilen bir lisp varmı..
>
1
<
Copyright © 2004-2022 SQL: 0.602 saniye - Sorgu: 56 - Ortalama: 0.01075 saniye