求改进 角度线 + 镜像

lzg8877

(defun C:LJj ()
   (setvar "AutoSnap" 39)
    i.e.
   (SetVar "OsMode" 951)
   (setq pt (getpoint "\n选取基点: ")
         vv (getangle pt  "指定角度: ")
          vv1 (getangle pt  "指定角度: ")
         p2 (polar pt vv 120)
           p3 (polar pt vv1 120)
   )
   (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p2)))
  (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p3)))
)

ZZXXQQ

2. (defun C:LJj ()
   
3.   (setvar "AutoSnap" 39)
   
4.   (setvar "OsMode" 951)
   
5.   (setq pt (getpoint "\n选取基点: ")
   
6.         vv (getangle pt "指定角度: ")
   
7.         vv1 (getangle pt "指定角度: ")
   
8.         p2 (polar pt vv 120)
   
9.         p3 (polar pt vv1 120)
   
10.   )
    
11.   (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p2)))
    
12.   (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p3)))
    
13.   (setq pd1 (mapcar '- p2 pt))
    
14.   (setq pd2 (mapcar '- p3 pt))
    
15.   (if (> vv vv1)
    
16.    (setq p4 (mapcar '- p2 (list (* (car pd1) 2) 0))
    
17.          p5 (mapcar '- p3 (list 0 (* (cadr pd2) 2))))
    
18.    (setq p4 (mapcar '- p2 (list 0 (* (cadr pd1) 2)))
    
19.          p5 (mapcar '- p3 (list (* (car pd2) 2) 0)))
    
20.   )
    
21.   (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p4)))
    
22.   (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p5)))
    
23.   (princ)
    
24. )
    

(defun C:LJj ()<br />   (setvar "AutoSnap" 39)<br />   (setvar "OsMode" 951)<br />   (setq pt (getpoint "\n选取基点: ")<br />         vv (getangle pt "指定角度: ")<br />         vv1 (getangle pt "指定角度: ")<br />         p2 (polar pt vv 120)<br />         p3 (polar pt vv1 120)<br />   )<br />   (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p2)))<br />   (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p3)))<br />   (setq pd1 (mapcar '- p2 pt))<br />   (setq pd2 (mapcar '- p3 pt))<br />   (if (> vv vv1)<br />    (setq p4 (mapcar '- p2 (list (* (car pd1) 2) 0))<br />          p5 (mapcar '- p3 (list 0 (* (cadr pd2) 2))))<br />    (setq p4 (mapcar '- p2 (list 0 (* (cadr pd1) 2)))<br />          p5 (mapcar '- p3 (list (* (car pd2) 2) 0)))<br />   )<br />   (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p4)))<br />   (entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 p5)))<br />   (princ)<br /> )<br />

lzg8877

ZZXXQQ 发表于 2015-6-27 16:46

Z版　你好谢谢你的热心　我读不懂　努力翻查中　能否再请出手　改改需求角度大的线向左镜像　角度较小的线向下镜像

lzg8877

ZZXXQQ 发表于 2015-6-27 16:46

我看我有点表达不准确　两角度线　角度线度数大的向逆时针　角度线较小的向顺时针　背靠背向外走

lzg8877

ZZXXQQ 发表于 2015-6-27 16:46

试过　　输入35度　和55度　较果是对的　输入40　50度，　输入30　　45度较果就没达到

ZZXXQQ

lzg8877 发表于 2015-6-28 08:08
试过　　输入35度　和55度　较果是对的　输入40　50度，　输入30　　45度较果就没达到

输入45度时要向哪边镜向?

lzg8877

是两角度的夹角向外　角度没影响的　我如果输　45度　55度　还是大的角向向逆时针　数小的向顺时针

xyp1964

;; 题目就没说清需求

lzg8877

谢谢　院长　效果不是我想要的　因为先要输入基点　再前后输入两个角角线　有了两个角度线才可以比较　
　比较过后　一条线向正　另一条线向反　转到对称的方向

lzg8877

重新加了贴图