LISP如何调用CAD命令

抬头见喜

请教：
LISP调用CAD命令如Trim、圆弧化、阵列、镜像等的格式及参数详解

; ~( j( O/ V$ a9 A8 K. c[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

可能没说清楚
4 @8 z7 |3 ~+ y5 ~6 l8 c8 \如：（command “mirror”  下面该如何？）

xiaojinidvcn

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

maoyangmy

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

抬头见喜

谢谢,总算有人进来了.
7 Z" C& p, k* E% y) N5 e8 D
我的意思是 命令后的内容,
如镜像命令是(command  "mirror" 接下来先是 镜像内容还是对称轴,镜像内容中又是以坐标点,还是对象等等

抬头见喜

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

' R* N) H5 C4 Q1 F' f

想知道对应每重命令后参数的具体内容
" y; g' D: x2 M
" F/ U+ c3 D* a
command " _extend"   格式内容
5 D) \/ S# g( B0 K; pcommand "_fillet " XXXXXX
command  倒角  XXXXXXX
+ r% R9 K# A  w# }0 m# ^+ R' S* |
等等
8 Y+ P- X0 o: S
6 n: l& T0 L" |. ~3 H9 r7 o& ]( ?[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
这个是圆角的程序
(defun c:aaaa()
8 _6 Z0 J7 ]2 P' {8 w  (setq p1(list 0 0))
2 J- L! T9 f0 G  H$ D! Z  (setq p2(list 10 10))
' `1 @7 z& `4 J  (setq p3(list 11 10))
1 X; o# q( w( {; A  (setq p4(list 21 0))
" u( A. [% M) }- P, y  (command "line" p1 p2 "")
  (setq l1(entlast))
" d$ N* [/ h/ @7 s7 G# h+ \  (command "line" p3 p4 "")
, S, I0 e/ F- E/ L& P+ ]; f6 n  (setq l2(entlast))
  (command "fillet" "t" "t" "r" 2)
/ r: m6 i' l% p  (command "fillet" l1 l2)
  (princ)
' n) N0 |$ M" U7 x6 X' c- H )

6 }( Z. Y; y+ t  i5 c1 H其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
7 r8 ]& q9 w: ^8 v! F3 T$ l' O(defun c:mi( )
4 V- J7 k0 R( O/ X3 Y0 }0 i (initget 7)
$ W1 y6 ?7 s( t% V0 Y+ H (setq pc1 (getpoint "\n pc1"))
  (initget 7)
2 g+ r6 ]2 a: ~7 a5 N4 U7 p(setq pc2 (getpoint "\n pc2"))
(initget 7)
9 C9 d9 n7 `$ V' c/ \2 V (setq p3 (getpoint "\n p3"))
8 J( }3 k5 C; p) n8 [; d  (initget 7)
2 N9 w4 H. q5 C! B$ b(setq p4 (getpoint "\n p4"))
(command "line" pc1 pc2"")
) I* N' r1 A9 Q4 N6 M& {% V (command "line" p3 p4"")
(setq ss (entlast))
(command "mirror" ss  pc1 pc2 "")
4 I& S1 Y6 T- G& S' ]2 J* Q+ J)

ysryc99001

正在学习，请多指点！