[编程申请]：大侠们请帮忙啊

firemaner · 发表于 2004-6-18 12:54:11

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

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

×

能否实现一个和镜像相类似的命令，但是不同的是镜像在操作完之后原物还保留，而我需要实现的命令是将原物删除，

哪位大侠肯帮忙一下？？？

lsjjm · 发表于 2004-6-18 13:03:19

不用啦，镜像命令本身就有这个功能：看看执行命令后的提示<N/Y>?

lijiao · 发表于 2004-6-18 13:25:44

最初由 firemaner 发布
[B]能否实现一个和镜像相类似的命令，但是不同的是镜像在操作完之后原物还保留，而我需要实现的命令是将原物删除，

哪位大侠肯帮忙一下？？？ [/B]

给你写一个吧：

[FONT=courier new]
(defun c:cs_mir (/)
(cond
((setq ss (ssget))
(princ "\n选择对称轴线")
(if (and (car (setq ent (zntq '((0 . "line")))))
(= (type (cadr ent)) 'list)
)
(setq ent (car ent)
ent_lst (entget ent)
pt1 (cdr (assoc 10 ent_lst))
pt2 (cdr (assoc 11 ent_lst))
)
(setq pt2 (getpoint (setq pt1 (cadr ent)) "\n第二点："))
)
(if (and pt1 pt2)
(progn
(setq osmode (getvar "osmode")
cmdecho (getvar "cmdecho")
)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(command "MIRROR" ss "" pt1 pt2 "yes");;;如果不删除，可以将YES改为NO即可
(setvar "osmode" osmode)
(setvar "cmdecho" cmdecho)
)
)
)
)
(princ)
)
(defun zntq (nam / pt ss_name biaoji ss)
(setq biaoji t)
(while biaoji
(setq pt (grread t 4 2))
(cond
((= 5 (car pt))
(setq ss (ssget (cadr pt) nam))
(if ss_name
(redraw ss_name 4)
)
(setq ss_name nil)
(if ss
(progn
(setq ss_name (ssname ss 0))
(redraw ss_name 3)
)
)
)
((= 3 (car pt))
(setq ss (ssget (cadr pt) nam))
(if ss_name
(redraw ss_name 4)
)
(setq ss_name nil)
(if ss
(progn
(setq ss_name (ssname ss 0))
(redraw ss_name 3)
)
)
(setq biaoji nil)
)
((or (= (car pt) 25)
(and (= (car pt) 2)
(or (= (cadr pt) 13)
(= (cadr pt) 32)
)
)
)
(setq biaoji nil
ss_name nil
)
)
(t (princ))
)
)
(if ss_name
(redraw ss_name 4)
)
(list ss_name (cadr pt))
)
[/FONT]

[FONT=courier new] 
(defun c:cs_mir        (/) 
  (cond 
    ((setq ss (ssget)) 
     (princ "\n选择对称轴线") 
     (if (and (car (setq ent (zntq '((0 . "line"))))) 
              (= (type (cadr ent)) 'list) 
         ) 
       (setq ent     (car ent) 
             ent_lst (entget ent) 
             pt1     (cdr (assoc 10 ent_lst)) 
             pt2     (cdr (assoc 11 ent_lst)) 
       ) 
       (setq pt2 (getpoint (setq pt1 (cadr ent)) "\n第二点：")) 
     ) 
     (if (and pt1 pt2) 
       (progn 
         (setq osmode  (getvar "osmode") 
               cmdecho (getvar "cmdecho") 
         ) 
         (setvar "osmode" 0) 
         (setvar "cmdecho" 0) 
         (command "MIRROR" ss "" pt1 pt2 "yes");;;如果不删除，可以将YES改为NO即可 
         (setvar "osmode" osmode) 
         (setvar "cmdecho" cmdecho) 
       ) 
     ) 
    ) 
  ) 
  (princ) 
) 
(defun zntq (nam / pt ss_name biaoji ss) 
  (setq biaoji t) 
  (while biaoji 
    (setq pt (grread t 4 2)) 
    (cond 
      ((= 5 (car pt)) 
       (setq ss (ssget (cadr pt) nam)) 
       (if ss_name 
         (redraw ss_name 4) 
       ) 
       (setq ss_name nil) 
       (if ss 
         (progn 
           (setq ss_name (ssname ss 0)) 
           (redraw ss_name 3) 
         ) 
       ) 
      ) 
      ((= 3 (car pt)) 
       (setq ss (ssget (cadr pt) nam)) 
       (if ss_name 
         (redraw ss_name 4) 
       ) 
       (setq ss_name nil) 
       (if ss 
         (progn 
           (setq ss_name (ssname ss 0)) 
           (redraw ss_name 3) 
         ) 
       ) 
       (setq biaoji nil) 
      ) 
      ((or (= (car pt) 25) 
           (and        (= (car pt) 2) 
                (or (= (cadr pt) 13) 
                    (= (cadr pt) 32) 
                ) 
           ) 
       ) 
       (setq biaoji nil 
             ss_name nil 
       ) 
      ) 
      (t (princ)) 
    ) 
  ) 
  (if ss_name 
    (redraw ss_name 4) 
  ) 
  (list ss_name (cadr pt)) 
) 
  [/FONT]

陌生人 · 发表于 2004-6-18 17:00:21

最初由 lijiao 发布
[B]
给你写一个?.. [/B]

随手写的，步骤，效果大同小异：
但我觉得，还是应该动态显示镜像物体的好，直观。哪位接着来？继续～
[php]
;;mir=不保留镜像，支持点选对称轴线(line).
(defun c:mir ( / ss p1 p2 z1 e)
  (princ "\选择镜像实体:")
  (setq ss (ssget)
p1 (getpoint "\n点取对称轴/对称轴第一点:")
z1 (car(nentselp p1)))
  (if (and z1 (setq e (entget z1))(= "LINE" (cdr(assoc 0 e))))
   (setq p1 (cdr(assoc 10 e))
      p2 (cdr(assoc 11 e)))
   (setq p2 (getpoint p1 "\n第二点:"))
  )
  (vl-cmdf "_.mirror" ss "" p1 p2 "Y")
)
[/php]

"但我觉得，还是应该动态显示镜像物体的好，直观。"
就像这样：[php]
(defun c:mir ( / ss p1 p2 z1 e)
  (princ "\选择镜像实体:")
  (setq ss (ssget)
p1 (getpoint "\n点取对称轴/对称轴第一点:")
z1 (car(nentselp p1)))
  (if (and z1 (setq e (entget z1))(= "LINE" (cdr(assoc 0 e))))
   (setq p1 (cdr(assoc 10 e))
      p2 (cdr(assoc 11 e)))
  )
  (vl-cmdf "_.mirror" ss "" p1 )
  (if p2 (vl-cmdf p2) (vl-cmdf pause))
  (vl-cmdf "Y")
)[/php]

ll_j · 发表于 2004-6-18 17:20:57

是不是可以这样呢？
[php](defun c:mir(/ oldcmd)
  (setq oldcmd (getvar "cmdecho"))
  (setvar "cmdecho" 1)
  (command "_.mirror" (ssget) "" pause pause "y")
  (setvar "cmdecho" oldcmd)
  (princ)
)[/php]

lijiao · 发表于 2004-6-19 09:06:03

完善了一下，应该能够达到实战的要求：

[FONT=courier new]
(defun c:cs_mir (/ CMDECHO ENT ENT_LST FS OSMODE PT PT1 PT2 p1 SS)
(princ "\n选择对称轴线")
(setq ent (zntq '((0 . "line"))))
(cond
((car ent)
(setq ent (car ent)
ent_lst (entget ent)
pt1 (cdr (assoc 10 ent_lst))
pt2 (cdr (assoc 11 ent_lst))
)
)
((= (type (cadr ent)) 'list)
(setq pt2 (getpoint (setq pt1 (cadr ent)) "\n第二点："))
)
)
(if (and pt1 pt2)
(progn
(setq osmode (getvar "osmode")
cmdecho (getvar "cmdecho")
shanchu "no"
)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(princ "\n选择需要镜像的实体(右击退出)／<删除实体>")
(grdraw pt1 pt2 1 1)
(while (and (setq ss (zntq nil))
(or (= (type (cadr ss)) 'list)
(= (cadr ss) 13)
(= (cadr ss) 32)
)
)
(grdraw pt1 pt2 1 1)
(cond
((car ss)
(command "MIRROR" ss "" pt1 pt2 shanchu)
)
((= (type (cadr ss)) 'list)
(if (setq p1 (getcorner (setq pt (cadr ss))))
(progn
(if (> (car p1) (car pt))
(setq fs "w")
(setq fs "c")
)
(if (setq ss (ssget fs pt p1))
(command "MIRROR" ss "" pt1 pt2 shanchu)
)
)
)
)
(t (if (= shanchu "yes")
(progn
(princ "\n选择需要镜像的实体(右击退出)／<删除实体>")
(setq shanchu "no")
)
(progn
(princ "\n选择需要镜像的实体(右击退出)／<不删除实体>")
(setq shanchu "yes")
)
)
)
)
)
(redraw)
(setvar "osmode" osmode)
(setvar "cmdecho" cmdecho)
)
)
(princ)
)
(defun zntq (nam / pt ss_name biaoji ss)
(setq biaoji t)
(while biaoji
(setq pt (grread t 4 2))
(cond
((= 5 (car pt))
(setq ss (ssget (cadr pt) nam))
(if ss_name
(redraw ss_name 4)
)
(setq ss_name nil)
(if ss
(progn
(setq ss_name (ssname ss 0))
(redraw ss_name 3)
)
)
)
((= 3 (car pt))
(setq ss (ssget (cadr pt) nam))
(if ss_name
(redraw ss_name 4)
)
(setq ss_name nil)
(if ss
(progn
(setq ss_name (ssname ss 0))
(redraw ss_name 3)
)
)
(setq biaoji nil)
)
((or (= (car pt) 25)
(and (= (car pt) 2)
(or (= (cadr pt) 13)
(= (cadr pt) 32)
)
)
)
(setq biaoji nil
ss_name nil
)
)
(t (princ))
)
)
(if ss_name
(redraw ss_name 4)
)
(list ss_name (cadr pt))
)
[/FONT]

[FONT=courier new] 
(defun c:cs_mir        (/ CMDECHO ENT ENT_LST FS OSMODE PT PT1 PT2 p1 SS) 
  (princ "\n选择对称轴线") 
  (setq ent (zntq '((0 . "line")))) 
  (cond 
    ((car ent) 
     (setq ent           (car ent) 
           ent_lst (entget ent) 
           pt1           (cdr (assoc 10 ent_lst)) 
           pt2           (cdr (assoc 11 ent_lst)) 
     ) 
    ) 
    ((= (type (cadr ent)) 'list) 
     (setq pt2 (getpoint (setq pt1 (cadr ent)) "\n第二点：")) 
    ) 
  ) 
  (if (and pt1 pt2) 
    (progn 
      (setq osmode  (getvar "osmode") 
            cmdecho (getvar "cmdecho") 
            shanchu "no" 
      ) 
      (setvar "osmode" 0) 
      (setvar "cmdecho" 0) 
      (princ "\n选择需要镜像的实体(右击退出)／<删除实体>") 
        (grdraw pt1 pt2 1 1) 
      (while (and (setq ss (zntq nil)) 
                  (or (= (type (cadr ss)) 'list) 
                      (= (cadr ss) 13) 
                      (= (cadr ss) 32) 
                      ) 
             ) 
        (grdraw pt1 pt2 1 1) 
        (cond 
          ((car ss) 
            (command "MIRROR" ss "" pt1 pt2 shanchu) 
          ) 
          ((= (type (cadr ss)) 'list) 
            (if        (setq p1 (getcorner (setq pt (cadr ss)))) 
              (progn 
                (if (> (car p1) (car pt)) 
                  (setq fs "w") 
                  (setq fs "c") 
                ) 
                (if (setq ss (ssget fs pt p1)) 
                  (command "MIRROR" ss "" pt1 pt2 shanchu) 
                ) 
              ) 
            ) 
          ) 
          (t (if (= shanchu "yes") 
               (progn 
                 (princ "\n选择需要镜像的实体(右击退出)／<删除实体>") 
                 (setq shanchu "no") 
                 ) 
               (progn 
                 (princ "\n选择需要镜像的实体(右击退出)／<不删除实体>") 
                 (setq shanchu "yes") 
                 ) 
               ) 
           ) 
        ) 
      ) 
      (redraw) 
      (setvar "osmode" osmode) 
      (setvar "cmdecho" cmdecho) 
    ) 
  ) 
  (princ) 
) 
(defun zntq (nam / pt ss_name biaoji ss) 
  (setq biaoji t) 
  (while biaoji 
    (setq pt (grread t 4 2)) 
    (cond 
      ((= 5 (car pt)) 
       (setq ss (ssget (cadr pt) nam)) 
       (if ss_name 
         (redraw ss_name 4) 
       ) 
       (setq ss_name nil) 
       (if ss 
         (progn 
           (setq ss_name (ssname ss 0)) 
           (redraw ss_name 3) 
         ) 
       ) 
      ) 
      ((= 3 (car pt)) 
       (setq ss (ssget (cadr pt) nam)) 
       (if ss_name 
         (redraw ss_name 4) 
       ) 
       (setq ss_name nil) 
       (if ss 
         (progn 
           (setq ss_name (ssname ss 0)) 
           (redraw ss_name 3) 
         ) 
       ) 
       (setq biaoji nil) 
      ) 
      ((or (= (car pt) 25) 
           (and        (= (car pt) 2) 
                (or (= (cadr pt) 13) 
                    (= (cadr pt) 32) 
                ) 
           ) 
       ) 
       (setq biaoji nil 
             ss_name nil 
       ) 
      ) 
      (t (princ)) 
    ) 
  ) 
  (if ss_name 
    (redraw ss_name 4) 
  ) 
  (list ss_name (cadr pt)) 
) 
  [/FONT]

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

[编程申请]：大侠们请帮忙啊

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

相关帖子

Re: [编程申请]：大侠们请帮忙啊

Re: Re: [编程申请]：大侠们请帮忙啊