开发一个小功能

水上浮舟

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

你好，在吗？

水上浮舟

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

我在时刻等待您的回复！看到后请回复

水上浮舟

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

我的QQ465090420，欢迎指教

c735023723

这个应该很简单吧，随便哪本lisp书上都会有的吧

longer1000

hhh454

水上浮舟 发表于 2012-6-6 15:26
我的QQ465090420，欢迎指教

就是你先选择一条线，然后输入mm就可以往右移动5mm，假如是10mm就把上面的5.0改成10.0就行了

hhh454

水上浮舟 发表于 2012-6-6 12:35
能说一说，具体的操作步骤么，谢谢！

2. (defun c:zy()
   
3. (princ "\n左移动10mm")
   
4.   (setq ss (ssget)
   
5.         pt (list 0.0 0.0 0.0)
   
6.         pt2 (list -10.0 0.0 0)
   
7.         )
   
8.   (command "move" ss "" pt pt2)
   
9.   (princ))
   
10. (defun c:yy()
    
11.    (princ "\n右移动10mm")
    
12.   (setq ss (ssget)
    
13.         pt (list 0.0 0.0 0.0)
    
14.         pt2 (list 10.0 0.0 0)
    
15.         )
    
16.   (command "move" ss "" pt pt2)
    
17.   (princ))
    
18. (defun c:sy()
    
19.    (princ "\n上移动10mm")
    
20.   (setq ss (ssget)
    
21.         pt (list 0.0 0.0 0.0)
    
22.         pt2 (list 0.0 10.0 0)
    
23.         )
    
24.   (command "move" ss "" pt pt2)
    
25.   (princ))
    
26. (defun c:xy()
    
27.    (princ "\n下移动10mm")
    
28.   (setq ss (ssget)
    
29.         pt (list 0.0 0.0 0.0)
    
30.         pt2 (list 0.0 -10.0 0)
    
31.         )
    
32.   (command "move" ss "" pt pt2)
    
33.   (princ))

(defun c:zy()<br /> (princ "\n左移动10mm") <br />   (setq ss (ssget)<br />         pt (list 0.0 0.0 0.0)<br />         pt2 (list -10.0 0.0 0)<br />         )<br />   (command "move" ss "" pt pt2)<br />   (princ))<br /> (defun c:yy()<br />    (princ "\n右移动10mm")<br />   (setq ss (ssget)<br />         pt (list 0.0 0.0 0.0)<br />         pt2 (list 10.0 0.0 0)<br />         )<br />   (command "move" ss "" pt pt2)<br />   (princ))<br /> (defun c:sy()<br />    (princ "\n上移动10mm")<br />   (setq ss (ssget)<br />         pt (list 0.0 0.0 0.0)<br />         pt2 (list 0.0 10.0 0)<br />         )<br />   (command "move" ss "" pt pt2)<br />   (princ))<br /> (defun c:xy()<br />    (princ "\n下移动10mm")<br />   (setq ss (ssget)<br />         pt (list 0.0 0.0 0.0)<br />         pt2 (list 0.0 -10.0 0)<br />         )<br />   (command "move" ss "" pt pt2)<br />   (princ))

水上浮舟

hhh454 发表于 2012-6-7 20:46

终于看到您的回复了，很好用，谢谢！
请问可不可以通过上下左右键操作实现呢？

hhh454

水上浮舟 发表于 2012-6-8 10:46
终于看到您的回复了，很好用，谢谢！
请问可不可以通过上下左右键操作实现呢？

可以实现，论坛里面有个帖子，你找找吧！我不会写那个代码，只会简单的

ejingsong

呵呵