Reklam

* E Posta Adresiniz:
* Kodu Girin:

Rectangle Solid (lisp)

Rectangle çizerken yaptığımız küpü solid yapan lisp...
ehya - 19.08.2005 16:21
Yazar: ehya
İçerik:

(Kontrol panelinizde görünür)
Rectangle çizerken yaptığınız küpü solid yapan lisp...

Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz

Kod:

(defun c:rs ()
  (setq rs_1n (getpoint "
Birinci nokta:"))
  (if (= rs_1n nil)
    (progn
      (princ)
    )
    (progn
      (setq rs_2n (getcorner rs_1n "
İkinci Nokta:"))
      (if (= rs_2n nil)
(progn
  (princ)
)
(progn
  (setq solid_1n rs_1n
solid_2n (list (car rs_1n) (cadr rs_2n))
solid_3n rs_2n
solid_4n (list (car rs_2n) (cadr rs_1n))
  )
          (setq rs_os (getvar "osmode"))
          (setvar "osmode" 0)
  (command "solid" solid_1n solid_2n solid_4n solid_3n "")
)
      )
    )
  )
(setvar "osmode" rs_os)
  (princ)
)
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")


Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Yorumlar :
karizma505   27.01.2010 10:10 #12369  

tşk ederim

ha_ulus   28.08.2008 12:40 #8957  

merdiven lisp inde sorun var.
başka bır linkte calısıyor dıye verılmıs ama ikiside malesef

ehya   11.02.2007 01:50 #2470  

zaten komut bu işe yarıyor ama....

isasimsek   01.02.2007 00:38 #2133  

lispi çalıştırdım fakat dikdörgen veya kare solid çiziyor kontrol edrseniz sevinirim bu lisp bana lazım şimdiden teşekkürler .

ebruy   19.12.2006 16:23 #1425  

arkadaşlar ben bu merdiven lisp ini çalıştıramıyorum. bendenmi kaynaklanıyor yoksa bozukmu?

Copyright © 2004-2018 | Tüm Hakları Saklıdır | 1356 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam