块与块连线程序求助

grs432 · 发表于 2014-12-1 12:27:40

st788796 发表于 2014-12-1 11:42
加入控制语句才能使用，还有这几个数据的默认值如何使用？
需使用1130的lisp函数库，词典位于 support ...

测试中，控制的选项是没有写到图层上的。

st788796 · 发表于 2014-12-1 12:41:07

grs432 发表于 2014-12-1 12:12
我似乎看到了麻烦，XDTB_CalCircuit的统计程序是不是也要重写呀！唉！老这样子的让st788796老师给改来改 ...

统计只需要稍微改动几句即可，另外增加的几个参数需要记录到文字

st788796 · 发表于 2014-12-1 12:44:54

grs432 发表于 2014-12-1 12:27
测试中，控制的选项是没有写到图层上的。

这个和有必要编号要分开写吗？

grs432 · 发表于 2014-12-1 13:25:59

st788796 发表于 2014-12-1 12:44
这个和有必要编号要分开写吗？

哦。。没事的，这个不必写到图层了。这个用的不多的。那控制那个位置打勾是控制写到表格中的吗？？

st788796 · 发表于 2014-12-1 13:47:10

grs432 发表于 2014-12-1 13:25
哦。。没事的，这个不必写到图层了。这个用的不多的。那控制那个位置打勾是控制写到表格中的吗？？

这些得问自己呀！我哪懂这些参数的意义以及你下一步要怎么做！

grs432 · 发表于 2014-12-1 15:08:55

st788796 发表于 2014-12-1 13:47
这些得问自己呀！我哪懂这些参数的意义以及你下一步要怎么做！

{:soso_e112:}{:soso_e112:}，st788796老师不好意思呀！我理解错了！那UI为下图中就够用了。编组边上的图层功能为自己指定回路号的图层，图层请设定只显示前缀名为“XXX”的图层，编组的开关目前测试不可用。
QQ截图20141201145228.png

表格导出的形式如下，总功率是数量和功率的积，备注是单列的一项。
QQ截图20141201145242.png

st788796老师费心了，现在这个工具算是OK了，应该不会再做增加了。
经过这些的论坛上的交流，我觉得沟通表达真的是很重要，我这方面欠缺不少，后期有问题的话，我会尽量用贴合你们的方式表达。

st788796 · 发表于 2014-12-1 15:27:42

grs432 发表于 2014-12-1 15:08
，st788796老师不好意思呀！我理解错了！那UI为下图中就够用了。编组边上的图 ...

你还没有说清楚，连线后写字还需要加入其它的吗？

统计表中的回路、编号和写的字什么关系？前缀就是回路（是不是都是字母没有数字）？如果前缀（回路）和编号一体了，在导出表格时需要一个规则将其分开？

后面四个参数是必选项吗？

grs432 · 发表于 2014-12-1 15:35:29

本帖最后由 grs432 于 2014-12-1 15:36 编辑

st788796 发表于 2014-12-1 15:27
你还没有说清楚，连线后写字还需要加入其它的吗？

统计表中的回路、编号和写的字什么关系？前缀就 ...

完了，我又误导您了。。{:soso_e118:}{:soso_e135:}，见谅呀！对应的如下图所示。
QQ截图20141201153250.png

总功率是数量和功率的积，备注是多加的一列，以后导出表后手动加东西。

st788796 · 发表于 2014-12-1 16:29:15

grs432 发表于 2014-12-1 15:35
完了，我又误导您了。。，见谅呀！对应的如下图所示。

总功率是数量和功率 ...

试试

