[编程交流] 需要修改此代码

;; ==================================================================== ;;
;;                                                                      ;;
;;  ORDY.LSP - This lisp for labeling X,Y coordinates and point         ;;
;;               numbers with standard _DIMORDINATE dimension.            ;;
;;               All coordinates and point numbers keeps in the           ;;
;;               text file "Drawing_Name.csv" in a format:                ;;
;;             "point_number, X-coordinate, Y-coordinate, 0".           ;;
;;             The dimension properties is defined by current           ;;
;;             dimension style and variables DIMSCALE, DIMLFAC          ;;
;;             and DIMDEC.                                              ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  Command(s) to call: ORDY                                            ;;
;;                                                                      ;;
;;  Specify point number and insert coordinates labels.                 ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  THIS PROGRAM AND PARTS OF IT MAY REPRODUCED BY ANY METHOD ON ANY    ;;
;;  MEDIUM FOR ANY REASON. YOU CAN USE OR MODIFY THIS PROGRAM OR        ;;
;;  PARTS OF IT ABSOLUTELY FREE.                                        ;;
;;                                                                      ;;
;;  THIS PROGRAM PROVIDES 'AS IS' WITH ALL FAULTS AND SPECIFICALLY      ;;
;;  DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS        ;;
;;  FOR A PARTICULAR USE.                                               ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  V1.1, 8th Apr 2008, Riga, Latvia                                    ;;
;;  © Aleksandr Smirnov (ASMI)                                          ;;
;;  For AutoCAD 2000 - 2008 (isn't tested in a next versions)           ;;
;;                                                                      ;;
;;                                 http://www.asmitools.com             ;;
;;                                                                      ;;
;; ==================================================================== ;;
(defun c:ordy(/ fPt oldEcho oldNum dFlc dDec fVar cX cY cNum *error*) 
 (defun *error*(msg) 
   (setvar "CMDECHO" 1)
   (if fVar(close fVar))
   (princ) 
   ); end of *error* 
 (princ(strcat "DIMSCALE="(rtos(getvar "DIMSCALE"))" "
        "DIMLFAC="(rtos(setq dFlc(getvar "DIMLFAC")))" "
        "DIMDEC="(rtos(setq dDec(getvar "DIMDEC")))" "
 ); end strcat
); end princ        
 (setvar "CMDECHO" 0)
 (if(= 0(getvar "USERI3"))(setvar "USERI3" 1)
   ); end if
 (setq cNum(getint(strcat "\nSpecify first point number <"
                        (itoa(getvar "USERI3")) ">: ")))
 (if cNum (setvar "USERI3" cNum))
 (setq fVar(open(strcase(strcat(getvar "DWGPREFIX")
                         (getvar "DWGNAME") ".csv")) "a"))
 (while
   (setq fPt
   (getpoint
            (strcat "\nSpecify point or Right-Click to Quit <"
             (itoa(getvar "USERI3"))">: ")))
     (if(vl-cmdf "_.dimordinate" fPt "_t" 
         (strcat
"["(itoa(getvar "USERI3"))"]" "\\P"
      (setq cX(rtos(* dFlc(car fPt))2 dDec)) "mE"  
      "\\X" 
      (setq cY(rtos(* dFlc(cadr fPt))2 dDec)) "mN"
      ); end strcat 
         pause 
         ); end vl-cmdf
(progn
  (write-line
    (strcat
      (itoa(getvar "USERI3")) "," cX "," cY "," "0")fVar)
  (setvar "USERI3"(1+(getvar "USERI3")))
  ); end progn
); end if
   ); end while
   (close fVar)
   (setvar "CMDECHO" 1) 
 (princ) 
 ); end of c:ordy
(princ "\n[info] http:\\\\www.AsmiTools.com [info]")
(princ "\n[info] Type ORDY to tag coordinates [info]")

(setq ent (entget (car (entsel))))
(setq inspt (list (nth 1  (assoc 10 ent))(nth 2  (assoc 10 ent))))
(setq str (cdr (assoc 1 ent)))

(setq ent (vlax-Ename->Vla-Object (car (entsel))))
(setq str (vla-get-textstring ent))
(setq pt (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent))))
(alert (strcat "X Y " (rtos (car pt) 2 2) "," (rtos (cadr pt) 2 2) "\n" str))

;;; Dump all methods and properties for selected objects              ;
;;;===================================================================; 
;;; DumpIt                                                            ; 
;;;-------------------------------------------------------------------; 
;;;===================================================================; 
(defun C:DumpIt ( / ent) 
 (while (setq ent (entsel)) 
   (vlax-Dump-Object 
     (vlax-Ename->Vla-Object (car ent)) T
   ) 
 ) 
(textpage)
 (princ) 
)

(defun get:text (/ obj)
(princ "\nSelect text :")
 (if (setq obj (ssget "_+.:S:E" '((0 . "*TEXT"))))
   (cdr (assoc 1 (entget (ssname obj 0))))
   )
 )
;; ... usage of the above function.    ;;
(get:text)

(while (and (setq fPt (getpoint (strcat "\nSpecify point or Right-Click to Quit <" (itoa (getvar "USERI3")) ">: ")))
           (princ "\nPick a text :")
           (setq txt (ssget "_+.:S:E" '((0 . "*TEXT"))))
           )

(write-line (strcat (itoa (getvar "USERI3")) "," cX "," cY "," "0" (cdr (assoc 1 (entget (ssname txt 0))))) fVar)

(/ fPt oldEcho oldNum dFlc dDec fVar cX cY cNum *error* txt)