双向偏移求助

鑫诚科技

请大佬们帮忙看看这个双向偏移，用一会儿以后就会显示出错，麻烦高手帮忙解决一下吧

(defun c:tt ( / o d e )
  (setq d (getdist "\n输入偏移距离<直接量取>:"))
  (setq e (not (getpoint "\n左键不删除 <空格删除>")))
  (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
    (vlax-for o (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
      (mapcar '(lambda (x)(vla-offset o x)) (list d (- d)))
      (if e (vla-delete o))
    )
  )
  (princ)
)

liuhe

(defun c:tt ( / o d e )
  (setq d (getdist "\n输入偏移距离<直接量取>:"))
  (setq e (not (getpoint "\n左键不删除 <空格删除>")))
  (if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
    (vlax-for o (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
      (mapcar '(lambda (x)(vla-offset o x)) (list d (* -1  d)))
      (if e (vla-delete o))
    )
  )
  (princ)
)


(list d (* -1  d))

鑫诚科技

liuhe 发表于 2023-9-10 07:13
(defun c:tt ( / o d e )
  (setq d (getdist "\n输入偏移距离:"))
  (setq e (not (getpoint "\n左键不 ...

谢谢大哥，不知道还会不会出现用着用着就出现使用不了的情况。明天试试

cds15980954301

咨询一下，o是哪来的

yaojing38

cds15980954301 发表于 2023-9-8 16:28
咨询一下，o是哪来的

(vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))) 这里是o

yaojing38

不会出错啊，，什么错误

tomonkey239

漂亮漂亮漂亮漂亮，原来偏移可以这样搞。学习了

鑫诚科技

yaojing38 发表于 2023-9-8 16:44
不会出错啊，，什么错误

有时用个半小时一小时CAD就会出现用不了的情况

行天下

谢谢，学习了

蓝天cayuer

第一次看到还有这个？

还是编辑插件用的