双向拉伸

peterlange · 发表于 2012-10-29 19:57:30

defun c:ext2()
(setvar "cmdecho" 0)
  (setq en (entsel))
(command "ucs" "ob" en1 "EXTRUDE" en "" pause "")
  (setq ob1 (entlast))
(command "mirror3d" ob1 "" "xy" "" "")
  (setq ob2 (entlast))
  (command "union" ob1 ob2 "" "ucs" "p" "")
   (prin1)
(setvar "cmdecho" 1)
)
以上命令运行的时候，CAD很容易死机，请高手帮忙修改一下。

shyshineboy · 发表于 2012-10-30 20:25:43

楼主能给个动画演示就好了

ddisddis · 发表于 2012-10-31 06:20:37

坛子里应该有类似的，可以搜搜看

yan1237891314 · 发表于 2021-11-12 15:25:34

上图才知道你说什么

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

双向拉伸

相关帖子