It is the ideal companion to read, create, annotate or modify DWG drawings on your smartphone or tablet.
#Autocad lisp yazma full
(cons 11 (list (+ TXTX 2.ARES Touch is a full CAD solution for professionals. (setq encw 25.00) easting & northing Column width (setq TXTX (car SP)) gets x coord of text start point (command "-LAYER" "N" "Coordinate Table" "C" "7" "Coordinate Table" "LT" "Continuous" "Coordinate Table""LW" "0.00" "Coordinate Table" ""))
(if (not (tblsearch "layer" "Coordinate Table")) (setq SP (getpoint "\nPick start point for table")) (if (= (getvar "tilemode") 1) (setvar "tilemode" 0)) (setq CORDS (acad_strlsort CORDS)) sorts list into order (prompt "\n Zoom Extend to View All Points & Enter Command CRT to Create Table.") (command "-insert" "CRBLK" "_NON" CRPT th th "0" ENNO1) (if (not (tblsearch "layer" "Coordinate Points")) (command "-LAYER" "N" "Coordinate Points" "C" "7" "Coordinate Points" "LT" "Continuous" "Coordinate Points""LW" "0.00" "Coordinate Points" "")) (setq ENNO (nth 0 ENCR)) Get the CRPT number (setq ENCR (strcat "(" ENCR ")")) Correct format (setq ENCR (read-line CRDS)) Read ENCR from input file (SETQ Data (GETFILED "Select Text File to Import" (IMPPS) "" 0)) (setq th (/ hs 1000.0)) scale factor to be applied to block (setq cv 1000.0) annotation multipiclation factor (eg. (if (not hs) (setq hs df-hs) (setq df-hs hs)) (setq hs (getreal (strcat "\nEnter scale 1:: "))) (if (not df-hs) (setq df-hs 1000.0)) default horizontal scale
(defun C:NCNOKU (/ CRDS ENCR ENNO ENNO1 CRPT DATA th ) (vla-put-explodable (vla-Item BLOCKS "CRBLK") :vlax-false) (entget (cdr (assoc 330 (entget (tblobjname "BLOCK" "CRBLK"))))) (append (subst (cons 70 6) (assoc 70 lst) lst) (cons 4 "Block to Place Coordinate Points") (prompt "\n *** File not Found or Incorrect Format ***\n © Bijoy Manoharan 2012 (princ) Purpose: Import coordinate & create table (defun DRAW_PUNKT (/ d kat_90 kat_270 p1 p2 p3 p4) (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 kommentar(er)
