[LISP]

linlei8128 · 发表于 2004-8-7 08:49:00

版主,你好,在一个闭合体用以下命令可按顺时针或逆时针取得物体,有什么程式可知道是顺时针或是逆时针?
(SETQ A (CAR (ENTSEL"请选择LWPOLYLINE")))
(COMMAND ".EXPLODE" A)
(SETQ B (SSGET &quot"))

spring · 发表于 2004-8-7 14:46:00

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

linlei8128 · 发表于 2004-8-7 18:08:00

黑侠，你好，当知道起始点PT1，终止点PT2，知道凸度时，有什么程式可以计算出圆弧的半径及中心点？
我想设计锣机加工程式，现遇到此困难，有劳帮忙解决，多谢各位。

alin · 发表于 2004-8-7 19:18:00

;;输入：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 · 发表于 2004-8-7 19:59:00

呵呵,你是在写 CNC 加工中心的程序吗?
那你现在是在搞顺时针方向和逆时针方向喽

linlei8128 · 发表于 2004-8-8 13:33:00

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

linlei8128 · 发表于 2004-8-8 14:23:00

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 · 发表于 2004-8-8 14:26:00

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

[LISP]

发表回复

精选推荐