AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoCAD Acil Yardım > Autocad' de Yazılara sembol ekleme
13.08.2013 08:12    
anty_hacker
Autocad'de örneğin numaralandırma yaptık fakat bir grup numaraların parantez içerisinde olması için ne yapabilirim.

ör: 1151 , 0251 vs bu şekilde 4 haneli sayılar mevcut projede bunları (1151) , (0251) şekline dönüştürebilecek bir komut, lisp varmıdır?

Attribute üzerinden gitmeye çalıştım fakat çözüm bulamadım.

Bir fikri olan varmıdır ?


Teşekkürler.

13.08.2013 08:14    
Travaci
Bunlar text mi attribut mu ?

13.08.2013 08:18    
anty_hacker
text olanda var attribute olanda var ? bi yolunu bulsam ondan yapıcam hepsini.

Command: dt
TEXT
Current text style: "Standard" Text height: 18.0000 Annotative: No
Specify start point of text or [Justify/Style]:
Specify height <18.0000>:
Specify rotation angle of text <0>:
Command:

13.08.2013 08:22    
Travaci
Kod:

(defun c:pRTz (/)
   (seTvar "CmdecHo" 0) (command "undo" "group")
   (princ "\nParantez içine alınacak yazıları seçiniz:")
   (setq gEt (ssget '((0 . "*tEXt"))) L 0)
   (while (< L (sslength gEt))
      (setq oBj (entget (ssname Get L))
            yAz (strcat "(" (cdr (assoc 1 oBj)) ")")
            oBj (subst (cons 1 yAz) (assoc 1 oBj) oBj))
      (entmod oBj)
      (setq L (+ L 1)))
   (command "_.undo" "e") (princ))

Travaci (13.08.2013 08:43 GMT)

13.08.2013 08:27    
anty_hacker
text' leri çeviyor, çok teşekkür ederim.

Yardımlarınızdan dolayı.

> 1 <
Copyright © 2004-2022 SQL: 0.86 saniye - Sorgu: 55 - Ortalama: 0.01563 saniye