请高手帮忙

LLNN · 发表于 2013-8-17 14:20:55

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 LLNN 于 2013-8-17 19:06 编辑

(defun c

oo ( )
(if (setq obj (entsel "\n选择双向偏移对象: "

)
(progn
(setq cm (getvar "cmdecho") of (getvar "offsetdist"))
(if (null (setq nf (getdist (strcat "\n偏移量: <" (rtos of 2 3) "> "))))
   (setq nf of)
)
(setvar "cmdecho" 0) (setvar "offsetdist" nf) (vl-load-com)
(setq obj (vlax-ename->vla-object (car obj)))
(vla-offset obj nf) (vla-offset obj (* nf -1))
(setvar "offsetdist" of) (setvar "cmdecho" cm)
)
(princ "\n未选择偏移对象,程序退出.")
  )
  (princ)
)
把这个程序帮我改为指定双边的偏移距离。

LLNN · 发表于 2013-8-17 19:05:44

这个东东不能改吗？

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

通知

[求助] 请高手帮忙

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块