偏移到当前层，怎么才能偏移0求插件源码

爱de臂膀

偏移并将新对象改变到当前层 (defun c:of (/ of1 of2 va1 en2 pt1) (princ) (setvar "cmdecho" 0)(command "undo" "be") (princ "偏移并将新对象改变到当前层") (setq cm (princ (strcat "\n" (getvar "clayer")))) ;确定偏移距离 (setq of1 (getvar "offsetdist")) (setq of2 (strcat "\n偏移距离 <"(rtos of1 2)">: ")) (setq va1 (getstring of2)) ; (setq en2 (entsel "\n选择偏移对象:")) (setq pt1 (getpoint "\n选择偏移方向:")) (while (/= pt1 nil) (command "offset" va1 en2 pt1 "") (setq dz (entlast)) (command "change" dz "" "P" "LA" cm "") (setq en2 (entsel "\nSelect object to offset:")) (setq pt1 (getpoint "\nSide to offset:")) ) (princ)(setvar "cmdecho" 1)(command "undo" "e"))

296715530

xiaolong1487 发表于 2016-5-7 18:57
是我太粗心了，随便写的，现在重新写了个！再试试

这个可以，带记忆，可连续，好用

xiaolong1487

用复制也可以

xiaolong1487

2. (defun c:ts (/ en obj)
   
3.         (while (setq en (car (entsel)))
   
4.                 (setq obj (vlax-ename->vla-object en))
   
5.                 (vla-Offset obj 0)
   
6.                 (vla-put-Layer (vlax-ename->vla-object (entlast)) (getvar "CLAYER"))
   
7.         )
   
8. )

(defun c:ts (/ en obj)<br />         (while (setq en (car (entsel)))<br />                 (setq obj (vlax-ename->vla-object en))<br />                 (vla-Offset obj 0)<br />                 (vla-put-Layer (vlax-ename->vla-object (entlast)) (getvar "CLAYER"))<br />         )<br /> )

yoyoho

xiaolong1487 发表于 2016-5-5 05:03

指令: (vla-Offset obj 0)
; 错误: 自动化错误。无效的引数 Distance (于 Offset method 中)

yoyoho

可能得用复制了!!!!

xiaolong1487

yoyoho 发表于 2016-5-5 08:01
指令: (vla-Offset obj 0)
; 错误: 自动化错误。无效的引数 Distance (于 Offset method 中)

我这边测试没有问题

爱de臂膀

复制可以！偏移不可以偏移距离为0吗？

爱de臂膀

xiaolong1487 发表于 2016-5-5 05:03

这个可以，可不可以，同样可以偏移别的距离啊。麻烦高手。

爱de臂膀

xiaolong1487 发表于 2016-5-5 20:50
我这边测试没有问题

如果是矩形，就会出现。

xiaolong1487

爱de臂膀 发表于 2016-5-6 13:09
如果是矩形，就会出现。

是我太粗心了，随便写的，现在重新写了个！再试试

2. (defun c:ts (/ *error* en new_dist os p0)
   
3.         (defun *error* (msg)
   
4.                 (princ mag)
   
5.                 (setvar "cmdecho" 1)
   
6.                 (setvar "osmode" os)
   
7.                 (princ)
   
8.         )
   
9.         (setq os (getvar "osmode"))
   
10.         (mapcar 'setvar '("cmdecho" "osmode") '(0 0))
    
11.         (setq old_dist (if (setq new_dist (getreal (strcat "\n偏移距离[" (if old_dist (rtos old_dist 2 3) "0") "]")))
    
12.                                                                          new_dist
    
13.                                                                          (if old_dist old_dist (setq old_dist 0))
    
14.                                                                  )   
    
15.   )
    
16.         (while (and (setq en (car (entsel))) (setq p0 (getpoint "\n偏移方向:")))
    
17.                 (if (= old_dist 0)
    
18.                         (command "copy" en "" p0 p0)
    
19.                         (command "offset" old_dist en p0 "")
    
20.                 )
    
21.                 (vla-put-Layer (vlax-ename->vla-object (entlast)) (getvar "CLAYER"))
    
22.         )
    
23.         (setvar "cmdecho" 1)
    
24.         (setvar "osmode" os)
    
25.         (princ)
    
26. )

(defun c:ts (/ *error* en new_dist os p0)<br />         (defun *error* (msg)<br />                 (princ mag)<br />                 (setvar "cmdecho" 1)<br />                 (setvar "osmode" os)<br />                 (princ)<br />         )<br />         (setq os (getvar "osmode"))<br />         (mapcar 'setvar '("cmdecho" "osmode") '(0 0))<br />         (setq old_dist (if (setq new_dist (getreal (strcat "\n偏移距离[" (if old_dist (rtos old_dist 2 3) "0") "]")))<br />                                                                          new_dist <br />                                                                          (if old_dist old_dist (setq old_dist 0))<br />                                                                  )    <br />   )<br />         (while (and (setq en (car (entsel))) (setq p0 (getpoint "\n偏移方向:")))<br />                 (if (= old_dist 0)<br />                         (command "copy" en "" p0 p0)<br />                         (command "offset" old_dist en p0 "")<br />                 )<br />                 (vla-put-Layer (vlax-ename->vla-object (entlast)) (getvar "CLAYER"))<br />         )<br />         (setvar "cmdecho" 1)<br />         (setvar "osmode" os)<br />         (princ)<br /> )