OSDM命令

basin_30954

OSDM的命令在LISP中怎么写?
move_2d 在LISP中怎么写?
8 r- g: Q9 j0 d! I7 b用recorder记录如下:
& {0 ?/ s* D" g; y1 Q' m! VMOVE_2D :select
(gpntwc 28.548560 108.787807 4.344597 "vport1")
(gpntwc 80.412168 73.759506 4.344597 "vport1")
:VERTICAL
0 F/ [# h% o1 @/ D: h6 Q, U! Y(gpntwc 74.981424 82.991772 4.344597 "vport1")
0 R- B8 U- M# ]! o* e( w- W(gpntwc 76.339110 52.579604 4.344597 "vport1")
5 J9 d6 c2 I/ g# {7 c! O* w" C+ c5 Ncomplete
我不知道在LISP中怎么写?
(move_2d :select all_2d :vertical  p1 p2)谁能帮我纠正一下.谢谢!

alexsum

基本上类似，不过需要注意select不是这么用的，要学要OSD的lisp掌握Select是很重要的。
在你的例子中，应当用(sd-call-cmds (get_selection ...))来选择对象，因此形式一般如下：
(move_2d :select (sd-call-cmds (get_selection :focus_type *sd-edge-2d-seltype* :select :all_2d)) :vertical 20)
& Q% {" [5 j( k, C/ J0 a, C" E3 ~: }(以上为选择当前工作平面上所有几何线作垂直向上移动20MM)

basin_30954

谢谢!
4 y2 u$ c3 Y" `7 k# L& N  cCREATE_CURVE_ON_SURFACE
:wire_part
3 V% A* J& ~' C) H"/line"
7 }  e" Q$ w8 w+ e" b3 ]) I3 Y(gpntwc 19.994350 53.048444 5.288605 "vport1")
(gpntwc -13.720491 41.149089 5.288605 "vport1")
' `: M5 a! h* _$ m; S; w- t4 B(gpntwc 33.876931 55.031670 5.288605 "vport1")
+ `% O! i" |. q8 C4 s5 ?complete
+ Z! w; D" B' @! D3 R+ w2 b+ T$ g如何把以上也写成LISP程序? 谢谢!

alexsum

绘制线条不难，但是定义点的时候除非能确定点的坐标的确在面上，否则将可能无法得到所需的点或者得到点投影到面上的投影点。
2 O/ {  F# P7 G9 w可能不是你所需要的线条了。

boll_lee

我不知道lisp在哪里
; a2 @: p2 ?& }: u6 B/ |8 _* V也不知道怎样将下载的lisp加挂到软件上去

3dmad

回复 5# boll_lee 的帖子
LISP是OSDM的一部份,OSDM运行之后,LISP命令就随时可用了.
9 w1 }5 s1 p  z
例如在OSDM里,当指令需要长度输入时,而我们又只知是半俓7MM的圆周长.那我们可直接输入...
(* 2 pi 7)
$ T+ Q1 x) ?- E3 [4 nENTER之后,积数就被OSDM接受为长度输入.

, s7 N1 c1 A0 W又例如,有如附件LSP档案,可拖入(DRAG & DROP)OSDM视窗内,然后就可在工具箱(TOOLBOX)内选出"EXTRUDE"指令来运行.

[ 本帖最后由 3dmad 于 2008-9-15 22:58 编辑 ]

PatFang

看看再說，學習一下了