01.01.2016 15:02

82608    

Autocad 2009'da otomatik kullandığım lispler Autocad2014'te otomatik çalışmıyor. Yardımcı olur musunuz?
Mesela:

(DEFUN degistir (qq qp qn / qe1 qz)
(setq qe1 (car (entget (car yy_sec))))
(setq qz (list qe1 (cons qp qn))))

(defun c:yt ()
(SETQ LUP (GETVAR "LUPREC"))
(SETVAR "LUPREC"0)
(princ "nToplamı alınacak yazıları seçiniz:")
(setq yy_sec (ssget (list (cons 0 "TEXT"))))
(if (= yy_sec nil)
(progn)
(progn
(setq yy_topla 0)
(setq yy_c 0)
(setq yy_say (sslength yy_sec))
(while (< yy_c yy_say)
(setq e_yy_sec (ssname yy_sec yy_c))
(setq tan_e_yy_sec (cdr (assoc 1 (entget e_yy_sec))))
(setq yy_num (numberp (atof tan_e_yy_sec)))
(if (= yy_num nil)
(progn)
(progn
(setq yy_topla (+ yy_topla (atof tan_e_yy_sec)))
(setq yy_c (+ yy_c 1)))))

(setq yy_sec (entsel "nDeğişecek yazıyı seçin:"))
(if (= yy_sec nil)
(progn
)
(progn
(entmod (degistir (car yy_sec) 1 (rtos yy_topla 2 2)))))
))
(SETVAR "LUPREC"LUP)
(princ))
(PRINC "--> 'www.cizimokulu.com' Çizim yardımları yüklendi !")

admin (17.12.2017 11:44 GMT)

***TAKDİR EDİLİYORSAN DEĞİL,TAKLİT EDİLİYORSAN BAŞARMIŞSIN DEMEKTİR***

02.01.2016 11:30

82612    

çok sağol bilgi için. işe yaradı. bir sorum daha olacak.
Daha önce autocad2009 da çalışan lisp autocad2014 te
Select a solid:AutoCAD variable setting rejected: "dimzin" nil
hatası veriyor. Bu nasıl düzelir?

***TAKDİR EDİLİYORSAN DEĞİL,TAKLİT EDİLİYORSAN BAŞARMIŞSIN DEMEKTİR***

02.01.2016 12:36

82615    

hayırlısı olsun artık. eğer çözebilirsem buradan paylaşırım.

***TAKDİR EDİLİYORSAN DEĞİL,TAKLİT EDİLİYORSAN BAŞARMIŞSIN DEMEKTİR***