几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量  


返回   几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 » 仿射空间:CAX软件开发(三)二次开发与程序设计 » CAD二次开发 » AutoCAD二次开发 » ObjectARX(AutoLISP)
用户名
密码
注册 帮助 会员 日历 银行 搜索 今日新帖 标记论坛为已读


回复
 
主题工具 搜索本主题 显示模式
旧 2009-04-27, 01:23 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 请问这个动态复制时怎么显示橡皮筋效果,谢谢

请问这个动态复制时怎么显示橡皮筋效果,谢谢
www.dimcax.com
请问这个动态复制时怎么显示橡皮筋效果,谢谢
(defun c:tt()
(prompt "\n请选择复制旋转的对象:")

(if (and (setq ss (ssget)) (setq pt (getpoint "\n选择基点:")) (setq pt1 (getpoint "\n指定新基点:")))
(progn
(command "copy" ss "" pt pt1)
(command "rotate" (entlast) "" pt1 pause)
)
)
)
d
(and (setq ss (ssget)) (setq pt (getpoint "\n选择基点:")) (setq pt1 (getpoint pt "\n指定新基点:")))
橡皮筋与动态没有关系,动态grread可以做到,command也可以模仿
d
都是蜘蛛侠,厉害.
d
;;你要的是这样吧:
(defun c:tt ()
(prompt "\n请选择复制旋转的对象:")
(if (and (setq ss (ssget))
(setq pt (getpoint "\n选择基点:"))
)
(progn
(setq la (entlast))
(command "copy" ss "" pt pause)
(setq newss (ssadd))
(while (setq la (entnext la)) (ssadd la newss))
(command "rotate" newss "" "non" "@" pause)
)
)
)
嘿嘿!有空去我博客去玩玩哦!
飞哥,太用才啦,谢谢啦
d
;;你要的是这样吧:
;;;稍为改一下
(defun c:tt ()
(prompt "\n请选择复制旋转的对象:")
(if (and (setq ss (ssget))
(setq pt (getpoint "\n选择基点:"))
)
(progn
(setq la (entlast))
(princ "\n请指点目标点:")
(command "copy" ss "" pt pause)
(setq newss (ssadd))
(while (setq la (entnext la)) (ssadd la newss))
(princ "\n指定旋转角度或 [参照(r)]:
(command "rotate" newss "" "non" "@" pause)
)
)
)
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)
回复


主题工具 搜索本主题
搜索本主题:

高级搜索
显示模式

发帖规则
不可以发表新主题
不可以回复主题
不可以上传附件
不可以编辑您的帖子

vB 代码开启
[IMG]代码开启
HTML代码关闭



所有的时间均为北京时间。 现在的时间是 12:13 AM.


于2004年创办,几何尺寸与公差论坛"致力于产品几何量公差标准GD&T | GPS研究/CAD设计/CAM加工/CMM测量"。免责声明:论坛严禁发布色情反动言论及有关违反国家法律法规内容!情节严重者提供其IP,并配合相关部门进行严厉查处,若內容有涉及侵权,请立即联系我们QQ:44671734。注:此论坛须管理员验证方可发帖。
沪ICP备06057009号-2
更多