跪求一个命令做好建立指定块名的块、重新建立定块名的块，重复插入块的功能

hehoubin

能写个全的吗

hehoubin

Y轴第二点Y轴的正数方向，X轴的90度角
x轴第二点x轴的负数数方向，y轴的90度角

hehoubin

老师这样能写吗

Andyhon

看来您得琢磨琢磨 Mirror 命令
弄通了才知命令列需要什么样的回应值
(程序也是接手人的回应而已)

hehoubin

例如这个Y轴镜像不是平行Y 轴的正数方向的另一个点就可以可以镜像吗

hehoubin

我发个附件您

hehoubin

http://bbs.mjtd.com/forum.php?mod=attachment&aid=NzA3Nzh8N2JiMGFhNGE4NmIwODU1NGNmMTcxYjY4Y2NiM2MxNzR8MTczNDk2MTI1Mw%3D%3D&request=yes&_f=.rar

hehoubin

hehoubin

老师按文件的那样可以写了吗

Andyhon

镜像处理只部份理解 ...

2. 
   
3. (defun jk1 (msg blk)
   
4.   (princ msg)
   
5.   (setq ss (ssget)
   
6.         pt (getpoint "\nBase point: ")
   
7.   )
   
8.   (command "_block" blk "non" pt ss "")
   
9.   (command "_insert" blk "non" pt "" "" "")
   
10. )
    
11. 
    
12. (defun jk2(msg blk)
    
13.   (princ msg)
    
14.   (setq ss (ssget)
    
15.         pt (getpoint "\nBase point: ")
    
16.   )
    
17.   (command "_block" blk "y" "non" pt ss "")
    
18.   (command "_insert" blk "non" pt "" "" "")
    
19. )
    
20. 
    
21. (defun c:c1 ();/ pt ss)
    
22.   (if (tblsearch "block" "C1")
    
23.     (progn
    
24.       (initget 1 "C")
    
25.       ;; 提示（(C)重新建C1块)的可选项
    
26.       (setq pt (getpoint "\nInsert point or (C)重新建C1块: "))
    
27.       (cond
    
28.        ((= pt "C") (jk2 "重新建C1块: " "C1"))
    
29.        (T
    
30.         ;; 添加一个将 （“C1块”镜像后插入）的可选项
    
31.         (initget "No Yes")
    
32.         (setq ans (GetKword "\n “C1块”要镜像吗?: <No> / Yes: "))
    
33.         (command "_insert" "C1" "non" pt "" "" "")
    
34.         ;; Mirror
    
35.         (cond
    
36.          ((= ans "Yes")
    
37.           ;; 此处仍得探讨
    
38.           (command "Mirror" (entlast) "" "non" pt)
    
39.           (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
    
40.      )))))
    
41.      (jk1 "\n请选择创建块C1的图元: " "C1")
    
42.    )
    
43.    (princ)
    
44. )
    

<br /> (defun jk1 (msg blk)<br />   (princ msg)<br />   (setq ss (ssget)<br />         pt (getpoint "\nBase point: ")<br />   )<br />   (command "_block" blk "non" pt ss "")<br />   (command "_insert" blk "non" pt "" "" "")<br /> )<br /> <br /> (defun jk2(msg blk)<br />   (princ msg)<br />   (setq ss (ssget)<br />         pt (getpoint "\nBase point: ")<br />   )<br />   (command "_block" blk "y" "non" pt ss "")<br />   (command "_insert" blk "non" pt "" "" "")<br /> )<br /> <br /> (defun c:c1 ();/ pt ss)<br />   (if (tblsearch "block" "C1")<br />     (progn<br />       (initget 1 "C")<br />       ;; 提示（(C)重新建C1块)的可选项<br />       (setq pt (getpoint "\nInsert point or (C)重新建C1块: "))<br />       (cond<br />        ((= pt "C") (jk2 "重新建C1块: " "C1")) <br />        (T<br />         ;; 添加一个将 （“C1块”镜像后插入）的可选项<br />         (initget "No Yes")<br />         (setq ans (GetKword "\n “C1块”要镜像吗?: <No> / Yes: "))<br />         (command "_insert" "C1" "non" pt "" "" "")<br />         ;; Mirror<br />         (cond<br />          ((= ans "Yes")<br />           ;; 此处仍得探讨<br />           (command "Mirror" (entlast) "" "non" pt)<br />           (while (= (logand (getvar "CmdActive") 1) 1) (command pause))<br />      )))))<br />      (jk1 "\n请选择创建块C1的图元: " "C1")<br />    )<br />    (princ)<br /> )<br />