Dimension Yazısını Degistirme | Forumlar

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

Forumlar > AutoLISP > Dimension Yazısını Degistirme

01.05.2012 09:22

trkgo

Dımensıon yazısındakı olcu yazılarını 123 gıbı degıstırıp ıstedıgım yazıyı yazabılecegım lısp varmıdır.

Sımdıden tesekkurler...

68675

01.05.2012 12:31

ProhibiT

Aslında bu bir Lisp konusu olmasa gerek...

Kod:

(defun c:dd (/) (command "_.dim1" "new" (getstring) (car (entsel))))

Ölçüyü orijinal değerine çevirmek için Dimension Text olarak <> girmeniz yeterli.

69539

20.07.2012 09:19

trkgo

Alıntı
ProhibiT :
Aslında bu bir Lisp konusu olmasa gerek...
Kod:

(defun c:dd (/) (command "_.dim1" "new" (getstring) (car (entsel))))
Ölçüyü orijinal değerine çevirmek için Dimension Text olarak <> girmeniz yeterli.

Eyvallah çok güzel olmuş ama tam anlatamadım galiba,
Benim istediğim tıkladığım dimension yazılarına A1,A2,A3 gibi sıralı kodlar versin.

69563

22.07.2012 14:18

Travaci

Kod:

;***** Yazılarını Belirtildiği Gibi Sıralar. *****;
(defun c:Dsra ( / fnmbr fadd ladd lwrt )
(setq fnmbr (GetString "\nBaşlama sayısı: "))
(if (= fnmbr "") (setq fnmbr "1"))
(setq fnmbr (atoi fnmbr))
(setq fadd (getString "\nÖn ek: " T))
(setq ladd (getString "\Arka ek: " T))
(setq e (entsel "\nDeğiştirilecek yazı: "))
(while (/= e nil)
(setq eleman (entget (car e)))
(setq lwrt (strcat fadd (rtos fnmbr 2 0) ladd))
(setq data (assoc 1 eleman))
(setq eleman (subst (cons 1 lwrt) data eleman))
(entmod eleman)
(setq fnmbr (+ fnmbr 1))
(setq e (entsel "\nDeğiştirilecek yazı: "))
)
)

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş