[求助]帮助编制一个轴退刀槽LSP程序

ddwwtt

输入槽的长宽后，变成下图：

高手帮帮忙啊，先谢谢了

Andyhon

给个调试用的图形文件如何?

ZZXXQQ

因为要知道轴的粗细和画空刀的方向，多选了三个点。

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

ddwwtt

程序很用，但有一点问题，我修改了一下

(defun c:tt ()
  (setvar "CMDECHO" 0)
  (setq w (getdist "\n退刀槽长度 :")
        tt (getdist "\n退刀槽宽度 :"))
  (setq pt (getpoint "\n输入小径一个点 :")
        pt1 (getpoint pt "\n输入小径另一个点 :")
        pt3 (getpoint pt "\n方向线 :")
        ang (angle pt pt1))
  (setq pc (polar pt ang (/ (distance pt pt1) 2))
        p1 (polar pt ang tt)
        p2 (polar pt1 (+ ang pi) tt)
        p3 (polar p1 (angle pt pt3) w)
        p4 (polar p2 (angle pt pt3) w)
        p5 (polar p3 (+ ang pi) tt)
        p6 (polar p4 ang tt))
  (setvar "OSMODE" 0)
  (command "line" p1 p3 "" "line" p2 p4 "" "line" p5 p6 "")
  (command "stretch" "c" pt pt "" pt p5)
  (command "stretch" "c" pt1 pt1 "" pt1 p6)
  (setvar "CMDECHO" 1)
  (setvar "OSMODE" 1)
  (princ)
)

ddwwtt

谢谢ZZXXQQ，程序很好用，只有一点小问题。

(defun c:tt ()
  (setvar "CMDECHO" 0)
  (setq w (getdist "\n退刀槽长度 :")
        tt (getdist "\n退刀槽宽度 :"))
  (setq pt (getpoint "\n输入小径一个点 :")
        pt1 (getpoint pt "\n输入小径另一个点 :")
        pt3 (getpoint pt "\n方向线 :")
        ang (angle pt pt1))
  (setq pc (polar pt ang (/ (distance pt pt1) 2))
        p1 (polar pt ang tt)
        p2 (polar pt1 (+ ang pi) tt)
        p3 (polar p1 (angle pt pt3) w)
        p4 (polar p2 (angle pt pt3) w)
        p5 (polar p3 (+ ang pi) tt)
        p6 (polar p4 ang tt))
  (setvar "OSMODE" 0)
  (command "line" p1 p3 "" "line" p2 p4 "" "line" p5 p6 "")
  (command "stretch" "c" pt pt "" pt p5)
  (command "stretch" "c" pt1 pt1 "" pt1 p6)
  (setvar "CMDECHO" 1)
  (setvar "OSMODE" 1)
  (princ)
)