设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 模拟天正动态粘贴
123下一页
返回列表 发新帖
查看: 8249|回复: 52

[原创] 模拟天正动态粘贴

[复制链接]
裸奔的花猫
发表于 2013-6-19 00:45:22 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×
当年学习LISP时候一直羡慕LISP无法实现的动态，比如天正的粘贴，一直在寻求解决办法，包括用ARX去实现，ARX模拟也有很大问题动态倒是动态了，但是屏显时老是闪来闪去，现在终于找到模拟的办法了，比ARX屏显要好的多，不会出现闪屏
动态
aaa.gif

点评

wowan1314
我错了！ 我一错就是几年啊！ G版已解决了捕捉自身的问题了。【Gu_xl】【源码分享】自定义带捕捉的grread函数 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91191&fromuid=282351  发表于 2013-6-20 14:41

评分

参与人数 2D豆 +15 收起 理由
qq1254582201 + 5 很给力!经验；技术要点；资料分享奖！
XDSoft + 10 好主题奖！

查看全部评分

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

wowan1314
发表于 2013-6-19 13:52:47 | 显示全部楼层
本帖最后由 wowan1314 于 2013-6-20 13:03 编辑

我的课题被你实现了！  牛。

坐等源码学习。呵呵
  2. (DEFUN C:T1 nil
  3.   (SETQ SS (SSGET ":L") PT (getpoint))
  4.   (setq size (* (getvar "viewsize") 2))
  5.   (command "_.copy" SS "" "0,0" "@")
  6.   (setq oldos (getvar "osmode"))
  7.   (setvar "osmode" 0)(setvar "cmdecho" 0)
  8.   (PRINC "\n 指定插入点或A旋转s上下镜像D左右镜像+放大一倍-缩小一倍T改基点")
  9.   (while PT
  10.     (setq BB (grread T 5 1))
  11.     (cond
  12.       ((= (car BB) 5) (SETQ PT1 (CADR BB))    (redRaw)
  13.          (GRVECS
  14.                (LIST -1 PT (mapcar '+ (LIST size 0 0) PT)
  15.                      -1 PT (mapcar '-  PT(LIST size 0 0))
  16.                      -1 PT (mapcar '-  PT(LIST  0 size 0))
  17.                      -1 PT (mapcar '+ (LIST  0 size 0) PT)
  18.                )
  19.           )
  20.          (COMMAND "MOVE" SS  "" PT PT1)(SETQ PT PT1)
  21.       )
  22.       ((= (car BB) 3) (SETQ PT NIL))
  23.       ((member BB '((2 97)(2 65)))
  24.        (COMMAND "ROTATE" SS "" PT1 90)
  25.       )
  26.       ((member BB '((2 115)(2 83)))
  27.        (COMMAND "mirror" SS "" PT1 (mapcar '- pt1 '(1 0)) "Y")
  28.       )
  29.       ((member BB '((2 100)(2 68)))
  30.        (COMMAND "mirror" SS "" PT1 (mapcar '- pt1 '(0 1)) "Y")
  31.       )
  32.       ((member BB '((2 43)(2 61)))
  33.        (COMMAND "scale" SS "" PT1 "2")
  34.       )
  35.       ((member BB '((2 116)(2 84)))
  36.        (setvar "osmode" oldos)(redRaw)
  37.        (setq pt (getpoint))
  38.        (setvar "osmode" 0)
  39.       )
  40.       ((equal BB '(2 45))
  41.        (COMMAND "scale" SS "" PT1 "0.5")
  42.       )
  43.     )
  44.   )
  45. (setvar "osmode" oldos)(redRaw)(princ)
  46. )
123.gif

点评

裸奔的花猫
葛老，如果用这种方式的话走到尽头就会出现我说的捕捉自身问题了  详情 回复 发表于 2013-6-20 11:44
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 1 反对 0

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-6-19 00:47:56 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
代码贴上来吧,花猫。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xieyanghui123
发表于 2013-6-19 01:17:59 | 显示全部楼层
还需增加个可以改变基点就和天正的一样了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xieyanghui123
发表于 2013-6-19 01:19:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这个程序很实用，支持
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11303个

财富等级: 富甲天下
发表于 2013-6-19 07:42:58 | 显示全部楼层
看动画是将复制、移动、缩放、旋转集其一身的东东。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Free-Lancer
发表于 2013-6-19 08:30:21 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Grread 模拟捕捉 + Transformby
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

裸奔的花猫
 楼主| 发表于 2013-6-19 09:08:24 来自手机 | 显示全部楼层
高手一看都都知道最关键的是这个是虚幻的所以解决了模拟捕捉捕捉自身问题比arx显示实体的屏闪速度要好的多

点评

XDSoft
如果你看到的ARX屏闪的，那肯定是那个ARX程序代码的问题。不要试着用LISP和ARX比较。  详情 回复 发表于 2013-6-19 11:44
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

GTJ116600
发表于 2013-6-19 11:33:42 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
呵呵，初学者，学习

点评

GTJ116600
_自贡黄明儒_ “我是老学者，不管怎么样，我们都是学者,呵呵!! ” 呵呵，前辈是老学者，我是老年初学者，但前辈这种谦虚的精神，却是我学习的榜样  详情 回复 发表于 2013-6-22 16:26
/db_自贡黄明儒_
我是老学者，不管怎么样，我们都是学者,呵呵!!  发表于 2013-6-22 09:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-6-19 11:44:48 | 显示全部楼层
裸奔的花猫 发表于 2013-6-19 09:08
高手一看都都知道最关键的是这个是虚幻的所以解决了模拟捕捉捕捉自身问题比arx显示实体的屏闪速度要好的多

如果你看到的ARX屏闪的，那肯定是那个ARX程序代码的问题。不要试着用LISP和ARX比较。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

裸奔的花猫
 楼主| 发表于 2013-6-19 12:19:45 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 裸奔的花猫 于 2013-6-19 12:25 编辑

不是说LISP和ARX比，ARX是一只猎豹的话，LISP是个山羊的话，现在他们比赛跑，正常情况下肯定没有可比性，现在加入一个200KG的铁箱子，栓到猎豹身上，山羊身上只背了一个拍的铁箱子的照片，肯定山羊跑的快，ARX是真拖着实体走，我这个只是拖着一个虚幻的照片，所以不会闪，ARX再快，实体太多的时候显示肯定会闪，如果用ARX不用JIP，用这个思路去实现速度会惊人
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Love-Lisp
发表于 2013-6-19 12:31:03 | 显示全部楼层
楼主不是来这里炫耀的吧？程序没看着到也罢了，连个思路也没有说明！

点评

ysq101
还是你胆大点。。。。。这话我可不敢说。。。 源码放不放是人家的权力吧。。。。  详情 回复 发表于 2013-6-19 18:20
裸奔的花猫
还有一个动态插入选择集，弄好了一块说  详情 回复 发表于 2013-6-19 12:49
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ll_j

已领礼包: 6530个

财富等级: 富甲天下
发表于 2013-6-19 12:32:54 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
裸奔的花猫 发表于 2013-6-19 12:19
不是说LISP和ARX比，ARX是一只猎豹的话，LISP是个山羊的话，现在他们比赛跑，正常情况下肯定没有可比性，现 ...

还是arx的代码有问题，为什么猎豹也背着照片跑？

点评

裸奔的花猫
长老，这个是用GRVECS虚幻了一个物体，真正的物体没有被拖动，所以非常快，然后对虚拟物体进行变换，视觉效果达到了，记录变换的过程作用与物体就行了，ARX的是真拖物体跑，所以要在鼠标出现的任何位置显示实体，所  详情 回复 发表于 2013-6-19 12:58
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

守仁格竹GM

已领礼包: 1757个

财富等级: 堆金积玉
发表于 2013-6-19 12:46:47 | 显示全部楼层
跑题了，思路 代码何在，另外动态图 很花，不清晰，
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

裸奔的花猫
 楼主| 发表于 2013-6-19 12:49:47 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Love-Lisp 发表于 2013-6-19 12:31
楼主不是来这里炫耀的吧？程序没看着到也罢了，连个思路也没有说明！

还有一个动态插入选择集，弄好了一块说
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

裸奔的花猫
 楼主| 发表于 2013-6-19 12:58:02 | 显示全部楼层
ll_j 发表于 2013-6-19 12:32
还是arx的代码有问题，为什么猎豹也背着照片跑？

长老，这个是用GRVECS虚幻了一个物体，真正的物体没有被拖动，所以非常快，然后对虚拟物体进行变换，视觉效果达到了，记录变换的过程作用与物体就行了，ARX的是真拖物体跑，所以要在鼠标出现的任何位置显示实体，所以会闪
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-27 12:53 , Processed in 0.299879 second(s), 75 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表