[编程申请]：对图块进行镜像操作

lengliqun

求LSP程序（CAD2002用），对图块进行镜像操作，以图块插入点为基点，1、垂直镜像，2、水平镜像



请看第3楼的问题。

lengliqun

求LSP程序（CAD2002用），对图块进行旋转操作，以图块插入点为基点将该图块旋转90度。

lengliqun

某图层有若干十字交叉线，在十字交叉线的交点画直径为950的圆（圆所在图层在“中心圆”，颜色为2，圆心为各交点，cad2002用）

有附件可供测试，谢谢

它山之石

楼主你的申请也太多了点吧？
看的出来你是个很有想法的人，
为什么不自己学着写点程序呢？

没有别的意思，
也许你可以一次把想达到的目的都说清楚，
也许会有好心人帮你写的，
俺们就不写了吧。
要不俺推荐几个结构专业的软件给你试试？

my_autocad

有必要吗,直接用RO命令呀,

lengliqun

1、谢谢哪位将我的几个问题贴弄到了一块儿，因为不能发回复自己的连续贴所以分开发了。
2、谢谢它山之石长老的提醒，实在不好意思，每次要麻烦大家，本人对编程基本不懂，虽买了两本CAD编程的书看，收获甚微，弄出来的东东少能正常运行，汗颜。自家会编lsp当然不会将自家晾这显眼了。
3、工作中老重复在CAD做同一件事，如将一个块绕其插入点转90度，CAD本身命令可以达到，用键盘鼠标配合捕捉即可，可叫你转动八九十个块呢？弄个程序，一框选，多少块都搞定。
4、问题由我提出来，可能对其它的网友们也有用。

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. ;以插入点为基点，垂直镜像图块
    
16. (defun c:test1 ()
    
17.   (CMDLA0)
    
18.   (setq        ss (ssget '((0 . "INSERT")))
    
19.         i  -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (setq pt1 (dxf 10 (entget s1))
    
23.           pt2 (polar pt1 0 1000)
    
24.           )
    
25.     (command"mirror" s1 "" pt1 pt2 "n")
    
26.     )
    
27.   (CMDLA1)
    
28. )
    
29. 
    
30. ;以插入点为基点，水平镜像图块
    
31. (defun c:test2 ()
    
32.   (CMDLA0)
    
33.   (setq        ss (ssget '((0 . "INSERT")))
    
34.         i  -1
    
35.   )
    
36.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
37.     (setq pt1 (dxf 10 (entget s1))
    
38.           pt2 (polar pt1 (* pi 0.5) 1000)
    
39.           )
    
40.     (command"mirror" s1 "" pt1 pt2 "n")
    
41.     )
    
42.   (CMDLA1)
    
43. )
    
44. 
    
45. ;以插入点为基点，图块旋转90度
    
46. (defun c:test3 ()
    
47.   (CMDLA0)
    
48.   (setq        ss (ssget '((0 . "INSERT")))
    
49.         i  -1
    
50.   )
    
51.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
52.     (setq pt1 (dxf 10 (entget s1))
    
53.           pt2 (polar pt1 0 1000)
    
54.           )
    
55.     (command"rotate" s1 "" pt1 90)
    
56.     )
    
57.   (CMDLA1)
    
58. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> ;以插入点为基点，垂直镜像图块<br /> (defun c:test1 ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "INSERT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (dxf 10 (entget s1))<br />           pt2 (polar pt1 0 1000)<br />           )<br />     (command"mirror" s1 "" pt1 pt2 "n")<br />     )<br />   (CMDLA1)<br /> )<br /> <br /> ;以插入点为基点，水平镜像图块<br /> (defun c:test2 ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "INSERT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (dxf 10 (entget s1))<br />           pt2 (polar pt1 (* pi 0.5) 1000)<br />           )<br />     (command"mirror" s1 "" pt1 pt2 "n")<br />     )<br />   (CMDLA1)<br /> )<br /> <br /> ;以插入点为基点，图块旋转90度<br /> (defun c:test3 ()<br />   (CMDLA0)<br />   (setq        ss (ssget '((0 . "INSERT")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (dxf 10 (entget s1))<br />           pt2 (polar pt1 0 1000)<br />           )<br />     (command"rotate" s1 "" pt1 90)<br />     )<br />   (CMDLA1)<br /> )[/FONT]

lengliqun

经CAD2002测试7楼xyp1964 斑竹程序完全可用，非常感谢。

xyp1964

重新修正X_INTERS函数的BUG，需重新下载xyp_lib通用函数：
[php]
;;;在选择线条的所有交点(非端点)画直径为950的圆
(defun c:test (/ ptlst)
  (CMDLA0)
  (setvar"osmode"0)
  (setq        ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
        i  -1
        j  0
  )
  (mkla "中心圆" 2)
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq j i)
    (while (setq s2 (ssname ss (setq j (1+ j))))
      (setq ptlst (X_INTERS s1 s2))
      (while (setq pt (car ptlst))
        (setq ptlst (cdr ptlst))
        (command "circle" pt 950)
      )
    )
  )
  (CMDLA1)
)[/php]

inhoo

我是刚来的新手,请问怎么把代码放到那里,谢谢

zxq0220

放到哪里都行！
1、可以放到自己的脑袋里；这样当你想用的时候随时可以用键盘敲到计算机中。
2、可以随手记在手边的纸片上，如果没有纸片可以记在任何可以写字的东西上。使用时同1。
3、可以放到可擦写的存储的介质上，如磁盘、光盘、U盘...上，使用时用(load "文件名")加载。
4、可以直接剪贴到ACAD的命令行上...
......

chen7560152

xyp1964 发表于 2005-9-8 20:22

感谢大佬~~~

chen7560152

;; 以插入点为基点，垂直镜像图块
(defun c:tt5 ()
  (setq        ss (ssget '((0 . "INSERT")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (xyp-DXF 10 s1)
          pt2 (polar pt1 0 1000)
    )
    (command "mirror" s1 "" pt1 pt2 "n")
  )
  (princ)
)

;; 以插入点为基点，水平镜像图块
(defun c:tt6 ()
  (setq        ss (ssget '((0 . "INSERT")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (xyp-DXF 10 s1)
          pt2 (polar pt1 (* pi 0.5) 1000)
    )
    (command "mirror" s1 "" pt1 pt2 "n")
  )
  (princ)
)

;; 以插入点为基点，图块旋转90度
(defun c:test3 ()
  (setq        ss (ssget '((0 . "INSERT")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (xyp-DXF 10 s1)
          pt2 (polar pt1 0 1000)
    )
    (command "rotate" s1 "" pt1 90)
  )
  (princ)
)