求助 坐标转换 纠错

jay86chan

 
(defun c:qqq()
  (graphscr)
  (setvar "cmdecho" 0)
  (prompt"\n 欢迎使用")(terpri)
 

(while (= p nil)
  (setq p (getpoint"请输入参考点")) 
  (setq x (getreal"X="))
  (setq y (getreal"Y="))
)

 
 (setq p1 (getpoint"请输入坐标点/<参考点c>:"))
(while (= p1 "c")
(
  (setq p (getpoint"请输入参考点"))
  (setq x (getreal"X="))
  (setq y (getreal"Y="))
 )
  (setq p1 (getpoint"请输入坐标点"))
)
  (setq p2 (list(+ (car p1) 37000000 (- y (car p3)))(-(cadr p1) (- x (cadr p3)))))
  (setvar "cmdecho" 1)
  (prompt"\t输入成功!\t结果如下:")(terpri)
  (princ( list "坐标 X"(rtos (cadr p2) 2 3)))
  (princ( list "坐标 Y"(rtos (car p2) 2 3)))(terpri)
    
 ) 

 

请问哪里出问题了，我重新定义参考点时出错

dajio

看不明白你的意思，随便写一个你看一下。

(defun c:tt (/ PT0 PTX)
  (if (setq pt0 (getpoint "\n请输入参考原点:"))
    (progn (initget "C")
    (setq ptx (getpoint pt0 "\n请输入坐标点\参考点[C]:"))
    (while (= "C" ptx)
      (setq pt0 (getpoint "\n请输入参考原点:")) 
      (initget "C")
      (setq ptx (getpoint pt0 "\n请输入坐标点/参考点[C]:"))
    )
    (princ (strcat "\n以("
     (rtos (car pt0) 2 3)
     " "
     (rtos (cadr pt0) 2 3)
     ")为原点,该点新坐标\n"
     "X="
     (rtos (- (car ptx) (car pt0)) 2 3)
     "\nY="
     (rtos (- (cadr ptx) (cadr pt0)) 2 3)
    )
    )
    )
    (princ "\n未指定参考原点,退出程序")
  );_endif
  (princ)
) ;_enddefun