[编程交流] Entmake属性块

(defun c:test (/ *error* cmh   file hd wp export c)
   (defun *error* (msg)
    (if cmh(setvar 'cmdecho cmh))
           (and att(setvar 'attreq att))
           (and attd(setvar 'attdia attd))
  
        (and file (close file))
    (cond 
            ((not msg))
                ((member msg '("Function cancelled" "quit / exit abort")))
                ((princ (strcat "\nError:" msg)))
        )
        (princ)
)
(setq cmh(getvar 'cmdecho))
       (setq att(getvar 'attreq))
       (setq attd(getvar 'attdia))
       (setvar 'attreq 1)
       (setvar 'attdia 0)
(setvar 'cmdecho 0)
(setq suff(getstring t (strcat "\nEnter Prefix:< " (getvar 'users4) " >:")))
(if (or (= suff nil) (= suff ""))
    (setq suff(getvar 'users4))
   )
(setq  pre (getstring t (strcat  "\nEnter Suffix:< "(getvar 'users5)" >:")))
(if (or (= pre nil) (= pre ""))
    (setq pre(getvar 'users5))
)
(setq c 1)
(setq start(getint (strcat "\nEnter Starting No < " (rtos (getvar 'useri1) 2 0) " >:")))
(if (or (= start "") (= start nil))
    (setq start(getvar 'useri1))
)
(setq file(open "C:\" "w"))
(setq hd(strcat "SL.No." "," "Easting(m)" "," "Northing(m)" "," "Tag Name"))
(write-line hd file)
(while (setq wp(getpoint (strcat  "\nPick Location to Create Tag Number < " suff (rtos start 2 0) pre ">:")))
       (setq export(strcat (rtos c 2 0) "," (rtos (car wp)) "," (rtos (cadr wp)) "," (strcat suff (rtos start 2 0) pre)))
           (write-line export file)
           (princ "\nWriting Co-ordinate to csv file")
                 [color="red"] ;;here i want to insert attribute block;;; [/color]
           (setq start(1+ start))
           (setq c(1+ c))
)
(close file)
(setvar 'useri1 start)
(setvar 'users4 suff)
(setvar 'users5 pre)
(*error* nil)
   (princ)
)

(entmake '((0 . "BLOCK") (2 . "NodCond") (70 . 2) (8 . "0") (10 0 0 0) ; Isersion Point
   (4 . " Description: NodCond  .\n\n Made by Costin Bosneag"))  ) ;_ end of e
(entmake (list '(0 . "CIRCLE") '(8 . "0") '(10 0 0 0) (cons 40 radius)) ) ;_ end of e
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(6 . "Continuous") 
  '(8 . "0") '(43 . 0) '(90 . 2); 90 number of vertices
  '(10 0 0) '(10 0 0) ) ; 70 = closed pline  (70 . 1) (list 10 x y)    ) ;_ end of e
;       1=The default value ; 2 =Tag   ; 3 =Promt
(entmake (list '(0 . "ATTDEF") (cons 8 layer) '(10 0 0 0) '(70 . 0) '(1 . "Default Value") '(2 . "Prefix") 
 '(3 . "Get Prefix :") (cons 40 htx) (list 11 x y 0) '(74 . 2)) )
 .....
(entmake '((0 . "ENDBLK")) ) ;_ end of e  (8 . "0")

(setq scb (getreal "\n   Get  Scale  for  Insersion  Block  :  "))
(setq lisbx (cons 41 scb)  lisby (cons 42 scb)  lisbz (cons 43 scb) ) ;_ end of setq
; 41= X scale ; 42 = Y scale ; 43 = Z scale ;
(entmake (list '(0 . "INSERT") '(2 . "NodCond") '(8 . "Insert Layer") '(66 . 1) (list 10 x y 0) lisbx  lisby  lisbz) ) ; insert Block
(entmake (list '(0 . "ATTRIB") '(10 0 0 0) (cons 8 layer) (cons 1 text) '(2 . "tag") (cons 40 htx) '(70 . 0)  (list 11 x y 0) '(72 . 0) '(74 . 2)  )  )
  .... Att 2 , Att 3 , .....
(entmake '((0 . "SEQEND")) ) ; End Insert Block ! '(8 . "cod")