OSDM命令

basin_30954

OSDM的命令在LISP中怎么写?
; [3 |( i3 E0 E0 ^move_2d 在LISP中怎么写?
" T1 V6 I2 h' H, l8 Z0 B. U用recorder记录如下:
" X4 J' \3 _; z% p" x  j; JMOVE_2D :select
- s  _% b1 Q1 ]- U8 f% q(gpntwc 28.548560 108.787807 4.344597 "vport1")
" j0 r5 X/ z) ^(gpntwc 80.412168 73.759506 4.344597 "vport1")
% z! j1 ~. v& o' t" r/ c# e:VERTICAL
/ y; K4 Q$ I6 x8 y7 W(gpntwc 74.981424 82.991772 4.344597 "vport1")
4 b6 D. u3 H" z) m( r1 i; S(gpntwc 76.339110 52.579604 4.344597 "vport1")
5 Y: {+ V6 K8 p" q0 U3 h- Acomplete
0 Z& i1 V1 F* r5 [我不知道在LISP中怎么写?
(move_2d :select all_2d :vertical  p1 p2)谁能帮我纠正一下.谢谢!

alexsum

基本上类似，不过需要注意select不是这么用的，要学要OSD的lisp掌握Select是很重要的。
6 `; }: k0 d! X. b2 u% h在你的例子中，应当用(sd-call-cmds (get_selection ...))来选择对象，因此形式一般如下：
(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
:wire_part
7 l+ w- u+ q  r* Z( U. i2 G* A, d"/line"
(gpntwc 19.994350 53.048444 5.288605 "vport1")
+ v) T4 C1 l7 s/ r0 [(gpntwc -13.720491 41.149089 5.288605 "vport1")
(gpntwc 33.876931 55.031670 5.288605 "vport1")
complete
; I: n5 k0 l2 M如何把以上也写成LISP程序? 谢谢!

alexsum

绘制线条不难，但是定义点的时候除非能确定点的坐标的确在面上，否则将可能无法得到所需的点或者得到点投影到面上的投影点。
9 a: e4 s% v' f( t1 u: y5 Q: M" |* p可能不是你所需要的线条了。

boll_lee

我不知道lisp在哪里
( U/ p. Y0 |. f  Y& |也不知道怎样将下载的lisp加挂到软件上去

3dmad

回复 5# boll_lee 的帖子
% s( Y9 W7 G7 k" n6 P. d3 \LISP是OSDM的一部份,OSDM运行之后,LISP命令就随时可用了.
" L9 p; j! n5 E
例如在OSDM里,当指令需要长度输入时,而我们又只知是半俓7MM的圆周长.那我们可直接输入...
% W9 e  p! @- e: J' P' X; L) }8 A4 {(* 2 pi 7)
% H! c) {8 h7 [+ PENTER之后,积数就被OSDM接受为长度输入.
. B3 t) g$ n3 {+ `9 t, v, n4 C' w
又例如,有如附件LSP档案,可拖入(DRAG & DROP)OSDM视窗内,然后就可在工具箱(TOOLBOX)内选出"EXTRUDE"指令来运行.
, s, l7 D- ]5 ?' K
( e8 m* a/ [7 \9 V; V* o[ 本帖最后由 3dmad 于 2008-9-15 22:58 编辑 ]

PatFang

看看再說，學習一下了