求直线角度替换程序

半听可乐

想把图中所有角度为292.5°的直线变成角度为315.0°的直线，有劳大侠们神笔挥就

ll_j

1. (defun c:tt()
   
2.   (setq ss (ssget '((0 . "LINE")))
   
3.   i -1
   
4.   )
   
5.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
6.     (setq en (entget s1)
   
7.     pt10 (cdr (assoc 10 en))
   
8.     pt11 (cdr (assoc 11 en))
   
9.     ang (angle pt10 pt11)
   
10.     )
    
11.     (if (or (equal ang (* pi (/ 292.5 180)) 1e-3)
    
12.       (equal ang (* pi (/ 112.5 180)) 1e-3)
    
13.   )
    
14.       (progn
    
15.   (setq pt11 (polar pt10 (* pi  (/ 315.0 180)) (distance pt10 pt11))
    
16.         en (subst (cons 11 pt11) (assoc 11 en) en)
    
17.   )
    
18.   (entmod en)
    
19.       )
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

(defun c:tt()<br />   (setq ss (ssget '((0 . "LINE")))<br />   i -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq en (entget s1)<br />     pt10 (cdr (assoc 10 en))<br />     pt11 (cdr (assoc 11 en))<br />     ang (angle pt10 pt11)<br />     )<br />     (if (or (equal ang (* pi (/ 292.5 180)) 1e-3)<br />       (equal ang (* pi (/ 112.5 180)) 1e-3)<br />   )<br />       (progn<br />   (setq pt11 (polar pt10 (* pi  (/ 315.0 180)) (distance pt10 pt11))<br />         en (subst (cons 11 pt11) (assoc 11 en) en)<br />   )<br />   (entmod en)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

这是饶直线起点旋转的，如果需要判别左右，还要再加些代码。

xyp1964

2. ;; 自定义函数: [url=http://bbs.mjtd.com/thread-95673-1-1.html]http://bbs.mjtd.com/thread-95673-1-1.html[/url]
   
3. (defun c:tt ()
   
4.   (cmdla0)
   
5.   (setq ss (ssget '((0 . "line")))
   
6. i  -1
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (if (equal (xyp-r2d (xyp-get "angle" s1)) 292.5 1e-3)
   
10.       (command "rotate" s1 "" "non" (xyp-get-CurveMidPoint s1) (- 315 292.5))
    
11.     )
    
12.   )
    
13.   (cmdla1)
    
14. )

;; 自定义函数: [url=http://bbs.mjtd.com/thread-95673-1-1.html]http://bbs.mjtd.com/thread-95673-1-1.html[/url]<br /> (defun c:tt ()<br />   (cmdla0)<br />   (setq ss (ssget '((0 . "line")))<br /> i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (if (equal (xyp-r2d (xyp-get "angle" s1)) 292.5 1e-3)<br />       (command "rotate" s1 "" "non" (xyp-get-CurveMidPoint s1) (- 315 292.5))<br />     )<br />   )<br />   (cmdla1)<br /> )

haoryh

院长这么早就上来回贴了，劳模呀，向院长学习！

半听可乐

xyp1964 发表于 2012-11-27 07:27

院长，怎么没反应啊？

半听可乐

还是没反应~~

半听可乐

ll_j 发表于 2012-11-28 09:40
这是饶直线起点旋转的，如果需要判别左右，还要再加些代码。

如我所愿，非常感谢！

半听可乐

ll_j 发表于 2012-11-27 00:28
这是饶直线起点旋转的，如果需要判别左右，还要再加些代码。

刚发现不对，直线没有变成315°，而是变成了320.1°

ll_j

半听可乐 发表于 2012-11-29 14:25
刚发现不对，直线没有变成315°，而是变成了320.1°

不好意思，刚才的确错了，现在修改了。

刚在在315度的基础上又加上了原有角度，所以错了。修改位置在第15行。

半听可乐

ll_j 发表于 2012-11-29 17:00
不好意思，刚才的确错了，现在修改了。

刚在在315度的基础上又加上了原有角度，所以错了。修改位置在第 ...

嘿嘿，好了！谢谢！