LISP如何调用CAD命令

抬头见喜

请教：
* M' w% @/ K5 a7 i" r* sLISP调用CAD命令如Trim、圆弧化、阵列、镜像等的格式及参数详解

) L2 i( I+ ~9 V  K5 g3 ~[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

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

xiaojinidvcn

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

maoyangmy

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

抬头见喜

谢谢,总算有人进来了.

: ~6 Z6 I* ?6 J0 G: |, ?/ K1 M+ @+ w我的意思是 命令后的内容,
如镜像命令是(command  "mirror" 接下来先是 镜像内容还是对称轴,镜像内容中又是以坐标点,还是对象等等

抬头见喜

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

# Z- ?1 D# O, _8 @3 T1 A& J
想知道对应每重命令后参数的具体内容
3 Z, D" F6 L0 T4 o3 o4 f

7 h2 N# [# {2 P3 @! Q0 |3 ]command " _extend"   格式内容
2 ]6 T. D4 S) t( E4 I6 @command "_fillet " XXXXXX
4 T& J0 K; }! t: Y+ \/ `command  倒角  XXXXXXX
2 A' B. N7 }7 X3 R, p) x
& {2 y( L) F' o( o( @/ [等等
) b+ v. R5 p; ]7 d' x  I
[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
这个是圆角的程序
(defun c:aaaa()
  (setq p1(list 0 0))
  (setq p2(list 10 10))
0 K/ p7 }- u5 J# b1 v, P, \& W: M+ Z  (setq p3(list 11 10))
) k/ c5 A; i1 N$ x$ X0 f  (setq p4(list 21 0))
! N# Y2 ^7 x' ~  (command "line" p1 p2 "")
' ?) O0 A+ v  x& p* @  (setq l1(entlast))
  (command "line" p3 p4 "")
  (setq l2(entlast))
  (command "fillet" "t" "t" "r" 2)
  (command "fillet" l1 l2)
& Y! [; J, u4 f; A# y8 i+ S  (princ)
)
" K7 b% E+ X7 M
其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
- }0 i- Y. V9 f7 a. |(defun c:mi( )
(initget 7)
& ], F8 M- l% @$ a0 G& t6 y6 J% l (setq pc1 (getpoint "\n pc1"))
% }. S" ~" B1 S6 s' J3 z$ X  (initget 7)
. |- ~$ O& C- w1 X/ G(setq pc2 (getpoint "\n pc2"))
! M8 O8 y2 i# u+ b" c' q3 T (initget 7)
, G" l/ I( K1 W3 r  v (setq p3 (getpoint "\n p3"))
  (initget 7)
(setq p4 (getpoint "\n p4"))
(command "line" pc1 pc2"")
(command "line" p3 p4"")
(setq ss (entlast))
" P( U6 @' i5 J. D2 I1 { (command "mirror" ss  pc1 pc2 "")
)

ysryc99001

正在学习，请多指点！