记录学习成果 : 指定图层批量偏移到当前图层

as6424

2. (vl-load-com)
   
3. (defun c:oo (/ oo_ss ss_length temp_i ss_i_ename ename_list p1 p3 p3_nth ss_i_object oo_py_fs_str oo_py_dict_d ename_type)
   
4.   (setvar "cmdecho" 0)
   
5.   (command "._undo" "_begin")
   
6.   
   
7. 
   
8.   (and (not oo_py_fs_str_s) (setq oo_py_fs_str_s "n"))
   
9.   (setq oo_py_fs_str (getstring (strcat "\nn/w:<" oo_py_fs_str_s ">\n")))
   
10.   
    
11.   (if (= oo_py_fs_str "")
    
12.     (setq oo_py_fs_str oo_py_fs_str_s)
    
13.     (setq oo_py_fs_str_s oo_py_fs_str)
    
14.   )
    
15.   
    
16.   (if (not oo_py_dict)
    
17.     (setq oo_py_dict 0))
    
18.   
    
19.   (setq oo_py_dict_s (rtos oo_py_dict 2 4))
    
20.   
    
21.   (setq oo_py_dict_d (getreal (strcat "\n偏移距离:<" oo_py_dict_s ">\n")))
    
22.   (setq oo_ss_layer_str (cdr (assoc 8 (entget (car (entsel "\n获取图型所在图层:\n"))))))
    
23.   
    
24.   ;创建选择集oo_ss,设置图层过滤器()
    
25.   (setq oo_ss (ssget (list (cons 8 oo_ss_layer_str))))
    
26. 
    
27.   ;or 判断是否需要输入偏移距离,输入则切换,无输入则保持
    
28.   ; (or
    
29.   ;   (oo_py_dict)
    
30.   ;   (setq oo_py_dict(getreal ))
    
31.   ; )
    
32. 
    
33.   
    
34.   (if (and (/= oo_py_dict_d "") (/= oo_py_dict_d "0") (/= oo_py_dict_d 0) (/= oo_py_dict_d nil))
    
35.     (setq oo_py_dict oo_py_dict_d)
    
36.   )
    
37.   
    
38.   (setq ss_length (sslength oo_ss))
    
39.   (setq temp_i 0)
    
40.   
    
41.   ;偏移后置为当前图层
    
42.   (command "offset" "l" "c" "" "")
    
43. 
    
44. 
    
45.   ;将选择集遍历赋值给ss_i_ename (ename) 取出单个图元
    
46.   (repeat ss_length
    
47.     (setq ss_i_ename (ssname oo_ss temp_i))
    
48. 
    
49.     ;对每个ename需要操作的内容,取出list,用于提取数据
    
50.     (setq ename_list (entget ss_i_ename))
    
51.     (setq ename_type (assoc 0 ename_list))
    
52. 
    
53.    
    
54. 
    
55.     ;如果是圆形(圆心y+半径)
    
56.     (if (equal ename_type (cons 0 "CIRCLE"))
    
57.       (progn
    
58.         (if (or (= oo_py_fs_str "n") (= oo_py_fs_str "N"))
    
59.           (setq oo_py_fs_center_point (cdr (assoc 10 ename_list))))
    
60.          
    
61.         (if (or (= oo_py_fs_str "w") (= oo_py_fs_str "W"))
    
62.           (setq oo_py_fs_center_point (list (car (cdr (assoc 10 ename_list))) (+ (* 2 (cdr (assoc 40 ename_list))) (cadr (cdr (assoc 10 ename_list)))))))
    
63. 
    
64.         (command "offset" oo_py_dict ss_i_ename "_non" oo_py_fs_center_point "")
    
65.       )
    
66.     )
    
67. 
    
68.    
    
69. 
    
70.     ;如果是矩形(矩形中心点,y轴半高)
    
71.     (if (equal ename_type (cons 0 "LWPOLYLINE"))
    
72.       (progn
    
73.    
    
74.         ;p1&p3赋值
    
75.         ;object转换
    
76.         (setq ss_i_object (vlax-ename->vla-object ss_i_ename))
    
77.         (setq pl_point_i 0);;计数器赋初值
    
78.         
    
79.         ;p1/p3初始化
    
80.         (setq pl_i_point (vlax-curve-getpointatparam ss_i_object 0))
    
81.         (setq p1 pl_i_point)
    
82.         (setq p3 pl_i_point)
    
83. 
    
84.         
    
85.         (while
    
86.           (setq pl_i_point (vlax-curve-getpointatparam ss_i_object (setq pl_point_i (1+ pl_point_i))));;沿曲线返回指定参数值处的点 。
    
87.          
    
88. 
    
89.          
    
90.           ;最小xy的点=p1
    
91.           (and         
    
92.             (<= (car pl_i_point) (car p1))
    
93.             (<= (cadr pl_i_point) (cadr p1))
    
94.             (setq p1 (list (setq p1x (car pl_i_point)) (setq p1y (cadr pl_i_point))))
    
95.           )
    
96.             ;最大xy的点=p3
    
97.           (and         
    
98.             (>= (car pl_i_point) (car p3))
    
99.             (>= (cadr pl_i_point) (cadr p3))
    
100.             (setq p3 (list (setq p3x (car pl_i_point)) (setq p3y (cadr pl_i_point))))
     
101.           )         
     
102.         )
     
103.                
     
104. 
     
105.         ;矩形中心点
     
106.         ;矩形半高 (/ (- p1y p3y) 2)
     
107. 
     
108.         
     
109.             (if (or (= oo_py_fs_str "n") (= oo_py_fs_str "N"))
     
110.               (setq oo_py_fs_center_point
     
111.                      (list
     
112.                        (+ p3x (* -1 (/ (- p3x p1x) 2)))
     
113.                        (+ p3y (* -1 (/ (- p3y p1y) 2)))))
     
114.             )
     
115.             
     
116.             (if (or (= oo_py_fs_str "w") (= oo_py_fs_str "W"))
     
117.                 (setq oo_py_fs_center_point (list (+ p3x (* (- p3x p1x) 2)) (+ p3y (* (- p3y p1y) 2))))
     
118.                 ;(PRINC (list "\NW里面的偏移点:" oo_py_fs_center_point "\N点表:" (CONS (+ p3x (* (- p3x p1x) 2)) (+ p3y (* (- p3y p1y) 2))) "\n点表里面的参数:" (+ p3x (* (- p3x p1x) 2)) (+ p3y (* (- p3y p1y) 2))))     
     
119.             )
     
120.             
     
121.        ; (PRINC (LIST "\np1:" p1 "\np2:" p3 "\n偏移方式:" oo_py_fs_str "\n目标点:" oo_py_fs_center_point))
     
122.             (command-s "offset" oo_py_dict ss_i_ename "_non" oo_py_fs_center_point "")
     
123.             
     
124.          
     
125.          
     
126.       )
     
127. (princ)      
     
128.     )
     
129.     ;矩形判断-结束
     
130. 
     
131.     ;(subst (cons 8 (getvar "clayer")) (assoc 8 (entget (entlast))) (entget (entlast)))
     
132.     (setq temp_i (+ 1 temp_i))
     
133.   )
     
134.   
     
135.   ;清除选择集
     
136.   (setq oo_ss nil)
     
137.   (command "._undo" "_end")
     
138.   (setvar "cmdecho" 1)
     
139.   (princ)
     
140. )

