块与块连线程序求助

st788796 · 发表于 2014-12-2 09:57:39

grs432 发表于 2014-12-2 09:46
另外，询问一下ST老师，在CAD中的编号从1~10这样的序号排列和01~10的排列有区别吗？我在使用好多前缀后缀 ...

按字符串处理即可

_$ (xd::string:strpad 1 2 "0" 0)
"01"
_$ (xd::string:strpad 1 3 "0" 0)
"001"
_$

grs432 · 发表于 2014-12-2 10:08:44

st788796 发表于 2014-12-2 08:39
把

改成

早上我刚测试了导出EXCEL的那个，没有见CAD图纸下有表格生成，我还把原来注释的那段给恢复了，还是没有导出的动作，是函数问题还是我的问题。其实我现在想验证一下，因为第一次程序在没有加载其它参数的时候，我用11.08号的函数库手动加载XD::Excel:createToFile是可以导出表格的，但是我现在换成11.30的函数库，换回去有点麻烦，就先问问您了。。

grs432 · 发表于 2014-12-2 10:37:19

grs432 发表于 2014-12-2 10:08
早上我刚测试了导出EXCEL的那个，没有见CAD图纸下有表格生成，我还把原来注释的那段给恢复了，还是没有导 ...

不知道表格的宽度适应文字的参数怎么调节，还有就是数据取取整数，不要后边的小数，此参数在哪里设置。
QQ截图20141202101653.png

st788796 · 发表于 2014-12-2 10:38:49

grs432 发表于 2014-12-2 10:37
不知道表格的宽度适应文字的参数怎么调节，还有就是数据取取整数，不要后边的小数，此参数在哪里设置。
...

可以生成 xls 的, 11.30 函数库

