LISP如何调用CAD命令

抬头见喜

请教：
LISP调用CAD命令如Trim、圆弧化、阵列、镜像等的格式及参数详解
. R2 ^$ @# l& p" O( @: z- V
[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

可能没说清楚
7 A1 |+ h7 ?' I% @" p9 k如：（command “mirror”  下面该如何？）

xiaojinidvcn

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

maoyangmy

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

抬头见喜

谢谢,总算有人进来了.

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

抬头见喜

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

+ W3 d7 `) Q* o$ u* Z

想知道对应每重命令后参数的具体内容
5 D! n2 H5 ]' o
5 ^" G) N5 K  H9 Y  p8 l
& n* x. Y. n: W8 A( g& N1 p% fcommand " _extend"   格式内容
3 \" X- b$ B' ^7 tcommand "_fillet " XXXXXX
command  倒角  XXXXXXX
1 S0 g9 G) v1 n0 Z. `( \5 l9 q& U
等等

. \* Z* s+ p: s[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
' A9 t1 L6 p) ^! d0 g7 `( y8 \这个是圆角的程序
: b, N. ?& C# j8 C5 y) X5 {(defun c:aaaa()
) K8 [7 i3 ?- N  (setq p1(list 0 0))
  (setq p2(list 10 10))
& ]( W( S: i( h% A  (setq p3(list 11 10))
  h- `8 R/ d7 E  \  (setq p4(list 21 0))
1 E, B& o; m) S1 j9 N  (command "line" p1 p2 "")
" H8 ]6 \$ H# `+ n9 A5 k4 Y, k  (setq l1(entlast))
1 O4 ]8 X, K6 m- l% _7 ?  (command "line" p3 p4 "")
* `0 s# U& L7 |. |0 B9 {0 Z  (setq l2(entlast))
( V; R& r+ t  b8 Q( O: N/ K, I  (command "fillet" "t" "t" "r" 2)
  (command "fillet" l1 l2)
, n5 `3 J" S( ?* w; ]  (princ)
( `2 g/ X( Y  a- Z& s$ W7 U6 u )
- M# P6 @1 z3 Y. a& h
其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
6 |; T; c+ p: D3 |4 r(defun c:mi( )
+ n1 J/ z* T1 h3 R: ~0 ]4 A$ D" ] (initget 7)
(setq pc1 (getpoint "\n pc1"))
  (initget 7)
(setq pc2 (getpoint "\n pc2"))
(initget 7)
(setq p3 (getpoint "\n p3"))
  (initget 7)
7 k. K, ~. A. d(setq p4 (getpoint "\n p4"))
(command "line" pc1 pc2"")
(command "line" p3 p4"")
(setq ss (entlast))
(command "mirror" ss  pc1 pc2 "")
- f. R( N3 L% M& k# c)

ysryc99001

正在学习，请多指点！