在螺纹孔上加中心线（多谢cabinsummer 大师热情帮助）

669423907

我加了切换图层的功能，哪位大师方便帮加上十字中心线吖？非常感激！
如果能开捕捉那就更好了！

(defun c:M10()
(setq la (getvar"clayer"))
(setvar "osmode" 0)
(setq p (getpoint"\nEnter the center:"))
(setq p1 (list (car p) (- (cadr p) 5)))
(setq p2 (list (- (car p) 5) (cadr p)))
(command "clayer" "0")
(command"circle" p 4.35)
(command "layer" "m" "螺纹" "c" "2" "" "lw" "0.13" "" "l" "Continuous" "" "")
(command"arc" "ce" p p1 p2)
(command "layer" "m" "中心线" "c" "1" "" "lw" "0.13" "" "l" "CENTER" "" "")
？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？
(setvar "osmode" 6071)
(setvar "clayer"la))

cabinsummer

1. (defun c:cross(/ ss n ename edata pt pt1 pt2 pt3 pt4)
   
2.   (if (setq ss (ssget '((0 . "circle"))))                                      ;;;选择以圆构成的选择集
   
3.     (progn
   
4.       (setq n 0)                                                               ;;;选择集计数
   
5.       (repeat (sslength ss)                                                    ;;;重复选择集元素的数量次数
   
6.         (setq ename (ssname ss n))                                             ;;;图元名
   
7.         (setq edata (entget ename))                                            ;;;图元数据
   
8.         (setq r (cdr (assoc 40 edata)))                                        ;;;提取圆的半径
   
9.         (setq pt (cdr (assoc 10 edata)))                                       ;;;提取圆的中心点
   
10.         (setq pt1 (polar pt pi (* r 1.3)))                                     ;;;中心线左端点
    
11.         (setq pt2 (polar pt 0 (* r 1.3)))                                      ;;;中心线右端点
    
12.         (setq pt3 (polar pt (* pi 0.5)(* r 1.3)))                              ;;;中心线上端点
    
13.         (setq pt4 (polar pt (* pi 1.5)(* r 1.3)))                              ;;;中心线下端点
    
14.         (entmake (list '(0 . "line")(cons 10 pt1)(cons 11 pt2)'(8 . "center")));;;画水平线
    
15.         (entmake (list '(0 . "line")(cons 10 pt3)(cons 11 pt4)'(8 . "center")));;;画垂直线
    
16.         (setq n (1+ n))                                                        ;;;选择集计数加一
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)                                                                      ;;;静默退出
    
21. )

(defun c:cross(/ ss n ename edata pt pt1 pt2 pt3 pt4)<br />   (if (setq ss (ssget '((0 . "circle"))))                                      ;;;选择以圆构成的选择集<br />     (progn<br />       (setq n 0)                                                               ;;;选择集计数<br />       (repeat (sslength ss)                                                    ;;;重复选择集元素的数量次数<br />         (setq ename (ssname ss n))                                             ;;;图元名<br />         (setq edata (entget ename))                                            ;;;图元数据<br />         (setq r (cdr (assoc 40 edata)))                                        ;;;提取圆的半径<br />         (setq pt (cdr (assoc 10 edata)))                                       ;;;提取圆的中心点<br />         (setq pt1 (polar pt pi (* r 1.3)))                                     ;;;中心线左端点<br />         (setq pt2 (polar pt 0 (* r 1.3)))                                      ;;;中心线右端点<br />         (setq pt3 (polar pt (* pi 0.5)(* r 1.3)))                              ;;;中心线上端点<br />         (setq pt4 (polar pt (* pi 1.5)(* r 1.3)))                              ;;;中心线下端点<br />         (entmake (list '(0 . "line")(cons 10 pt1)(cons 11 pt2)'(8 . "center")));;;画水平线<br />         (entmake (list '(0 . "line")(cons 10 pt3)(cons 11 pt4)'(8 . "center")));;;画垂直线<br />         (setq n (1+ n))                                                        ;;;选择集计数加一<br />       )<br />     )<br />   )<br />   (princ)                                                                      ;;;静默退出<br /> )

shcvip

cabinsummer 发表于 2011-10-30 23:52
以下代码由块插入实现功能

里面的数字，不能变量吗

cabinsummer

简单至极～～～～

669423907

cabinsummer 发表于 2011-10-30 22:26
简单至极～～～～

看见风吹过，请留个影吧！？

669423907

cabinsummer 发表于 2011-10-30 22:44

非常感谢 cabinsummer 大师
马上试用！

cabinsummer

使用方法：选择圆即可，可框选、点选、窗口选，无论多少自动加中心线。

669423907

cabinsummer 发表于 2011-10-30 22:44

cabinsummer 大师吖，不是这样的！
我是只在画出螺纹孔的同时自动在螺纹孔上画出中心线。
麻烦大师帮合并一下啦！

cabinsummer

1. (defun c:M10()
   
2. (setvar "cmdecho" 0)
   
3. (setq la (getvar"clayer"))
   
4. (setvar "osmode" 0)
   
5. (setq p (getpoint"\nEnter the center:"))
   
6. (setq p1 (list (car p) (- (cadr p) 5)))
   
7. (setq p2 (list (- (car p) 5) (cadr p)))
   
8. (command "clayer" "0")
   
9. (command "circle" p 4.35)
   
10. (command "layer" "m" "螺纹" "c" "2" "" "lw" "0.13" "" "l" "Continuous" "" "")
    
11. (command "arc" "ce" p p1 p2)
    
12. (command "layer" "m" "中心线" "c" "1" "" "lw" "0.13" "" "l" "CENTER" "" "")
    
13. (setq pt1 (polar p pi 6.5))
    
14. (setq pt2 (polar p 0 6.5))
    
15. (setq pt3 (polar p (* pi 0.5) 6.5))
    
16. (setq pt4 (polar p (* pi 1.5) 6.5))
    
17. (entmake (list '(0 . "line")(cons 10 pt1)(cons 11 pt2)'(8 . "中心线")))
    
18. (entmake (list '(0 . "line")(cons 10 pt3)(cons 11 pt4)'(8 . "中心线")))
    
19. (setvar "osmode" 6071)
    
20. (setvar "clayer" la)
    
21. (princ)
    
22. )

(defun c:M10()<br /> (setvar "cmdecho" 0)<br /> (setq la (getvar"clayer"))<br /> (setvar "osmode" 0)<br /> (setq p (getpoint"\nEnter the center:"))<br /> (setq p1 (list (car p) (- (cadr p) 5)))<br /> (setq p2 (list (- (car p) 5) (cadr p)))<br /> (command "clayer" "0")<br /> (command "circle" p 4.35)<br /> (command "layer" "m" "螺纹" "c" "2" "" "lw" "0.13" "" "l" "Continuous" "" "")<br /> (command "arc" "ce" p p1 p2)<br /> (command "layer" "m" "中心线" "c" "1" "" "lw" "0.13" "" "l" "CENTER" "" "")<br /> (setq pt1 (polar p pi 6.5))<br /> (setq pt2 (polar p 0 6.5))<br /> (setq pt3 (polar p (* pi 0.5) 6.5))<br /> (setq pt4 (polar p (* pi 1.5) 6.5))<br /> (entmake (list '(0 . "line")(cons 10 pt1)(cons 11 pt2)'(8 . "中心线")))<br /> (entmake (list '(0 . "line")(cons 10 pt3)(cons 11 pt4)'(8 . "中心线")))<br /> (setvar "osmode" 6071)<br /> (setvar "clayer" la)<br /> (princ)<br /> )

669423907

cabinsummer 发表于 2011-10-30 22:59
使用方法：选择圆即可，可框选、点选、窗口选，无论多少自动加中心线。

中心线的程序已经有了（燕秀工具箱）

669423907

cabinsummer 发表于 2011-10-30 23:08

大师神速啊