圆交叉线

726613

(DEFUN C:ZX ()
     (setvar "cmdecho" 0)   
     (princ "\n-->请选取要画交叉线的圆.....")
     (setq cl_ent (ssget":s" '((-4 . "<or")
          (0 . "circle") (0 . "arc") (-4 . "or>"))) i 0)
     (if cl_ent
       (repeat (sslength cl_ent)
       (setq cl_dat (entget (ssname cl_ent i))
             cl_lay (cdr (assoc 8 cl_dat))
             cl_pt  (trans (cdr (assoc 10 cl_dat)) 0 1)
             cl_rad (cdr (assoc 40 cl_dat)) i (+ 1 i))
     (setq old_osm (getvar "osmode"))
     (setvar "osmode" 0)
     (command "line" (list (+ (* 1.0 cl_rad) (car cl_pt)) (cadr cl_pt))
                     (list (- (car cl_pt) (* 1.0 cl_rad)) (cadr cl_pt)) "")
     (command "chprop" (entlast) "" "c" "" "lt" "CENTERX2" "la" cl_lay ""   )
     (command "line" (list (car cl_pt) (+ (* 1.0 cl_rad) (cadr cl_pt)))
                     (list (car cl_pt) (- (cadr cl_pt) (* 1.0 cl_rad))) "")
     (command "chprop" (entlast) "" "c" "" "lt" "CENTERX2" "la" cl_lay ""  )
     (setvar "osmode" old_osm)))   
(PRINC)
)

以上程序只能画如图一


请问如何修改才能实现图二


请高手指点迷津，谢谢

yxp

旋转45度？
画完后用entlast选上，然后旋转。

726613

yxp 发表于 2013-5-22 14:59
旋转45度？
画完后用entlast选上，然后旋转。

那程序应如何编写。谢谢

zyhandw

726613 发表于 2013-5-22 15:15
那程序应如何编写。谢谢

很简单啊，改了下，试试：

1. (DEFUN C:ZX ()
   
2.      (setvar "cmdecho" 0)   
   
3.      (princ "\n-->请选取要画交叉线的圆.....")
   
4.      (setq cl_ent (ssget":s" '((-4 . "<or")
   
5.           (0 . "circle") (0 . "arc") (-4 . "or>"))) i 0)
   
6.      (if cl_ent
   
7.        (repeat (sslength cl_ent)
   
8.        (setq cl_dat (entget (ssname cl_ent i))
   
9.              cl_lay (cdr (assoc 8 cl_dat))
   
10.              cl_pt  (trans (cdr (assoc 10 cl_dat)) 0 1)
    
11.              cl_rad (cdr (assoc 40 cl_dat)) i (+ 1 i))
    
12.      (setq old_osm (getvar "osmode"))
    
13.      (setvar "osmode" 0)
    
14.      (command "line" (list (+ (* 1.0 cl_rad) (car cl_pt)) (cadr cl_pt))
    
15.                      (list (- (car cl_pt) (* 1.0 cl_rad)) (cadr cl_pt)) "")
    
16.      (command "chprop" (entlast) "" "c" "" "lt" "CENTERX2" "la" cl_lay ""   )
    
17.          (command "rotate" (entlast) "" cl_pt "45")
    
18.      (command "line" (list (car cl_pt) (+ (* 1.0 cl_rad) (cadr cl_pt)))
    
19.                      (list (car cl_pt) (- (cadr cl_pt) (* 1.0 cl_rad))) "")
    
20.      (command "chprop" (entlast) "" "c" "" "lt" "CENTERX2" "la" cl_lay ""  )
    
21.          (command "rotate" (entlast) "" cl_pt "45")
    
22.      (setvar "osmode" old_osm)))   
    
23. (PRINC)
    
24. )

(DEFUN C:ZX ()<br />      (setvar "cmdecho" 0)    <br />      (princ "\n-->请选取要画交叉线的圆.....")<br />      (setq cl_ent (ssget":s" '((-4 . "<or")<br />           (0 . "circle") (0 . "arc") (-4 . "or>"))) i 0)<br />      (if cl_ent<br />        (repeat (sslength cl_ent)<br />        (setq cl_dat (entget (ssname cl_ent i))<br />              cl_lay (cdr (assoc 8 cl_dat))<br />              cl_pt  (trans (cdr (assoc 10 cl_dat)) 0 1)<br />              cl_rad (cdr (assoc 40 cl_dat)) i (+ 1 i))<br />      (setq old_osm (getvar "osmode"))<br />      (setvar "osmode" 0)<br />      (command "line" (list (+ (* 1.0 cl_rad) (car cl_pt)) (cadr cl_pt))<br />                      (list (- (car cl_pt) (* 1.0 cl_rad)) (cadr cl_pt)) "")<br />      (command "chprop" (entlast) "" "c" "" "lt" "CENTERX2" "la" cl_lay ""   )<br />          (command "rotate" (entlast) "" cl_pt "45")<br />      (command "line" (list (car cl_pt) (+ (* 1.0 cl_rad) (cadr cl_pt)))<br />                      (list (car cl_pt) (- (cadr cl_pt) (* 1.0 cl_rad))) "")<br />      (command "chprop" (entlast) "" "c" "" "lt" "CENTERX2" "la" cl_lay ""  )<br />          (command "rotate" (entlast) "" cl_pt "45")<br />      (setvar "osmode" old_osm)))   <br /> (PRINC)<br /> )

726613

zyhandw 发表于 2013-5-23 15:53
很简单啊，改了下，试试：

谢谢了你的指点