LISP如何调用CAD命令

抬头见喜

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

+ x5 {' g  v3 ^( b" ?[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

可能没说清楚
$ S. `9 ]1 L; Y9 U% N+ V如：（command “mirror”  下面该如何？）

xiaojinidvcn

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

maoyangmy

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

抬头见喜

谢谢,总算有人进来了.

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

抬头见喜

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

% r" W' Z6 z$ H% w5 {
想知道对应每重命令后参数的具体内容

& w! B8 ~/ i4 b. D6 W2 s! Y
5 \$ T% J9 C' X3 f  A4 X# \  kcommand " _extend"   格式内容
1 D8 U7 a9 a4 Z9 {4 T7 r1 P1 x7 A* Lcommand "_fillet " XXXXXX
# b- u- o- u2 d# U+ w( zcommand  倒角  XXXXXXX
& e/ i& A' l9 s6 m& r
等等

0 s. |) ?/ t! R! N[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
! @* V5 G5 B' o0 Y( w+ I这个是圆角的程序
; f: M9 j& q2 F1 l(defun c:aaaa()
  l9 B5 Y) n# v3 s. D' d  (setq p1(list 0 0))
$ {( z2 }6 V/ h( A* y8 Y  (setq p2(list 10 10))
9 |) v) i+ ~+ O  (setq p3(list 11 10))
; \7 @) }. Y$ W3 C* \# ?- K/ v4 ]1 D  (setq p4(list 21 0))
  (command "line" p1 p2 "")
  (setq l1(entlast))
7 b+ u7 [; f( c. m3 t& B& N# l0 o9 C6 s& K6 z  (command "line" p3 p4 "")
  (setq l2(entlast))
" H# R" n- e/ M. L4 W9 G  (command "fillet" "t" "t" "r" 2)
( s/ ^9 Y) s0 F+ ]: V  (command "fillet" l1 l2)
  (princ)
- n7 v' N: W5 o/ O5 z" d; [/ v )
; E- @2 h  f7 f7 q. A+ C
其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
(defun c:mi( )
) i0 m, u% k7 S$ g- o- I (initget 7)
(setq pc1 (getpoint "\n pc1"))
+ l4 {8 A* P1 q; C  (initget 7)
" u% L5 Y) d' H; t(setq pc2 (getpoint "\n pc2"))
(initget 7)
(setq p3 (getpoint "\n p3"))
6 E  L6 [" A4 G# a2 D  (initget 7)
(setq p4 (getpoint "\n p4"))
(command "line" pc1 pc2"")
(command "line" p3 p4"")
(setq ss (entlast))
3 q2 Q. [* {. p! U (command "mirror" ss  pc1 pc2 "")
)

ysryc99001

正在学习，请多指点！