[分享]：■在三维空间将实体复制 Z坐标不变■

zhuquanmao · 发表于 2004-10-27 17:09:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

在三维空间将指定物体复制 Z坐标不变

[PHP] ;;; 本程序将指定物体平面复制，z坐标不变
(defun c:pmfz (/ pt1 pt2 pt3 ssg osm)
  (setvar "CMDECHO" 0)
  (setq osm (getvar "osmode"))
  (princ "\n<本程序将指定物体平面复制，Z坐标不变>")
  (setq ssg (ssget))
  (setq pt1 (getpoint "\n选取基点："))
  (while (setq pt2 (getpoint pt1 "\n选取目标点："))
(progn
   (setq pt3 (list (car pt2) (cadr pt2) (caddr pt1)))
   (setvar "osmode" 0)
   (command "copy" ssg "" pt1 pt3)
   (setvar "osmode" osm)
)
  )
  (princ)
)
[/PHP]

如有问题请反馈谢谢

realizezb · 发表于 2004-10-28 09:21:07

好象没什么用处

hust_laohu · 发表于 2004-11-4 15:25:08

我也不知道有什么用处
不过楼主还是辛苦了！

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

[分享]：■在三维空间将实体复制 Z坐标不变■

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子