![]() (command "_text" NOKTA B "0" (strcat baslik (rtos NR 2 0))) (command "-text" "j" "bl" p11B B "" (strcat baslik (rtos NR 2 0)) "") (setvar "osmode" (logand (getvar "osmode") (~ 16384))) OSNAP ON (setvar "osmode" (logior (getvar "osmode") 16384)) OSNAP OFF (setq P1 (getpoint "\nKoordinat listesi köşe noktasını seçiniz:")) (setq ZN (getstring "\Noktaya balastro istermisiniz ? :")) (setq NP (getfiled "Kayıt Yapılacak Dosyayı Seçiniz" "" "ncn" 1)) (setq B (getreal "\Numara Boyunu Giriniz:")) (setq ZKOOR (getstring "\nZ KOORDINATI GIRINIZ :")) (setq NR (getint "\nBaslama Numarası Giriniz :")) ![]() (setq baslik (getstring "\nBASLIK GIRINIZ :")) ![]() (defun c:NCNYAZ(/ baslik NR NP ZN PD B old_cmdecho) ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |