AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Renk kodları girişi
19.08.2014 18:18    
k005
Merhaba arkadaşlar;

bu kodda ;
işlem normal bir şekilde çalışırken,

Kod:

(setq ss (ssget "w" pt1 pt2 '((-4 . "<OR")(62 . 114)(62 . 5)(-4 . "OR>"))))


değişken tanımlaması yaptığımda hata veriyor.?

Kod:

(setq ss (ssget "w" pt1 pt2 '((-4 . "<OR")(62 . renk1)(62 . renk2)(-4 . "OR>"))))



bunu nasıl düzeltebilirim ?

20.08.2014 06:16    
Travaci
Renk 1 ve 2 yi nerden alıosun ?

20.08.2014 06:24    
k005
Travaci


getreal ile giriş yaparak, alıyorum.
Kod:

(setq renk1 (getreal "\nSeçilecek birinci Renk kodu : "))
20.08.2014 07:01    
Travaci
Tam sayı için getint kullanın.

20.08.2014 07:06    
k005
Alıntı
Travaci :
Tam sayı için getint kullanın.


getint - kullandım olmadı hocam. onu denemiştim.

20.08.2014 07:43    
Travaci
Her iki rengide seçmek mi istiyorsunuz ?

20.08.2014 08:01    
k005
Alıntı
Travaci :
Her iki rengide seçmek mi istiyorsunuz ?


Evet..

20.08.2014 08:12    
Travaci
Kod:

(defun c:et (/ c1 c2)
  (setq c1 (getint "\n1. Color:")
        c2 (getint "\n2. Color:"))
  (ssget (list (cons -4 "<OR") (cons 62 c1) (cons 62 c2) (cons -4 "OR>"))))
20.08.2014 08:17    
k005
Travaci

Tamamdır.. çok teşekkür ederim.

> 1 <
Copyright © 2004-2022 SQL: 1.444 saniye - Sorgu: 66 - Ortalama: 0.02187 saniye