(defun c:XDTB_CalCircuit (/ ss nl height)
(if (setq ss (ssget '((0 . "text") (-3 ("XDCircuit")))))
(progn
(setq
height (xdrx_getpropertyvalue (ssname ss 0) "height")
nl (mapcar
'(lambda (x / pl)
(if (setq pl (handent (vlax-ldata-get x "Circuit")))
(list (xdrx_getpropertyvalue x "textstring")
(vlax-ldata-get x "Power")
(xdrx_xdata_get x "XDCircuit")
(vlax-ldata-get x "Type")
(vlax-ldata-get x "Power")
(itoa (xdrx_getpropertyvalue pl "numVerts"))
(* (vlax-ldata-get x "Power")
(xdrx_getpropertyvalue pl "numVerts")
)
(vlax-ldata-get x "Position")
" "
" "
)
)
)
(xdrx_pickset->ents ss)
)
nl (cons "统计表"
(cons
'("回路" "控制" "编号" "类型"
"功率" "数量" "总功率" "位置"
"备注" " "
)
(vl-sort nl '(lambda (x1 x2) (< (car x1) (car x2))))
)
)
)
(if (setq p (getpoint "\n插入点<回车显示>: "))
(xd::table:make
(reverse (cons '(" ") (reverse nl)))
p
(* 3 height)
height
)
(foreach x nl
(princ "\n")
(princ x)
)
)
(xd::excel:createToFile
(strcat (getvar "dwgprefix")
(vl-filename-base (getvar "dwgname"))
".xls"
)
(cdr nl)
) ;_写出 excel 文件
(xdrx_system_shellexecute
(strcat (getvar "dwgprefix")
(vl-filename-base (getvar "dwgname"))
".xls"
)
)
)
)
(princ)
)

(defun c:XDTB_CalCircuit (/ ss nl height) 
  (if (setq ss (ssget '((0 . "text") (-3 ("XDCircuit"))))) 
    (progn 
      (setq 
        height (xdrx_getpropertyvalue (ssname ss 0) "height") 
        nl     (mapcar 
                 '(lambda (x / pl) 
                    (if        (setq pl (handent (vlax-ldata-get x "Circuit"))) 
                      (list (xdrx_getpropertyvalue x "textstring") 
                            (vlax-ldata-get x "Power") 
                            (xdrx_xdata_get x "XDCircuit") 
                            (vlax-ldata-get x "Type") 
                            (vlax-ldata-get x "Power") 
                            (itoa (xdrx_getpropertyvalue pl "numVerts")) 
                            (* (vlax-ldata-get x "Power") 
                               (xdrx_getpropertyvalue pl "numVerts") 
                            ) 
                            (vlax-ldata-get x "Position") 
                            " " 
                            " " 
                      ) 
                    ) 
                  ) 
                 (xdrx_pickset->ents ss) 
               ) 
        nl     (cons "统计表" 
                     (cons 
                       '("回路"           "控制"    "编号"    "类型" 
                         "功率"           "数量"    "总功率"  "位置" 
                         "备注"           " " 
                        ) 
                       (vl-sort nl '(lambda (x1 x2) (< (car x1) (car x2)))) 
                     ) 
               ) 
      ) 
      (if (setq p (getpoint "\n插入点<回车显示>: ")) 
        (xd::table:make 
          (reverse (cons '(" ") (reverse nl))) 
          p 
          (* 3 height) 
          height 
        ) 
        (foreach x nl 
          (princ "\n") 
          (princ x) 
        ) 
      ) 
      (xd::excel:createToFile 
        (strcat        (getvar "dwgprefix") 
                (vl-filename-base (getvar "dwgname")) 
                ".xls" 
        ) 
        (cdr nl) 
      ) ;_写出 excel 文件 
      (xdrx_system_shellexecute 
        (strcat        (getvar "dwgprefix") 
                (vl-filename-base (getvar "dwgname")) 
                ".xls" 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

grs432 · 发表于 2014-12-2 11:29:27

st788796 发表于 2014-12-2 09:57
按字符串处理即可

_$ (xd::string:strpad 1 2 "0" 0)

         (setq str (getstring "\n前缀: " ))
         (setq num (getint "\n编号: ") )
         (xd::string:strpad num 2 "0" 0))
   )
编号前加0我自弄了会，怎么加都不对，还是基础不好。

grs432 · 发表于 2014-12-2 11:32:06

st788796 发表于 2014-12-2 10:38
可以生成 xls 的, 11.30 函数库

现在测试没有问题了，我是11.30下的函数库，刚查看了建立时间11.29的，现在更新11.30的没有问题了。只是表格还是上边的文字和表格不适应，且我想将数据保留整数。。

st788796 · 发表于 2014-12-2 11:32:32

grs432 发表于 2014-12-2 11:29
(setq str (getstring "\n前缀: " ))
(setq num (getint "\n编号: ") )
...

不是这样用的,只要在 text_make 时用这个函数即可

st788796 · 发表于 2014-12-2 11:34:58

grs432 发表于 2014-12-2 11:32
现在测试没有问题了，我是11.30下的函数库，刚查看了建立时间11.29的，现在更新11.30的没有问题了。只是 ...

字体设置原因，自己设置一个字体样式，同时在 tablestyle 中将表格文字设置为当前字体样式，正在考虑用 api 写一个创建自定义 tablestyle

grs432 · 发表于 2014-12-2 14:12:33

st788796 发表于 2014-12-2 11:32
不是这样用的,只要在 text_make 时用这个函数即可

xdrx_text_make <基点> <字符串> <字高><转角> )要添加这个(xd::string:strpad num 2 "0" 0))
程序中如下的位置（不知道我指的位置对不？）

(setq txt (xdrx_text_make
p1
(strcase str)
(distof (dcl_control_gettext huilu_form1_height))
0.0

想实现序号前加0
加一下调试一下，弄了半天，还是不知道怎么加呢？ST大，指点一下。{:soso_e127:}{:soso_e127:}{:soso_e127:}

st788796 · 发表于 2014-12-2 17:02:07

grs432 发表于 2014-12-2 14:12
xdrx_text_make )要添加这个(xd::string:strpad num 2 "0" 0))
程序中如下的位置（不知道我指的 ...

http://bbs.xdcad.net/thread-677386-1-1.html

绘制、创建、统计合到一起了

grs432 · 发表于 2014-12-2 17:32:59

st788796 发表于 2014-12-2 17:02
http://bbs.xdcad.net/thread-677386-1-1.html

绘制、创建、统计合到一起了

我现在去测试一下，现在应该接近完美的工具呀！！{:soso_e113:}辛苦了ST老师这么长时间了。。{:soso_e183:}{:soso_e179:}{:soso_e181:}
忘记问ST老师了，以前我说了有个过滤层前缀名的那个选项，是否考虑加一下，比名图层名前缀为XXX，这样子在图层那个位置显示的图层会少一些，比较好选择。。{:soso_e100:}

st788796 · 发表于 2014-12-2 17:43:39

grs432 发表于 2014-12-2 17:32
我现在去测试一下，现在应该接近完美的工具呀！！辛苦了ST老师这么长时间了。。{:soso_e183 ...

这个你要有具体要求，我可不知道你们的层名设置

grs432 · 发表于 2014-12-2 17:54:26

st788796 发表于 2014-12-2 17:43
这个你要有具体要求，我可不知道你们的层名设置

就是UI边上加一列过滤前缀名吧！可以自定义，，我个人觉得这样子通用吧！下图UI有点丑，我就是示意一下，别在意呀！！其实这个功能加不加不影响用，加了会方便些。{:soso_e123:}

QQ截图20141202175230.png

st788796 · 发表于 2014-12-2 20:23:42

grs432 发表于 2014-12-2 17:54
就是UI边上加一列过滤前缀名吧！可以自定义，，我个人觉得这样子通用吧！下图UI有点丑，我就是示意一下， ...

过滤不是这样写，这样的话还是固定的，如果需要输入前缀，前面应该用 textbox

另外使用过滤就不能用 layer 样式，只能用 List

grs432 · 发表于 2014-12-2 20:40:39

st788796 发表于 2014-12-2 20:23
过滤不是这样写，这样的话还是固定的，如果需要输入前缀，前面应该用 textbox

另外使用过滤就不能用 l ...

您说的对，我弄错了。前面是个txtbox，写过滤前缀名，后边是显示层的list。这样子应该对吧！！不用加开启过滤开关。

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

[已解决] 块与块连线程序求助

点评

点评

点评

点评