倾家荡产--20币求助“填充分割线”的生成

love1030312

院长的好东西 是伪源码  必须加载他的底裤才能用的

chenjian2159

中秋节了，没有高手能帮下小弟吗？

q3_2006

知道思路就写写看....我们可以帮你修改!

ytb2001993

好创意，有些地方能有用

chenjian2159

q3_2006 发表于 2014-9-9 04:52
知道思路就写写看....我们可以帮你修改!

思路是知道的，就是不会编程

chenjian2159

哪位热心的大侠能否帮忙下？

yangchao2005090

2. (defun C:TCBJ(/ sg i s1)
   
3.   (princ "\n填充重生边框，请选择填充图案：")
   
4.   (setq sg (ssget '((0 . "HATCH"))) i -1)
   
5.   (while (setq s1 (ssname sg (setq i (1+ i))))
   
6.     (command "-hatchedit" s1 "b" "p" "y")
   
7.    )
   
8.   (princ)
   
9. )

(defun C:TCBJ(/ sg i s1) <br />   (princ "\n填充重生边框，请选择填充图案：")<br />   (setq sg (ssget '((0 . "HATCH"))) i -1)<br />   (while (setq s1 (ssname sg (setq i (1+ i))))<br />     (command "-hatchedit" s1 "b" "p" "y")<br />    )<br />   (princ)<br /> )

此程序来自本论坛，出处暂未知

cjjh8301

xyp1964 发表于 2014-9-1 11:22

怎样才能得到函数库？

cq4920

2. (defun C:TCBJ (/ sg i s1)
   
3.   (princ "\n填充重生边框，请选择填充图案：")
   
4.   (setq sg (ssget '((0 . "HATCH"))) i -1)
   
5.   (while (setq s1 (ssname sg (setq i (1+ i))))
   
6.     (command "-hatchedit" s1 "b" "p" "y")
   
7. (setq ss_bj (ssadd (entlast) ss_bj))   
   
8.    )
   
9.    
   
10.    新建临时图层
    
11.    将边框选择集放到临时图层
    
12.    将边界分解
    
13.    获得重复线段
    
14.    删除多余线段
    
15.    更改界线图层
    
16.    删除临时图成
    
17.    然后然后然后
    
18.    
    
19.   (princ)
    
20. )

(defun C:TCBJ (/ sg i s1) <br />   (princ "\n填充重生边框，请选择填充图案：")<br />   (setq sg (ssget '((0 . "HATCH"))) i -1)<br />   (while (setq s1 (ssname sg (setq i (1+ i))))<br />     (command "-hatchedit" s1 "b" "p" "y")<br /> (setq ss_bj (ssadd (entlast) ss_bj))    <br />    )<br />    <br />    新建临时图层<br />    将边框选择集放到临时图层 <br />    将边界分解<br />    获得重复线段<br />    删除多余线段<br />    更改界线图层<br />    删除临时图成<br />    然后然后然后<br />    <br />   (princ)<br /> )