(vl-load-com)<br /> (defun c:oo (/ oo_ss ss_length temp_i ss_i_ename ename_list p1 p3 p3_nth ss_i_object oo_py_fs_str oo_py_dict_d ename_type) <br />   (setvar "cmdecho" 0) <br />   (command "._undo" "_begin") <br />   <br /> <br />   (and (not oo_py_fs_str_s) (setq oo_py_fs_str_s "n"))<br />   (setq oo_py_fs_str (getstring (strcat "\nn/w:<" oo_py_fs_str_s ">\n")))<br />   <br />   (if (= oo_py_fs_str "")<br />     (setq oo_py_fs_str oo_py_fs_str_s)<br />     (setq oo_py_fs_str_s oo_py_fs_str)<br />   )<br />   <br />   (if (not oo_py_dict)<br />     (setq oo_py_dict 0))<br />   <br />   (setq oo_py_dict_s (rtos oo_py_dict 2 4))<br />   <br />   (setq oo_py_dict_d (getreal (strcat "\n偏移距离:<" oo_py_dict_s ">\n"))) <br />   (setq oo_ss_layer_str (cdr (assoc 8 (entget (car (entsel "\n获取图型所在图层:\n"))))))<br />   <br />   ;创建选择集oo_ss,设置图层过滤器()<br />   (setq oo_ss (ssget (list (cons 8 oo_ss_layer_str))))<br /> <br />   ;or 判断是否需要输入偏移距离,输入则切换,无输入则保持<br />   ; (or<br />   ;   (oo_py_dict)<br />   ;   (setq oo_py_dict(getreal ))<br />   ; )<br /> <br />   <br />   (if (and (/= oo_py_dict_d "") (/= oo_py_dict_d "0") (/= oo_py_dict_d 0) (/= oo_py_dict_d nil))<br />     (setq oo_py_dict oo_py_dict_d)<br />   )<br />   <br />   (setq ss_length (sslength oo_ss))<br />   (setq temp_i 0)<br />   <br />   ;偏移后置为当前图层<br />   (command "offset" "l" "c" "" "")<br /> <br /> <br />   ;将选择集遍历赋值给ss_i_ename (ename) 取出单个图元<br />   (repeat ss_length <br />     (setq ss_i_ename (ssname oo_ss temp_i))<br /> <br />     ;对每个ename需要操作的内容,取出list,用于提取数据<br />     (setq ename_list (entget ss_i_ename))<br />     (setq ename_type (assoc 0 ename_list))<br /> <br />     <br /> <br />     ;如果是圆形(圆心y+半径)<br />     (if (equal ename_type (cons 0 "CIRCLE")) <br />       (progn<br />         (if (or (= oo_py_fs_str "n") (= oo_py_fs_str "N"))<br />           (setq oo_py_fs_center_point (cdr (assoc 10 ename_list))))<br />           <br />         (if (or (= oo_py_fs_str "w") (= oo_py_fs_str "W"))<br />           (setq oo_py_fs_center_point (list (car (cdr (assoc 10 ename_list))) (+ (* 2 (cdr (assoc 40 ename_list))) (cadr (cdr (assoc 10 ename_list)))))))<br /> <br />         (command "offset" oo_py_dict ss_i_ename "_non" oo_py_fs_center_point "")<br />       )<br />     )<br /> <br />    <br /> <br />     ;如果是矩形(矩形中心点,y轴半高)<br />     (if (equal ename_type (cons 0 "LWPOLYLINE")) <br />       (progn <br />     <br />         ;p1&p3赋值<br />         ;object转换<br />         (setq ss_i_object (vlax-ename->vla-object ss_i_ename))<br />         (setq pl_point_i 0);;计数器赋初值<br />         <br />         ;p1/p3初始化<br />         (setq pl_i_point (vlax-curve-getpointatparam ss_i_object 0))<br />         (setq p1 pl_i_point)<br />         (setq p3 pl_i_point)<br /> <br />         <br />         (while <br />           (setq pl_i_point (vlax-curve-getpointatparam ss_i_object (setq pl_point_i (1+ pl_point_i))));;沿曲线返回指定参数值处的点 。<br />           <br /> <br />           <br />           ;最小xy的点=p1<br />           (and          <br />             (<= (car pl_i_point) (car p1)) <br />             (<= (cadr pl_i_point) (cadr p1)) <br />             (setq p1 (list (setq p1x (car pl_i_point)) (setq p1y (cadr pl_i_point))))<br />           )<br />             ;最大xy的点=p3<br />           (and          <br />             (>= (car pl_i_point) (car p3)) <br />             (>= (cadr pl_i_point) (cadr p3)) <br />             (setq p3 (list (setq p3x (car pl_i_point)) (setq p3y (cadr pl_i_point))))<br />           )          <br />         )<br />                <br /> <br />         ;矩形中心点<br />         ;矩形半高 (/ (- p1y p3y) 2)<br /> <br />         <br />             (if (or (= oo_py_fs_str "n") (= oo_py_fs_str "N"))<br />               (setq oo_py_fs_center_point <br />                      (list <br />                        (+ p3x (* -1 (/ (- p3x p1x) 2))) <br />                        (+ p3y (* -1 (/ (- p3y p1y) 2)))))<br />             ) <br />             <br />             (if (or (= oo_py_fs_str "w") (= oo_py_fs_str "W"))<br />                 (setq oo_py_fs_center_point (list (+ p3x (* (- p3x p1x) 2)) (+ p3y (* (- p3y p1y) 2))))<br />                 ;(PRINC (list "\NW里面的偏移点:" oo_py_fs_center_point "\N点表:" (CONS (+ p3x (* (- p3x p1x) 2)) (+ p3y (* (- p3y p1y) 2))) "\n点表里面的参数:" (+ p3x (* (- p3x p1x) 2)) (+ p3y (* (- p3y p1y) 2))))     <br />             )<br />             <br />        ; (PRINC (LIST "\np1:" p1 "\np2:" p3 "\n偏移方式:" oo_py_fs_str "\n目标点:" oo_py_fs_center_point))<br />             (command-s "offset" oo_py_dict ss_i_ename "_non" oo_py_fs_center_point "")<br />             <br />           <br />           <br />       )<br /> (princ)      <br />     )<br />     ;矩形判断-结束<br /> <br />     ;(subst (cons 8 (getvar "clayer")) (assoc 8 (entget (entlast))) (entget (entlast)))<br />     (setq temp_i (+ 1 temp_i))<br />   )<br />   <br />   ;清除选择集<br />   (setq oo_ss nil)<br />   (command "._undo" "_end") <br />   (setvar "cmdecho" 1) <br />   (princ)<br /> )

liuhe

这命名方式，不像是手打的

as6424

liuhe 发表于 2024-2-7 11:58
这命名方式，不像是手打的

写长点自己认得，太简化了自己记不清他是干嘛用的

shirker

学习了，谢谢分享