AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > 3 alan hesaplama
06.07.2011 06:18    
k005
Merhaba arkadaşlar ;


area komutunu ile 3 ayrı alanı, 3 ayrı değişkene nasıl atayabilirim ? komut başladığında 3 adet alan seçmemi isteyecek.

yardımcı olacak arkaş(a)lara şimdiden teşekkürler..

herkese kolay gelsin..

06.07.2011 07:04    
ehya
Değişkene atamak yerine liste halinde alsan daha uygun olmaz mı?
hem bildiğim kadarıyla değişkenleri otomatik adlandıramıyorsun.

06.07.2011 07:09    
k005
Liste de olur tabi. nasıl yapacağım listeyi.. yani area komutunu döngü ye mi sokmam gerekiyor ?

06.07.2011 07:13    
ehya
Bununla ilgili bir kod yazayım...
geliştirmek sana kalmış...


Kod:

(defun c:alist ()
  (vl-load-com)
(setq sec (ssget)
      say (sslength sec)
      c 0
      liste '())
  (while (< c say)
    (setq tek (ssname sec c)
  data (vlax-ename->vla-object tek)
  alan (vla-get-area data)
  liste (cons alan liste)
  c (+ c 1)))
  (princ))
06.07.2011 07:17    
k005
Teşekkür ederim. ehya..

06.07.2011 10:34    
ProhibiT
Kod:

(setq aLst (mapcar '(lambda (a) (command "_.area" "e" (car a)) (getvar "area"))
         (list (entsel) (entsel) (entsel))))
06.07.2011 12:37    
k005
Teşekkürler prohibit hocam..

> 1 <
Copyright © 2004-2022 SQL: 1.031 saniye - Sorgu: 62 - Ortalama: 0.01664 saniye