（完成）[编程申请]：批量将PL柱子转换成INSERT实体，XD请进。。。

cnnets

XD你好，能帮忙编个小程吗？急用，先谢了。

功能：标出已施打的群桩的形心

要求：能指定某一图层（如管桩所在的图层）去识别并选择管桩，用“十字形标号”标出位置。（或标出任意多边形的形心吧）

环境：R14＆R15

说明：某一工程施打的管桩严重偏差，大部分为5至18桩的群桩，约有几十个群桩要检算其对原来柱形心的偏差值，手算工作量大且容易出错，希望XD老大能编出来。谢谢了。

XDSoft

最初由 cnnets 发布
[B]XD你好，能帮忙编个小程吗？急用，先谢了。

功能：标出已施打的群桩的形心

要求：能指定某一图层（如管桩所在的图层）去识别并选择管桩，用“十字形标号”标出位置。（或标出任意多边形的形心吧）

环境：R1... [/B]

看看前几天的帖子，已经提供“柱子型心”工具了，你只要把柱子画到 column 层上，就可以了。看看下面帖子。

http://www.xdcad.net/forum/showt ... d=242551#post242551

cnnets

但它不认我的线或圆呀，且还会出错，用不了。在这贴子回复有说明：http://www.xdcad.net/forum/showthre...2551#post242551

XDSoft

最初由 cnnets 发布
[B]但它不认我的线或圆呀，且还会出错，用不了。在这贴子回复有说明：http://www.xdcad.net/forum/showthre...2551#post242551 [/B]

你先把柱子做成INSERT吧，程序要能方便的运行，数据的组织方式是基础，你若是用LINE画，那就没有办法了，如果用封闭的POLYLINE画，可以解决，在CAD里面，实体越单一越好，不只是方便程序判别，自己手工交互编辑也是方便的。

抽空我给大家写一个把“封闭的POLYLINE”，“SOLID”画的柱子转换成INSERT的工具。

如果你现在是用LINE画的，那么先做下准备：

1、用晓东工具箱的图层工具，仅仅把你的柱子层的实体显示，其他关闭。

2、用晓东工具箱曲线工具里面的“线变复线”把所有首尾相连的LINE连接成POLYLINE（你的柱子LINE应该首尾相连吧）

3、用晓东工具箱图层工具，把这些柱子变换到 COLUMN 层上。

然后就等着我提供程序吧。

cnnets

OK，谢谢晓东老大。
另外，下面这个问题能帮忙解决吗？谢谢了。
我用的是R14，使用结构柱子型心绘制和删除工具时：http://www.xdcad.net/forum/attachment.php?s=&postid=255023

XDSoft

最初由 cnnets 发布
[B]OK，谢谢晓东老大。
另外，下面这个问题能帮忙解决吗？谢谢了。
我用的是R14，使用结构柱子型心绘制和删除工具时：http://www.xdcad.net/forum/attachment.php?s=&postid=255023 [/B]

除了错误提示外，

1、柱子型心能正确画出来吗？
2、绘制和删除都出错误提示吗？

尽量用2002吧，能发挥晓东工具箱的最大效力。

XDSoft

2. 
   
3. <normalfont>
   
4. ;|
   
5.    将封闭的PL柱子转换成INSERT柱子，同类截面只生成一个块定义
   
6.    使用该命令副作用是可以减小图纸尺寸
   
7. |;
   
