社区 › AutoCAD工具插件 › 双向偏移求助

鑫诚科技 发表于 2023-9-8 15:57:29

双向偏移求助

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

(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 发表于 2023-9-10 07:13:28

(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 (* -1d)))
      (if e (vla-delete o))
    )
)
(princ)
)


(list d (* -1d))

鑫诚科技 发表于 2023-9-11 00:32:38

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

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

cds15980954301 发表于 2023-9-8 16:28:50

咨询一下，o是哪来的

yaojing38 发表于 2023-9-8 16:43:31

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

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

yaojing38 发表于 2023-9-8 16:44:35

不会出错啊，，什么错误

tomonkey239 发表于 2023-9-8 16:59:19

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

鑫诚科技 发表于 2023-9-8 20:44:15

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

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

行天下 发表于 2023-9-9 09:50:20

谢谢，学习了

蓝天cayuer 发表于 2023-9-10 08:34:15

第一次看到还有这个？

还是编辑插件用的

查看完整版本: 双向偏移求助