AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP Kodları > Ucs 3 point lispi ve ucs world lispi
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)

14.06.2009 12:35    
highcivil
çok teşekkür ederim ellerine sağlık

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.696 saniye - Sorgu: 48 - Ortalama: 0.0145 saniye