;;;;选线平行中心点镜像 更新

T_T

那位高手能帮我完善一下,现在只能选线,选尺寸会出错和不能选PL线, 能不能增加  PL线和尺寸谢谢
有些时间还会出现,不理想的效果.什么原?

谢谢各版主, 更新了一下,现在可以把快捷键MI直接换了
打个件看看这个多人要不,
发了好几次才好, 粗心啊

这次真的好好多了



再改了一下
2012.1.24

更新 和原本的命令更相似。更简洁，

xzklk

谢谢！     分享

【KAIXIN】

2. ;以直线镜像功能
   
3. (defun C:KJ_ML( / bl cm e1 ent0 ent1 os p1 p2 ss1)
   
4.   (SetQ cm (GetVar "cmdecho") bl (GetVar "blipmode") os (GetVar "osmode"))
   
5.   (SetVar "cmdecho" 0)
   
6.   (SetVar "blipmode" 0)
   
7.   (SetVar "osmode" 0)
   
8.      (PRINC "\n【開金CAD外挂】---以直线镜像功能")
   
9.      (while(PRINC "\n-->请选取要镜像的对象......")
   
10.   (setq ent0 (ssget":s"))  
    
11.   (setq ent1 (entsel "\n-->请选择镜像中心直线：")
    
12.           e1 (car ent1)
    
13.          ss1 (entget e1))
    
14.   (setq p1 (Cdr (Assoc 10 ss1))
    
15.         p2 (Cdr (Assoc 11 ss1)))
    
16.   (command "mirror" ent0 ""p1 p2 ""))
    
17.   (SetVar "cmdecho" cm)
    
18.   (SetVar "blipmode" bl)
    
19.   (SetVar "osmode" os)
    
20.      (princ "\n★★★欢迎使用--《開金CAD外挂》--★★★      以直线镜像完成！")
    
21.    (PrinC)
    
22.   )
    

;以直线镜像功能<br /> (defun C:KJ_ML( / bl cm e1 ent0 ent1 os p1 p2 ss1)<br />   (SetQ cm (GetVar "cmdecho") bl (GetVar "blipmode") os (GetVar "osmode"))<br />   (SetVar "cmdecho" 0)<br />   (SetVar "blipmode" 0) <br />   (SetVar "osmode" 0)<br />      (PRINC "\n【開金CAD外挂】---以直线镜像功能")<br />      (while(PRINC "\n-->请选取要镜像的对象......")<br />   (setq ent0 (ssget":s"))  <br />   (setq ent1 (entsel "\n-->请选择镜像中心直线：")<br />           e1 (car ent1)<br />          ss1 (entget e1))<br />   (setq p1 (Cdr (Assoc 10 ss1))<br />         p2 (Cdr (Assoc 11 ss1)))<br />   (command "mirror" ent0 ""p1 p2 ""))<br />   (SetVar "cmdecho" cm) <br />   (SetVar "blipmode" bl) <br />   (SetVar "osmode" os) <br />      (princ "\n★★★欢迎使用--《開金CAD外挂》--★★★      以直线镜像完成！")<br />    (PrinC)<br />   ) <br />

T_T

谢谢 K版

caoyin

【KAIXIN】 发表于 2012-1-15 13:54

while后面改成这样似乎更合理一点
(progn
(PRINC "\n-->请选取要镜像的对象......")
  (setq ent0 (ssget":s"))
)

T_T

2. (defun c:mii (/ ang bl cm dst en endata os pt1 pt2 ptm ptm1
   
3. ss)
   
4.   (SetQ cm (GetVar "cmdecho")
   
5.         bl
   
6. (GetVar "blipmode")
   
7.         os (GetVar
   
8. "osmode")
   
9.   )
   
10.   (SetVar "cmdecho"
    
11. 0)
    
12.   (SetVar "blipmode" 0)
    
13.   (SetVar "osmode"
    
14. 0)
    
15.   (if (and
    
16.         (setq ss
    
17. (ssget))
    
18.         (setq en (car (nentsel "\n选择线:
    
19. ")))
    
20.         (setq endata (entget en))
    
21.    
    
22.     (setq pt1 (cdr (assoc 10 endata)))
    
23.         
    
24. (setq pt2 (cdr (assoc 11 endata)))
    
25.       )
    
26.   
    
27.   (progn
    
28.       (setq ang (angle pt1 pt2)
    
29.   
    
30.           dst (distance pt1 pt2)
    
31.   
    
32.           ptm (polar pt1 ang (/ dst
    
33. 2))
    
34.             ptm1 (polar ptm (+ (/
    
35. pi 2) ang) dst)
    
36.       )
    
37.      
    
38. (command ".mirror" ss "" ptm ptm1 "n")
    
39.    
    
40. )
    
41.   )
    
42.   (SetVar "cmdecho" cm)
    
43.   (SetVar
    
44. "blipmode" bl)
    
45.   (SetVar "osmode" os)
    
46.   (princ)
    
47. )

(defun c:mii (/ ang bl cm dst en endata os pt1 pt2 ptm ptm1 <br /> ss)<br />   (SetQ cm (GetVar "cmdecho")<br />         bl <br /> (GetVar "blipmode")<br />         os (GetVar <br /> "osmode")<br />   )<br />   (SetVar "cmdecho" <br /> 0)<br />   (SetVar "blipmode" 0)<br />   (SetVar "osmode" <br /> 0)<br />   (if (and<br />         (setq ss <br /> (ssget))<br />         (setq en (car (nentsel "\n选择线: <br /> ")))<br />         (setq endata (entget en))<br />     <br />     (setq pt1 (cdr (assoc 10 endata)))<br />         <br /> (setq pt2 (cdr (assoc 11 endata)))<br />       )<br />   <br />   (progn<br />       (setq ang (angle pt1 pt2)<br />   <br />           dst (distance pt1 pt2)<br />   <br />           ptm (polar pt1 ang (/ dst <br /> 2))<br />             ptm1 (polar ptm (+ (/ <br /> pi 2) ang) dst)<br />       )<br />      <br /> (command ".mirror" ss "" ptm ptm1 "n")<br />     <br /> )<br />   )<br />   (SetVar "cmdecho" cm)<br />   (SetVar <br /> "blipmode" bl)<br />   (SetVar "osmode" os)<br />   (princ)<br /> )

修改了一下,标注尺寸都可以了,PL线就不行了,谢谢DZ C版 K版

T_T

K版那个是垂直的,我那是平行的

AMTONNY

楼主有才,支持一下

【KAIXIN】

caoyin 发表于 2012-1-15 15:39
while后面改成这样似乎更合理一点
(progn
(PRINC "\n-->请选取要镜像的对象......")

谢曹版的指点，这个是一年前为了工作的需要特意写的！
while 当时是还没接触到，随意加上去的，以为可以用，就没有深入研究.......

AMTONNY

呵呵,试了一下, (command ".mirror" ss "" ptm ptm1 "n")这里都没有搞对哦
应该必为(command ".mirror" ss "" pt1 pt2 "")就可以了