[LISP程序]：[蜜蜂软体]编号程序For R2002（源代码公开）

ss1025

楼主，还是有问题啊!
命令: yy
桩位自动编号标注程序
选择标注点
[前缀(M):/后缀(E):/字高(H):350/偏移量(O):200/编号(N):1/选择工程桩(Z)]:z
请选择编号方式[统一编号(A)/按承台编号(C)]<统一编号>:
选择对象: 指定对角点: 找到 6 个
选择对象:
正在进行计算,请稍等...
选择标注点
[前缀(M):zh-/后缀(E):/字高(H):350/偏移量(O):500/编号(N):2/选择工程桩(Z)]:

还是不能统一编号，只能选点编号。请楼主再查一下。

netbee

你需要在块名判断的地方进行修改，以能识别自己定义的块。

2. 
   
3. (setq ty (dxf 2 ee))
   
4.             (if (and (= (dxf 0 ee) "INSERT")
   
5.                  (or (= ty "_FZ_K") ;_主要是这里
   
6.                      (= ty "_FZ_S") ;_主要是这里　
   
7.                      (= ty "_YZ_K") ;_主要是这里
   
8.                      (= ty "_YZ_S") ;_主要是这里
   
9.                  ) ;_ 结束or
   
10.                 ) ;_ 结束and
    

<br /> (setq ty (dxf 2 ee)) <br />             (if (and (= (dxf 0 ee) "INSERT") <br />                  (or (= ty "_FZ_K") ;_主要是这里<br />                      (= ty "_FZ_S") ;_主要是这里　<br />                      (= ty "_YZ_K") ;_主要是这里<br />                      (= ty "_YZ_S") ;_主要是这里<br />                  ) ;_ 结束or <br />                 ) ;_ 结束and <br />

你用下面的图试试就明白了。

ss1025

有点明白楼主的意思了。
1、这个桩必须是个块
2、这个块名必须是"_FZ_K"或"_FZ_S"或"_YZ_K"或"_YZ_S"
3、如果要自定义的话，就要把程序中所有的
(if (and (= (dxf 0 ee) "INSERT")
                 (or (= ty "_FZ_K") ;_主要是这里
                     (= ty "_FZ_S") ;_主要是这里　
                     (= ty "_YZ_K") ;_主要是这里
                     (= ty "_YZ_S") ;_主要是这里
语句全部替换成自定义的块。
是不是这样啊，楼主？
那如果我的桩不是块，而是自定义一个图层的话，可以吗？

netbee

对，你只要修改这几句判断的就行。
比如你想自动标注的是在“test”图层上的圆的话则：

1. [color=red](and (= (dxf 0 ee) "CIRCLE")
   
2.         (= (dxf 8 ee) "test")
   
3. )[/color]

复制代码

其实实体过虑的关键是分析你所操作对象的DXF代码，然后提取出来比较即可，符合条件则处理。

ss1025

谢谢楼主指点。
另外，还有一个问题：一般情况下，我们都是桩径相同的桩编成一个号，不知道楼主是怎么区分的。还有，不知道斑竹的程序可以用来编承台号吗？
我在选按承台编号的时候又出错了。
命令:  YY
桩位自动编号标注程序
选择标注点
[前缀(M):/后缀(E):/字高(H):350/偏移量(O):200/编号(N):1/选择工程桩(Z)]:z
请选择编号方式[统一编号(A)/按承台编号(C)]<统一编号>:c
选择承台边线(多义线)：ssget 列表值错误


请斑竹再看一下，谢了。

netbee

肯定会错啦，因为这里*Stake_bx_style*就是一个全局变量，用来保存我的承台边线所在图层的名称，用变量是因为好管理。所以你必须手动的改为你所在的图层才行的。
标注桩径相同的你也只要加入一个相应的判断语句就行。
这个程序不能标注承台号，它只能是将桩位按每个承台进行编号。

(ssget
             (list '(0 . "LWPOLYLINE") (cons 8 *Stake_bx_style*))
           ) ;_ 结束ssget

啵浪鼓

真不错,谢了小蜜蜂!

li809

楼主的程序兼容性不算很好,但修改一下还是很好用的,谢谢

ss1025

最初由 netbee 发布
[B]肯定会错啦，因为这里*Stake_bx_style*就是一个全局变量，用来保存我的承台边线所在图层的名称，用变量是因为好管理。所以你必须手动的改为你所在的图层才行的。
标注桩径相同的你也只要加入一个相应的判断语句就行... [/B]

加一个什么样的判断语句，加在哪里啊？请楼主再指点一下。

yudifei

下载

jx2008

蜜蜂很好，多多支持了