LISP如何调用CAD命令

抬头见喜

请教：
LISP调用CAD命令如Trim、圆弧化、阵列、镜像等的格式及参数详解
( B! T5 v) Q$ m
9 ^7 T. Z4 S- a0 ]: X3 @6 F% x[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

可能没说清楚
如：（command “mirror”  下面该如何？）

xiaojinidvcn

先设定一个选择集A：（command "mirror" A "" 第一点 第二点 Y或N），请注意引号是英文状态下的。

maoyangmy

可以按照命令执行后进行的操作,给出相应的参数或选择集,其中字符要加引号

抬头见喜

谢谢,总算有人进来了.

我的意思是 命令后的内容,
7 P( n/ g0 z( f如镜像命令是(command  "mirror" 接下来先是 镜像内容还是对称轴,镜像内容中又是以坐标点,还是对象等等

抬头见喜

原帖由 maoyangmy 于 2008-5-15 21:13 发表 http://www.3dportal.cn/discuz/images/common/back.gif
. A. p# K* }0 Z可以按照命令执行后进行的操作,给出相应的参数或选择集,其中字符要加引号

4 }3 Z8 a  `8 T0 V8 R! T

# q6 Y6 L% k2 ?+ n想知道对应每重命令后参数的具体内容
- Q* Y+ y+ d+ @2 M+ l$ _" N
) t  P: }1 x& n" f. `0 D! t
( ?( T( T$ z0 T& i3 h; Kcommand " _extend"   格式内容
+ l( ]4 N  _6 N* _command "_fillet " XXXXXX
7 G8 r! d5 t  [% _0 P2 b% Qcommand  倒角  XXXXXXX
, B* v1 c& N3 o7 r) X& G% k) s
1 A* F; z7 z. _+ P: g8 m等等
5 k7 M3 r  g/ G) m7 V
$ p% @: s' u* A% i. y' n[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
, a/ ^9 G9 ?1 X& T& ~8 b5 ]* x  {这个是圆角的程序
(defun c:aaaa()
  (setq p1(list 0 0))
  (setq p2(list 10 10))
  (setq p3(list 11 10))
/ R9 u2 I, G/ h& g" I' t  (setq p4(list 21 0))
  (command "line" p1 p2 "")
7 h* }. K$ j, [+ I. V  (setq l1(entlast))
% c2 n* ^2 ~0 y2 D& a" t  (command "line" p3 p4 "")
" D5 ]$ g! a- h/ q+ e' S% B& i  (setq l2(entlast))
# R) \1 P" a7 k% }  (command "fillet" "t" "t" "r" 2)
4 r4 T8 S, C" [7 |: |2 L$ q  (command "fillet" l1 l2)
! M& @2 F9 Z; L; M6 c  (princ)
)
, F! l  E) j8 N6 ^+ V! d
其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

方法7＃楼都讲了，对于要使用实体选择集的命令，要先构建选择集然后把变量直接传给命令即可，由程序创建的实体可以通过程序直接创建选择集，已有实体可以先通过交互选择实体构建选择集；

xtjoe

这是一个镜像程序，不妨一试：
(defun c:mi( )
(initget 7)
(setq pc1 (getpoint "\n pc1"))
% Y  @, K' \  {: }/ |. ?  (initget 7)
(setq pc2 (getpoint "\n pc2"))
7 A6 g, O! ^- U) x- c$ R" [% p  K4 B (initget 7)
3 [! a! k4 ]9 C) p- H (setq p3 (getpoint "\n p3"))
  (initget 7)
(setq p4 (getpoint "\n p4"))
: c/ n) _; u, C: r% G5 O# ^' ]. I (command "line" pc1 pc2"")
8 p8 i; x) u( G  k& w* [, K (command "line" p3 p4"")
* h! V, ^* z: _* _- K( r2 M! z (setq ss (entlast))
(command "mirror" ss  pc1 pc2 "")
)

ysryc99001

正在学习，请多指点！