LISP如何调用CAD命令

抬头见喜

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

; C, Y+ P$ ^6 k[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

可能没说清楚
0 [  ^- m8 y6 M3 j/ E/ l7 G" D如：（command “mirror”  下面该如何？）

xiaojinidvcn

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

maoyangmy

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

抬头见喜

谢谢,总算有人进来了.

6 t3 i, ~& E8 I, J+ q* H9 Q我的意思是 命令后的内容,
7 L% f5 W' ^# F' m% p0 k" t如镜像命令是(command  "mirror" 接下来先是 镜像内容还是对称轴,镜像内容中又是以坐标点,还是对象等等

抬头见喜

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

想知道对应每重命令后参数的具体内容
% y  C3 h$ n: x  x- Y
: |& c4 |' R1 m" p3 F4 I) }  {
2 A! q2 ^+ l* \) E. i1 S3 Acommand " _extend"   格式内容
7 V1 X( g& K0 scommand "_fillet " XXXXXX
command  倒角  XXXXXXX
$ f# A" K( {4 e9 b9 S$ D
  {$ ]( h7 a6 O, L' v5 B$ m等等

[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
) a7 w7 ]# I+ [7 M# N这个是圆角的程序
(defun c:aaaa()
1 ]7 W& ^! i  J1 K7 I1 O3 M9 m  (setq p1(list 0 0))
* C# R5 d4 T. G5 F* t3 X  (setq p2(list 10 10))
3 F1 U. y/ v; ?* v6 G3 K6 ^: R  (setq p3(list 11 10))
0 g# Q/ Q4 e) m, J: H% q  (setq p4(list 21 0))
  (command "line" p1 p2 "")
  (setq l1(entlast))
  (command "line" p3 p4 "")
5 D, [+ m3 ]0 Y: o+ L2 a/ M  (setq l2(entlast))
  (command "fillet" "t" "t" "r" 2)
  (command "fillet" l1 l2)
  (princ)
)
3 o  B/ k* O( @6 v
* K  j% F) _4 G' l1 r1 B其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
: C) j4 U& U7 r; J' Y* o(defun c:mi( )
(initget 7)
(setq pc1 (getpoint "\n pc1"))
8 T  {1 f! {! |' J; x1 D( z& X6 F% k  (initget 7)
8 |1 [# r  O, G3 `(setq pc2 (getpoint "\n pc2"))
% r; F# a1 g0 `1 N3 g (initget 7)
* {+ J" H# z, B- h' Y3 a/ x9 W (setq p3 (getpoint "\n p3"))
  (initget 7)
4 S. L7 {* u% K$ N4 t0 k! V. \(setq p4 (getpoint "\n p4"))
. Y8 y, t2 E" @5 s* \ (command "line" pc1 pc2"")
' R- G& o9 [8 [8 i& n (command "line" p3 p4"")
" }9 |3 L9 X, ~# t (setq ss (entlast))
. T5 W& S# a% P0 F: C. u (command "mirror" ss  pc1 pc2 "")
( D0 z% F) U" G)

ysryc99001

正在学习，请多指点！