LISP如何调用CAD命令

抬头见喜

请教：
5 J$ c$ B4 l$ J/ Z" y. a* d' y# FLISP调用CAD命令如Trim、圆弧化、阵列、镜像等的格式及参数详解

[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

可能没说清楚
7 E' x# ~' |1 j- }1 t如：（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
/ g' [* l/ Q: E3 _) q4 O- g可以按照命令执行后进行的操作,给出相应的参数或选择集,其中字符要加引号

  V8 V. C/ A# \/ J5 d
* Q- E) e" _7 ]6 B  _
) f9 D" x7 a" k! H3 g4 ~! T想知道对应每重命令后参数的具体内容

: [8 O( C* I' u( Y* u
command " _extend"   格式内容
command "_fillet " XXXXXX
2 A/ k; ~" A4 u1 {( [command  倒角  XXXXXXX

! P( N! t' E& u' G" ?% R  z# p等等

[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
. F* F4 i4 v/ T2 S这个是圆角的程序
(defun c:aaaa()
, s5 [, U! G3 K  `* X4 I' J3 r  (setq p1(list 0 0))
  (setq p2(list 10 10))
  (setq p3(list 11 10))
  x% r% x) {3 i7 [! X  (setq p4(list 21 0))
' Q# s; V4 f6 R& F3 ?4 M  (command "line" p1 p2 "")
. n  G7 u8 l$ P8 v# s  u3 d2 _! W3 |' \  (setq l1(entlast))
. c- ~9 v" b, U+ h( X- ^8 W3 ^  (command "line" p3 p4 "")
1 ?/ T4 R/ D/ V, P  (setq l2(entlast))
  (command "fillet" "t" "t" "r" 2)
& r- p) F6 h/ f' C' Y' [1 e# V  (command "fillet" l1 l2)
+ F7 ]8 b, G; @4 t+ i) F  (princ)
; I( I8 J: T8 y* g2 F" `1 d  Y' a )
$ s6 P: @% R. ^% u0 a2 ?( t
8 B* W" n# J! w6 ~; ]# p$ {7 P其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
; s8 ~, o1 N+ s' T( y3 ~(defun c:mi( )
(initget 7)
(setq pc1 (getpoint "\n pc1"))
. ~, K& D: P3 W$ C  (initget 7)
(setq pc2 (getpoint "\n pc2"))
$ g9 ?% `4 K3 k( G5 A. ^ (initget 7)
(setq p3 (getpoint "\n p3"))
  (initget 7)
' p5 l9 Y/ R6 x/ q$ o(setq p4 (getpoint "\n p4"))
(command "line" pc1 pc2"")
9 _% [7 [) ~5 q (command "line" p3 p4"")
( i# K3 p. b7 V+ H( ~  f$ y (setq ss (entlast))
(command "mirror" ss  pc1 pc2 "")
5 Z. ~% h& N* R8 b3 v' b3 g% _2 O* C. q)

ysryc99001

正在学习，请多指点！