对指定图元实现向内偏移的取点办法

as6424

2. <div style="color: rgb(204, 204, 204); background-color: rgb(31, 31, 31); font-family: Consolas, &quot;Courier New&quot;, monospace; line-height: 19px; white-space: pre;">
   
3. <div>(<span style="color: #569cd6;">vl-load-com</span>)
   
4. (<span style="color: #569cd6;">defun</span> c:oo (/ oo_ss ss_length temp_i ss_i_ename ename_list p3_nth)
   
5. 
   
6.   <span style="color: #6a9955;">;or 判断是否需要切换图层,输入则切换,无输入则保持</span>
   
7.   (<span style="color: #569cd6;">setq</span> oo_py_fs_str (<span style="color: #569cd6;">getstring</span> <span style="color: #ce9178;">"\nn/w"</span>))
   
8.   
   
9.   (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">not</span> oo_py_dict)
   
10.     (<span style="color: #569cd6;">setq</span> oo_py_dict <span style="color: #b5cea8;">0</span>))
    
11.   
    
12.   (<span style="color: #569cd6;">setq</span> oo_py_dict_s (<span style="color: #569cd6;">rtos</span> oo_py_dict <span style="color: #b5cea8;">2</span> <span style="color: #b5cea8;">4</span>))
    
13.   
    
14.   (<span style="color: #569cd6;">setq</span> oo_py_dict_d (<span style="color: #569cd6;">getreal</span> (<span style="color: #569cd6;">strcat</span> <span style="color: #ce9178;">"\n偏移距离:<"</span> oo_py_dict_s <span style="color: #ce9178;">">\n"</span>)))
    
15.   <span style="color: #6a9955;">;创建选择集oo_ss,设置图层过滤器()</span>
    
16. <span style="color: #6a9955;">; (setq oo_ss (ssget (list (cons 8 layer-name))))</span>
    
17.   
    
18.   (<span style="color: #569cd6;">setq</span> oo_ss_layer_str (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">assoc</span> <span style="color: #b5cea8;">8</span> (<span style="color: #569cd6;">entget</span> (<span style="color: #569cd6;">car</span> (<span style="color: #569cd6;">entsel</span> <span style="color: #ce9178;">"\n获取图型所在图层"</span>))))))
    
19.   (<span style="color: #569cd6;">setq</span> oo_ss (<span style="color: #569cd6;">ssget</span> (<span style="color: #569cd6;">list</span> (<span style="color: #569cd6;">cons</span> <span style="color: #b5cea8;">8</span> oo_ss_layer_str))))
    
20. 
    
21.   <span style="color: #6a9955;">;or 判断是否需要输入偏移距离,输入则切换,无输入则保持</span>
    
22.   <span style="color: #6a9955;">; (or</span>
    
23.   <span style="color: #6a9955;">;   (oo_py_dict)</span>
    
24.   <span style="color: #6a9955;">;   (setq oo_py_dict(getreal ))</span>
    
25.   <span style="color: #6a9955;">; )</span>
    
26. 
    
27.   
    
28.   (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">and</span> (/= oo_py_dict_d <span style="color: #ce9178;">""</span>) (/= oo_py_dict_d <span style="color: #ce9178;">"0"</span>) (/= oo_py_dict_d <span style="color: #b5cea8;">0</span>) (/= oo_py_dict_d <span style="color: #569cd6;">nil</span>))
    
29.     (<span style="color: #569cd6;">setq</span> oo_py_dict oo_py_dict_d)
    
30.   )
    
31.   
    
32.   (<span style="color: #569cd6;">setq</span> ss_length (<span style="color: #569cd6;">sslength</span> oo_ss))
    
33.   (<span style="color: #569cd6;">setq</span> temp_i <span style="color: #b5cea8;">0</span>)
    
34.   
    
35.   <span style="color: #6a9955;">;偏移后置为当前图层</span>
    
36.   (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> <span style="color: #ce9178;">"l"</span> <span style="color: #ce9178;">"c"</span> <span style="color: #ce9178;">""</span> <span style="color: #ce9178;">""</span>)
    
37. 
    
38. 
    
39.   <span style="color: #6a9955;">;将选择集遍历赋值给ss_i_ename (ename) 取出单个图元</span>
    
40.   (<span style="color: #569cd6;">repeat</span> ss_length
    
41.     (<span style="color: #569cd6;">setq</span> ss_i_ename (<span style="color: #569cd6;">ssname</span> oo_ss temp_i))
    
42. 
    
43.     <span style="color: #6a9955;">;对每个ename需要操作的内容,取出list,用于提取数据</span>
    
44.     (<span style="color: #569cd6;">setq</span> ename_list (<span style="color: #569cd6;">entget</span> ss_i_ename))
    
45.     (<span style="color: #569cd6;">setq</span> ename_type (<span style="color: #569cd6;">assoc</span> <span style="color: #b5cea8;">0</span> ename_list))
    
46. 
    
47.    
    
48. 
    
49.     <span style="color: #6a9955;">;如果是圆形(圆心y+半径)</span>
    
50.     (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> ename_type (<span style="color: #569cd6;">cons</span> <span style="color: #b5cea8;">0</span> <span style="color: #ce9178;">"CIRCLE"</span>))
    
51.       (<span style="color: #569cd6;">progn</span>
    
52.         (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"n"</span>)
    
53.           (<span style="color: #569cd6;">setq</span> oo_py_fs_num (* <span style="color: #b5cea8;">-1</span> (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">10</span> ename_list)))))
    
54.          
    
55.         (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"w"</span>)
    
56.           (<span style="color: #569cd6;">setq</span> oo_py_fs_num (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">10</span> ename_list))))
    
57. 
    
58.         (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (<span style="color: #569cd6;">car</span> (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">9</span> ename_list))) (+ oo_py_fs_num (+ (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">10</span> ename_list)) (<span style="color: #569cd6;">cadr</span> (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">9</span> ename_list)))))) <span style="color: #ce9178;">""</span>)
    
59.       )
    
60.     )
    
61. 
    
62.    
    
63. 
    
64.     <span style="color: #6a9955;">;如果是矩形(矩形中心点,y轴半高)</span>
    
65.     (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> ename_type (<span style="color: #569cd6;">cons</span> <span style="color: #b5cea8;">0</span> <span style="color: #ce9178;">"LWPOLYLINE"</span>))
    
66.       (<span style="color: #569cd6;">progn</span>
    
67.         <span style="color: #6a9955;">;对角点获取办法</span>
    
68.         (<span style="color: #569cd6;">setq</span> p3_nth (+ (/ (- (<span style="color: #569cd6;">length</span> ename_list) <span style="color: #b5cea8;">15</span>) <span style="color: #b5cea8;">2</span>) <span style="color: #b5cea8;">14</span>))
    
69.         
    
70.         <span style="color: #6a9955;">;p1起点</span>
    
71.         (<span style="color: #569cd6;">setq</span> p1 (<span style="color: #569cd6;">list</span> (<span style="color: #569cd6;">setq</span> p1x (<span style="color: #569cd6;">cadr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">14</span> ename_list))) (<span style="color: #569cd6;">setq</span> p1y (<span style="color: #569cd6;">caddr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">14</span> ename_list)))))
    
72.         (<span style="color: #569cd6;">setq</span> p3 (<span style="color: #569cd6;">list</span> (<span style="color: #569cd6;">setq</span> p3x (<span style="color: #569cd6;">cadr</span> (<span style="color: #569cd6;">nth</span> p3_nth ename_list))) (<span style="color: #569cd6;">setq</span> p3y (<span style="color: #569cd6;">caddr</span> (<span style="color: #569cd6;">nth</span> p3_nth ename_list)))))
    
73.                
    
74. 
    
75.         <span style="color: #6a9955;">;矩形中心点</span>
    
76.         <span style="color: #6a9955;">;矩形半高 (/ (- p1y p3y) 2)</span>
    
77. 
    
78.         (<span style="color: #569cd6;">if</span> (> p1y p3y)
    
79.           (<span style="color: #569cd6;">progn</span>
    
80.             (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"n"</span>)
    
81.               (<span style="color: #569cd6;">setq</span> oo_py_fs_num (* <span style="color: #b5cea8;">-1</span> (/ (- p1y p3y) <span style="color: #b5cea8;">2</span>))))
    
82.             
    
83.             (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"w"</span>)
    
84.               (<span style="color: #569cd6;">setq</span> oo_py_fs_num (/ (- p1y p3y) <span style="color: #b5cea8;">2</span>)))
    
85.             
    
86.             (<span style="color: #569cd6;">if</span> (< p1x p3x)
    
87.               (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (+ (/ (- p3x p1x) <span style="color: #b5cea8;">2</span>) p1x) (+ oo_py_fs_num p1y)) <span style="color: #ce9178;">""</span>)
    
88.               (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (+ (/ (- p1x p3x) <span style="color: #b5cea8;">2</span>) p3x) (+ oo_py_fs_num p1y)) <span style="color: #ce9178;">""</span>)))
    
89.          
    
90.           (<span style="color: #569cd6;">if</span> (> p3y p1y)
    
91.             (<span style="color: #569cd6;">progn</span>
    
92.               (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"n"</span>)
    
93.                 (<span style="color: #569cd6;">setq</span> oo_py_fs_num (* <span style="color: #b5cea8;">-1</span> (/ (- p3y p1y) <span style="color: #b5cea8;">2</span>))))
    
94.               
    
95.               (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"w"</span>)
    
96.                 (<span style="color: #569cd6;">setq</span> oo_py_fs_num (/ (- p3y p1y) <span style="color: #b5cea8;">2</span>)))
    
97.               
    
98.               (<span style="color: #569cd6;">if</span> (< p1x p3x)
    
99.                 (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (+ (/ (- p3x p1x) <span style="color: #b5cea8;">2</span>) p1x) (+ oo_py_fs_num p3y)) <span style="color: #ce9178;">""</span>)
    
100.                 (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (+ (/ (- p1x p3x) <span style="color: #b5cea8;">2</span>) p3x) (+ oo_py_fs_num p3y)) <span style="color: #ce9178;">""</span>))
     
101.             )
     
102.           )
     
103.         )        
     
104.       )
     
105.     )
     
106.     <span style="color: #6a9955;">;矩形判断-结束</span>
     
107. 
     
108.     <span style="color: #6a9955;">;(subst (cons 8 (getvar "clayer")) (assoc 8 (entget (entlast))) (entget (entlast)))</span>
     
109.     (<span style="color: #569cd6;">setq</span> temp_i (+ <span style="color: #b5cea8;">1</span> temp_i))
     
110.   )
     
111. )
     
112. 
     
113. 
     
114. 
     
115. 
     
116.   
     
117.   
     
118.   
     
119. 
     
120.   </div>
     
121. </div>

<div style="color: rgb(204, 204, 204); background-color: rgb(31, 31, 31); font-family: Consolas, &quot;Courier New&quot;, monospace; line-height: 19px; white-space: pre;"><br /> <div>(<span style="color: #569cd6;">vl-load-com</span>)<br /> (<span style="color: #569cd6;">defun</span> c:oo (/ oo_ss ss_length temp_i ss_i_ename ename_list p3_nth) <br /> <br />   <span style="color: #6a9955;">;or 判断是否需要切换图层,输入则切换,无输入则保持</span><br />   (<span style="color: #569cd6;">setq</span> oo_py_fs_str (<span style="color: #569cd6;">getstring</span> <span style="color: #ce9178;">"\nn/w"</span>))<br />   <br />   (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">not</span> oo_py_dict)<br />     (<span style="color: #569cd6;">setq</span> oo_py_dict <span style="color: #b5cea8;">0</span>))<br />   <br />   (<span style="color: #569cd6;">setq</span> oo_py_dict_s (<span style="color: #569cd6;">rtos</span> oo_py_dict <span style="color: #b5cea8;">2</span> <span style="color: #b5cea8;">4</span>))<br />   <br />   (<span style="color: #569cd6;">setq</span> oo_py_dict_d (<span style="color: #569cd6;">getreal</span> (<span style="color: #569cd6;">strcat</span> <span style="color: #ce9178;">"\n偏移距离:<"</span> oo_py_dict_s <span style="color: #ce9178;">">\n"</span>))) <br />   <span style="color: #6a9955;">;创建选择集oo_ss,设置图层过滤器()</span><br /> <span style="color: #6a9955;">; (setq oo_ss (ssget (list (cons 8 layer-name))))</span><br />   <br />   (<span style="color: #569cd6;">setq</span> oo_ss_layer_str (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">assoc</span> <span style="color: #b5cea8;">8</span> (<span style="color: #569cd6;">entget</span> (<span style="color: #569cd6;">car</span> (<span style="color: #569cd6;">entsel</span> <span style="color: #ce9178;">"\n获取图型所在图层"</span>))))))<br />   (<span style="color: #569cd6;">setq</span> oo_ss (<span style="color: #569cd6;">ssget</span> (<span style="color: #569cd6;">list</span> (<span style="color: #569cd6;">cons</span> <span style="color: #b5cea8;">8</span> oo_ss_layer_str))))<br /> <br />   <span style="color: #6a9955;">;or 判断是否需要输入偏移距离,输入则切换,无输入则保持</span><br />   <span style="color: #6a9955;">; (or</span><br />   <span style="color: #6a9955;">;   (oo_py_dict)</span><br />   <span style="color: #6a9955;">;   (setq oo_py_dict(getreal ))</span><br />   <span style="color: #6a9955;">; )</span><br /> <br />   <br />   (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">and</span> (/= oo_py_dict_d <span style="color: #ce9178;">""</span>) (/= oo_py_dict_d <span style="color: #ce9178;">"0"</span>) (/= oo_py_dict_d <span style="color: #b5cea8;">0</span>) (/= oo_py_dict_d <span style="color: #569cd6;">nil</span>))<br />     (<span style="color: #569cd6;">setq</span> oo_py_dict oo_py_dict_d)<br />   )<br />   <br />   (<span style="color: #569cd6;">setq</span> ss_length (<span style="color: #569cd6;">sslength</span> oo_ss))<br />   (<span style="color: #569cd6;">setq</span> temp_i <span style="color: #b5cea8;">0</span>)<br />   <br />   <span style="color: #6a9955;">;偏移后置为当前图层</span><br />   (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> <span style="color: #ce9178;">"l"</span> <span style="color: #ce9178;">"c"</span> <span style="color: #ce9178;">""</span> <span style="color: #ce9178;">""</span>)<br /> <br /> <br />   <span style="color: #6a9955;">;将选择集遍历赋值给ss_i_ename (ename) 取出单个图元</span><br />   (<span style="color: #569cd6;">repeat</span> ss_length <br />     (<span style="color: #569cd6;">setq</span> ss_i_ename (<span style="color: #569cd6;">ssname</span> oo_ss temp_i))<br /> <br />     <span style="color: #6a9955;">;对每个ename需要操作的内容,取出list,用于提取数据</span><br />     (<span style="color: #569cd6;">setq</span> ename_list (<span style="color: #569cd6;">entget</span> ss_i_ename))<br />     (<span style="color: #569cd6;">setq</span> ename_type (<span style="color: #569cd6;">assoc</span> <span style="color: #b5cea8;">0</span> ename_list))<br /> <br />     <br /> <br />     <span style="color: #6a9955;">;如果是圆形(圆心y+半径)</span><br />     (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> ename_type (<span style="color: #569cd6;">cons</span> <span style="color: #b5cea8;">0</span> <span style="color: #ce9178;">"CIRCLE"</span>)) <br />       (<span style="color: #569cd6;">progn</span><br />         (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"n"</span>)<br />           (<span style="color: #569cd6;">setq</span> oo_py_fs_num (* <span style="color: #b5cea8;">-1</span> (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">10</span> ename_list)))))<br />           <br />         (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"w"</span>)<br />           (<span style="color: #569cd6;">setq</span> oo_py_fs_num (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">10</span> ename_list))))<br /> <br />         (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (<span style="color: #569cd6;">car</span> (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">9</span> ename_list))) (+ oo_py_fs_num (+ (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">10</span> ename_list)) (<span style="color: #569cd6;">cadr</span> (<span style="color: #569cd6;">cdr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">9</span> ename_list)))))) <span style="color: #ce9178;">""</span>)<br />       )<br />     )<br /> <br />    <br /> <br />     <span style="color: #6a9955;">;如果是矩形(矩形中心点,y轴半高)</span><br />     (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> ename_type (<span style="color: #569cd6;">cons</span> <span style="color: #b5cea8;">0</span> <span style="color: #ce9178;">"LWPOLYLINE"</span>)) <br />       (<span style="color: #569cd6;">progn</span> <br />         <span style="color: #6a9955;">;对角点获取办法</span><br />         (<span style="color: #569cd6;">setq</span> p3_nth (+ (/ (- (<span style="color: #569cd6;">length</span> ename_list) <span style="color: #b5cea8;">15</span>) <span style="color: #b5cea8;">2</span>) <span style="color: #b5cea8;">14</span>))<br />         <br />         <span style="color: #6a9955;">;p1起点</span><br />         (<span style="color: #569cd6;">setq</span> p1 (<span style="color: #569cd6;">list</span> (<span style="color: #569cd6;">setq</span> p1x (<span style="color: #569cd6;">cadr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">14</span> ename_list))) (<span style="color: #569cd6;">setq</span> p1y (<span style="color: #569cd6;">caddr</span> (<span style="color: #569cd6;">nth</span> <span style="color: #b5cea8;">14</span> ename_list)))))<br />         (<span style="color: #569cd6;">setq</span> p3 (<span style="color: #569cd6;">list</span> (<span style="color: #569cd6;">setq</span> p3x (<span style="color: #569cd6;">cadr</span> (<span style="color: #569cd6;">nth</span> p3_nth ename_list))) (<span style="color: #569cd6;">setq</span> p3y (<span style="color: #569cd6;">caddr</span> (<span style="color: #569cd6;">nth</span> p3_nth ename_list)))))<br />                <br /> <br />         <span style="color: #6a9955;">;矩形中心点</span><br />         <span style="color: #6a9955;">;矩形半高 (/ (- p1y p3y) 2)</span><br /> <br />         (<span style="color: #569cd6;">if</span> (> p1y p3y)<br />           (<span style="color: #569cd6;">progn</span><br />             (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"n"</span>)<br />               (<span style="color: #569cd6;">setq</span> oo_py_fs_num (* <span style="color: #b5cea8;">-1</span> (/ (- p1y p3y) <span style="color: #b5cea8;">2</span>))))<br />             <br />             (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"w"</span>)<br />               (<span style="color: #569cd6;">setq</span> oo_py_fs_num (/ (- p1y p3y) <span style="color: #b5cea8;">2</span>)))<br />             <br />             (<span style="color: #569cd6;">if</span> (< p1x p3x)<br />               (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (+ (/ (- p3x p1x) <span style="color: #b5cea8;">2</span>) p1x) (+ oo_py_fs_num p1y)) <span style="color: #ce9178;">""</span>)<br />               (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (+ (/ (- p1x p3x) <span style="color: #b5cea8;">2</span>) p3x) (+ oo_py_fs_num p1y)) <span style="color: #ce9178;">""</span>)))<br />           <br />           (<span style="color: #569cd6;">if</span> (> p3y p1y)<br />             (<span style="color: #569cd6;">progn</span><br />               (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"n"</span>)<br />                 (<span style="color: #569cd6;">setq</span> oo_py_fs_num (* <span style="color: #b5cea8;">-1</span> (/ (- p3y p1y) <span style="color: #b5cea8;">2</span>))))<br />               <br />               (<span style="color: #569cd6;">if</span> (<span style="color: #569cd6;">equal</span> oo_py_fs_str <span style="color: #ce9178;">"w"</span>)<br />                 (<span style="color: #569cd6;">setq</span> oo_py_fs_num (/ (- p3y p1y) <span style="color: #b5cea8;">2</span>)))<br />               <br />               (<span style="color: #569cd6;">if</span> (< p1x p3x)<br />                 (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (+ (/ (- p3x p1x) <span style="color: #b5cea8;">2</span>) p1x) (+ oo_py_fs_num p3y)) <span style="color: #ce9178;">""</span>)<br />                 (<span style="color: #569cd6;">command</span> <span style="color: #ce9178;">"offset"</span> oo_py_dict ss_i_ename (<span style="color: #569cd6;">list</span> (+ (/ (- p1x p3x) <span style="color: #b5cea8;">2</span>) p3x) (+ oo_py_fs_num p3y)) <span style="color: #ce9178;">""</span>))<br />             )<br />           )<br />         )        <br />       )<br />     )<br />     <span style="color: #6a9955;">;矩形判断-结束</span><br /> <br />     <span style="color: #6a9955;">;(subst (cons 8 (getvar "clayer")) (assoc 8 (entget (entlast))) (entget (entlast)))</span><br />     (<span style="color: #569cd6;">setq</span> temp_i (+ <span style="color: #b5cea8;">1</span> temp_i))<br />   )<br /> )<br /> <br /> <br /> <br /> <br />   <br />   <br />   <br /> <br />   </div><br /> </div>

写了个指定图层批量偏移到当前图层，但是只能偏移圆和4个点的矩形。图中这种圆角的图形就用不了, vla-offset可以不用取点 , 但是不知到怎么偏移到指定图层 ,很惆怅

;---------------------------------------------------------

vlisp好像也会被起点影响到..

uualice2020

(vla-put-Layer (Vlax-Ename->Vla-Object (entlast)) "图层名" )

uualice2020

kucha007

这个功能不是CAD自带吗。偏移命令有子命令可以看一下

as6424

kucha007 发表于 2024-1-31 19:13
这个功能不是CAD自带吗。偏移命令有子命令可以看一下

那个"L" "C"的子命令有在使用 , 是自己在应用时发现 , 只有圆形和四四方方的矩形可以用 , 顶点一多 , 就不知道咋取封闭图形的内点了

as6424

uualice2020 发表于 2024-1-31 18:54

应用时发现 , vla偏移可以用负数内偏 , 但也会被图元起点影响 , 还是要取图形内的点 , 四边矩形我能用对角取点 , 图中那种圆角的矩形不知道怎么取对角

fzlinrong

提供个思路：不知可行否？图形往两侧分别偏移，取得的新图形后比较二者的长度，长度短的为内偏移，长度长的为外偏移。

as6424

自己想的是 , 获取全部顶点 , 取最大xy和最小xy , 然后取他们的中点 , assoc只能取第一个 , 好像悟了 , 我去用 nth 和 if 判断试试获取全部顶点

as6424

fzlinrong 发表于 2024-2-1 09:12
提供个思路：不知可行否？图形往两侧分别偏移，取得的新图形后比较二者的长度，长度短的为内偏移，长度长的 ...

好像行欸 ! 我去查下求长度的命令 , 谢谢

uualice2020

as6424 发表于 2024-2-1 09:02
应用时发现 , vla偏移可以用负数内偏 , 但也会被图元起点影响 , 还是要取图形内的点 , 四边矩形我能用对 ...

dist 正值外偏  负值内偏


(defun offent(ent dist / s0 s1)
        (setq s0 (vlax-curve-getarea ent))
        (vla-offset (vlax-ename->vla-object ent) dist)
        (setq s1 (vlax-curve-getarea (entlast)))
        (if (or (and (> dist 0)(< s1 s0))
                                  (and (< dist 0)(> s1 s0)))
                (progn (entdel (entlast))(vla-offset (vlax-ename->vla-object ent) (- dist)))
        )(entlast)
)