(DEFUN c:blkguts ( / blkss) (IF ustr NIL (LOAD "ustr" "\nFile USTR.LSP not loaded! ") ) ;_ end of IF (SETQ blkname (ustr 1 "Current name of point blocks?" (IF blkname blkname "POINT" ) ;_ end of IF T ) ;_ end of ustr ) ;_ end of SETQ (SETQ blkss (SSGET "X" (LIST (CONS 2 blkname)))) (SETQ blksslen (SSLENGTH blkss)) (IF (> blksslen 0) (PROGN (SETQ pntsout (OPEN (STRCAT (GETVAR "DWGPREFIX") "points.txt") "w")) (SETQ blkcnt 0) (WHILE (< blkcnt blksslen) (SETQ selptdef (ENTGET (SSNAME blkss blkcnt))) (WHILE (/= (CDR (ASSOC 0 selptdef)) "SEQEND") ;;; (PRINC "\n") ;;; (PRINC (CDR (ASSOC 0 selptdef))) ;;; (PRINC) (IF (EQ (CDR (ASSOC 0 selptdef)) "ATTRIB") (COND ((OR (EQ (CDR (ASSOC 2 selptdef)) "PT#") (EQ (CDR (ASSOC 2 selptdef)) "POINT") ) ;_ end of OR (SETQ pnt# (CDR (ASSOC 1 selptdef))) ;;; (SETQ selptdef (SUBST (CONS 2 "POINT")(ASSOC 2 selptdef)selptdef)) ;;; (SETQ selptdef (SUBST (CONS 8 "PNTs")(ASSOC 8 selptdef)selptdef)) ;;; (ENTMOD selptdef) ) ((OR (EQ (CDR (ASSOC 2 selptdef)) "ELEV2") (EQ (CDR (ASSOC 2 selptdef)) "ELEV") ) ;_ end of OR (SETQ elev# (CDR (ASSOC 1 selptdef))) ;;; (SETQ selptdef (SUBST (CONS 2 "ELEV")(ASSOC 2 selptdef)selptdef)) ;;; (SETQ selptdef (SUBST (CONS 8 "ELEV")(ASSOC 8 selptdef)selptdef)) ;;; (ENTMOD selptdef) ) ((OR (EQ (CDR (ASSOC 2 selptdef)) "DESC2") (EQ (CDR (ASSOC 2 selptdef)) "DESC") ) ;_ end of OR (SETQ desc# (CDR (ASSOC 1 selptdef))) ;;; (SETQ selptdef (SUBST (CONS 2 "DESC")(ASSOC 2 selptdef)selptdef)) ;;; (SETQ selptdef (SUBST (CONS 8 "DESC")(ASSOC 8 selptdef)selptdef)) ;;; (ENTMOD selptdef) ) ) ;_ end of COND ) ;_ end of IF (SETQ selptdef (ENTGET (ENTNEXT (CDR (ASSOC -1 selptdef))))) ) ;_ end of while (WRITE-LINE (STRCAT pnt# "," (RTOS (CADDR (ASSOC 10 (ENTGET (SSNAME blkss blkcnt)))) 2 4) "," (RTOS (CADR (ASSOC 10 (ENTGET (SSNAME blkss blkcnt)))) 2 4) "," elev# "," desc# ) ;_ end of STRCAT pntsout ) ;_ end of WRITE-LINE (SETQ blkcnt (1+ blkcnt)) ) ;_ end of WHILE (CLOSE pntsout) ) ;_ end of PROGN ) ;_ end of IF (PRINC) ) ;_ end of defun ;|«Visual LISP© Format Options» (84 2 40 2 T "end of " 60 9 2 0 0 T T nil T) ;*** DO NOT add text below the comment! ***|;