Размер видео: 1280 X 720853 X 480640 X 360
Показать панель управления
Автовоспроизведение
Автоповтор
İyi günler Metin Bey,Dekontu mail attım.Başarılı çalışmalarınızın devamını dilerim.Saygılarımla...
Cengiz bey selamlar,Programı az önce mail attım , mailde gerekli bilgilendirmeyi yaptım, ihtiyaç duyarsanız, iletişim bilgilerimi de yazdım, teşekkür ederim, iyi çalışmalar.
@@mimders9327 Teşekkür ederim Metin bey. İyi çalışmalar dilerim.
merhaba 2023 versiyonunda da çalışır mı acaba?
Her versiyonda çalışır
LİSP DOSYASINI PAYLAŞIR MISINIZ
merhaba, mail adresinizi yazabilirseniz, gönderebilirim, abone olup beğeni bırakmanızı rica ederim
@@mimders9327 HOCAM agbabaakif@gamil.com gönderme imkanınız varmı tşkler...
Parayı gönderdim ama hala gelmedi
Mail olarak gönderdim bilginize
Merhaba lips paylaşır mısınız ? cnslzby@gmail.com
Videonun infosuna bakabilirsiniz
ben teknik ressamım bu lisp dosyasını mozkorul @gmail.com adresine e posta atabilirmisiniz şimdiden teşekkürler
Bknz, ltfn videonun infosu
alperenbudak643@gmail.com paylaşabilir misiniz.
Videonun infosuna bakabilir siniz
Merhaba, Lisp dosyasını paylaşabilir misiniz? e.bayram06@gmail.com teşekkürler.
Video nun infosunda gerekli bilgiyi bulabilirsiniz
(vl-load-com)(defun C:Alan ( / pline tagblock attribute e d attobj plineobj) (setq pline (car (entsel "Polyline secilsin: "))) (setq tagblock (car (entsel "Tag block secilsin: "))) (entsel "Regen etmeyi unutmayalim ") (setq e (entnext tagblock)) (while (and (not attribute) (/= "SEQEND" (cdr (assoc 0 (setq d (entget e)))))) (if (eq "ALAN" (cdr (assoc 2 d))) (setq attribute e) ) (setq e (entnext e)) ) (if attribute (progn (setq attobj (vlax-ename->vla-object attribute)) (setq plineobj (vlax-ename->vla-object pline)) (setq plineid (vla-get-objectid plineobj)) (vla-put-textstring attobj (strcat "%%" ) ) (vlax-release-object attobj) (vlax-release-object plineobj) ) ) (princ))
İyi günler Metin Bey,
Dekontu mail attım.
Başarılı çalışmalarınızın devamını dilerim.
Saygılarımla...
Cengiz bey selamlar,
Programı az önce mail attım , mailde gerekli bilgilendirmeyi yaptım, ihtiyaç duyarsanız, iletişim bilgilerimi de yazdım, teşekkür ederim, iyi çalışmalar.
@@mimders9327 Teşekkür ederim Metin bey. İyi çalışmalar dilerim.
merhaba 2023 versiyonunda da çalışır mı acaba?
Her versiyonda çalışır
LİSP DOSYASINI PAYLAŞIR MISINIZ
merhaba, mail adresinizi yazabilirseniz, gönderebilirim, abone olup beğeni bırakmanızı rica ederim
@@mimders9327 HOCAM agbabaakif@gamil.com gönderme imkanınız varmı tşkler...
Parayı gönderdim ama hala gelmedi
Mail olarak gönderdim bilginize
Merhaba lips paylaşır mısınız ? cnslzby@gmail.com
Videonun infosuna bakabilirsiniz
ben teknik ressamım bu lisp dosyasını mozkorul @gmail.com adresine e posta atabilirmisiniz şimdiden teşekkürler
Bknz, ltfn videonun infosu
alperenbudak643@gmail.com paylaşabilir misiniz.
Videonun infosuna bakabilir siniz
Merhaba, Lisp dosyasını paylaşabilir misiniz? e.bayram06@gmail.com teşekkürler.
Video nun infosunda gerekli bilgiyi bulabilirsiniz
(vl-load-com)
(defun C:Alan ( / pline tagblock attribute e d attobj plineobj)
(setq pline (car (entsel "
Polyline secilsin: ")))
(setq tagblock (car (entsel "
Tag block secilsin: ")))
(entsel "
Regen etmeyi unutmayalim ")
(setq e (entnext tagblock))
(while (and (not attribute)
(/= "SEQEND" (cdr (assoc 0 (setq d (entget e))))))
(if (eq "ALAN" (cdr (assoc 2 d)))
(setq attribute e)
)
(setq e (entnext e))
)
(if attribute
(progn
(setq attobj (vlax-ename->vla-object attribute))
(setq plineobj (vlax-ename->vla-object pline))
(setq plineid (vla-get-objectid plineobj))
(vla-put-textstring attobj
(strcat
"%%"
)
)
(vlax-release-object attobj)
(vlax-release-object plineobj)
)
)
(princ)
)