显示xyz值的例程

Northstar · 发表于 2022-7-5 19:51:54

我找到了两个lisp例程来显示xy值，但如果有人有一个例程来显示xy和Z，我会很伤心。

mdbdesign · 发表于 2022-7-5 20:05:07

试试这个对我来说行
绳LSP

Northstar · 发表于 2022-7-5 20:10:27

谢谢，当我运行命令时，文本是颠倒的，值看起来像O
Y 2222
Z-1111

Guest Alan Cull · 发表于 2022-7-5 20:21:43

试试这个，如果它不适合你，我有另一个是测量图形设置。

copy

;;--------------------------------------------------------------------------
;; COORDRL.LSP              PLACE CO-ORDINATE & LEVEL TEXT OF SELECTED POINT
;;==========================================================================
;;DESCRIPTION:  This routine will place co-ordinate text and point level
;;              alongside a defined (user selected) point.  The `x', `y' & `z' 
;;              values of the selected point will be preceded with an `E', `N' 
;;              &`RL' respectively. This routine also places a donut at the 
;;              point.  The co-ord & level text is then echoed to the screen 
;;              alongside the selected point, and the user is prompted to select 
;;              the desired location of the text.  
;;
;;START COMMAND........   coordrl
;;
;;WRITTEN BY:   ALAN CULLEN           November 1999
;;
;;AMENDED:      October 2007          Re-written for Tiger
;;
;;---------------------------ERROR HANDLER------------------------------
(defun clerr (s)
(if (/= s "Function cancelled")
 (if (= s "quit / exit abort")
  (princ)
  (princ (strcat "\nError: " s))
 )
)
(setvar "donutid" olid)
(setvar "donutod" olod)
(setvar "blipmode" olblip)
(setvar "LUPREC" oluprec)
(setvar "osmode" olsnap)
(setq el1 nil el2 nil)
(setvar "cmdecho" ocmd)
(setvar "ANGBASE" oangbase)       ;;Angle zero direction to "north"
(setvar "ANGDIR" oangdir)         ;;Clockwise angles
(setvar "dragmode" odrag)
(if olderr (setq *error* olderr))
(princ "\nERROR...CONSOLE BREAK...PREVIOUS DRAWING STATUS RESTORED...")
(princ)
)
;;-----------------------------MAIN PROGRAM------------------------------
(DEFUN C:coordrl  ()
(princ "\n PLACE POINT CO-ORDINATE & LEVEL TEXT  -  May 2000 - Alan CULLEN")
(setq txtang 90)                                                   ;;*** Set orientation angle for text (set for 0 deg = North, angles measured clockwise)
(setq lnspace 1.5)                                                ;;*** Set text line spacing factor (generally 1.
(setq olderr *error* *error* clerr)                ;;Set new error handler
(setq ocmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq olid (getvar "DONUTID"))
(setvar "donutid" 0)
(setq olod (getvar "DONUTOD"))
(setvar "donutod" 5.0)                                   ;;*** Set outside diameter of donut
(setq oluprec (getvar "LUPREC"))
(setvar "LUPREC" 3)                                           ;;*** Set number of decimal places
(setq olsnap (getvar "osmode"))
(setq ts 2.5)                                                           ;;*** Set text size
(setq olblip (getvar "blipmode"))
(setvar "blipmode" 1)                                   ;;*** Set BLIPMODE enviroment variable 0/1 ... 0=OFF, 1=ON
(setq oangbase (getvar "ANGBASE"))
(setvar "ANGBASE" (/ pi 2))                               ;;Angle zero direction to "north"
(setq oangdir (getvar "ANGDIR"))
(setvar "ANGDIR" 1)                                       ;;Clockwise angles
(setq odrag (getvar "dragmode"))
(setvar "dragmode" 2)
(setq pt T)
(while pt
 (princ "\n PLACE POINT CO-ORDINATE & LEVEL TEXT  -  May 2000 - Alan CULLEN")
 (setvar "osmode" 1)
 (setq pt (getpoint "\n Pick Point (snap set to END)    <RETURN> to finish :"))                      
 (setvar "osmode" 0)
 (if (/= pt nil)
  (progn
   (setq ptx (car pt) pty (cadr pt) ptz (caddr pt))
   (setq txtptx (strcat "E " (rtos ptx)))
   (setq txtpty (strcat "N " (rtos pty)))
   (setq txtptz (strcat "RL " (rtos ptz)))
   (setq pt1 (list ptx pty 0))
   (setq txtpt1 (list ptx (+ pty (* 2(* lnspace ts))) 0))
   (setq txtpt2 (list ptx (+ pty (* lnspace ts)) 0))
   (command "doughnut" "" "" pt1 "")
   (command "text" txtpt1 ts txtang txtptx)
   (setq el1 (entlast))
   (command "text" txtpt2 ts txtang txtpty)
   (setq el2 (entlast))
   (command "text" pt1 ts txtang txtptz)
   (setq el3 (entlast))
   (prompt "\n     Select the Desired Location for Text...... ")
   (command "move" el1 el2 el3 "" pt1 pause)
)))
(setvar "donutid" olid)
(setvar "donutod" olod)
(setvar "blipmode" olblip)
(setvar "LUPREC" oluprec)
(setvar "osmode" olsnap)
(setq el1 nil el2 nil)
(setq *error* olderr)             ;; Restore old error handler
(setvar "cmdecho" ocmd)
(setvar "ANGBASE" oangbase)
(setvar "ANGDIR" oangdir)
(setvar "dragmode" odrag)
(princ)
)