[求助]：关于坐标标注！！为什么x、y上不能一次标注？

haige

能不能把两个方向上的坐标集合到一点，只要一次就标注出来！？

自由的鱼

论坛这样的程序太多了，你找找！

zhyo709

怎么没人帮忙，指明一下也好咯
就是这样的标注，我也不太明白

colatree

(defun c:ordin (/ p1 p2 p3 p4 p5)

  (setq p1 nil p2 nil p3 nil p4 nil p5 nil)
  (setq p1 (getpoint "\n標註線起點: "))

(while p1
   (initget (+ 1 8 32) "Xdatum Ydatum")
   (setq p3 (getcorner p1 "\n X.Y向標註線終點 \(Xdatum/Ydatum\): "))
   (cond
     ((= (type p3) 'LIST)
      (setq p2 (list (car p3)(cadr p1)))
      (setq p4 (list (car p1)(cadr p3)))
      (eval (command
                     "dim1" "ordinate" p1 p2 ""
                     "dim1" "ordinate" p1 p4 ""
                 )
       )

     )

     ((= (type p3) 'STR)
      (cond
        ((= p3 "Xdatum")(setq p5 (getpoint p1 "\n標註線終點: ")))
        ((= p3 "Ydatum")(setq p5 (getpoint p1 "\n標註線終點: ")))
      )  
      (eval (command "dim1" "ordinate" p1 p5 ""))
     )
   )
   (setq p1 (getpoint "\n select point:"))
)
(princ)
)