画矩形，向外偏移100并调整线宽为10

adc

回复 ljpnb 的帖子

相对关系还是不对，请看:

ljpnb

adc 发表于 2011-7-5 12:40
回复 ljpnb 的帖子

相对关系还是不对，请看:

最后箍筋要求什么相对位置，你可以QQ：417377305上与我联系，到时候有什么具体要求再给我说说。。。

adc

回复 ljpnb 的帖子

象图片中这样

adc

参照ljpnb的程序根据自己的要求稍微改了一些细节，功能比较单一，用于1：25出图比例下，画柱或边缘构件的箍筋，样式与tssd的统一，谢谢ljpnb的热心帮忙，可以继续扩充一下增加不同比例等等

daidong013

ljpnb真是个热心人！~~顶~~~

jiegousheng

各位大侠：如果想实现批量将已有矩形外扩一定距离，原矩形可以保留，但外扩后的矩形最好在另外一个图层上。该如何实现呢，谢谢！

ljpnb

jiegousheng 发表于 2011-7-5 19:30
各位大侠：如果想实现批量将已有矩形外扩一定距离，原矩形可以保留，但外扩后的矩形最好在另外一个图层上。 ...

2. 
   
3. (defun c:tt ()
   
4.   (if (setq
   
5.         dis
   
6.          (getreal
   
7.            (strcat "\n输入偏移距离<" (rtos (getvar "offsetdist")) ">:")
   
8.          )
   
9.       )
   
10.     (setvar "offsetdist" dis)
    
11.     (setq dis (getvar "offsetdist"))
    
12.   )
    
13.   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
    
14.     (progn
    
15.       (setq k 0)
    
16.       (if (= (TBLOBJNAME "LAYER" "NEW-RECTANG") nil)
    
17.         (command "layer" "m" "NEW-RECTANG" "c" "3" "" "")
    
18.       )
    
19.       (repeat (sslength ss)
    
20.         (setq ent (ssname ss k))
    
21.         (setq pt_lst
    
22.                (mapcar
    
23.                  'cdr
    
24.                  (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))
    
25.                )
    
26.         )
    
27.         (setq pt1 (nth 0 pt_lst)
    
28.               pt2 (nth 2 pt_lst)
    
29.         )
    
30.         (setq pt3 (polar pt2 (angle pt1 pt2) 1.))
    
31.         (command "offset" dis ent "non" pt3 "")
    
32.         (setq ent1 (entlast))
    
33.         (command "change" ent1 "" "p" "la" "NEW-RECTANG" "")
    
34.         (setq k (1+ k))
    
35. 
    
36.       )
    
37.     )
    
38.   )
    
39.   (princ)
    
40. )
    

<br /> (defun c:tt ()<br />   (if (setq<br />         dis<br />          (getreal<br />            (strcat "\n输入偏移距离<" (rtos (getvar "offsetdist")) ">:")<br />          )<br />       )<br />     (setvar "offsetdist" dis)<br />     (setq dis (getvar "offsetdist"))<br />   )<br />   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (setq k 0)<br />       (if (= (TBLOBJNAME "LAYER" "NEW-RECTANG") nil)<br />         (command "layer" "m" "NEW-RECTANG" "c" "3" "" "")<br />       )<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss k))<br />         (setq pt_lst<br />                (mapcar<br />                  'cdr<br />                  (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))<br />                )<br />         )<br />         (setq pt1 (nth 0 pt_lst)<br />               pt2 (nth 2 pt_lst)<br />         )<br />         (setq pt3 (polar pt2 (angle pt1 pt2) 1.))<br />         (command "offset" dis ent "non" pt3 "")<br />         (setq ent1 (entlast))<br />         (command "change" ent1 "" "p" "la" "NEW-RECTANG" "")<br />         (setq k (1+ k))<br /> <br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

jiegousheng

刚试了上面那个程序，效果很好，非常感谢ljpnb！