500w008 发表于 2023-3-19 21:11:08

烟盒迷唇 发表于 2023-3-20 06:49:02

自己调试呀

yshf 发表于 2023-3-20 07:47:48

(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)
)

500w008 发表于 2023-3-20 09:11:13

500w008 发表于 2023-3-20 22:49:23

页: [1]
查看完整版本: chatgpt 写的程序 运行后没有出现线图元和圆图元