01.01.2016 15:02    

allengir
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)

02.01.2016 06:56    

halilozcakir


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




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




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



ilave olarak acizane tavsiyem var ; autocad i sağ klik yönetici olarak çalıştır windows işletim sistemi ile alakalı sıkıntılar oluyor idi böyle yaptım lispler artık contense eklediklerim bile tekrar tekrar yüklenmesini gerekmiyor,


açık autocad e dosya sürükle bırak şeklinde dosyayı açarız ya yönetici çalıştırdığımda açmıyor,admin olarak sisteme tam yetkiniz var diyen bilgi işlem de çözemedi windowsun sorunu bu..

halilozcakir (02.01.2016 09:42 GMT)

02.01.2016 11:30    

allengir
ç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?

02.01.2016 11:48    

halilozcakir
bu windoswla bence düzelmez. xp ye geri dönmek lazım :) hocamızın güzelim lispi multi fillet lispim de çalışmıyor. çözemedim evdeki benim emektar 2008 den kalma XP li külüstürde çalışıyor burada tık yok.

02.01.2016 12:36    

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

28.01.2016 13:57    

halilozcakir
yok yok yok hüsranlardayım , moralim çok bozuk .. bilgisayara format attım win 7 ye geri döndüm ama olmadı . en önemlisi startup suite e yani bizim Çanta sembolüne yüklediğim text lispi otomatik yüklenme işlemi çalışmıyor. multi fillet en içteki çizğiyi fillet yapıp diğerlerini sadece extend yapıyor.

> 1 <
Copyright © 2004-2022 SQL: 0.966 saniye - Sorgu: 57 - Ortalama: 0.01694 saniye