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 lerin başına toplu olarak + işareti koymak
65951
28.09.2011 14:52
leonixs
Çizimde rakam olarak textlerim var.Başlarına toplu olarak + işareti koymak istiyorum.Bunu nasıl yapabilirim acaba?
65952
28.09.2011 16:43
ProhibiT
Kod:
(defun c:ApLTxT ()
(setvar "cmdecho" 0)
(command "_.undo" "begin")
(princ "\nBaşına + eklenecek Text'leri seçiniz...")
(setq sset (ssget (list (cons 0 "*text"))) L (sslength sset) m -1)
(while (< (setq m (1+ m)) L)
(setq sobj (entget (ssname sset m))
sobj (subst (cons 1 (strcat "+" (cdr (assoc 1 sobj))))
(assoc 1 sobj) sobj))
(entmod sobj) (entupd (cdr (assoc -1 sobj))))
(command "_.undo" "e") (princ)
)
Seçtiğiniz obje gurubu içindeki tüm text'lerin başına "+" ekler.
- seçilen text'lerin sayı olup olmadığına bakmaz.
- mtext ile oluşturulmuş, birden fazla satırdan oluşan objelerde, yalnızca ilk satırın başına "+" ekler.
kolay gelsin.
>
1
<
Copyright © 2004-2022 SQL: 1.019 saniye - Sorgu: 45 - Ortalama: 0.02265 saniye