LISP如何调用CAD命令

抬头见喜 · 发表于 2008-5-15 20:46:44

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

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

抬头见喜 · 发表于 2008-5-15 20:53:08

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

xiaojinidvcn · 发表于 2008-5-15 21:08:58

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

maoyangmy · 发表于 2008-5-15 21:13:32

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

抬头见喜 · 发表于 2008-5-15 21:15:08

谢谢,总算有人进来了.

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

抬头见喜 · 发表于 2008-5-15 21:15:56

原帖由 maoyangmy 于 2008-5-15 21:13 发表 http://www.3dportal.cn/discuz/images/common/back.gif' E7 B! c) [# {' r4 R( N& w, K
可以按照命令执行后进行的操作,给出相应的参数或选择集,其中字符要加引号

想知道对应每重命令后参数的具体内容

command " _extend" 格式内容
command "_fillet " XXXXXX
command 倒角 XXXXXXX

等等

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

woaishuijia · 发表于 2008-5-15 22:44:09

刚才正帮xiaoxiao88朋友修复文件，没顾上你这里，抱歉！
这个是圆角的程序
(defun c:aaaa()
  (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))
  (command "line" p3 p4 "")
  (setq l2(entlast))
  (command "fillet" "t" "t" "r" 2)
  (command "fillet" l1 l2)
  (princ)
)

其实调用CAD命令和你自己在命令行输入差不多，在命令行输入相应的命令、参数，基本就可以把LISP需要的东西试出来，如果输入命令后会弹出对话框，就在命令前面加个减号，比如阵列，我记得在CAD2000没有对话框，就可以直接用“ARRAY”，在2002有了对话框了，LISP中就应该用“-ARRAY”。

sealive_leafage · 发表于 2008-9-6 15:54:43

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

xtjoe · 发表于 2009-11-17 19:18:21

这是一个镜像程序，不妨一试：
(defun c:mi( )
(initget 7)
(setq pc1 (getpoint "\n pc1"))
  (initget 7)
(setq pc2 (getpoint "\n pc2"))
(initget 7)
(setq p3 (getpoint "\n p3"))
  (initget 7)
(setq p4 (getpoint "\n p4"))
(command "line" pc1 pc2"")
(command "line" p3 p4"")
(setq ss (entlast))
(command "mirror" ss  pc1 pc2 "")
)

ysryc99001 · 发表于 2010-10-14 15:43:45

正在学习，请多指点！

改与风身 · 发表于 2010-10-16 23:11:10

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

[已解决] LISP如何调用CAD命令

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

改与风身改与风身当前离线积分 -49 UID 1326323 主题在线时间小时注册时间 2010-10-12 头像被屏蔽	发表于 2010-10-16 23:11:10 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报