模拟天正动态粘贴

裸奔的花猫 · 发表于 2013-6-19 00:45:22

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

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

×

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

wowan1314 · 发表于 2013-6-19 13:52:47

本帖最后由 wowan1314 于 2013-6-20 13:03 编辑

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

坐等源码学习。呵呵

(DEFUN C:T1 nil
(SETQ SS (SSGET ":L") PT (getpoint))
(setq size (* (getvar "viewsize") 2))
(command "_.copy" SS "" "0,0" "@")
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)(setvar "cmdecho" 0)
(PRINC "\n 指定插入点或A旋转s上下镜像D左右镜像+放大一倍-缩小一倍T改基点")
(while PT
(setq BB (grread T 5 1))
(cond
((= (car BB) 5) (SETQ PT1 (CADR BB)) (redRaw)
(GRVECS
(LIST -1 PT (mapcar '+ (LIST size 0 0) PT)
-1 PT (mapcar '- PT(LIST size 0 0))
-1 PT (mapcar '- PT(LIST 0 size 0))
-1 PT (mapcar '+ (LIST 0 size 0) PT)
)
)
(COMMAND "MOVE" SS "" PT PT1)(SETQ PT PT1)
)
((= (car BB) 3) (SETQ PT NIL))
((member BB '((2 97)(2 65)))
(COMMAND "ROTATE" SS "" PT1 90)
)
((member BB '((2 115)(2 83)))
(COMMAND "mirror" SS "" PT1 (mapcar '- pt1 '(1 0)) "Y")
)
((member BB '((2 100)(2 68)))
(COMMAND "mirror" SS "" PT1 (mapcar '- pt1 '(0 1)) "Y")
)
((member BB '((2 43)(2 61)))
(COMMAND "scale" SS "" PT1 "2")
)
((member BB '((2 116)(2 84)))
(setvar "osmode" oldos)(redRaw)
(setq pt (getpoint))
(setvar "osmode" 0)
)
((equal BB '(2 45))
(COMMAND "scale" SS "" PT1 "0.5")
)
)
)
(setvar "osmode" oldos)(redRaw)(princ)
)

(DEFUN C:T1 nil 
  (SETQ SS (SSGET ":L") PT (getpoint)) 
  (setq size (* (getvar "viewsize") 2)) 
  (command "_.copy" SS "" "0,0" "@") 
  (setq oldos (getvar "osmode")) 
  (setvar "osmode" 0)(setvar "cmdecho" 0) 
  (PRINC "\n 指定插入点或A旋转s上下镜像D左右镜像+放大一倍-缩小一倍T改基点") 
  (while PT 
    (setq BB (grread T 5 1)) 
    (cond 
      ((= (car BB) 5) (SETQ PT1 (CADR BB))    (redRaw) 
         (GRVECS 
               (LIST -1 PT (mapcar '+ (LIST size 0 0) PT) 
                     -1 PT (mapcar '-  PT(LIST size 0 0)) 
                     -1 PT (mapcar '-  PT(LIST  0 size 0)) 
                     -1 PT (mapcar '+ (LIST  0 size 0) PT) 
               ) 
          ) 
         (COMMAND "MOVE" SS  "" PT PT1)(SETQ PT PT1) 
      ) 
      ((= (car BB) 3) (SETQ PT NIL)) 
      ((member BB '((2 97)(2 65))) 
       (COMMAND "ROTATE" SS "" PT1 90) 
      ) 
      ((member BB '((2 115)(2 83))) 
       (COMMAND "mirror" SS "" PT1 (mapcar '- pt1 '(1 0)) "Y") 
      ) 
      ((member BB '((2 100)(2 68))) 
       (COMMAND "mirror" SS "" PT1 (mapcar '- pt1 '(0 1)) "Y") 
      ) 
      ((member BB '((2 43)(2 61))) 
       (COMMAND "scale" SS "" PT1 "2") 
      ) 
      ((member BB '((2 116)(2 84))) 
       (setvar "osmode" oldos)(redRaw) 
       (setq pt (getpoint)) 
       (setvar "osmode" 0) 
      ) 
      ((equal BB '(2 45)) 
       (COMMAND "scale" SS "" PT1 "0.5") 
      ) 
    ) 
  ) 
 (setvar "osmode" oldos)(redRaw)(princ) 
)

XDSoft · 发表于 2013-6-19 00:47:56

代码贴上来吧,花猫。

xieyanghui123 · 发表于 2013-6-19 01:17:59

还需增加个可以改变基点就和天正的一样了

xieyanghui123 · 发表于 2013-6-19 01:19:49

这个程序很实用，支持

zxq0220 · 发表于 2013-6-19 07:42:58

看动画是将复制、移动、缩放、旋转集其一身的东东。

Free-Lancer · 发表于 2013-6-19 08:30:21

Grread 模拟捕捉 + Transformby

裸奔的花猫 · 发表于 2013-6-19 09:08:24

高手一看都都知道最关键的是这个是虚幻的所以解决了模拟捕捉捕捉自身问题比arx显示实体的屏闪速度要好的多

GTJ116600 · 发表于 2013-6-19 11:33:42

呵呵，初学者，学习

XDSoft · 发表于 2013-6-19 11:44:48

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

如果你看到的ARX屏闪的，那肯定是那个ARX程序代码的问题。不要试着用LISP和ARX比较。

裸奔的花猫 · 发表于 2013-6-19 12:19:45

本帖最后由裸奔的花猫于 2013-6-19 12:25 编辑

不是说LISP和ARX比，ARX是一只猎豹的话，LISP是个山羊的话，现在他们比赛跑，正常情况下肯定没有可比性，现在加入一个200KG的铁箱子，栓到猎豹身上，山羊身上只背了一个拍的铁箱子的照片，肯定山羊跑的快，ARX是真拖着实体走，我这个只是拖着一个虚幻的照片，所以不会闪，ARX再快，实体太多的时候显示肯定会闪，如果用ARX不用JIP，用这个思路去实现速度会惊人

Love-Lisp · 发表于 2013-6-19 12:31:03

楼主不是来这里炫耀的吧？程序没看着到也罢了，连个思路也没有说明！

ll_j · 发表于 2013-6-19 12:32:54

裸奔的花猫发表于 2013-6-19 12:19
不是说LISP和ARX比，ARX是一只猎豹的话，LISP是个山羊的话，现在他们比赛跑，正常情况下肯定没有可比性，现 ...

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

守仁格竹GM · 发表于 2013-6-19 12:46:47

跑题了，思路代码何在，另外动态图很花，不清晰，

裸奔的花猫 · 发表于 2013-6-19 12:49:47

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

还有一个动态插入选择集，弄好了一块说

裸奔的花猫 · 发表于 2013-6-19 12:58:02

ll_j 发表于 2013-6-19 12:32
还是arx的代码有问题，为什么猎豹也背着照片跑？

长老，这个是用GRVECS虚幻了一个物体，真正的物体没有被拖动，所以非常快，然后对虚拟物体进行变换，视觉效果达到了，记录变换的过程作用与物体就行了，ARX的是真拖物体跑，所以要在鼠标出现的任何位置显示实体，所以会闪

账号		自动登录	找回密码
密码			立即注册

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

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

点评

评分

相关帖子

点评

点评

点评

点评

点评