LISP如何调用CAD命令

抬头见喜

请教：
LISP调用CAD命令如Trim、圆弧化、阵列、镜像等的格式及参数详解
  v; H8 v: K1 Y4 W) {* g. K1 m
[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

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

xiaojinidvcn

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

maoyangmy

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

抬头见喜

谢谢,总算有人进来了.
* O4 M6 N/ Y! z) X
我的意思是 命令后的内容,
, Y$ v! T" X2 b/ S$ d: w如镜像命令是(command  "mirror" 接下来先是 镜像内容还是对称轴,镜像内容中又是以坐标点,还是对象等等

抬头见喜

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

6 M7 B& n  l3 Z' v$ i( b/ f

想知道对应每重命令后参数的具体内容
* d* i" K. G8 B. f/ }
+ |' K$ I& L4 }. d
command " _extend"   格式内容
! \' {* d3 U/ scommand "_fillet " XXXXXX
- r$ }! n  y; Vcommand  倒角  XXXXXXX
8 n, [2 P9 B6 K% R" ^
8 C8 z- b# r5 H等等
7 B( o# d7 \2 x3 a( Z3 J* N9 j, J
8 z& V% y  q) I& Z& F[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
6 U9 s/ a) R, v这个是圆角的程序
; \( [: A2 |( _+ p(defun c:aaaa()
* [, g3 P5 A! [" @  g1 s  (setq p1(list 0 0))
  (setq p2(list 10 10))
/ U; f& w1 w! T+ V  (setq p3(list 11 10))
/ z7 j& v* m/ R4 n1 B: C  (setq p4(list 21 0))
. \* U9 D! x( c) v  (command "line" p1 p2 "")
  (setq l1(entlast))
1 C7 q: c* c% `. i  (command "line" p3 p4 "")
  (setq l2(entlast))
  (command "fillet" "t" "t" "r" 2)
  (command "fillet" l1 l2)
  (princ)
)

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

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
(defun c:mi( )
(initget 7)
0 G, R0 s  F& ]3 w (setq pc1 (getpoint "\n pc1"))
9 |/ v1 g* O) N' G  (initget 7)
4 T7 H  m7 o7 d) ^& _. g(setq pc2 (getpoint "\n pc2"))
5 D4 Q6 I$ U4 n* d (initget 7)
% q$ e; d. h; d* l+ j (setq p3 (getpoint "\n p3"))
/ q: I. J  s4 A4 H* H. T  (initget 7)
(setq p4 (getpoint "\n p4"))
2 f$ q# O9 P, X' C9 W1 z (command "line" pc1 pc2"")
! s' L$ v. Z( e (command "line" p3 p4"")
(setq ss (entlast))
(command "mirror" ss  pc1 pc2 "")
0 T$ O. ~; C; `( l6 h5 b1 b)

ysryc99001

正在学习，请多指点！