自动绘制直管展开图老是出现各种情况的问题，求大佬进来看看啥情况？

世人皆醉

目的：我想通过输入一些参数能够自动生成矩形直管展开图，需要的数据有长和宽和高，以及起始点

代码：(defun c:c3()
  (setq o1(getreal"请输入直管的长:"))        ;建立o1为直管的长
  (setq o2(getreal"请输入直管的宽:"))        ;建立o2为直管的宽
  (setq o5(getdist"请输入直管的高:"))         ;建立o5为直管的高
  (setq pt1(getpoint"请输入点的位置："))       ;点选起点的位置
  (setq i1(list (car pt1) (+ (cadr pt1) 148.5)))     ;第一个点的坐标
  (setq i2(list (car pt1) (+ (cadr i1) (- o1 3))))   ;第二个点的坐标
  (setq i3(list (car pt1) (+ (cadr i2) (- o2 3))))   ;第三个点的坐标
  (setq i4(list (car pt1) (+ (cadr i3) (- o1 3))))   ;.........
  (setq i5(list (car pt1) (+ (cadr i4) (- o2 3 148.5))))
  (setq i6(list (+ (car pt1) o5) (cadr i5)))

  (setq i7(list (+ (car pt1) o5) (cadr i4)))
  (setq i8(list (+ (car pt1) o5) (cadr i3)))
  (setq i9(list (+ (car pt1) o5) (cadr i2)))
  (setq i10(list (+ (car pt1) o5) (cadr i1)))
  (setq i11(list (+ (car pt1) o5) (cadr pt1)))      ;第十一个点的坐标
  (command "line" pt1 i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 "c"))   ;绘制直线命令
问题：这个代码测试的时候一会成功一会不成功，出现问题的点有在第6个点和第十一个点的问题上，我想问一下，我这个引用第6点直接X轴的方向是不是合理的，还有就是这个代码测试失败会显示创建为零的直线是啥情况

xj6019

command 操作的时候一定要把捕捉关掉  再画图元，否则经常会找点不准

世人皆醉

xj6019 发表于 2022-6-9 11:49
command 操作的时候一定要把捕捉关掉  再画图元，否则经常会找点不准

感谢大佬，刚开始学，对这些不了解，试了一下真的可以用了，非常感谢