画胶缝程序小问题

cjjh8301

下面是一个画胶缝程序，好久前论坛下的，具体那个贴找不到了
现在CAD2010版本上不起作用了，命令后没任何反应，哪位帮我看下是什么问题
;; tt(胶缝)
(defun c:tt ()
  (xyp-Start)
  (xyp-MkLaCo "胶缝" 4)
  (while (and (setq p1 (getpoint "\n基点<退出>: "))
              (setq p2 (getcorner p1 "\n对角点<退出>: "))
         )
    (xyp-Group0)
    (setq s1 (xyp-rectang p1 p2)
          p6 (xyp-9pt s1 6)
          p9 (xyp-9pt s1 9)
          d2 (distance p6 p9)
          p6 (xyp-Pt2X p6 -1.3)
          s2 (xyp-arc-3pt (xyp-9pt s1 3) p6 p9)
          p7 (xyp-Pt2X p6 -3.8)
          p4 (xyp-9pt s1 4)
          p5 (xyp-Mid2Pt p4 p7)
          d1 (distance p5 p7)
          s3 (xyp-Add-Ellipse p5 d1 d2)
          p8 (xyp-Mid2Pt p6 p7)
    )
    (command "bhatch" "p" "HONEY" 0.3 0 p5 "")
    (command "bhatch" "p" "ANSI33" 0.3 0 p8 "")
    (xyp-SubUpd s1 6 "DOT2")
    (xyp-Group1)
  )
  (xyp-End)
)

原地踏步

有太多的自定义函数，没法判断问题出在哪里。或许就是你没有添加那些自定义函数的路径。

start4444

你用的是院长的程序，要安装xyp工具箱才能用

cjjh8301

start4444 发表于 2020-5-15 11:35
你用的是院长的程序，要安装xyp工具箱才能用

懂了！