Lisp inserare coordonate X Y

[bogdan.cadastru]

salutare colegi
caut si eu un lisp care sa-mi puna niste coordonate x,y unde dau eu click pe ecran...
ceva care sa semene cu poza atasata
in AutoCad nu am gasit decat sa pun alternativ x sau y nu ambele in acelasi timp...



549/321px 26.9KB

[advex]

Incearca urmatoarea aplicatie:

Cod [Selectează] Extinde


;; ==================================================================== ;;
;;                                                                      ;;
;;  ORDI.LSP - This lisp for labeling X,Y coordinates with              ;;
;;             standard _DIMORDINATE dimension. The dimension           ;;
;;             properties is defined by current dimension               ;;
;;             style and variables DIMSCALE, DIMLFAC                    ;;
;;             and DIMDEC.                                              ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  Command(s) to call: ORDI                                            ;;
;;                                                                      ;;
;;  ... and pick, pick, pick... till Esc is pressed.                    ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  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.3, 12 May, 2005, Riga, Latvia                                    ;;
;;  © Aleksandr Smirnov (ASMI)                                          ;;
;;  For AutoCAD 2000 - 2008 (isn't tested in a next versions)           ;;
;;                                                                      ;;
;;                             http://www.asmitools.com                 ;;
;;                                                                      ;;
;; ==================================================================== ;;


(defun c:ordi(/ fPt oldEcho dFlc dDec *error*)

  (defun *error*(msg)
      (setvar "CMDECHO" oldEcho)
    (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
  (setq oldEcho(getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (princ "\n<<< Specify point or Esc to Quit >>> ")
  (while T
  (if
    (setq fPt(getpoint))
    (progn
      (command "_.dimordinate" fPt "_t"
          (strcat
       "X=" (rtos(* dFlc(car fPt))2 dDec)
       "\\X"
       "Y=" (rtos(* dFlc(cadr fPt))2 dDec)
       ); end strcat
          pause
          ); end command
      ); end progn
    ); end if
    ); end while
    (setvar "CMDECHO" oldEcho)
  (princ)
  ); end of c:ordi

(princ "\n[Info] http:\\\\www.AsmiTools.com [Info]")
(princ "\n[Info] X,Y coordinates labeling. Type ORDI to run. [Info]")


[bogdan.cadastru]

e bun numai ca le pune inversate coordonatele

am reusit sa inversez da nu pot pune sus "x" deloc

imi apare

 Y=......
 X=......

Modificat de bogdan.cadastru (09-05-2013 22:04:42)

[advex]

e bun numai ca le pune inversate coordonatele

am reusit sa inversez da nu pot pune sus "x" deloc

imi apare

 Y=......
 X=......

Nu toata lumea lucreaza in Stereo 70...

Cod [Selectează] Extinde

;; ==================================================================== ;;
;;                                                                      ;;
;;  ORDI.LSP - This lisp for labeling X,Y coordinates with              ;;
;;             standard _DIMORDINATE dimension. The dimension           ;;
;;             properties is defined by current dimension               ;;
;;             style and variables DIMSCALE, DIMLFAC                    ;;
;;             and DIMDEC.                                              ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  Command(s) to call: ORDI                                            ;;
;;                                                                      ;;
;;  ... and pick, pick, pick... till Esc is pressed.                    ;;
;;                                                                      ;;
;; ==================================================================== ;;
;;                                                                      ;;
;;  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.3, 12 May, 2005, Riga, Latvia                                    ;;
;;  © Aleksandr Smirnov (ASMI)                                          ;;
;;  For AutoCAD 2000 - 2008 (isn't tested in a next versions)           ;;
;;                                                                      ;;
;;                             http://www.asmitools.com                 ;;
;;                                                                      ;;
;; ==================================================================== ;;


(defun c:ordi(/ fPt oldEcho dFlc dDec *error*)

  (defun *error*(msg)
      (setvar "CMDECHO" oldEcho)
    (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
  (setq oldEcho(getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (princ "\n<<< Specify point or Esc to Quit >>> ")
  (while T
  (if
    (setq fPt(getpoint))
    (progn
      (command "_.dimordinate" fPt "_t"
          (strcat
   "X=" (rtos(* dFlc(cadr fPt))2 dDec)       
   "\\X"
   "Y=" (rtos(* dFlc(car fPt))2 dDec)
       ); end strcat
          pause
          ); end command
      ); end progn
    ); end if
    ); end while
    (setvar "CMDECHO" oldEcho)
  (princ)
  ); end of c:ordi

(princ "\n[Info] http:\\\\www.AsmiTools.com [Info]")
(princ "\n[Info] X,Y coordinates labeling. Type ORDI to run. [Info]")


[bogdan.cadastru]

merge dar sa ma pici cu ceara daca vad unde ai facut modificarea

[bogdan.cadastru]

gata

aici

Cod [Selectează] Extinde

      "X=" (rtos(* dFlc(car fPt))2 dDec)
      "\\X"
      "Y=" (rtos(* dFlc(cadr fPt))2 dDec)


[bogdan.cadastru]

Multam fain de tot...
raman dator

[advex]

Sa fie cu folos!