OSDM命令

basin_30954

OSDM的命令在LISP中怎么写?
move_2d 在LISP中怎么写?
用recorder记录如下:
MOVE_2D :select
1 h' d8 V, V: m6 g/ @, B$ `(gpntwc 28.548560 108.787807 4.344597 "vport1")
(gpntwc 80.412168 73.759506 4.344597 "vport1")
, O) r; V0 b% I  }  g1 j+ @1 m" c:VERTICAL
(gpntwc 74.981424 82.991772 4.344597 "vport1")
! `( M( S8 q+ |! ^  P(gpntwc 76.339110 52.579604 4.344597 "vport1")
complete
$ o( i' ^5 |. Z' m6 ]% X我不知道在LISP中怎么写?
+ X0 {3 j1 x; u(move_2d :select all_2d :vertical  p1 p2)谁能帮我纠正一下.谢谢!

alexsum

基本上类似，不过需要注意select不是这么用的，要学要OSD的lisp掌握Select是很重要的。
  A7 Z* H0 }; D1 [' a在你的例子中，应当用(sd-call-cmds (get_selection ...))来选择对象，因此形式一般如下：
# f7 v, h0 F3 n(move_2d :select (sd-call-cmds (get_selection :focus_type *sd-edge-2d-seltype* :select :all_2d)) :vertical 20)
(以上为选择当前工作平面上所有几何线作垂直向上移动20MM)

basin_30954

谢谢!
CREATE_CURVE_ON_SURFACE
. z$ K& P5 H9 k6 i" o5 N6 I& T:wire_part
"/line"
(gpntwc 19.994350 53.048444 5.288605 "vport1")
7 j/ T/ h- X2 `6 E5 _1 E7 {  v(gpntwc -13.720491 41.149089 5.288605 "vport1")
(gpntwc 33.876931 55.031670 5.288605 "vport1")
2 Z0 D# F5 P6 H" \9 jcomplete
如何把以上也写成LISP程序? 谢谢!

alexsum

绘制线条不难，但是定义点的时候除非能确定点的坐标的确在面上，否则将可能无法得到所需的点或者得到点投影到面上的投影点。
) i) ~9 `- F5 i. A6 p3 L可能不是你所需要的线条了。

boll_lee

我不知道lisp在哪里
9 ^4 c$ i1 ?2 j5 P5 `也不知道怎样将下载的lisp加挂到软件上去

3dmad

回复 5# boll_lee 的帖子
: h' o* e& w9 V" PLISP是OSDM的一部份,OSDM运行之后,LISP命令就随时可用了.
( U% G( }7 r7 C, W
例如在OSDM里,当指令需要长度输入时,而我们又只知是半俓7MM的圆周长.那我们可直接输入...
6 U! k3 c. Y6 Q" M2 R: E8 d$ c(* 2 pi 7)
+ \3 l" G! B+ z6 t* c$ G! M( ?6 ]ENTER之后,积数就被OSDM接受为长度输入.
* J) K6 i0 ]; j- f4 `/ z
又例如,有如附件LSP档案,可拖入(DRAG & DROP)OSDM视窗内,然后就可在工具箱(TOOLBOX)内选出"EXTRUDE"指令来运行.
5 I! o+ Z0 K1 C3 R
# z& W( i! i" _! Q6 }) M8 R[ 本帖最后由 3dmad 于 2008-9-15 22:58 编辑 ]

PatFang

看看再說，學習一下了