求大神帮忙修改下这个坐标标注的LSP程序！

风青c

如题，下面这段程序增加一段命令，让使用时会提示选择字高高度、是否交换X、Y坐标值（前缀不变）、定义坐标原点，最好做成弹出对话框形式的、简单明了。
(defun C:XYZ (/ OSNAP PNT1 P1X P1Y P1Z P STDX STDY STDZ XCOORD YCOORD ZCOORD PTXT )
    (setvar "ORTHOMODE" 0)
   ; (setq OSNAP (getvar "OSMODE"))
   ; (command "setvar" "osmode" "1")   
    (command "setvar" "luprec" "0")
    (prompt "NOTE!!! Coords. & leader drawn per current dimstyle; precision per UNITS... ")
             (setq dst (getvar "dimstyle"))
  (command "_.-DIMSTYLE" "_Restore" dst)
    (setq PNT1 (getpoint "\nPick coordinate point: "))
    (setq P1X (car pnt1))
    (setq P1Y (cadr pnt1))
    (setq P1Z (caddr pnt1))
    (setq P (getvar "LUPREC"))
    (setq STDX (rtos P1X 2 P))
    (setq STDY (rtos P1Y 2 P))
    (setq STDZ (rtos P1Z 2 P))
    (setq XCOORD (strcat "X " STDX ))
    (setq YCOORD (strcat "Y " STDY ))
    (setq ZCOORD (strcat "Z " STDZ ))
    (setq PTXT (getpoint
      "\nPick text location: "))
    (command "LEADER" PNT1 PTXT "" XCOORD YCOORD ZCOORD "")
   ; (command "SETVAR" "osmode" OSNAP)
    (command "setvar" "luprec" "4")
(princ)
)

风青c

类似这种程序。

kcrocwgp

学生不能发帖，郁闷