AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Koordinatları alma?
28.09.2012 12:53    
eesm
Merhabalar,
Seçtiğim alandaki tüm noktaların z eksenindeki değerlerin ortalamasını aldırmak istiyorum. Bunu yapan bir lisp yazılabilir mi??
Teşekkürler.

28.09.2012 14:18    
ProhibiT
"noktaların" diye bahsettiğiniz obe türü nedir? Point objesinden mi bahsediyoruz?

28.09.2012 14:50    
eesm
Aynen...
Çizimde yaklaşık 120 tane point var. Bunların her birinin X,Y, ve Z değerleri farklı. Ben Z değerlerinin ortalamasını almak istiyorum.

28.09.2012 20:58    
ProhibiT
Kod:

;|***************************************************************************|;
;| AvZ: Average Z Coordinate.                                                |;
;|      Hazırlayan: M. Şahin Güvercin  www.cizimokulu.com  28.09.2012        |;
;|---------------------------------------------------------------------------|;
(defun c:AveZ (/ PnTs n z)
  (setvar "cmdecho" 0) (command "_.undo" "group")
  (setq PnTs (ssget (list (cons 0 "Point"))) n (sslength PnTs) z 0)
  (while (> (setq n (1- n)) -1)
    (setq z (+ z (cadddr (assoc 10 (entget (ssname PnTs n)))))))
  (princ (strcat "\nAverage Z Coordinate: "
                 (rtos (/ z (sslength PnTs)) 2 (getvar "Luprec"))))
  (command "_.undo" "e") (princ))

ProhibiT (01.10.2012 13:54 GMT)

01.10.2012 06:09    
eesm
Teşekkürler...
Eline Sağlık

> 1 <
Copyright © 2004-2022 SQL: 0.811 saniye - Sorgu: 53 - Ortalama: 0.01531 saniye