社区 › AutoCAD工具插件 › 开发一个小功能

水上浮舟 发表于 2012-6-6 15:01:09

hhh454 发表于 2012-6-6 12:08 static/image/common/back.gif
我自己弄了一个，你看看吧！

你好，在吗？

水上浮舟 发表于 2012-6-6 15:26:14

hhh454 发表于 2012-6-6 12:08 static/image/common/back.gif
我自己弄了一个，你看看吧！

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

水上浮舟 发表于 2012-6-6 15:26:55

hhh454 发表于 2012-6-6 12:08 static/image/common/back.gif
我自己弄了一个，你看看吧！

我的QQ465090420，欢迎指教

c735023723 发表于 2012-6-6 16:34:05

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

longer1000 发表于 2012-6-7 08:36:52

hhh454 发表于 2012-6-7 20:31:54

水上浮舟 发表于 2012-6-6 15:26 static/image/common/back.gif
我的QQ465090420，欢迎指教

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

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

本帖最后由 hhh454 于 2012-6-7 20:47 编辑

水上浮舟 发表于 2012-6-6 12:35 http://bbs.mjtd.com/static/image/common/back.gif
能说一说，具体的操作步骤么，谢谢！

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

水上浮舟 发表于 2012-6-8 10:46:38

hhh454 发表于 2012-6-7 20:46 static/image/common/back.gif


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

hhh454 发表于 2012-6-8 15:43:29

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

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

ejingsong 发表于 2012-6-9 00:08:17

呵呵

查看完整版本: 开发一个小功能