8. (defun c:XDTB_ColPl2Blk (/ $COL_PRO ss j m e cls clyr)
   
9.   (defun $COL_PRO (e / i num blkname pj ss1)
   
10.     (if (xdrx_polyline_isOnlyLines e)
    
11.       (progn
    
12.         (if (not (xdrx_curve_direction e))
    
13.            (xdrx_curve_reverse e)
    
14.         )
    
15.         (setq num (xdrx_polyline_numVerts e)
    
16.               i 0
    
17.               blkname ""
    
18.         )
    
19.         (repeat num
    
20.           (setq blkname (strcat blkname (rtos (apply
    
21.                                                 'distance
    
22.                                                 (xdrx_polyline_getLineSegAt e i)
    
23.                                               ) 2 0
    
24.                                         ) "_"
    
25.                         )
    
26.                 i (1+ i)
    
27.           )
    
28.         )
    
29.         (setq blkname (strcat "COLUMN_" (xdrx_string_TrimRight blkname "_")))
    
30.         (setq pj (xdrx_curve_info e)
    
31.               pj (cadr (assoc "Centroid" pj))
    
32.         )
    
33.         (if (not ($xdlsp_block_isexist blkname))
    
34.           (progn
    
35.             (setq ss1 (ssadd))
    
36.             (ssadd e ss1)
    
37.             (xdrx_block_make blkname ss1 pj t)
    
38.             (setq m (1+ m))
    
39.           )
    
40.           (progn
    
41.             (entdel e)
    
42.             (command ".insert" blkname pj "1" "1" "")
    
43.           )
    
44.         )
    
45.         (xdrx_entity_setlayer (entlast) clyr)
    
46.         (setq j (1+ j))
    
47.       )
    
48.     )
    
49.   )
    
50.   (prompt "\n请选取要转换的封闭的POLYLINE实体<退出>:")
    
51.   (if (setq ss (ssget '((0 . "*polyline"))))
    
52.     (progn
    
53.       (xdrx_begin)
    
54.       (xdrx_setsstodb ss 0)
    
55.       (setq j 0
    
56.             m 0
    
57.             clyr (xdrx_getlyrname "柱子")
    
58.       )
    
59.       (while (setq e (xdrx_getentdata 0))
    
60.         (if (xdrx_curve_isclosed e)
    
61.           (progn
    
62.             (setq cls (xdrx_object_className e))
    
63.             (if (= "POLYLINE" (car cls))
    
64.               (progn
    
65.                 (xdrx_polyline_ConvertFrom e)
    
66.                 (setq e (entlast))
    
67.               )
    
68.             )
    
69.             ($COL_PRO e)
    
70.           )
    
71.         )
    
72.       )
    
73.       (xdrx_end)
    
74.       (if (/= j 0)
    
75.         (prompt (strcat "\n成功的转换了 " (itoa m) " 种截面类型的 "
    
76.                         (itoa j) " 个PLINE柱子"
    
77.                 )
    
78.         )
    
79.         (prompt (strcat "\n没有找到封闭的PLINE实体."))
    
80.       )
    
81.     )
    
82.   )
    
83.   (princ)
    
84. )
    
85. </normalfont>
    

<br /> <normalfont><br /> ;|<br />    将封闭的PL柱子转换成INSERT柱子，同类截面只生成一个块定义<br />    使用该命令副作用是可以减小图纸尺寸<br /> |;<br /> (defun c:XDTB_ColPl2Blk (/ $COL_PRO ss j m e cls clyr)<br />   (defun $COL_PRO (e / i num blkname pj ss1)<br />     (if (xdrx_polyline_isOnlyLines e)<br />       (progn<br />         (if (not (xdrx_curve_direction e))<br />            (xdrx_curve_reverse e)<br />         )<br />         (setq num (xdrx_polyline_numVerts e)<br />               i 0<br />               blkname ""<br />         )<br />         (repeat num<br />           (setq blkname (strcat blkname (rtos (apply<br />                                                 'distance<br />                                                 (xdrx_polyline_getLineSegAt e i)<br />                                               ) 2 0<br />                                         ) "_"<br />                         )<br />                 i (1+ i)<br />           )<br />         )<br />         (setq blkname (strcat "COLUMN_" (xdrx_string_TrimRight blkname "_")))<br />         (setq pj (xdrx_curve_info e)<br />               pj (cadr (assoc "Centroid" pj))<br />         )<br />         (if (not ($xdlsp_block_isexist blkname))<br />           (progn<br />             (setq ss1 (ssadd))<br />             (ssadd e ss1)<br />             (xdrx_block_make blkname ss1 pj t)<br />             (setq m (1+ m))<br />           )<br />           (progn<br />             (entdel e)<br />             (command ".insert" blkname pj "1" "1" "")<br />           )<br />         )<br />         (xdrx_entity_setlayer (entlast) clyr)<br />         (setq j (1+ j))<br />       )<br />     )<br />   )<br />   (prompt "\n请选取要转换的封闭的POLYLINE实体<退出>:")<br />   (if (setq ss (ssget '((0 . "*polyline"))))<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setsstodb ss 0)<br />       (setq j 0<br />             m 0<br />             clyr (xdrx_getlyrname "柱子")<br />       )<br />       (while (setq e (xdrx_getentdata 0))<br />         (if (xdrx_curve_isclosed e)<br />           (progn<br />             (setq cls (xdrx_object_className e))<br />             (if (= "POLYLINE" (car cls))<br />               (progn<br />                 (xdrx_polyline_ConvertFrom e)<br />                 (setq e (entlast))<br />               )<br />             )<br />             ($COL_PRO e)<br />           )<br />         )<br />       )<br />       (xdrx_end)<br />       (if (/= j 0)<br />         (prompt (strcat "\n成功的转换了 " (itoa m) " 种截面类型的 "<br />                         (itoa j) " 个PLINE柱子"<br />                 )<br />         )<br />         (prompt (strcat "\n没有找到封闭的PLINE实体."))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> </normalfont><br />

下载下面附件，拷贝到工具箱LISP目录，用 xdtb_colpl2blk 命令执行。

cnnets

最初由 XDSoft 发布
[B][QUOTE]最初由 cnnets 发布
[B]OK，谢谢晓东老大。
另外，下面这个问题能帮忙解决吗？谢谢了。
我用的是R14，使用结构柱子型心绘制和删除工具时：[url]http://www.xdcad.net/forum/attachment.php?s=&post... [/B]

在我的机上结构柱子型心绘制和删除工具不能用啊，选了柱子后回车就出现上述问题了。另外，现在用某些天正命令时也有时会出再这样，及有时按ESC键时也会出现。我单位全部用R14的，望能帮忙解决？谢谢了。

批量将PL柱子转换成INSERT实体的程序我稍后下载试试。

cnnets

还是不行啊，到底是什么问题呢？“null function”不知是什么函数出错呢？可惜我不太懂LISP，XD老大有空的话，帮忙解决一下，在下深表谢意。

xubenlei

东老大，可以教我一下，怎么在cad 里面显示一根line的长度，和一个实体的高度
是用什么命令，最好是什么快捷键啊，谢谢了？

kxb1979

我装了最新的晓东工具箱，是不是还要到晓东工具箱大事件里面下载每一个附件装上才行吗？

coolzhb

最初由 kxb1979 发布
[B]我装了最新的晓东工具箱，是不是还要到晓东工具箱大事件里面下载每一个附件装上才行吗？ [/B]

因为xd工具箱升级很快，但是在升级前的程序不要在下载了，集合在程序里面了吧！