[LISP]

linlei8128

版主,你好,在一个闭合体用以下命令可按顺时针或逆时针取得物体,有什么程式可知道是顺时针或是逆时针?


(SETQ A (CAR (ENTSEL"请选择LWPOLYLINE")))


(COMMAND ".EXPLODE" A)


(SETQ B (SSGET ""))

spring

看不懂你的意思???在一个闭合体用以下命令可按顺时针或逆时针取得物体??? (SETQ A (CAR (ENTSEL "请选择LWPOLYLINE")));提示用户通过指定一个点来选择单个对象
(COMMAND ".EXPLODE" A);炸开
(SETQ B (SSGET "P"));选择上次创建的选择集 ----------------------------------------------------- 用 PEDIT 命令可以知道多段线的方向
命令: pe PEDIT 选择多段线或 [多条(M)]:
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: *取消*

linlei8128

黑侠，你好，当知道起始点PT1，终止点PT2，知道凸度时，有什么程式可以计算出圆弧的半径及中心点？


我想设计锣机加工程式，现遇到此困难，有劳帮忙解决，多谢各位。

alin

;;输入：PT1 PT2 为节点，b为凸度；输出： r为半径，ctr为圆心
(defun GetRadnCtr (PT1 PT2 b / d a)
(setq d (distance PT1 PT2)
a (angle PT1 PT2))
(setq r (abs (/ d (sin (/ (atan (* b 4)) 2)) 2)))
(if (>= b 0)
(setq ctr (polar (polar PT1
a
(/ d 2.0))
(+ a (/ pi 2))
(sqrt (- (* r r) (* d d 0.25)))))
(setq ctr (polar (polar PT1
a
(/ d 2.0))
(- a (/ pi 2))
(sqrt (- (* r r) (* d d 0.25)))))
)
;;; (command "point" ctr)
(princ)
)

spring

呵呵,你是在写 CNC 加工中心的程序吗?


那你现在是在搞顺时针方向和逆时针方向喽

linlei8128

是呀，有点困难，需各位大虾帮忙；现程式进入到提取数据阶段，遇到上述问题，感谢各位支持。

linlei8128

ALIN,你好,我已将你的程式下载并作更改后多次调试已可正式使用,感谢;主要更改求R的公式,现将内容公式如下: (defun C:RCtr (/ d a)
(setq pt1 (getpoint "请输入第一点："))
(SETQ PT2 (GETPOINT "\n请输入第二点:"))
(SETQ B (GETREAL "\n输入凸度:"))
(setq d (distance PT1 PT2)
a (angle PT1 PT2))
(setq d1 (/ d 2.0))
(setq h (* d1 (abs b)))
(setq r (/ (+ (* d1 d1) (* h h)) (* 2.0 h)))
;(setq r (abs (/ d (sin (/ (atan (* b 4)) 2)) 2)))
(if (>= b 0)
(setq ctr (polar (polar PT1
a
(/ d 2.0))
(+ a (/ pi 2))
(sqrt (- (* r r) (* d d 0.25)))))
(setq ctr (polar (polar PT1
a
(/ d 2.0))
(- a (/ pi 2))
(sqrt (- (* r r) (* d d 0.25)))))
)
(PRINC R)
(PRINC "\n")
(PRINC CTR)
;;; (command "point" ctr)
(princ)
)

linlei8128

我很喜欢上这个网,望大家多交流,共同进步.