顶点插入块，用于布置角筋

fcut2004

2. (defun c:dj ()
   
3.     (setq i 0)
   
4.     (setq pline (car (entsel)))
   
5.     (setq ent (entget pline))
   
6.     (setq pts nil)
   
7.     (repeat (length ent)
   
8.     (if (= (car (nth i ent)) 10)
   
9. 
   
10. ;(setq pts (append pts (list (cdr (nth i ent)))))
    
11. (setq p0  (cdr (nth i ent)))
    
12.   (ins)
    
13.     )
    
14.     (setq i (1+ i))
    
15.   )
    
16. (entdel pline)
    
17. 
    
18.        (princ)
    
19. )
    
20. 
    
21. (defun ins ()
    
22. ;(setq p1 (getpoint "\n梁内边左下端点为起点: "))
    
23. (COMMAND "-insert"  "点筋" p0 "1" "1" "0" )
    
24. (princ)
    
25. )

(defun c:dj () <br />     (setq i 0) <br />     (setq pline (car (entsel))) <br />     (setq ent (entget pline)) <br />     (setq pts nil) <br />     (repeat (length ent) <br />     (if (= (car (nth i ent)) 10) <br /> <br /> ;(setq pts (append pts (list (cdr (nth i ent))))) <br /> (setq p0  (cdr (nth i ent))) <br />   (ins)<br />     ) <br />     (setq i (1+ i)) <br />   ) <br /> (entdel pline)<br /> <br />        (princ) <br /> )<br /> <br /> (defun ins () <br /> ;(setq p1 (getpoint "\n梁内边左下端点为起点: "))<br /> (COMMAND "-insert"  "点筋" p0 "1" "1" "0" )<br /> (princ)<br /> )

上面是我自己拼的多义线顶点插入块（自己做一个点筋的块）的程序，结合批量偏移命令，将就可以快速布置角筋了。目前还没实现批量点筋。

crazylsp

;;稍微调整了一下，可供楼主参考

2. (defun c:dj ()
   
3.    
   
4.      (setq i     0)
   
5.      (setq os    (getvar "osmode"))
   
6.      (setq pline (car (entsel)) )
   
7.      (setq ent   (entget pline))
   
8.      (setq ent1  ent)
   
9. 
   
10.      ;;手工布置
    
11.      ;(repeat  (cdr(assoc 90 ent) )   
    
12.         ;(setq p0 (osnap (getpoint"选择顶点附近点") "end"))
    
13.         ;(ins) (setq i (1+ i))  
    
14.      ;)
    
15. 
    
16.       ;;自动布置
    
17.       (repeat  (cdr(assoc 90 ent) )   
    
18.           (setvar "osmode" 0)
    
19.           (setq p0   (cdr (assoc 10 ent1) )
    
20.                 ent1 (vl-remove (assoc 10 ent1)  ent1)
    
21.           )
    
22.           (ins)
    
23.           (setq i (1+ i))   
    
24.      )  
    
25.      (princ) (setvar "osmode" os)
    
26. )
    
27. 
    
28. (defun ins ()
    
29.    (COMMAND "-insert"  "点筋" p0 "1" "1" "0" )
    
30.    (princ)
    
31. )
    
32. 
    

(defun c:dj () <br />     <br />      (setq i     0)<br />      (setq os    (getvar "osmode"))<br />      (setq pline (car (entsel)) )<br />      (setq ent   (entget pline))<br />      (setq ent1  ent)<br /> <br />      ;;手工布置<br />      ;(repeat  (cdr(assoc 90 ent) )    <br />         ;(setq p0 (osnap (getpoint"选择顶点附近点") "end"))<br />         ;(ins) (setq i (1+ i))  <br />      ;)<br /> <br />       ;;自动布置<br />       (repeat  (cdr(assoc 90 ent) )   <br />           (setvar "osmode" 0)<br />           (setq p0   (cdr (assoc 10 ent1) ) <br />                 ent1 (vl-remove (assoc 10 ent1)  ent1)<br />           )<br />           (ins) <br />           (setq i (1+ i))   <br />      )  <br />      (princ) (setvar "osmode" os)<br /> )<br /> <br /> (defun ins () <br />    (COMMAND "-insert"  "点筋" p0 "1" "1" "0" )<br />    (princ)<br /> )<br /> <br />

fcut2004

上面的程序对于T、L形的异性墙柱角点钢筋，还是不完善，有两个点钢筋不是在角点上，但位置也是固定的。不知道是如何实现的，有哪位大侠能否说下思路来的。

大大的熊熊猫猫

可以写个根据定点插入块的源程序？？？