(defun c:XDTB_DrawCircuit (/ myerr _Odcl_AddList olderr
tf str num allpres maxnums
cPrefix p pts p d
pl pl1 p1 str tf
strl tf1 tf3 tf2 txt
blklst blk circuitdict cpower
cposition ctype ccontrol lyr
)
(defun myerr (msg)
(princ "\n*cancel*")
(setq *error* olderr)
(if (dcl_form_isactive huilu_form1)
(dcl_form_close huilu_form1)
)
(xdrx_sysvar_pop)
(princ)
)
(defun _Excel:getFromFile (fn / lst)
(setq lst (xd::excel:getFromFile (findfile fn) 0)
lst (mapcar '(lambda (x)
(mapcar '(lambda (a)
(cadr a)
)
x
)
)
lst
)
)
(list (mapcar 'car lst)
(mapcar 'cadr lst)
(mapcar 'caddr lst)
(mapcar 'cadddr lst)
)
)
(defun _Odcl_AddList (/)
(dcl_ComboBox_AddList huilu_Form1_allPre allPres)
(dcl_combobox_setcursel
huilu_Form1_allPre
(vl-position
(vlax-ldata-get "XD_Circuit_Dict" "cPrefix")
allPres
)
)
)
(defun c:huilu_Form1_OnInitialize (/ lst)
(dcl_combobox_addlist
huilu_form1_type
(mapcar 'vl-princ-to-string
(cdr (assoc "类型" circuitdict))
)
)
(dcl_combobox_setcursel huilu_form1_type 0)
(dcl_combobox_addlist
huilu_form1_power
(mapcar 'vl-princ-to-string
(cdr (assoc "功率" circuitdict))
)
)
(dcl_combobox_setcursel huilu_form1_power 0)
(dcl_combobox_addlist
huilu_form1_position
(mapcar 'vl-princ-to-string
(cdr (assoc "位置" circuitdict))
)
)
(dcl_combobox_setcursel huilu_form1_position 0)
(dcl_combobox_addlist
huilu_form1_control
(mapcar 'vl-princ-to-string
(cdr (assoc "控制" circuitdict))
)
)
(dcl_combobox_setcursel huilu_form1_control 0)
(apply 'dcl_control_setpos
(cons huilu_form1 (last (xdrx_document_pixelbox)))
)
(_Odcl_AddList)
(dcl_control_settext
huilu_form1_numCur
(itoa (vlax-ldata-get
"XD_Circuit_Dict"
(vlax-ldata-get "XD_Circuit_Dict" "cPrefix")
)
)
)
(dcl_control_settext
huilu_form1_strPre
(vlax-ldata-get "XD_Circuit_Dict" "cPrefix")
)
(dcl_combobox_setcursel
huilu_form1_layer
(vl-position
(getvar "clayer")
(mapcar 'car (xd::object:get "layer"))
)
)
(dcl_Control_SetJustification huilu_Form1_height 1)
(dcl_control_settext huilu_form1_height "2.5")
)
(defun c:huilu_Form1_strPre_OnEditChanged (NewValue /)
(if (not (member newvalue allPres))
(progn
(setq allPres (acad_strlsort (cons newvalue allPres)))
(vlax-ldata-put "XD_Circuit_Dict" newvalue 1)
(_Odcl_AddList)
(dcl_control_settext huilu_form1_numCur "1")
(vlax-ldata-put "XD_Circuit_Dict" "cPrefix" newvalue)
)
)
)
(defun c:huilu_Form1_numCur_OnEditChanged (NewValue /)
(vlax-ldata-put
"XD_Circuit_Dict"
(dcl_control_gettext huilu_form1_strPre)
(atoi newvalue)
)
)
(defun c:huilu_Form1_allPre_OnSelChanged (ItemIndexOrCount Value /)
(dcl_control_settext huilu_form1_strPre value)
(dcl_control_settext
huilu_form1_numCur
(vlax-ldata-get "XD_Circuit_Dict" value)
)
(vlax-ldata-put "XD_Circuit_Dict" "cPrefix" value)
)
(setq strl
'("YWt6AyFCAAA5JLYRBuKT5TcSYjtq+IEPwsr3zfz9Nya4z3f/np4DX25f/DNeDxISP24/9In7Br0I"
"HO0+8j78Nni8+/5ybKKevmxaSA8eT2KeuO999AI6/O5lXujmiRT4l9Sp2LnTl/Kl2LmU54DVxNXV"
"lcORKwsLB6OCuwe6ydJAYjtBeJZFfJ7FYl7pCVbVxnQLVj1JVK4/wQtWP0XULvAwpNU6addkpJXe"
"6jTLKTUFo4opMNRkQwo4WRMjzzWzDfeb2jSXliyE090hUM/ktJIvWyiuK8biRKRV2eJsNFHdoRBU"
"2eSwl9hVKq4Ra4zP5HWb9NDYcyUeO+7/hvkR1X+9Zrte4xGD85IGOPoxzCBthOauufvgaYR531ly"
"w8dtybwQqr3OFQxmM2a8Q8qLHeLICETcYbmXwNLpO+exd+NjT4vhXAEslhHOj6Go9kn1q/wyFmEV"
"NEvhhII2qM8Y7xuaEcqNQR/DVBzggc/j0Yr5PAFaink8gVuULRpmTo2ifWngQQmEje2oyThE0pMI"
"R7PK2WL/FQB72UZiX8X/ZMHj5OGjrGQ2Ii3rH2NvBE4vCJopEO0f74H2rnVKDXjSulNLpyujsESl"
"1iS4EpU2yQvno3ICzr1yPbhHB/MWO+rIQMTff4T1nFCEkEuyC/SxtWmYFciLVdKRzUsppsQgln3I"
"QLUE4U6hAN9l+8ApFjqyheoYwz/K/RiYad/nB2PZxufHUjvNGhDkhNOLzZfnPZdO8xQUs0oFXdgX"
"oD7OM41oFeHXLNiYZNIfy60flIMalnCruBqUQm+GzDreAjGawV2KxTzBU8qhbx0k6gFADxFPA69A"
"IMuLUZyC4e8dlhwPgHvFQFRBd3TMbbZqUNDfjHLib/Ivz7D0PoDADmnBToSq0LUH0NX4qwRQGflW"
"Kb1SYVgYxXoYO9IBbBDRH8lrWAgZnn0IYE5V/vi7JDAPvdyiMc3JvxeIuGgyx+cjl0rm43365acH"
"Nt7lg0gfiJxaGKF5rZL9NsGnvXaZYJ9sJlb5Cb3cvDFS1J66nPDwoqCbbnPHcwpSCHVSyFu/HHJY"
"aIt2z3ZSaKnODL3cjCxxbDBCQAMORx5PdW31aR4cD3K/YVr6JlJs9RUnxx8vm1loOZ66nIvoGbmA"
"cSaicG31bXbPdlJoqc8MvdykMVLkz77NO63ulc07Ls6GbFho2R8cT38JUmD69ztlPFJ89Tvq62Vo"
"SwAcL31ZaBEIKMlSeVIsk1Ng+/e7o3bPdlJo+9KiztaLbXXgiewmYkKKg7IMvpx15iaOVXNj9TfG"
"HU99bXVgwPgmem71IqSnvtSq/zvFjNgY8ox1obvB3NQeE6fQu/klGwgAaQIKD7Pbq+KHZy8QQ4zy"
"DEtpUfuXnC+kzUi7oLFZ8IE03tRf3iBbK/eCPJ/cRUtp8MZdTXxt58OOf+dqIOtXugX7NdDDunZi"
"aps1WqhlxK4Tk/yQwM/rctO0BYiuZ5PaBDcLvwQGd96dVQx6uBB5Ch1m2WRRcMQl+o3rgIn090E6"
"IdsQO/2IX6jXwF+nni1BK1XQ1T/QnMT6AvnG0RruoVJeV2+EWA+DGj++e4Sh2aLfEf53g1YC/sAw"
"qqlViszhMqhR5D8f1WXqxAW53tJZdgcH776skb6sX5QCNBZnBsTtetwp+zANZs8EspVbvPSUkOIf"
"G/ZSTzYTAuokQDuF+MiPFuVK+I/ZnhFmKR3JTvJZc52Ujzh1nZSPGfe9BlxaIrBXsO6+iJVZxYsv"
"jnM9vPRzd4JCnRk2Jvse+vpH5l8/Q0CHZmyqcjd0X59b5l/fdjVlbKRucXeSxikMtPPwO5bDSkRm"
"2E+89g2QGrO05IWORLPZf9voykSoawADTGOtCHU8nB8HED+6oxerNBWzF92OvxebYrpIf8t5WZgP"
"Phyk1F7oXOMG/mBdYN1IY3OEkjuEBd+7MZzXID3lui1VaX1G9yl1rZ/r/QXmui1wkUD36cX5HJxe"
"RJaFMKRYB2vJ+RfDyl6bf99Z318Ka9lGbrRiWf44wrOEQHNS9SehR1JOEo6eThQmnp3SEWrYBVYJ"
"JzyJFh1juDNdEFgOp7K0p53yLibm9otG9XnYcV9OjwQFfBhpMh7gPnYyHv+nvLR/8ru+8ruB1wpm"
"PSDOR/5u5QbDQx8NQTISRG8cbSYS0BibvljZLb9M0GCseSicVYdHenXk3sPsET128/r4QYF+HABv"
"7A=="
)
)
(if (and (not (setq tf (vlax-ldata-list "XD_Circuit_Dict")))
(progn
(princ "\n**当前图形未包含初始数据**")
t
)
(setq str (getstring "\n前缀: "))
(setq num (getint "\n编号: "))
)
(progn
(vlax-ldata-put "XD_Circuit_Dict" str num)
(vlax-ldata-put "XD_Circuit_Dict" "cPrefix" str)
(setq tf t)
)
)
(if tf
(progn
(setq
allPres (acad_strlsort
(vl-remove-if
'(lambda (x) (= x "cPrefix"))
(mapcar 'car (vlax-ldata-list "XD_Circuit_Dict"))
)
)
circuitdict (_excel:getfromfile "circuitdict.xls")
)
(dcl_project_import strl)
(dcl_form_show huilu_form1)
(setq olderr *error*
*error* myerr
tf1 t
)
(xdrx_sysvar_push '("osmode" 64))
(while (and tf1
(dcl_form_isactive huilu_form1)
)
(setq tf2 t
pts nil
pl nil
blklst nil
)
(while
(and tf2
(progn
(initget 128 "E U")
(setq
p (if pts
(getpoint (car pts) "\r下一点[回退(U)/退出(E)]: ")
(getpoint "\r起点[退出(E)]: ")
)
)
)
(dcl_form_isactive huilu_form1)
)
(if (listp p)
(progn
(setq pts (cons p pts))
(if (= (length pts) 2)
(progn
(setq p (getpoint (apply 'xdrx_line_midp pts) "\n弦高: ")
d (* 2
(xdrx_point_dist2line p (cadr pts) (car pts))
)
)
(setq pl (xdrx_polyline_make (cadr pts) (car pts)))
(xdrx_polyline_setbulgeat
pl
0
(/ d (apply 'distance pts))
)
)
)
(if (setq ss (xdrx_pickset_getatpoint
(car pts)
'((0 . "insert"))
)
)
(setq blklst (mapcar '(lambda (x)
(car (xdrx_getpropertyvalue
x
"BlockTableRecord"
)
)
)
(xdrx_pickset->ents ss)
)
)
)
(if (and pl (> (length pts) 2))
(progn (setq n (xdrx_polyline_numverts pl))
(xdrx_polyline_setpointat pl (1- n) (car pts))
(xdrx_polyline_addvertexat pl (1- n) (cadr pts))
(xdrx_polyline_setbulgeat
pl
(- n 2)
(/ d (distance (cadr pts) (caddr pts)))
)
(xdrx_polyline_setbulgeat
pl
(1- n)
(/ d (distance (car pts) (cadr pts)))
)
)
)
(setq tf3 t)
)
(cond
((= p "E")
(setq tf1 nil
tf2 nil
)
)
((= p "U")
(if pl
(progn (xdrx_polyline_removevertexat
pl
(1- (xdrx_polyline_numverts pl))
)
(setq pts (cdr pts))
)
)
(setq tf3 nil)
)
(t
(setq tf2 nil
tf3 t
)
)
)
)
)
(if (and tf1
tf3
pl
(dcl_form_isactive huilu_form1)
(if (setq p (getpoint "\n引出点<回车端点>: "))
(progn (setq tf nil) p)
(setq tf t
p (xdrx_curve_getendpoint pl)
)
)
(setq p1 (getpoint p "\n标注点: "))
(dcl_form_isactive huilu_form1)
(setq str
(strcat (dcl_control_gettext huilu_form1_strPre)
(dcl_control_gettext huilu_form1_numCur)
)
)
)
(progn
(setq ctype (nth (dcl_combobox_getcursel huilu_form1_type)
(cdr (assoc "类型" circuitdict))
)
cposition (nth
(dcl_combobox_getcursel huilu_form1_position)
(cdr (assoc "位置" circuitdict))
)
cpower (nth (dcl_combobox_getcursel huilu_form1_power)
(cdr (assoc "功率" circuitdict))
)
ccontrol (nth (dcl_combobox_getcursel huilu_form1_control)
(cdr (assoc "控制" circuitdict))
)
)
(setq txt (xdrx_text_make
p1
(strcase str)
(distof (dcl_control_gettext huilu_form1_height))
0.0
)
pl1 (xdrx_polyline_make p p1)
)
(vlax-ldata-put txt "Type" ctype)
(vlax-ldata-put txt "Power" cpower)
(vlax-ldata-put txt "Control" ccontrol)
(vlax-ldata-put txt "Position" cposition)
(if
(/= (setq
lyr (nth (dcl_combobox_getcursel huilu_form1_layer)
(dcl_control_getlist huilu_form1_layer)
)
)
(getvar "clayer")
)
(xdrx_entity_setlayer txt lyr)
)
(xdrx_polyline_setbulgeat pl1 0 0.5)
(if (and blklst (apply '= blklst))
(xdrx_xdata_setbyproperty
txt
"XDCircuit"
"String"
(car blklst)
)
(if (setq
blk
(car (xdrx_entsel
"\n拾取图块或文字: "
'((0 . "insert,*text"))
)
)
)
(xdrx_xdata_setbyproperty
txt
"XDCircuit"
"String"
(if (= (xdrx_getpropertyvalue blk "IsA")
"AcDbBlockReference"
)
(car (xdrx_getpropertyvalue blk "BlockTableRecord"))
(xdrx_getpropertyvalue blk "textString")
)
)
)
)
(if (= (dcl_control_getvalue huilu_form1_group) 1)
(xdrx_group_make "*" pl txt pl1)
)
(vlax-ldata-put
txt
"Circuit"
(xdrx_getpropertyvalue pl "Handle")
)
(vlax-ldata-put
"XD_Circuit_Dict"
(dcl_control_gettext huilu_form1_strPre)
(1+ (atoi (dcl_control_gettext huilu_form1_numCur)))
)
(dcl_control_settext
huilu_form1_numCur
(itoa (vlax-ldata-get
"xd_circuit_dict"
(dcl_control_gettext huilu_form1_strPre)
)
)
)
)
)
)
(dcl_form_close huilu_form1)
(xdrx_sysvar_pop)
(setq *error* olderr)
)
)
(princ)
)

(defun c:XDTB_DrawCircuit (/            myerr    _Odcl_AddList     olderr 
                           tf            str             num      allpres  maxnums 
                           cPrefix  p             pts      p               d 
                           pl            pl1             p1              str      tf 
                           strl            tf1             tf3      tf2      txt 
                           blklst   blk             circuitdict       cpower 
                           cposition             ctype    ccontrol lyr 
                          ) 
  (defun myerr (msg) 
    (princ "\n*cancel*") 
    (setq *error* olderr) 
    (if        (dcl_form_isactive huilu_form1) 
      (dcl_form_close huilu_form1) 
    ) 
    (xdrx_sysvar_pop) 
    (princ) 
  ) 
  (defun _Excel:getFromFile (fn / lst) 
    (setq lst (xd::excel:getFromFile (findfile fn) 0) 
          lst (mapcar '(lambda (x) 
                         (mapcar '(lambda (a) 
                                    (cadr a) 
                                  ) 
                                 x 
                         ) 
                       ) 
                      lst 
              ) 
    ) 
    (list (mapcar 'car lst) 
          (mapcar 'cadr lst) 
          (mapcar 'caddr lst) 
          (mapcar 'cadddr lst) 
    ) 
  ) 
  (defun _Odcl_AddList (/) 
    (dcl_ComboBox_AddList huilu_Form1_allPre allPres) 
    (dcl_combobox_setcursel 
      huilu_Form1_allPre 
      (vl-position 
        (vlax-ldata-get "XD_Circuit_Dict" "cPrefix") 
        allPres 
      ) 
    ) 
  ) 
  (defun c:huilu_Form1_OnInitialize (/ lst) 
    (dcl_combobox_addlist 
      huilu_form1_type 
      (mapcar 'vl-princ-to-string 
              (cdr (assoc "类型" circuitdict)) 
      ) 
    ) 
    (dcl_combobox_setcursel huilu_form1_type 0) 
    (dcl_combobox_addlist 
      huilu_form1_power 
      (mapcar 'vl-princ-to-string 
              (cdr (assoc "功率" circuitdict)) 
      ) 
    ) 
    (dcl_combobox_setcursel huilu_form1_power 0) 
    (dcl_combobox_addlist 
      huilu_form1_position 
      (mapcar 'vl-princ-to-string 
              (cdr (assoc "位置" circuitdict)) 
      ) 
    ) 
    (dcl_combobox_setcursel huilu_form1_position 0) 
    (dcl_combobox_addlist 
      huilu_form1_control 
      (mapcar 'vl-princ-to-string 
              (cdr (assoc "控制" circuitdict)) 
      ) 
    ) 
    (dcl_combobox_setcursel huilu_form1_control 0) 
    (apply 'dcl_control_setpos 
           (cons huilu_form1 (last (xdrx_document_pixelbox))) 
    ) 
    (_Odcl_AddList) 
    (dcl_control_settext 
      huilu_form1_numCur 
      (itoa (vlax-ldata-get 
              "XD_Circuit_Dict" 
              (vlax-ldata-get "XD_Circuit_Dict" "cPrefix") 
            ) 
      ) 
    ) 
    (dcl_control_settext 
      huilu_form1_strPre 
      (vlax-ldata-get "XD_Circuit_Dict" "cPrefix") 
    ) 
    (dcl_combobox_setcursel 
      huilu_form1_layer 
      (vl-position 
        (getvar "clayer") 
        (mapcar 'car (xd::object:get "layer")) 
      ) 
    ) 
    (dcl_Control_SetJustification huilu_Form1_height 1) 
    (dcl_control_settext huilu_form1_height "2.5") 
  ) 
  (defun c:huilu_Form1_strPre_OnEditChanged (NewValue /) 
    (if        (not (member newvalue allPres)) 
      (progn 
        (setq allPres (acad_strlsort (cons newvalue allPres))) 
        (vlax-ldata-put "XD_Circuit_Dict" newvalue 1) 
        (_Odcl_AddList) 
        (dcl_control_settext huilu_form1_numCur "1") 
        (vlax-ldata-put "XD_Circuit_Dict" "cPrefix" newvalue) 
      ) 
    ) 
  ) 
  (defun c:huilu_Form1_numCur_OnEditChanged (NewValue /) 
    (vlax-ldata-put 
      "XD_Circuit_Dict" 
      (dcl_control_gettext huilu_form1_strPre) 
      (atoi newvalue) 
    ) 
  ) 
  (defun c:huilu_Form1_allPre_OnSelChanged (ItemIndexOrCount Value /) 
    (dcl_control_settext huilu_form1_strPre value) 
    (dcl_control_settext 
      huilu_form1_numCur 
      (vlax-ldata-get "XD_Circuit_Dict" value) 
    ) 
    (vlax-ldata-put "XD_Circuit_Dict" "cPrefix" value) 
  ) 
  (setq        strl 
         '("YWt6AyFCAAA5JLYRBuKT5TcSYjtq+IEPwsr3zfz9Nya4z3f/np4DX25f/DNeDxISP24/9In7Br0I" 
           "HO0+8j78Nni8+/5ybKKevmxaSA8eT2KeuO999AI6/O5lXujmiRT4l9Sp2LnTl/Kl2LmU54DVxNXV" 
           "lcORKwsLB6OCuwe6ydJAYjtBeJZFfJ7FYl7pCVbVxnQLVj1JVK4/wQtWP0XULvAwpNU6addkpJXe" 
           "6jTLKTUFo4opMNRkQwo4WRMjzzWzDfeb2jSXliyE090hUM/ktJIvWyiuK8biRKRV2eJsNFHdoRBU" 
           "2eSwl9hVKq4Ra4zP5HWb9NDYcyUeO+7/hvkR1X+9Zrte4xGD85IGOPoxzCBthOauufvgaYR531ly" 
           "w8dtybwQqr3OFQxmM2a8Q8qLHeLICETcYbmXwNLpO+exd+NjT4vhXAEslhHOj6Go9kn1q/wyFmEV" 
           "NEvhhII2qM8Y7xuaEcqNQR/DVBzggc/j0Yr5PAFaink8gVuULRpmTo2ifWngQQmEje2oyThE0pMI" 
           "R7PK2WL/FQB72UZiX8X/ZMHj5OGjrGQ2Ii3rH2NvBE4vCJopEO0f74H2rnVKDXjSulNLpyujsESl" 
           "1iS4EpU2yQvno3ICzr1yPbhHB/MWO+rIQMTff4T1nFCEkEuyC/SxtWmYFciLVdKRzUsppsQgln3I" 
           "QLUE4U6hAN9l+8ApFjqyheoYwz/K/RiYad/nB2PZxufHUjvNGhDkhNOLzZfnPZdO8xQUs0oFXdgX" 
           "oD7OM41oFeHXLNiYZNIfy60flIMalnCruBqUQm+GzDreAjGawV2KxTzBU8qhbx0k6gFADxFPA69A" 
           "IMuLUZyC4e8dlhwPgHvFQFRBd3TMbbZqUNDfjHLib/Ivz7D0PoDADmnBToSq0LUH0NX4qwRQGflW" 
           "Kb1SYVgYxXoYO9IBbBDRH8lrWAgZnn0IYE5V/vi7JDAPvdyiMc3JvxeIuGgyx+cjl0rm43365acH" 
           "Nt7lg0gfiJxaGKF5rZL9NsGnvXaZYJ9sJlb5Cb3cvDFS1J66nPDwoqCbbnPHcwpSCHVSyFu/HHJY" 
           "aIt2z3ZSaKnODL3cjCxxbDBCQAMORx5PdW31aR4cD3K/YVr6JlJs9RUnxx8vm1loOZ66nIvoGbmA" 
           "cSaicG31bXbPdlJoqc8MvdykMVLkz77NO63ulc07Ls6GbFho2R8cT38JUmD69ztlPFJ89Tvq62Vo" 
           "SwAcL31ZaBEIKMlSeVIsk1Ng+/e7o3bPdlJo+9KiztaLbXXgiewmYkKKg7IMvpx15iaOVXNj9TfG" 
           "HU99bXVgwPgmem71IqSnvtSq/zvFjNgY8ox1obvB3NQeE6fQu/klGwgAaQIKD7Pbq+KHZy8QQ4zy" 
           "DEtpUfuXnC+kzUi7oLFZ8IE03tRf3iBbK/eCPJ/cRUtp8MZdTXxt58OOf+dqIOtXugX7NdDDunZi" 
           "aps1WqhlxK4Tk/yQwM/rctO0BYiuZ5PaBDcLvwQGd96dVQx6uBB5Ch1m2WRRcMQl+o3rgIn090E6" 
           "IdsQO/2IX6jXwF+nni1BK1XQ1T/QnMT6AvnG0RruoVJeV2+EWA+DGj++e4Sh2aLfEf53g1YC/sAw" 
           "qqlViszhMqhR5D8f1WXqxAW53tJZdgcH776skb6sX5QCNBZnBsTtetwp+zANZs8EspVbvPSUkOIf" 
           "G/ZSTzYTAuokQDuF+MiPFuVK+I/ZnhFmKR3JTvJZc52Ujzh1nZSPGfe9BlxaIrBXsO6+iJVZxYsv" 
           "jnM9vPRzd4JCnRk2Jvse+vpH5l8/Q0CHZmyqcjd0X59b5l/fdjVlbKRucXeSxikMtPPwO5bDSkRm" 
           "2E+89g2QGrO05IWORLPZf9voykSoawADTGOtCHU8nB8HED+6oxerNBWzF92OvxebYrpIf8t5WZgP" 
           "Phyk1F7oXOMG/mBdYN1IY3OEkjuEBd+7MZzXID3lui1VaX1G9yl1rZ/r/QXmui1wkUD36cX5HJxe" 
           "RJaFMKRYB2vJ+RfDyl6bf99Z318Ka9lGbrRiWf44wrOEQHNS9SehR1JOEo6eThQmnp3SEWrYBVYJ" 
           "JzyJFh1juDNdEFgOp7K0p53yLibm9otG9XnYcV9OjwQFfBhpMh7gPnYyHv+nvLR/8ru+8ruB1wpm" 
           "PSDOR/5u5QbDQx8NQTISRG8cbSYS0BibvljZLb9M0GCseSicVYdHenXk3sPsET128/r4QYF+HABv" 
           "7A==" 
          ) 
  ) 
  (if (and (not (setq tf (vlax-ldata-list "XD_Circuit_Dict"))) 
           (progn 
             (princ "\n**当前图形未包含初始数据**") 
             t 
           ) 
           (setq str (getstring "\n前缀: ")) 
           (setq num (getint "\n编号: ")) 
      ) 
    (progn 
      (vlax-ldata-put "XD_Circuit_Dict" str num) 
      (vlax-ldata-put "XD_Circuit_Dict" "cPrefix" str) 
      (setq tf t) 
    ) 
  ) 
  (if tf 
    (progn 
      (setq 
        allPres            (acad_strlsort 
                      (vl-remove-if 
                        '(lambda (x) (= x "cPrefix")) 
                        (mapcar 'car (vlax-ldata-list "XD_Circuit_Dict")) 
                      ) 
                    ) 
        circuitdict (_excel:getfromfile "circuitdict.xls") 
      ) 
      (dcl_project_import strl) 
      (dcl_form_show huilu_form1) 
      (setq olderr  *error* 
            *error* myerr 
            tf1            t 
      ) 
      (xdrx_sysvar_push '("osmode" 64)) 
      (while (and tf1 
                  (dcl_form_isactive huilu_form1) 
             ) 
        (setq tf2 t 
              pts nil 
              pl nil 
              blklst nil 
        ) 
        (while 
          (and tf2 
               (progn 
                 (initget 128 "E U") 
                 (setq 
                   p (if pts 
                       (getpoint (car pts) "\r下一点[回退(U)/退出(E)]: ") 
                       (getpoint "\r起点[退出(E)]: ") 
                     ) 
                 ) 
               ) 
               (dcl_form_isactive huilu_form1) 
          ) 
           (if (listp p) 
             (progn 
               (setq pts (cons p pts)) 
               (if (= (length pts) 2) 
                 (progn 
                   (setq p (getpoint (apply 'xdrx_line_midp pts) "\n弦高: ") 
                         d (* 2 
                              (xdrx_point_dist2line p (cadr pts) (car pts)) 
                           ) 
                   ) 
                   (setq pl (xdrx_polyline_make (cadr pts) (car pts))) 
                   (xdrx_polyline_setbulgeat 
                     pl 
                     0 
                     (/ d (apply 'distance pts)) 
                   ) 
                 ) 
               ) 
               (if (setq ss (xdrx_pickset_getatpoint 
                              (car pts) 
                              '((0 . "insert")) 
                            ) 
                   ) 
                 (setq blklst (mapcar '(lambda (x) 
                                         (car (xdrx_getpropertyvalue 
                                                x 
                                                "BlockTableRecord" 
                                              ) 
                                         ) 
                                       ) 
                                      (xdrx_pickset->ents ss) 
                              ) 
                 ) 
               ) 
               (if (and pl (> (length pts) 2)) 
                 (progn        (setq n (xdrx_polyline_numverts pl)) 
                        (xdrx_polyline_setpointat pl (1- n) (car pts)) 
                        (xdrx_polyline_addvertexat pl (1- n) (cadr pts)) 
                        (xdrx_polyline_setbulgeat 
                          pl 
                          (- n 2) 
                          (/ d (distance (cadr pts) (caddr pts))) 
                        ) 
                        (xdrx_polyline_setbulgeat 
                          pl 
                          (1- n) 
                          (/ d (distance (car pts) (cadr pts))) 
                        ) 
                 ) 
               ) 
               (setq tf3 t) 
             ) 
             (cond 
               ((= p "E") 
                (setq tf1 nil 
                      tf2 nil 
                ) 
               ) 
               ((= p "U") 
                (if pl 
                  (progn (xdrx_polyline_removevertexat 
                           pl 
                           (1- (xdrx_polyline_numverts pl)) 
                         ) 
                         (setq pts (cdr pts)) 
                  ) 
                ) 
                (setq tf3 nil) 
               ) 
               (t 
                (setq tf2 nil 
                      tf3 t 
                ) 
               ) 
             ) 
           ) 
        ) 
        (if (and tf1 
                 tf3 
                 pl 
                 (dcl_form_isactive huilu_form1) 
                 (if (setq p (getpoint "\n引出点<回车端点>: ")) 
                   (progn (setq tf nil) p) 
                   (setq tf t 
                         p  (xdrx_curve_getendpoint pl) 
                   ) 
                 ) 
                 (setq p1 (getpoint p "\n标注点: ")) 
                 (dcl_form_isactive huilu_form1) 
                 (setq str 
                        (strcat        (dcl_control_gettext huilu_form1_strPre) 
                                (dcl_control_gettext huilu_form1_numCur) 
                        ) 
                 ) 
            ) 
          (progn 
            (setq ctype            (nth (dcl_combobox_getcursel huilu_form1_type) 
                                 (cdr (assoc "类型" circuitdict)) 
                            ) 
                  cposition (nth 
                              (dcl_combobox_getcursel huilu_form1_position) 
                              (cdr (assoc "位置" circuitdict)) 
                            ) 
                  cpower    (nth (dcl_combobox_getcursel huilu_form1_power) 
                                 (cdr (assoc "功率" circuitdict)) 
                            ) 
                  ccontrol  (nth (dcl_combobox_getcursel huilu_form1_control) 
                                 (cdr (assoc "控制" circuitdict)) 
                            ) 
            ) 
            (setq txt (xdrx_text_make 
                        p1 
                        (strcase str) 
                        (distof (dcl_control_gettext huilu_form1_height)) 
                        0.0 
                      ) 
                  pl1 (xdrx_polyline_make p p1) 
            ) 
            (vlax-ldata-put txt "Type" ctype) 
            (vlax-ldata-put txt "Power" cpower) 
            (vlax-ldata-put txt "Control" ccontrol) 
            (vlax-ldata-put txt "Position" cposition) 
            (if 
              (/= (setq 
                    lyr        (nth (dcl_combobox_getcursel huilu_form1_layer) 
                             (dcl_control_getlist huilu_form1_layer) 
                        ) 
                  ) 
                  (getvar "clayer") 
              ) 
               (xdrx_entity_setlayer txt lyr) 
            ) 
 
            (xdrx_polyline_setbulgeat pl1 0 0.5) 
            (if        (and blklst (apply '= blklst)) 
              (xdrx_xdata_setbyproperty 
                txt 
                "XDCircuit" 
                "String" 
                (car blklst) 
              ) 
              (if (setq 
                    blk 
                     (car (xdrx_entsel 
                            "\n拾取图块或文字: " 
                            '((0 . "insert,*text")) 
                          ) 
                     ) 
                  ) 
                (xdrx_xdata_setbyproperty 
                  txt 
                  "XDCircuit" 
                  "String" 
                  (if (= (xdrx_getpropertyvalue blk "IsA") 
                         "AcDbBlockReference" 
                      ) 
                    (car (xdrx_getpropertyvalue blk "BlockTableRecord")) 
                    (xdrx_getpropertyvalue blk "textString") 
                  ) 
                ) 
              ) 
            ) 
            (if        (= (dcl_control_getvalue huilu_form1_group) 1) 
              (xdrx_group_make "*" pl txt pl1) 
            ) 
            (vlax-ldata-put 
              txt 
              "Circuit" 
              (xdrx_getpropertyvalue pl "Handle") 
            ) 
            (vlax-ldata-put 
              "XD_Circuit_Dict" 
              (dcl_control_gettext huilu_form1_strPre) 
              (1+ (atoi (dcl_control_gettext huilu_form1_numCur))) 
            ) 
            (dcl_control_settext 
              huilu_form1_numCur 
              (itoa (vlax-ldata-get 
                      "xd_circuit_dict" 
                      (dcl_control_gettext huilu_form1_strPre) 
                    ) 
              ) 
            ) 
          ) 
        ) 
      ) 
      (dcl_form_close huilu_form1) 
      (xdrx_sysvar_pop) 
      (setq *error* olderr) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2014-12-1 16:31:23

相应的统计程序，写出的 xls 在 dwg 同目录下相同文件名

acad 中的 table 会少一行，这个可能需要在修改 xd::table:make 函数

(defun c:XDTB_CalCircuit (/ ss nl)
(if (setq ss (ssget '((0 . "text") (-3 ("XDCircuit")))))
(progn
(setq
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 '("回路" "控制" "编号" "类型" "功率" "数量" "总功率"
"位置" "备注")
(vl-sort nl '(lambda (x1 x2) (< (car x1) (car x2))))
)
)
(if (setq p (getpoint "\n插入点<回车显示>: "))
(xd::table:make nl p 8. 3.)
(foreach x nl
(princ "\n")
(princ x)
)
)
(xd::excel:createToFile
(strcat (getvar "dwgprefix")
(vl-filename-base (getvar "dwgname"))
".xls"
)
nl
) ;_写出 excel 文件
;|
(xdrx_system_shellexecute
(strcat (getvar "dwgprefix")
(vl-filename-base (getvar "dwgname"))
".xls"
)
)|;
)
)
(princ)
)

(defun c:XDTB_CalCircuit (/ ss nl) 
  (if (setq ss (ssget '((0 . "text") (-3 ("XDCircuit"))))) 
    (progn 
      (setq 
        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 '("回路" "控制" "编号"        "类型" "功率" "数量" "总功率" 
                   "位置" "备注") 
                 (vl-sort nl '(lambda (x1 x2) (< (car x1) (car x2)))) 
           ) 
      ) 
      (if (setq p (getpoint "\n插入点<回车显示>: ")) 
        (xd::table:make nl p 8. 3.) 
        (foreach x nl 
          (princ "\n") 
          (princ x) 
        ) 
      ) 
      (xd::excel:createToFile 
        (strcat        (getvar "dwgprefix") 
                (vl-filename-base (getvar "dwgname")) 
                ".xls" 
        ) 
        nl 
      ) ;_写出 excel 文件 
      ;| 
      (xdrx_system_shellexecute 
        (strcat        (getvar "dwgprefix") 
                (vl-filename-base (getvar "dwgname")) 
                ".xls" 
        ) 
      )|; 
    ) 
  ) 
  (princ) 
)

grs432 · 发表于 2014-12-1 17:29:05

st788796 发表于 2014-12-1 16:29
试试

画线工具测试完美呀！！太完美了。

st788796 · 发表于 2014-12-1 17:33:32

grs432 发表于 2014-12-1 17:29
画线工具测试完美呀！！太完美了。

旧图处理还需要增加，将这个对话框加入

统计需要再检查其它函数

grs432 · 发表于 2014-12-1 17:37:14

st788796 发表于 2014-12-1 16:31
相应的统计程序，写出的 xls 在 dwg 同目录下相同文件名

acad 中的 table 会少一行，这个可能需要在修改 ...

现在是统计工具输不出EXCEL，我下载的是最新的库，之前加载自定义函数库时是可以导出EXCEL的。
另外，插入到CAD的表，可以将表的的文字高度和回路号的高度设置一致吗？现在看插入CAD表中的太小。

st788796 · 发表于 2014-12-2 08:39:25

grs432 发表于 2014-12-1 17:37
现在是统计工具输不出EXCEL，我下载的是最新的库，之前加载自定义函数库时是可以导出EXCEL的。
另外，插 ...

把

(if (setq p (getpoint "\n插入点<回车显示>: "))
(xd::table:make nl p 8. 3.)
(foreach x nl
(princ "\n")
(princ x)
)
)

改成

(setq height (xdrx_getpropertyvalue (ssname ss 0) "height"))
(if (setq p (getpoint "\n插入点<回车显示>: "))
(xd::table:make nl p (* 3 height) height)
(foreach x nl
(princ "\n")
(princ x)
)
)

表格即可放大，另外表格少一行一列问题在和 xd 沟通，是 API 问题

xls 文件写出了，程序中注释掉了外部打开语句，你可以到 dwg 文件夹目录下查看

grs432 · 发表于 2014-12-2 09:46:26

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

改成

另外，询问一下ST老师，在CAD中的编号从1~10这样的序号排列和01~10的排列有区别吗？我在使用好多前缀后缀编号的CADlisp工具时，都没有01~10排列的。
但是在EXCEL表中是识别01~10这样的排列升序和降序的，所以发现程序序号排序有问题。。

我不知道这种排序从1~10改成01~10是不是会很麻烦！

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

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

点评

点评

点评

点评

点评