adc 发表于 2011-7-5 12:40:39

回复 ljpnb 的帖子

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

ljpnb 发表于 2011-7-5 12:46:47

adc 发表于 2011-7-5 12:40 static/image/common/back.gif
回复 ljpnb 的帖子

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

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

adc 发表于 2011-7-5 12:52:54

回复 ljpnb 的帖子

象图片中这样

adc 发表于 2011-7-5 14:44:48

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

daidong013 发表于 2011-7-5 17:28:21

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

jiegousheng 发表于 2011-7-5 19:30:32

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

ljpnb 发表于 2011-7-5 19:48:36

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


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

      )
    )
)
(princ)
)

jiegousheng 发表于 2011-7-6 11:47:59

刚试了上面那个程序，效果很好，非常感谢ljpnb！
页: 1 [2]
查看完整版本: 画矩形，向外偏移100并调整线宽为10