求助双向偏移出错

鑫诚科技

大神们，麻烦你们帮老弟看看这个怎么用一段时间后就会出现错误，如果修改才能一直正常使用呢？不知道哪个函数出了问题



(defun c:sx (/ getds obj)
  (vl-load-com)
  (setvar 'cmdecho 0)
  (initget 2)
  (setq getds (getdist "\n输入偏移距离<可直接量取>:"))
  (if (ssget ":s" '((0 . "Arc,Circle,Ellipse,*Line")))
    (vlax-for obj (vla-get-activeselectionset
        (vla-get-activedocument (vlax-get-acad-object))
      )
      (vla-offset obj getds)
      (vla-offset obj (* getds -1))
    )
    (vlax-release-object obj)
  )
  (if (not (getpoint "\n按鼠标左键不删除源对象 <空格删除>"))
    (command "_.ERASE" (ssget "p") "")
    )
  (princ)
)


用一段时间，有时半个小时，有时一两个小时后，就会出现以下错误：


命令: SX

输入偏移距离<可直接量取>:9

选择对象:
; 错误: Automation 错误。 调用方法 AddItems (接口 IAcadSelectionSet) 失败

liuhe

2. (defun c:sx (/ getds ss i e obj)
   
3.   (vl-load-com)
   
4.   (setvar 'cmdecho 0)
   
5.   (initget 2)
   
6.   (setq getds (getdist "\n输入偏移距离<可直接量取>:"))
   
7.   (if (not getds)
   
8.     (exit)
   
9.   )
   
10.   (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line"))))
    
11.   (if (not ss)
    
12.     (exit)
    
13.   )
    
14.   (setq i 0)
    
15.   (repeat (sslength ss)
    
16.     (setq e   (ssname ss i)
    
17.           obj (vlax-ename->vla-object E)
    
18.           i   (1+ i)
    
19.     )
    
20.     (vl-catch-all-apply 'vla-offset (list obj getds))
    
21.     (vl-catch-all-apply 'vla-offset (list obj (* getds -1)))
    
22.   )
    
23.   (if (not (getpoint "\n按鼠标左键不删除源对象 <空格删除>"))
    
24.     (command "_.ERASE" (ssget "p") "")
    
25.   )
    
26.   (princ)
    
27. )

(defun c:sx (/ getds ss i e obj)<br />   (vl-load-com)<br />   (setvar 'cmdecho 0)<br />   (initget 2)<br />   (setq getds (getdist "\n输入偏移距离<可直接量取>:"))<br />   (if (not getds)<br />     (exit)<br />   )<br />   (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line"))))<br />   (if (not ss)<br />     (exit)<br />   )<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq e   (ssname ss i)<br />           obj (vlax-ename->vla-object E)<br />           i   (1+ i)<br />     )<br />     (vl-catch-all-apply 'vla-offset (list obj getds))<br />     (vl-catch-all-apply 'vla-offset (list obj (* getds -1)))<br />   )<br />   (if (not (getpoint "\n按鼠标左键不删除源对象 <空格删除>"))<br />     (command "_.ERASE" (ssget "p") "")<br />   )<br />   (princ)<br /> )

鑫诚科技

liuhe 发表于 2023-9-14 11:13

青岛啤酒已安排好~~大哥有请

acoff

不愧是大神，厉害，能不能改进一下有个记录上次数据的功能

zmzk

不错，挺好用

haoxuan

不错，挺好用