（完成）[编程申请]：能不能让 solid 柱子也能直接找出形心

yy225cn · 发表于 2003-5-3 01:19:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

东哥，能不能写个程序，让 solid 柱子也能直接找出形心，这样有了插入点以后，我也能用晓东工具箱的一些桩系列工具了。拜托了哦。

XDSoft · 发表于 2003-5-3 11:29:31

最初由 yy225cn 发布
[B]东哥，能不能写个程序，让 solid 柱子也能直接找出形心，这样有了插入点以后，我也能用晓东工具箱的一些桩系列工具了。拜托了哦。 [/B]

<normalfont>
;|
将封闭的SOLID柱子转换成INSERT柱子，同类截面只生成一个块定义
可以识别多个SOLID组成的一个柱子
使用该命令副作用是可以减小图纸尺寸
|;
(defun c:XDTB_ColSolid2Blk (/ ss j m e cls clyr ptl n pt pj blkname ss1)
(prompt "\n请选取要转换的SOLID柱子实体<退出>:")
(setq j 0)
(if (setq ss (ssget '((0 . "solid"))))
(progn
(xdrx_begin)
(setq j 0
m 0
clyr (xdrx_getlyrname "柱子")
)
(setq ptl (xdrx_searchoutline_all ss))
(xdrx_SysVar_Push "plinetype")
(setvar "plinetype" 2)
(xdrx_setmark)
(foreach n ptl
(setq j (1+ j))
(if (not ($XDLSP_Points_Direction n))
(setq n (reverse n))
)
(setq pt ($XDLSP_Points_Miny->Minx n)
n ($XDLSP_Points_Resort n pt)
)
($XDLSP_Draw_Pline n t)
(setq e (entlast))
(setq pj (xdrx_curve_info e)
pj (cadr (assoc "Centroid" pj))
)
(setq n (reverse (cons (car n) (reverse n)))
n ($XDLSP_Points_GetSeg n)
)
(setq n (mapcar
'(lambda (x)
(strcat (rtos (apply
'distance
x
) 2 0
) "_"
)
)
n
)
)
(setq n (apply
'strcat
n
)
)
(setq blkname (strcat "COLUMN_" (xdrx_string_TrimRight n "_")))
(if (not ($xdlsp_block_isexist blkname))
(progn
(setq ss1 (ssadd))
(ssadd e ss1)
(xdrx_block_make blkname ss1 pj t)
(setq m (1+ m))
)
(progn
(entdel e)
(command ".insert" blkname pj "1" "1" "")
)
)
(xdrx_entity_setlayer (entlast) clyr)
)
($XDLSP_PickSet_Erase ss)
(xdrx_SysVar_Pop)
(xdrx_end)
(if (/= j 0)
(prompt (strcat "\n成功的转换了 " (itoa m) " 种截面类型的 "
(itoa j) " 个Solid柱子"
)
)
(prompt (strcat "\n没有找到SOLID实体."))
)
)
)
(princ)
)
</normalfont>

<normalfont> 
;| 
   将封闭的SOLID柱子转换成INSERT柱子，同类截面只生成一个块定义 
   可以识别多个SOLID组成的一个柱子 
   使用该命令副作用是可以减小图纸尺寸 
|; 
(defun c:XDTB_ColSolid2Blk (/ ss j m e cls clyr ptl n pt pj blkname ss1) 
  (prompt "\n请选取要转换的SOLID柱子实体<退出>:") 
  (setq j 0) 
  (if (setq ss (ssget '((0 . "solid")))) 
    (progn 
      (xdrx_begin) 
      (setq j 0 
            m 0 
            clyr (xdrx_getlyrname "柱子") 
      ) 
      (setq ptl (xdrx_searchoutline_all ss)) 
      (xdrx_SysVar_Push "plinetype") 
      (setvar "plinetype" 2) 
      (xdrx_setmark) 
      (foreach n ptl 
        (setq j (1+ j)) 
        (if (not ($XDLSP_Points_Direction n)) 
          (setq n (reverse n)) 
        ) 
        (setq pt ($XDLSP_Points_Miny->Minx n) 
              n ($XDLSP_Points_Resort n pt) 
        ) 
        ($XDLSP_Draw_Pline n t) 
        (setq e (entlast)) 
        (setq pj (xdrx_curve_info e) 
              pj (cadr (assoc "Centroid" pj)) 
        ) 
        (setq n (reverse (cons (car n) (reverse n))) 
              n ($XDLSP_Points_GetSeg n) 
        ) 
        (setq n (mapcar 
                  '(lambda (x) 
                     (strcat (rtos (apply 
                                     'distance 
                                     x 
                                   ) 2 0 
                             ) "_" 
                     ) 
                   ) 
                  n 
                ) 
        ) 
        (setq n (apply 
                  'strcat 
                  n 
                ) 
        ) 
        (setq blkname (strcat "COLUMN_" (xdrx_string_TrimRight n "_"))) 
        (if (not ($xdlsp_block_isexist blkname)) 
          (progn 
            (setq ss1 (ssadd)) 
            (ssadd e ss1) 
            (xdrx_block_make blkname ss1 pj t) 
            (setq m (1+ m)) 
          ) 
          (progn 
            (entdel e) 
            (command ".insert" blkname pj "1" "1" "") 
          ) 
        ) 
        (xdrx_entity_setlayer (entlast) clyr) 
      ) 
      ($XDLSP_PickSet_Erase ss) 
      (xdrx_SysVar_Pop) 
      (xdrx_end) 
      (if (/= j 0) 
        (prompt (strcat "\n成功的转换了 " (itoa m) " 种截面类型的 " 
                        (itoa j) " 个Solid柱子" 
                ) 
        ) 
        (prompt (strcat "\n没有找到SOLID实体.")) 
      ) 
    ) 
  ) 
  (princ) 
) 
</normalfont>

登录/注册后可看大图

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

yy225cn · 发表于 2003-5-3 12:57:19

东哥简直太了不起了，就帮我写出来了。谢谢哦。:1

aeo · 发表于 2003-5-5 20:46:05

如果那个十字是两条带宽度的pl线画的,也求一下吧!

当然最好是把十字块再回到solid或两带宽度的pl线.

互转.....就那三个形状.

XDSoft · 发表于 2003-5-6 01:18:09

最初由 aeo 发布
[B]如果那个十字是两条带宽度的pl线画的,也求一下吧!

当然最好是把十字块再回到solid或两带宽度的pl线.

互转.....就那三个形状. [/B]

如果十字，为什么要用两个PL画？为什么不用一个？用两个，中间的部分有线，会有人那么画柱子吗？

XDRX_API里面，有个函数，可以求带宽度PL线的外框，生成外框后，用上面的程序，选择集过滤加上POLYLINE识别，就应该能处理的。

你试着写写，相信你能写出来的。

<normalfont>
194. xdrx_search_poly_outline
功能：生成一个POLYLINE的轮廓线
调用格式：(xdrx_search_poly_outline < poly实体或POLY选择集 > [绘制宽度][封端标志])
返回值：成功将轮廓线画出。返回生成的轮廓线的选择集
说明：两个可选参数[绘制宽度][封端标志]，不给，默认宽度0，不管POLY是否闭合，都封端，对于闭合的POLY
也生成封端的轮廓线
[封端标志]：若为T,仅仅对封闭的POLY有效，不封端，将生成不连通的两根轮廓线
</normalfont>

复制代码

walkmanlh · 发表于 2003-6-17 18:23:37

怎么搜索实体的外框呢？

XDSoft · 发表于 2003-6-17 18:27:04

最初由 walkmanlh 发布
[B]怎么搜索实体的外框呢？ [/B]

你说的实体外框是指什么, 具体举个例子说明下

walkmanlh · 发表于 2003-6-17 19:56:15

就是在2002的图中看到的属性是一个实体，想办法得到实体是周围的外框线
就是说建筑图的柱只是一个实体，我要求得到他的外框线，然后把实体删掉。

vacancy · 发表于 2003-6-19 09:46:10

请问XDSOFT：这个转换有限制吗？是否任意层上的solid都可以？还有我copy这个lsp到工具箱的lisp目录下，但是不能自动加载，每次都要用appload加载，这是为什么？

sunhuyi · 发表于 2003-8-14 21:22:19

已经下载附件，但xdtb_colsolid2blk 命令仍不好使，为什麽？
请给我发Email：shy_jl163.com好吗？

账号		自动登录	找回密码
密码			立即注册

（完成）[编程申请]：能不能让 solid 柱子也能直接找出形心

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：能不能让 solid 柱子也能直接找出形心