[求助]：如何选择已画好的实体，并旋转它？

whfdchst

1.如何选择已画好的实体，并旋转它？
2.怎样加条件语句，能选择旋转角度？
请斑竹帮忙解决，谢谢啦！

xyp1964

看看关于rotate命令的帮助！

whfdchst

我是指在程序中如何选择，例如，已编了一个画平面窗的程序，现在需要再将他旋转90度或45度。请斑竹解决一下。谢谢！

lazybug

可以在每生成一个实体之后，用（ssadd  （entlast） ss）把该实体加到选择集ss中，然后旋转ss就行了

whfdchst

哦！非常感谢！

and2008

4楼的输入（ssadd （entlast） ss）了
咋个提示这些呀
; 错误: 参数类型错误: lselsetp nil

希望说明白点，多谢了。

xyp1964

最初由 and2008 发布
[B]4楼的输入（ssadd （entlast） ss）了
咋个提示这些呀
; 错误: 参数类型错误: lselsetp nil

希望说明白点，多谢了。 [/B]

供参考

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060211(2064)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. ;;;波浪线
    
15. (defun c:blx ()
    
16.   (cmdla0)
    
17.   (setvar "osmode" 0)
    
18.   (mkla"波浪线"3)
    
19.   (setq        NO2 (ureal 7 "" "\半波峰（数值）" NO2)
    
20.         NO1 (ureal 7 "" "\半波长（数值）" NO1)
    
21.         ss1 (ssget "X")
    
22.         pt1 (getpoint "\n起点<退出> : ")
    
23.         ptn (getpoint pt1 "\n终点<退出> : ")
    
24.   )
    
25.   (while ptn
    
26.     (setq ang (angle pt1 ptn)
    
27.           pt3 (polar pt1 ang NO1)
    
28.           pt5 (polar pt3 ang NO1)
    
29.           pt2 (polar (_midP pt1 pt3) (- ang (/ pi 2)) (/ NO1 2))
    
30.           pt4 (polar (_midP pt3 pt5) (+ ang (/ pi 2)) (/ NO1 2))
    
31.           nn  (fix (abs (/ (distance pt1 ptn) (* NO1 2))))
    
32.           n   0
    
33.           ss  (ssadd)
    
34.     )
    
35.     (repeat nn
    
36.       (command "_arc" pt1 pt2 pt3)
    
37.       (setq ss (ssadd (entlast) ss))
    
38.       (princ "\nok")
    
39.       (command "copy" (entlast) "" pt1 pt5)
    
40.       (setq ss (ssadd (entlast) ss))
    
41.       (command "_arc" pt3 pt4 pt5)
    
42.       (setq ss (ssadd (entlast) ss))
    
43.       (command "copy" (entlast) "" pt1 pt5)
    
44.       (setq ss        (ssadd (entlast) ss)
    
45.             pt1        pt5
    
46.             pt3        (polar pt1 ang NO1)
    
47.             pt5        (polar pt3 ang NO1)
    
48.             pt2        (polar (xyp-get-MidPoint pt1 pt3) (- ang (/ pi 2)) NO2)
    
49.             pt4        (polar (xyp-get-MidPoint pt3 pt5) (+ ang (/ pi 2)) NO2)
    
50.       )
    
51.       (princ "\nok2")
    
52.     )
    
53.     (command "pedit" (entlast) "y" "j" ss "" "")
    
54.     (command "erase" ss "")
    
55.     (setq pt1 pt5
    
56.           ptn (getpoint pt1 "\n终点<退出> : ")
    
57.     )
    
58.   )
    
59.   (setq        ss2 (ssget "X")
    
60.         ssa (ssdiff ss2 ss1)
    
61.   )
    
62.   (command "pedit" (entlast) "j" ssa "" "")
    
63.   (cmdla1)
    
64. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060211(2064)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;波浪线<br /> (defun c:blx ()<br />   (cmdla0)<br />   (setvar "osmode" 0)<br />   (mkla"波浪线"3)<br />   (setq        NO2 (ureal 7 "" "\半波峰（数值）" NO2)<br />         NO1 (ureal 7 "" "\半波长（数值）" NO1)<br />         ss1 (ssget "X")<br />         pt1 (getpoint "\n起点<退出> : ")<br />         ptn (getpoint pt1 "\n终点<退出> : ")<br />   )<br />   (while ptn<br />     (setq ang (angle pt1 ptn)<br />           pt3 (polar pt1 ang NO1)<br />           pt5 (polar pt3 ang NO1)<br />           pt2 (polar (_midP pt1 pt3) (- ang (/ pi 2)) (/ NO1 2))<br />           pt4 (polar (_midP pt3 pt5) (+ ang (/ pi 2)) (/ NO1 2))<br />           nn  (fix (abs (/ (distance pt1 ptn) (* NO1 2))))<br />           n   0<br />           ss  (ssadd)<br />     )<br />     (repeat nn<br />       (command "_arc" pt1 pt2 pt3)<br />       (setq ss (ssadd (entlast) ss))<br />       (princ "\nok")<br />       (command "copy" (entlast) "" pt1 pt5)<br />       (setq ss (ssadd (entlast) ss))<br />       (command "_arc" pt3 pt4 pt5)<br />       (setq ss (ssadd (entlast) ss))<br />       (command "copy" (entlast) "" pt1 pt5)<br />       (setq ss        (ssadd (entlast) ss)<br />             pt1        pt5<br />             pt3        (polar pt1 ang NO1)<br />             pt5        (polar pt3 ang NO1)<br />             pt2        (polar (xyp-get-MidPoint pt1 pt3) (- ang (/ pi 2)) NO2)<br />             pt4        (polar (xyp-get-MidPoint pt3 pt5) (+ ang (/ pi 2)) NO2)<br />       )<br />       (princ "\nok2")<br />     )<br />     (command "pedit" (entlast) "y" "j" ss "" "")<br />     (command "erase" ss "")<br />     (setq pt1 pt5<br />           ptn (getpoint pt1 "\n终点<退出> : ")<br />     )<br />   )<br />   (setq        ss2 (ssget "X")<br />         ssa (ssdiff ss2 ss1)<br />   )<br />   (command "pedit" (entlast) "j" ssa "" "")<br />   (cmdla1)<br /> )[/FONT]