显示xyz值的例程
我找到了两个lisp例程来显示xy值，但如果有人有一个例程来显示xy和Z，我会很伤心。 试试这个对我来说行绳LSP 谢谢，当我运行命令时，文本是颠倒的，值看起来像O
Y 2222
Z-1111 试试这个，如果它不适合你，我有另一个是测量图形设置。
;;--------------------------------------------------------------------------
;; 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)
)
尝试使用2006 cad，我有2008 lt，但没有加载应用程序的选项
电源线-LDR。LSP Lisp程序
对于无法加载的lisp，可能是autocad版本为LT，
对于Lisp程序的人来说，这太棒了
但是我怎么能在桌子上收集呢
为此，我使用了lisp，并将其重命名为LLP。lsp
它将使用当前dimstyle绘制引线，输入后，它将使用当前文字样式和大小添加第一个引线点的X、Y、Z坐标，并在选定的第一个点上绘制点。
我已经修改了它的原始版本来做所有这些事情。
有限责任合伙。LSP 伙计们，
请记住，这条帖子已经2年了-你可能不会得到回复：wink： 先生
非常感谢你的Lisp程序。
当做
Sharafudheen公司
页:
[1]