19.09.2014 07:48    

bozok
AŞAĞIDAKİ LISP AUTOCAD 2015 ÇALIŞMIYOR. YARDIMCI OLMANIZ MÜMKÜN MÜ?
(defun ply_yk_s ()
(setq mev_st (getvar "textstyle"))
(setq ply_stil_yuk (cdr (assoc 40 (tblsearch "style" mev_st))))

(if (= ply_stil_yuk 0.0)
(progn
(if (= ply_mes nil)
(setq ply_mes 10)
)
(initget 2)
(setq ply_m (getdist (strcat "\nMesafe:<" (rtos ply_mes) ">:")))
(if (= ply_m nil)
(setq ply_m ply_mes)
)
(setq ply_mes ply_m)
)
(progn
(setq ply_mes (cdr (assoc 40 (tblsearch "style" mev_st)))))))
(defun c:ply ()
(setvar "modemacro" "Archme Design")
(princ "\nPline, Line, Arc olan nesneleri seçiniz:")
(setq ply_sec (ssget '((-4 . "<OR")
(0 . "LWPOLYLINE")
(0 . "LINE")
(0 . "ARC")
(-4 . "OR>"))))
(if (= ply_sec nil)
(progn
(princ "\nNesne seçimi yok.!!!"))
(progn
(setq ply_d 0)
(setq ply_topla 0)
(setq ply_say (sslength ply_sec))
(while (< ply_d ply_say)
(setq ply_tek (ssname ply_sec ply_d))
(command "lengthen" ply_tek "")
(setq ply_topla (+ ply_topla (getvar "perimeter")))
(setq ply_d (+ ply_d 1)))
(ply_yk_s)
(setq ply_nokt (getpoint "\nYazı için Referans Noktayı Gösterin:"))
(if (= ply_nokt nil)
(progn
(princ "\nReferans Nokta Belirtilmedi!!..."))
(progn
(setq ply_lup (getvar "luprec"))
(setvar "luprec" 2)


(if (= ply_stil_yuk 0.0)
(progn
(command "text" ply_nokt ply_mes "0" (rtos ply_topla)))
(progn
(command "text" ply_nokt "0" (rtos ply_topla))))
))))
(setvar "luprec" ply_lup)
(princ))

19.09.2014 08:07    

ehya
LT sürüm kullanıyorsanız çalışmaz. Bunun haricinde çalışmama gibi bir durum söz konusu değildir.
Lisp yükleniyor ama çalışırken hata veriyorsa hata iletisini yazın.

19.09.2014 17:52    

bozok
Komutun çalışması sırasında çıkan iletilerin hepsi aşağıdaki gibidir. Ayrıca ilginize teşekkür ederim.

Command: PLY
Pline, Line, Arc olan nesneleri seçiniz:
Select objects: 1 found

Select objects:
lengthen
Select an object to measure or [DElta/Percent/Total/DYnamic] <Total>:

Current length: 3.29
Select an object to measure or [DElta/Percent/Total/DYnamic] <Total>:
Specify total length or [Angle] <1.00>:
Mesafe:<10>:

Yazı için Referans Noktayı Gösterin:text
Requires numeric distance, two points, or option keyword.
nil
Specify total length or [Angle] <1.00>: 5

Select an object to change or [Undo]:

20.09.2014 06:19    

ehya
bu kullandığınız çok eski bir lisp.. hatalarla dolu :)

aşağıdaki linkte bulunan lispi kullanın.



Linkleri görebilmek için ÜYE olmalısınız.

> 1 <
Copyright © 2004-2022 SQL: 1.997 saniye - Sorgu: 53 - Ortalama: 0.03768 saniye