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

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: 0.822 saniye - Sorgu: 44 - Ortalama: 0.01867 saniye