帮我看看这段程序怎么了

abcxyz0517 · 发表于 2007-1-5 14:44:00

镜像以后删除对象的程序

(defun c:mi()
(setq ss (ssget))
(setq pt1 (getpoint ""))
(setq pt2 (getpoint "" pt1))
(command "MIRROR" ss pt1 pt2 "y" )
(princ)
)

ZZXXQQ · 发表于 2007-1-5 14:55:00

(defun c:mi()
(setq ss (ssget))
(command "MIRROR" ss "" "y" )
(princ)
)

abcxyz0517 · 发表于 2007-1-5 15:32:00

命令: mi
选择对象: 指定对角点: 找到 12 个
选择对象:
二维点无效。
; 错误: 函数被取消
指定镜像线的第一点: 指定镜像线的第二点:
是否删除源对象？[是(Y)/否(N)] <N>:

f5612140 · 发表于 2007-1-5 16:03:00

(defun c:mi()
(setq ss (ssget))
(setq pt1 (getpoint "\n指定鏡射線的第一點:"))
(setq pt2 (getpoint pt1 "\n指定鏡射線的第二點:"))
(command "MIRROR" ss "" pt1 pt2 "y" )
(princ)
)

abcxyz0517 · 发表于 2007-1-5 16:31:00

(defun c:mi()
(setq ss (ssget))
(setq pt1 (getpoint "\n指定鏡射線的第一點:"))
(setq pt2 (getpoint pt1 "\n指定鏡射線的第二點:"))
(command "MIRROR" ss "" pt1 pt2 "y" )
(princ)
)

呵呵

行的通~~

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