相对连续拷贝---重写

xotoo · 发表于 2011-12-30 10:55:56

本帖最后由 xotoo 于 2011-12-30 10:59 编辑

一楼的程序——输入数值1的时候，不能正确偏移，二是移动选择的物体移动；输入2,3,4,5这几个数值的时候不能正确偏移

自贡黄明儒 · 发表于 2011-12-30 10:59:27

xotoo 发表于 2011-12-30 10:55
输入数值1的时候，不能正确偏移，二是移动选择的物体移动；输入2,3,4,5这几个数值的时候不能正确偏移

关闭网格,你再试试试。你可以看看内容，。。。

xotoo · 发表于 2011-12-30 11:02:01

10楼的程序相当不错，终于找到一个真正可以实现连续偏移的程序了，谢谢

自贡黄明儒 · 发表于 2011-12-30 11:03:44

xiaxiang 发表于 2011-12-30 09:39
另，每次拷贝的时候原选择集会闪一下，不知你电脑上是不是这样的

我的电脑不会呀

自贡黄明儒 · 发表于 2011-12-30 11:05:34

xotoo 发表于 2011-12-30 10:44
不错
不过输入10以下数值的时候会出错，不能正确偏移

还是网格没有关闭

xotoo · 发表于 2011-12-30 11:13:00

自贡黄明儒发表于 2011-12-30 11:05
还是网格没有关闭

你还说的网格就是格栅吧？
已经关闭了啊

lixuedong · 发表于 2011-12-30 11:18:56

我也有自己写的，用了很久，拿去参考
(defun c:mcp(/ oer os xoy dil di ss tscale sca dir)
(setvar "cmdecho" 0)
(setq oer *error* *error* numerr)
  (setq tscale 100)
  (setq sca (* 1.0 tscale))          ; 图纸比例
  (setq xoy 0 di1 6000 di 6000 ss nil)
  (setq ss (ssget))
  (setq  dir (uint 1 "" "\ndircation(1:x 2:y 3:横向1800模数)" 2)); 选择1横2竖，3横向模数
  (if (= dir 3)(setq di1 3))
  (while (not (= di1 0))
(if (or (= dir 1)(= dir 2))
(progn
(princ (strcat "\ndistance (0:end):<" (rtos di 2) ">"))
(setq di1 (getreal))
(if (= di1 nil) (setq di di) (setq di di1))
))
(if (= dir 3)
(progn
   (setq  di1 (uint 1 "" "\ndircation(横向1800模数)" di1))
(if (/= di1 0) (setq di (* di1 18 sca))(setq di di1))
))
(setq xoy (+ xoy di) x (list 0 xoy) y (list xoy 0))
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setvar "blipmode" 0)
(cond ((and (= dir 1) (not (= di 0)))
      (command "copy" ss "" "0,0" y)
   )
   ((and (= dir 2) (not (= di 0)))
      (command "copy" ss "" "0,0" x)
   )
      ((and (= dir 3) (not (= di 0)))
            (command "copy" ss "" "0,0" y)
   )
   )
  (setvar "osmode" os)
  (setvar "blipmode" 1)
  )
(setvar "cmdecho" 1)
(setq  *error* oer)
(princ)
)

byghbcx · 发表于 2011-12-30 11:28:37

临时写的程序，没有关闭格栅、捕捉之类的

xotoo · 发表于 2011-12-30 11:41:06

17楼也不错
如果便宜状态下鼠标变成十字状态就更好了

yjr111 · 发表于 2011-12-30 12:19:35

(defun c:ccc (/ e vla_e pt1 pt2)
(setq e (car (entsel "\n选择复制物体:")))
(redraw e 3)
(setq vla_e (vlax-ename->vla-object e))
(setq pt1 (getpoint "\n选择基点:"))
(while (setq pt2 (getpoint pt1 "\n下一点:"))
(vla-Highlight vla_e :vlax-false)
(setq vla_e (vla-copy vla_e))
(vla-move vla_e (vlax-3d-point pt1) (vlax-3d-point pt2))
(setq pt1 pt2)
(vla-Highlight vla_e :vlax-true)
) ;_ 结束while
(vla-Highlight vla_e :vlax-false)
) ;_ 结束defun

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

相对连续拷贝---重写

点评