Forum
Download
Galeri
Üye Ol
|
Giriş
AutoCAD
•
AutoLISP
•
Programlama
•
Püfler
•
Komutlar
•
Terimler
•
Eğitim
aLd
•
TCad
•
FacadeCAD
•
Cephe Kot
•
HQ Library
•
FreeMUST
•
Pasdoc.A
Forumlar
>
AutoCAD Acil Yardım
>
text yardım
86725
18.10.2018 14:42
allengir
Arkadaşlar text komutuyla yazılmış alt alta100 tane sayı var. Bunların hepsinin başına tek seferde A harfi yazmak istiyorum. Nasıl yapabilirim ?
86727
18.10.2018 15:03
Travaci
Kod:
(defun c:atx (/ sg) (vl-load-com)
(if (and (setq ad (vla-get-activedocument (vlax-get-acad-object))
st (getstring T "\nEnter text:")
sg (ssget (list (cons 0 "*text")))))
(progn
(vla-startundomark ad)
(repeat (setq n (sslength sg))
(setq ob (vlax-ename->vla-object (ssname sg (setq n (1- n)))))
(vla-put-TextString ob (strcat st (vla-get-TextString ob))))
(vla-endundomark ad)
)
) (princ)
)
86730
19.10.2018 05:23
allengir
Çok teşekkür ederim. İşimi gördü :)
>
1
<
Copyright © 2004-2022 SQL: 0.886 saniye - Sorgu: 52 - Ortalama: 0.01704 saniye