圆画中心线，小韩和小星的代码

664571221

波总群里的代码，加群群号437857444，非常好的交流群，圆画中心线，小韩和小星的代码

(defun c:zxx(/ i l osm p1 p2 p3 p4 pa pb pt0 r s1 ss)
        (setvar "CMDECHO" 0)
        (while
                (and
                        (setq
                                pa (getpoint "选择圆：")
                                pb (getcorner pa)
                                ss (ssget "c" pa pb '((0 . "circle")))
                                osm (getvar "osmode")
                                l (getreal "\n 请输入中心线延伸长度(mm):")
                        )
                )
                (if ss
                        (progn
                                (setq i -1)
                                (setvar "osmode" 0)
                                (repeat (sslength ss)
                                        (setq
                                                s1 (entget (ssname ss (setq i (1+ i))))
                                                pt0 (cdr (assoc 10 s1))
                                                r (cdr (assoc 40 s1))                                               
                                        )                                       
                                        (command "layer" "m" 5 "l" "center" 5 "c" 1 5 "")
                                        (command "ltscale" 8);设置线型比例
                                        (setq
                                                p1 (polar pt0 0 (/ l 2))
                                                p2 (polar pt0 pi (/ l 2))
                                                p3 (polar pt0 (* 0.5 pi) (/ l 2))
                                                p4 (polar pt0 (* -0.5 pi) (/ l 2))
                                        )
                                        (command "line" p1 p2 "")
                                        (command "line" p3 p4 "")
                                        (command "layer" "s" 0 "")
                                )
                                (setvar "osmode" osm)
                        )
                )
        )
)


(defun C:zxx(/)
        (setvar "osmode" 512)
                (if (SETQ  pc (ssget '((0 . "CIRCLE"))));画选ssget
                        (progn
                                (SETQ  l (getreal "\n 请输入中心线延伸长度(mm):"))
                                (setq i 0)
                                (repeat (sslength pc)
                                (SETQ  s1(entget(ssname pc i))
                                        pt0(cdr(assoc 10 s1));获得圆心坐标
                                        r (cdr(assoc 40 s1));获得圆的半径
                                )
                                (command "layer" "m" 5 "l" "center" 5 "c" 1 5 "")
                                (command "ltscale" 8);设置线型比例
                                (command "line"(polar pt0 pi (+ r l)) (polar pt0 0 (+ r l)) "")
                                (command "line" (polar pt0 (* pi 0.5) (+ r l)) (polar pt0 (* pi 1.5) (+ r l)) "")
                                (command "layer" "s" 0 "")
                                        (setq i (1+ i))
                                )
                        );progn
    );if
        (PRINC)
);end defun

mashanjie

具体啥作用呢？是画个圆后就自动出来中心线那种？中心线能指定长短吗？可以十字型出现么？

mashanjie

还是很感谢分享的，有时会用得到，看看是不是适合我的这种