LISP如何调用CAD命令

抬头见喜

请教：
LISP调用CAD命令如Trim、圆弧化、阵列、镜像等的格式及参数详解
, V+ c3 C7 g$ R2 m# _: W; R+ W
& t1 E8 ~0 ^/ ][ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

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

xiaojinidvcn

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

maoyangmy

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

抬头见喜

谢谢,总算有人进来了.
( f$ k( Z7 c8 v
; P7 h" z3 N2 A6 t. \% I我的意思是 命令后的内容,
如镜像命令是(command  "mirror" 接下来先是 镜像内容还是对称轴,镜像内容中又是以坐标点,还是对象等等

抬头见喜

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

+ `8 h* N+ f" Q8 R9 R
, p; b7 ~5 D$ S9 ~) w( ]想知道对应每重命令后参数的具体内容
7 q) u' }6 f( X) m
9 v  {/ L! e# l, Y' @4 I
1 p: Z3 x8 N1 Y! F1 ]command " _extend"   格式内容
command "_fillet " XXXXXX
command  倒角  XXXXXXX

等等
+ v. y% D1 C/ G
; B  g% E/ n% O! n[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
! |* {& Y3 h7 Z( h这个是圆角的程序
& I# B! K; `. E(defun c:aaaa()
+ Y" \/ M; [  e5 A' J  (setq p1(list 0 0))
  (setq p2(list 10 10))
  (setq p3(list 11 10))
  (setq p4(list 21 0))
  (command "line" p1 p2 "")
  (setq l1(entlast))
; E: _9 m3 W2 p1 _3 z  (command "line" p3 p4 "")
2 H1 y; D% L# \( f% a# Z9 L  (setq l2(entlast))
  t' i- c; g" j! J  (command "fillet" "t" "t" "r" 2)
2 U) y4 @9 }. T. N+ O$ k3 ?  (command "fillet" l1 l2)
7 L1 E2 P! h' o2 p6 {! C' \& }2 m  (princ)
)
& J: M8 R( w, B, T6 b+ C0 N
6 ~6 J4 Y$ n4 \* X5 z+ ^6 o其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
. @: [" W9 I% M' t% V( `& r(defun c:mi( )
! Y  s# I! ]7 b1 j3 \ (initget 7)
(setq pc1 (getpoint "\n pc1"))
( }  c6 f' C+ c; \. b) ^- [) v  (initget 7)
0 m5 G$ l7 W! O$ x: D(setq pc2 (getpoint "\n pc2"))
(initget 7)
(setq p3 (getpoint "\n p3"))
  (initget 7)
(setq p4 (getpoint "\n p4"))
& t" u% h. {5 B, U% y; t (command "line" pc1 pc2"")
& V2 [' E* r/ h: k4 l# a) r- K (command "line" p3 p4"")
9 i! \! @* b/ Z (setq ss (entlast))
(command "mirror" ss  pc1 pc2 "")
6 ]& S9 E" b6 ~2 a)

ysryc99001

正在学习，请多指点！