LISP如何调用CAD命令

抬头见喜

请教：
/ w0 Y& J0 b3 M! n3 O: G9 wLISP调用CAD命令如Trim、圆弧化、阵列、镜像等的格式及参数详解
: ?+ S  ?, v8 s8 J2 X7 c; ]
# N, v9 }1 o0 s1 ?, c3 [$ X+ `5 Z[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

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

xiaojinidvcn

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

maoyangmy

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

抬头见喜

谢谢,总算有人进来了.
% ~! {0 z% q$ L+ Y# K# S3 w9 z
8 ^& {) d& {, E5 h: D0 R我的意思是 命令后的内容,
如镜像命令是(command  "mirror" 接下来先是 镜像内容还是对称轴,镜像内容中又是以坐标点,还是对象等等

抬头见喜

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

6 Z9 y- C( ^% V' I
+ f, d7 O! M$ @( F9 ?! k# C
$ T5 F* J8 X2 j想知道对应每重命令后参数的具体内容
( h! Y5 F2 D. C; F

command " _extend"   格式内容
+ V9 O  o; h  M5 J: Z: w4 R9 Vcommand "_fillet " XXXXXX
4 @7 l7 p) ~- P4 }command  倒角  XXXXXXX
+ B/ {" u+ ?0 S$ k" u" u' Z0 u
等等
6 }# r6 u8 N3 }; E
  d/ B, O; c2 p0 |; O% f& L  t[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
$ W( T0 v3 U) l2 J这个是圆角的程序
(defun c:aaaa()
  (setq p1(list 0 0))
# A! r( t+ E$ P+ U  (setq p2(list 10 10))
  (setq p3(list 11 10))
  (setq p4(list 21 0))
8 _; l8 x. [+ h9 }. W  (command "line" p1 p2 "")
) g- X7 Z; N% Y. n" C' Z; w  (setq l1(entlast))
% L4 k6 d/ ~) H" ]7 J  (command "line" p3 p4 "")
  (setq l2(entlast))
  (command "fillet" "t" "t" "r" 2)
4 M1 u6 S* j- [, F  (command "fillet" l1 l2)
* u5 p# B7 Y3 R" J  (princ)
)
; A4 A" s4 R/ _* u# C. i1 m. q
8 C1 e# q; x7 _! `( `. W( [( Y其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
" `7 |5 r0 t, V0 B" f8 a(defun c:mi( )
(initget 7)
(setq pc1 (getpoint "\n pc1"))
" v3 C- ^* b1 Y5 y  (initget 7)
4 S) {+ M' v& q0 V. x9 F5 p(setq pc2 (getpoint "\n pc2"))
# b! k8 N- J: O/ W% z$ Q (initget 7)
(setq p3 (getpoint "\n p3"))
+ {8 X- g' G( e1 R( F. P0 D1 C5 Q  (initget 7)
/ y% }9 N5 Y7 }, s0 z(setq p4 (getpoint "\n p4"))
(command "line" pc1 pc2"")
(command "line" p3 p4"")
0 ?! a- K+ V# v7 {+ m( [; E (setq ss (entlast))
(command "mirror" ss  pc1 pc2 "")
)

ysryc99001

正在学习，请多指点！