继续求帮助 加旋转预览的功能

xj6019

代码求加上预览功能 鼠标上下移动的时候希望看到能生成的形状  保留鼠标移动时移动的黄色虚线
(if(and(setq ss(ssget))
          (setq pt(getpoint "\n基点を指定"))
          (setq pt1(getpoint pt "\n向上逆時針90度,向下順時針90度:"))
   )
(if(<(cadr pt1)(cadr pt))
(command".rotate" ss "" pt "-90")
(command".rotate" ss "" pt "90")
))
)



古董帖子，散了散了，不要凑热闹了！！！！

wyl219

同一个问题发一堆贴子,一堆人给你解释还想要人给你把每个代码都改完整,这种简单的东西自己学一下不好么,大家又不是没事要做.
把你这一大堆改成这一行就行了,本来就是cad原始的功能
(if (setq ss(ssget)) (command".rotate" ss ""pause pause))

xj6019

wyl219 发表于 2019-12-4 11:41
同一个问题发一堆贴子,一堆人给你解释还想要人给你把每个代码都改完整,这种简单的东西自己学一下不好么,大 ...

00000000000000000000000000000000000000000000000000000000000

xinxirong

就算你买了邀请码也不能要求另一个买了邀请码无偿帮助你啊，论坛有论坛的规矩，简单问题先查文档，困难百度，解决不了google。再难的论坛没有人会也没有人能帮你。你可以花钱帮你解决。

xj6019

xinxirong 发表于 2019-12-4 12:57
就算你买了邀请码也不能要求另一个买了邀请码无偿帮助你啊，论坛有论坛的规矩，简单问题先查文档，困难百度 ...

0000000000000000000000000000000000000000000000

wyl219

想学习可以发贴问,只要有回答的意义,都会有人帮忙,毕竟都是从两眼摸黑的新手过来的.
想抄代码就发悬赏呗.

xj6019

wyl219 发表于 2019-12-4 13:19
想学习可以发贴问,只要有回答的意义,都会有人帮忙,毕竟都是从两眼摸黑的新手过来的.
想抄代码就发悬赏呗.
...

嗯 好的，说实在的，我也感觉到了，老是麻烦人也不好，再有解决不掉的问题，也花钱请教吧

zmzk

现在高版本的CAD2014以上的，都自带这种功能

wowan1314

感觉不需要编程啊。打开正交或极轴，再用旋转命令即可。