开发一个小功能

zyhandw

水上浮舟 发表于 2012-6-5 13:31
请问您有好的方法吗？

应该有好的方法！这个问题应该比较简单，你把你的dwg文件以附件的形式发上来，让大家都帮你看看！
要不然，大家不知道你想要的结果到底是啥样！

水上浮舟

zyhandw 发表于 2012-6-5 14:17
应该有好的方法！这个问题应该比较简单，你把你的dwg文件以附件的形式发上来，让大家都帮你看看！
要不然 ...

就是移动10mm，这个应该用不到附件吧，

水上浮舟

水上浮舟 发表于 2012-6-5 15:47
就是移动10mm，这个应该用不到附件吧，

把选中的对象，平移10mm，越简单越好。

zyhandw

水上浮舟 发表于 2012-6-5 15:48
把选中的对象，平移10mm，越简单越好。

正如二楼说的，“往哪个方向移，还有什么条件”这些都不得而知！
如果连个附件都不舍得上，这样大家恐怕爱莫能助了！

tonyle

有插件的，输入值想偏移多少就多少

水上浮舟

tonyle 发表于 2012-6-5 17:13
有插件的，输入值想偏移多少就多少

我的QQ465090420，能发给我吗？谢谢啦

VBALISPER

大量的移动,真搞不懂啊.是不是你每次画线都画歪了10MM,现在又要移过来.正交是4个方向,到底是哪个方向.

水上浮舟

VBALISPER 发表于 2012-6-5 19:48
大量的移动,真搞不懂啊.是不是你每次画线都画歪了10MM,现在又要移过来.正交是4个方向,到底是哪个方向 ...

方向不固定，可以使正交方向，大家帮帮忙吧！谢谢啦

hhh454

我自己弄了一个，你看看吧！

2. (defun c:mm()
   
3.   (setq ss (ssget "p")
   
4.         pt (list 0.0 0.0 0.0)
   
5.         pt2 (list 5.0 0.0 0)
   
6.         )
   
7.   (command "move" ss "" pt pt2)
   
8.   (princ))
   
9. 
   
10. (defun c:ww()
    
11.   (setq sss (ssget))
    
12.   (setq pts (getpoint "\n指定一个点")
    
13.         ens 320)
    
14.   (command "offset" ens sss pts "")
    
15.         (princ))

(defun c:mm()<br />   (setq ss (ssget "p")<br />         pt (list 0.0 0.0 0.0)<br />         pt2 (list 5.0 0.0 0)<br />         )<br />   (command "move" ss "" pt pt2)<br />   (princ))<br /> <br /> (defun c:ww()<br />   (setq sss (ssget))<br />   (setq pts (getpoint "\n指定一个点")<br />         ens 320)<br />   (command "offset" ens sss pts "")<br />         (princ))

水上浮舟

hhh454 发表于 2012-6-6 12:08
我自己弄了一个，你看看吧！

能说一说，具体的操作步骤么，谢谢！