chatgpt 写的程序 运行后没有出现线图元和圆图元

烟盒迷唇

自己调试呀

yshf

(defun c:aa ( / tp1 tp2 pt1 pt2)
  (setvar "cmdecho" 0)
  (command "_.undo" "_begin")
  (setvar "osmode" 0)
  (command "_layer" "_make" "nlt" "") ;创建新图层nlt
  (setq tp1 (getpoint "\n指定第一个点：")) ;提示输入第一个点
  (setq tp2 (getpoint tp1 "\n指定第二个点：")) ;提示输入第二个点
  (command "_line" tp1 tp2 "") ;从tp1到tp2画一条直线
  (setq pt1 (polar tp1 (angle tp1 tp2) 1050.0)) ;在直线方向1050mm处得到点pt1
  (setq pt2 (polar tp2 (angle tp2 tp1) 1050.0)) ;在直线反方向1050mm处得到点pt2
  (command "_circle" pt1 400.0) ;以pt1为圆心画半径为400mm的圆
  (command "_circle" pt2 400.0) ;以pt2为圆心画半径为400mm的圆
  (command "_.undo" "_end")
  (princ)
)