LISP如何调用CAD命令

抬头见喜

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

, \8 t/ ^. Q) L& l6 R- R) k2 g[ 本帖最后由 抬头见喜 于 2008-5-17 09:33 编辑 ]

抬头见喜

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

xiaojinidvcn

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

maoyangmy

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

抬头见喜

谢谢,总算有人进来了.
8 o/ Y% g4 S' A( ]3 g
- f% d1 w2 ?3 y9 S2 J. f7 f& e我的意思是 命令后的内容,
& `! z/ g7 s! q2 [  }如镜像命令是(command  "mirror" 接下来先是 镜像内容还是对称轴,镜像内容中又是以坐标点,还是对象等等

抬头见喜

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

( w0 J" ~5 R' Z" Y& N7 e7 m

想知道对应每重命令后参数的具体内容
/ U# X' @% u# s4 r. I

- Z  h! N# q/ C3 j9 m" Q1 V# Dcommand " _extend"   格式内容
; B5 w4 a' S# g9 K& V0 E: r% q7 L" vcommand "_fillet " XXXXXX
/ ^7 _& |( |: i% Q) zcommand  倒角  XXXXXXX
2 i' G4 ]" Z. l  R6 ~
3 P% c, D' B: n* a- n5 g% M等等
; K$ g" b1 o! M/ z2 t
  ]. w  `: ^  g. y[ 本帖最后由 抬头见喜 于 2008-5-15 21:38 编辑 ]

woaishuijia

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
* ?8 V: ?* M/ g" S4 f# p- ~0 Q4 r这个是圆角的程序
; \! J2 f* n2 O(defun c:aaaa()
0 j* A/ j& d5 A9 |/ k/ O  (setq p1(list 0 0))
. u7 ~5 q6 F; d' E, `. K  (setq p2(list 10 10))
  (setq p3(list 11 10))
  (setq p4(list 21 0))
  (command "line" p1 p2 "")
/ V2 t9 A. J  r5 B5 _- T- p  (setq l1(entlast))
  (command "line" p3 p4 "")
  (setq l2(entlast))
  (command "fillet" "t" "t" "r" 2)
  (command "fillet" l1 l2)
% b' r/ v2 t0 ^1 F+ f  (princ)
)
% X  m6 N9 c6 Y) }2 t% w) [7 B9 j, \4 j
其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage

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

xtjoe

这是一个镜像程序，不妨一试：
' D& s& F& B/ R7 `! E(defun c:mi( )
(initget 7)
(setq pc1 (getpoint "\n pc1"))
  (initget 7)
0 `% E4 ~: z# O5 x+ x7 B* [(setq pc2 (getpoint "\n pc2"))
(initget 7)
(setq p3 (getpoint "\n p3"))
( z' ~1 c4 H, s" P( x7 L# V  (initget 7)
(setq p4 (getpoint "\n p4"))
(command "line" pc1 pc2"")
# |& n& @' @4 J. ]2 r1 J (command "line" p3 p4"")
6 S, O: W+ l$ A# ^7 I  ~( a2 j (setq ss (entlast))
(command "mirror" ss  pc1 pc2 "")
* R' D, P0 u2 r)

ysryc99001

正在学习，请多指点！