块与块连线程序求助

st788796 · 发表于 2014-11-29 22:43:37

grs432 发表于 2014-11-29 22:20

你还是没有说清楚外部数据是什么格式？是具体产品吗？类型确定后，功率、位置、控制都确定了，还是这几者是任意组合关系？

写到图中是怎么个写法？

grs432 · 发表于 2014-11-29 23:14:35

本帖最后由 grs432 于 2014-11-29 23:18 编辑

st788796 发表于 2014-11-29 22:43
你还是没有说清楚外部数据是什么格式？是具体产品吗？类型确定后，功率、位置、控制都确定了，还是这几者 ...

哦。。对呀！！我把重点放到UI上了。。数据上没有说清楚。。现在我所要做的是照明行业的东西，所说产品是灯具，，但是只有功率是产品的参数，其它位置和控制都是实际应用中的，都是不同的，所以不打算做数据库，但是如果以后公司要开发整套插件倒是可以考虑个事个数据库。

我现在想把编号，类型，功率，位置，控制的数据各设置为1个txt文档的形式，格式内容就是1行1个数据。只有控制的形式我想做个写到编号后边且单列一层，就是AL-L1（DMX） ,（DMX）是是控制形式。
另处就是将类型，功率，位置，控制的数据写到组属性中，不显示到图纸中，就最后导入到表格中！！

st788796 · 发表于 2014-11-29 23:19:17

grs432 发表于 2014-11-29 23:14
哦。。对呀！！我把重点放到UI上了。。数据上没有说清楚。。现在我所要做的是照明行业的东西，所说产品是 ...

还不如做成 Excel 文件，XDGE 解析库读这个飞快

grs432 · 发表于 2014-11-29 23:29:37

st788796 发表于 2014-11-29 23:19
还不如做成 Excel 文件，XDGE 解析库读这个飞快

哦，我以为txt快呢！！那就EXCEL的吧！！其实对于我来说一样的。。

st788796 · 发表于 2014-11-30 00:07:47

本帖最后由 st788796 于 2014-11-30 09:33 编辑

grs432 发表于 2014-11-29 23:29
哦，我以为txt快呢！！那就EXCEL的吧！！其实对于我来说一样的。。

你要用 ODCL 可以看看这个界面
ODCL 8.0.0.9

'("YWt6AzpGAADMUJw7BuKT5SUSaztmuYF5BCfOu2jbXN5q1/Yel0fK+yht/J9sUeo8Fb468+LI+SyS"
"Uy6Q+ITaFjsCLN1YiDMdwlggbCEyrmYCja95vU33XBEUKtahAkOTsAItmMZHtZfokODik4CxsrCw"
"kIIBzc2FM1W40PNfhVNA/l2WP1HTbX4AVHuY1XM01Jc6ZGO2XvcYSq4oU0jedyOKFVOXaoPk3NMK"
"iC31OCRZV8PtQLPaRFYDXdOHLh3UuniqLeBq29GZIsvqQTMbG8a6BIRKrSh5k6u2uTWvoWrppjrh"
"WtvZxkgrVi3rwnsUJ3hR/0e2UJTiyB1++a4558N1Jkbv7LOcy992pJxzjeeNDPfUl+M5z+/ArjGB"
"PpfHdw2B0YMKqCF0g+uuIXaD0SFh657TSjDYlpzgVRlR4IWIyondj0XCqwBHN6SM0Nwa3GYwASmW"
"3TzhagQyliH6QBiWW+MGbsAHlJ4hiusWO0Fg2xFx+Jbl2GJDRjfTksNXtAIrluz614Fvl7n7iLKC"
"G9SbtCZR69BWpzCrNS17TamPu2IG7ROslCGlFNs1kkjXZIDNo+VRpDAE2aGm0dJ7kyogRSPJciPt"
"IKSgNJUQvR1R1oNohyQrtKWblavU0wmFhFPrANG2wa2p3TRBUELJPZZo32FtZHeNQttpkW2pP42Y"
"lTSJMNiNkaANPIkzmDGC32Zibpd5M7OTAlUVKUXRsc3jmeIRYbJq3PM5H8hPIc2j3DNdorgZDn2k"
"JmPD5ItE1fMJGhEzwwpNtqu4zAFRbJPZBx5VEnHKyohxBeH3BbiZnCT6m+8RgsQiKAurQi3ftCdV"
"tKtCil8yccN2rT2DNIFUpCqNqm1OQ7tEITF7jq4c27U6gSBSkHnh9Irx+4A6lvH6cKfdoPZWgYya"
"h/CVFQAAQKGhu4DB36quSxyBVQADqvTnJrCkuzot5jJCdeX3iaQgREJl5hb4t7p+HFhct7qj0iMy"
"EnLt9y3O50aLgragp766I07nZj+yOlrnJrikuzod5jKy+bO6oNkAAAVYTo99MlhwvBrccxBYIP23"
"umy6Mjrs99vSIzJK+re6FKYywqHH3xNYTr+RxEpYhmcxHRxuEFhGIx3cd09t7xocdxVpbYsfTM9w"
"SG3lRZgLsXpYRiMd3EQfTJ9bojKOAzsdHG0cWFy3uhyoUFgMwSVyvroPpjKOhZsnvjpLMliGQG1N"
"b0NYkB6THFwJIlt+bZPO5xYXvfIGaeVRbaUeTK/35ve2T98MobeEAFV8o/M9Zr5vZHp5Wzxd/t1C"
"qCOfha17DYZlnEZ/3OypnghGOcYIdLn7Y78kmyFpqH92Jv1XdlbBd2PC9subnqxQip5Oh8npBIlt"
"h8YG9BmevIuvcHkpWDJ51c70kB5rIFCGjRP2cJiNwadj0vAouwTtS1AvGJdf7WK+LjCBqPeV5mok"
"jYmhHKLc9K2D0DBekU8029GZXHFg5DpDSkAQuWoC0msArQbHeu3pOeoAPobJKJZLnIahd1OZRtJu"
"gCCZ2YFLkpiPUjJgq9XAwgcSaItzvqEY25vmV6lmF79zmM096gE4lsM8GfroAsFdiq37m6GlEWDR"
"EmC483Na00+nhuNSPV3Nfs38puvgMTvHrFdBw3VfQA8WCtSlzDuZyJKiyPcMS0SVH6wHK5fUknK3"
"94JwhPjqEGqXcGSr6PU48HQUSgyqDmQZVsPSCgn/F+1KNwRUciMDg2frC46zRUDFzOPDzfuM2TcL"
"7ZRURgMypRPSU6Q0RdeMgxpVi2KqZfrGK073nYUVevfFfu3GfXY4InO8W9BxWA9xHwT3pfS2bQnx"
"9Uatvm/dEGJY9UQR7lQFRkWTJCtBfglxHQgOubE7Xwy5DX1KkIgeBMcFbO+ZENv1RRef9u8pt6Rg"
"I9QUYXVExAJ4Tw2nBHkcEH0ymHBfGFDhr9sRoPavKL+k3NMW9ni9/ZRh9IBBFVluzejTCV6oBlDl"
"uGSxC/UnDc/Ioruk+gtdOKR8qGgXjawSkiMqg3KIrXdjcbyiJLJymOxO5x1YfE5J9A7nHZhLmEgd"
"BOel+bZNKZ0csEgP+pYtOSW/pPAfcnie0DCGUVcK/ma4ENtjT3Kofxxm0l1uvebsjW4dZt0ODeFV"
"+M97WIln+r4DYE/yAzSZab0OwB1nyvai+FAAiG0yuA/uHg9u27QnpQM0QUs9YbGmtIPSZBzhDGqf"
"iFciAKLZmpItqsG4lwO0VcbHhWqjoA/h3KtRsUA7U4F/ZTgg5w==")

'("YWt6AzpGAADMUJw7BuKT5SUSaztmuYF5BCfOu2jbXN5q1/Yel0fK+yht/J9sUeo8Fb468+LI+SyS" 
"Uy6Q+ITaFjsCLN1YiDMdwlggbCEyrmYCja95vU33XBEUKtahAkOTsAItmMZHtZfokODik4CxsrCw" 
"kIIBzc2FM1W40PNfhVNA/l2WP1HTbX4AVHuY1XM01Jc6ZGO2XvcYSq4oU0jedyOKFVOXaoPk3NMK" 
"iC31OCRZV8PtQLPaRFYDXdOHLh3UuniqLeBq29GZIsvqQTMbG8a6BIRKrSh5k6u2uTWvoWrppjrh" 
"WtvZxkgrVi3rwnsUJ3hR/0e2UJTiyB1++a4558N1Jkbv7LOcy992pJxzjeeNDPfUl+M5z+/ArjGB" 
"PpfHdw2B0YMKqCF0g+uuIXaD0SFh657TSjDYlpzgVRlR4IWIyondj0XCqwBHN6SM0Nwa3GYwASmW" 
"3TzhagQyliH6QBiWW+MGbsAHlJ4hiusWO0Fg2xFx+Jbl2GJDRjfTksNXtAIrluz614Fvl7n7iLKC" 
"G9SbtCZR69BWpzCrNS17TamPu2IG7ROslCGlFNs1kkjXZIDNo+VRpDAE2aGm0dJ7kyogRSPJciPt" 
"IKSgNJUQvR1R1oNohyQrtKWblavU0wmFhFPrANG2wa2p3TRBUELJPZZo32FtZHeNQttpkW2pP42Y" 
"lTSJMNiNkaANPIkzmDGC32Zibpd5M7OTAlUVKUXRsc3jmeIRYbJq3PM5H8hPIc2j3DNdorgZDn2k" 
"JmPD5ItE1fMJGhEzwwpNtqu4zAFRbJPZBx5VEnHKyohxBeH3BbiZnCT6m+8RgsQiKAurQi3ftCdV" 
"tKtCil8yccN2rT2DNIFUpCqNqm1OQ7tEITF7jq4c27U6gSBSkHnh9Irx+4A6lvH6cKfdoPZWgYya" 
"h/CVFQAAQKGhu4DB36quSxyBVQADqvTnJrCkuzot5jJCdeX3iaQgREJl5hb4t7p+HFhct7qj0iMy" 
"EnLt9y3O50aLgragp766I07nZj+yOlrnJrikuzod5jKy+bO6oNkAAAVYTo99MlhwvBrccxBYIP23" 
"umy6Mjrs99vSIzJK+re6FKYywqHH3xNYTr+RxEpYhmcxHRxuEFhGIx3cd09t7xocdxVpbYsfTM9w" 
"SG3lRZgLsXpYRiMd3EQfTJ9bojKOAzsdHG0cWFy3uhyoUFgMwSVyvroPpjKOhZsnvjpLMliGQG1N" 
"b0NYkB6THFwJIlt+bZPO5xYXvfIGaeVRbaUeTK/35ve2T98MobeEAFV8o/M9Zr5vZHp5Wzxd/t1C" 
"qCOfha17DYZlnEZ/3OypnghGOcYIdLn7Y78kmyFpqH92Jv1XdlbBd2PC9subnqxQip5Oh8npBIlt" 
"h8YG9BmevIuvcHkpWDJ51c70kB5rIFCGjRP2cJiNwadj0vAouwTtS1AvGJdf7WK+LjCBqPeV5mok" 
"jYmhHKLc9K2D0DBekU8029GZXHFg5DpDSkAQuWoC0msArQbHeu3pOeoAPobJKJZLnIahd1OZRtJu" 
"gCCZ2YFLkpiPUjJgq9XAwgcSaItzvqEY25vmV6lmF79zmM096gE4lsM8GfroAsFdiq37m6GlEWDR" 
"EmC483Na00+nhuNSPV3Nfs38puvgMTvHrFdBw3VfQA8WCtSlzDuZyJKiyPcMS0SVH6wHK5fUknK3" 
"94JwhPjqEGqXcGSr6PU48HQUSgyqDmQZVsPSCgn/F+1KNwRUciMDg2frC46zRUDFzOPDzfuM2TcL" 
"7ZRURgMypRPSU6Q0RdeMgxpVi2KqZfrGK073nYUVevfFfu3GfXY4InO8W9BxWA9xHwT3pfS2bQnx" 
"9Uatvm/dEGJY9UQR7lQFRkWTJCtBfglxHQgOubE7Xwy5DX1KkIgeBMcFbO+ZENv1RRef9u8pt6Rg" 
"I9QUYXVExAJ4Tw2nBHkcEH0ymHBfGFDhr9sRoPavKL+k3NMW9ni9/ZRh9IBBFVluzejTCV6oBlDl" 
"uGSxC/UnDc/Ioruk+gtdOKR8qGgXjawSkiMqg3KIrXdjcbyiJLJymOxO5x1YfE5J9A7nHZhLmEgd" 
"BOel+bZNKZ0csEgP+pYtOSW/pPAfcnie0DCGUVcK/ma4ENtjT3Kofxxm0l1uvebsjW4dZt0ODeFV" 
"+M97WIln+r4DYE/yAzSZab0OwB1nyvai+FAAiG0yuA/uHg9u27QnpQM0QUs9YbGmtIPSZBzhDGqf" 
"iFciAKLZmpItqsG4lwO0VcbHhWqjoA/h3KtRsUA7U4F/ZTgg5w==")

huilu.odcl.lsp

如果右面先产品一样四个参数一体，就可以用 Grid 控件

grs432 · 发表于 2014-11-30 09:56:38

st788796 发表于 2014-11-30 00:07
你要用 ODCL 可以看看这个界面
ODCL 8.0.0.9

我打开看了，，没有问题的。。UI界面这样子看起来更舒服简介，在使用上也不会占用太大面积。我很喜欢！！

grs432 · 发表于 2014-11-30 21:05:04

st788796 发表于 2014-11-30 00:07
你要用 ODCL 可以看看这个界面
ODCL 8.0.0.9

st788796老师，经过这几天使用和测试，有个问题要更新一下，首先我要表示这事怪我没有考虑到，真的是不好意思！{:soso_e127:}{:soso_e112:}”回路连线工具“中将块名记录到文字的xdata，我想改成块边上的的编号（编号和块名是一样的）记录到文字的xdata，因为在使用过程中有的设备不是块，是普通的多段线，但是会有编号在边上

st788796 · 发表于 2014-11-30 21:32:33

grs432 发表于 2014-11-30 21:05
st788796老师，经过这几天使用和测试，有个问题要更新一下，首先我要表示这事怪我没有考虑到，真的是不好 ...

把后面提示点选图块的过滤增加*text, 成果后判断点击是图块还是文字，文字就取textstring

st788796 · 发表于 2014-11-30 21:33:13

grs432 发表于 2014-11-30 21:05
st788796老师，经过这几天使用和测试，有个问题要更新一下，首先我要表示这事怪我没有考虑到，真的是不好 ...

把后面提示点选图块的过滤增加*text, 成果后判断点击是图块还是文字，文字就取textstring

st788796 · 发表于 2014-12-1 08:29:09

grs432 发表于 2014-11-30 21:05
st788796老师，经过这几天使用和测试，有个问题要更新一下，首先我要表示这事怪我没有考虑到，真的是不好 ...

插件已更新

1 界面更新（因为没有数据格式，展示只有参数界面没有数据）
2 支持选择图块和文字
3 文字高度按界面输入高度

grs432 · 发表于 2014-12-1 10:42:15

st788796 发表于 2014-12-1 08:29
插件已更新

1 界面更新（因为没有数据格式，展示只有参数界面没有数据）

我现在在测试，界面数据是我自己做个EXCEL文件吗？格式是按照您发的那个UI界面下边的表格，数据表要和插件放到1个文件夹吗？数据表的名字是什么？

st788796 · 发表于 2014-12-1 11:00:28

grs432 发表于 2014-12-1 10:42
我现在在测试，界面数据是我自己做个EXCEL文件吗？格式是按照您发的那个UI界面下边的表格，数据表要和插 ...

数据文件当然要你自己组织，应该方便以后扩充

grs432 · 发表于 2014-12-1 11:05:07

st788796 发表于 2014-12-1 11:00
数据文件当然要你自己组织，应该方便以后扩充

哦，我刚才没有说明白，我是说我按照那个UI下边的表格形式设置了，不知道怎样能将它与程序连接到一起，现在能直接用吗？？我按下边的设置了，页面上没有加载的数据
QQ截图20141201110328.png

st788796 · 发表于 2014-12-1 11:42:22

grs432 发表于 2014-12-1 11:05
哦，我刚才没有说明白，我是说我按照那个UI下边的表格形式设置了，不知道怎样能将它与程序连接到一起，现 ...

加入控制语句才能使用，还有这几个数据的默认值如何使用？
需使用1130的lisp函数库，词典位于 support 路径，名称 circuitdict.xls

(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
)
(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_addlist
huilu_form1_power
(mapcar 'vl-princ-to-string
(cdr (assoc "功率" circuitdict))
)
)
(dcl_combobox_addlist
huilu_form1_position
(mapcar 'vl-princ-to-string
(cdr (assoc "位置" circuitdict))
)
)
(dcl_combobox_addlist
huilu_form1_control
(mapcar 'vl-princ-to-string
(cdr (assoc "控制" circuitdict))
)
)
(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
'("YWt6A/JEAADJVrlxBuKT5ScSaytmuYFpNOe0KC4Ue+m1XNwmkjxJLxw6bv88E91LHDwFpaU7xKdo"
"9N6qFtxa1oZcZEqvSQMOv7pTQMYqYYqzOWFyj68670lLUKqRRYlEDbBJC9i946DH7BdNw41BGZiy"
"540DwRGwg5gKt6r7VxrJB8NG9kCKraF6/hGZfVvCPSsVFa/2VNov/WoDSNx8Y9Y7S0QXEW3ENqut"
"IPQ0SNfDeKQ1rRFL10QKrWfjygsbUEu7Uyjt1NrdVZfN70DHu0QUzSXLJj0pnwhkF9HkFFTWwvRA"
"raowY+Pt2FWqrhlTtM7+ZZvwUN5zVR9bTnmnYcDTk2a8dniWApURahlVbALsi9Su+fpAXIrqrqF1"
"QxCWa+PGa7DekPmt7YOm9T+iPSVhuBaV3l2EDvqQtQQ3yofSrrt3LYFXlHF1g0vog0Vkpx/PJC56"
"k7nkLr3ZAABalSbt5hmqUQ2UQRhDSR/gge8t0Yp5PAFWioU8gVuEzbhOHq+nhbFBCYiaGbnSEfIM"
"JpXjCOQXMUd8iYJ0UA9HPI8IZIJwZAAINdWhwNgUvUReiv6jCJwpYO1fL4HOrq1yjWImiFOTC8TE"
"4AvPr8tH7dO9F5VMGWaGHulnePMNaEjfazekBJf4hJdJ98WWEfEf0J0CoAwfwBg5wbKEIDkN+dOV"
"+6Cdlk3SCXeNk2jEN5bjPF0foNlKlXMcYkpNwX6zsjXGurWyK0fk29YSnMmoMTHioOlxrdbfqDLN"
"XR/kmAtqyBegGmNMK7Sqov070kjEMsPlcuMsHTLYIFZ8oUJvVqFrixF1g/CuEXdjCLpGX6RBGaEl"
"OCEO8Ckdg/VGgRmySYokD4AH2UHUoHl7h25WbFDQ34xKom/yL8+w9j6A4A7pzk6Eupe1R5DV+CtX"
"yc0/ytUfyGJYGOV7GBUmgVqiIL0QSzKSMF96knweKHBz9bsinPs7C+YYEfmlkjNT5o5MxawHTkV5"
"dlHNjeo+SYUTvJIVA7LAddinee4BzblvsEW8pyZW+Ym83FgyUhSfuJzwKjexgV9kjGaWJhJvJtKN"
"vxxqWGilbh0vziYivbR19TPNQzdGhKb3SOkH2oeCzu+Y6pjtmOuYcnVFFygXCJdorBPaJZv+j1oy"
"8uG5ShDYHwP2lYOiMsTbcn0MAJeZ6PtE98ToNcLO1nNt9X0OHY8ktU3dT2hPaMm9upxWXLqcRFCP"
"vNxQMlLkT7MJ9cP9bU9onx2PezJSMLxl9Q869bt9Ts8WOfomWse6dfWETs/W+WX1SUSVJBxSnNm7"
"XU7PxmVvHM/0NcLOFnZtdbAFN1KkiAMJRLhcAlJA+fd7wfyPvJxO3LucSjJSBgRhd2hbys3qNVQj"
"JgpWFUkd+iGGsIJrK3MVtU9rYRArR4sj0hmfK+u05+FskxC9PN0jsxtUH8Qy7IjSzLKFB4WGUXv0"
"5HXXKTfL3ADrTr84szqiwDnoFGbYNZI+dlDvvdVM+zbxPhaPUhnjpDqFbJ8sPdGMJMXexREYWz3V"
"jODTCjh512AsI85g9F6xuyma9vhTUJY4TzhD4GcKyXaZ1YKRa20B9hnrxGtzpHknmYT4Ghc21594"
"DyNzDOs06+4RbombeYezfOx03xFsqYl1fGCugUCfc4MI5q7xXnqWZTsB/TxRmVkA1xZNVtKI/CwJ"
"kXLqpXY8ICBaznJFzto64fF1U30xpFluw1wK4L32qxMgsXBVlA+ZcFX9Gvd/ZJ39SoxHpEnIMz6l"
"mk/yQfcOvcbkxbsfokny1ZfFaLirikCcThD5+rXHumNspgADGskgdMAPNsYaPXwB4XdNWrI7Sl8/"
"Y9H7+mEe+HqLi1e67t5McEf6+mkf+PpL9khayl1lbKYP0ZrsZSP1rgUWCE46DfofCTAUr9vLol4W"
"5DF9NFMXC9NVgpQmQCi0MnU3/pvHm3cR2StV00vZM1x62etH9gtcJnsOHOB5phfVjDL3CpwAhGSP"
"VvOXNt8ZUYyBauQHbDFDS8pa4CTHJv43wnjmcNFiQj5sMUfCCWzRGlW7un/alpHjymOYK6J/rAQH"
"P1R+PDE+PZZUUA9fKko4fnN5tYRAe8bNwOxBlz7suTwDT2+qPxtijuXINvnrD70R5JxpKfwY110C"
"T+z69/W8WTwipN+fzPw1ojHiH3R1nedZsLL/lzty8qOxZub1eBhNMh5gOX9/zew1Ir4mcrIWiOE0"
"+U5meuVD9s/PhWcdDa+monlt5TBqbkgpDfd15YfjdOhPi1vDQZkpjE9KzXDzJD8Adz8tFjVqhh8e"
"mcoGzqNH0zsXPPjpCYvtYRBzeu45cNbklfU7ORv0MtiudGveYowzK3dtZiDwk8uS9IFnQDR5YPqX"
"vkVPdXDiPQDVSoWHcaUvJQM="
)
)
(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)
circuitdict
)
cposition (nth
(dcl_combobox_getcursel huilu_form1_position)
circuitdict
)
cpower (nth (dcl_combobox_getcursel huilu_form1_power)
circuitdict
)
ccontrol (nth (dcl_combobox_getcursel huilu_form1_control)
circuitdict
)
)
(setq txt (xdrx_text_make
p1
(strcase str)
(distof (dcl_control_gettext huilu_form1_height))
0.0
)
pl1 (xdrx_polyline_make p p1)
)
(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")
)
)
)
)
(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 
                          ) 
  (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_addlist 
      huilu_form1_power 
      (mapcar 'vl-princ-to-string 
              (cdr (assoc "功率" circuitdict)) 
      ) 
    ) 
    (dcl_combobox_addlist 
      huilu_form1_position 
      (mapcar 'vl-princ-to-string 
              (cdr (assoc "位置" circuitdict)) 
      ) 
    ) 
    (dcl_combobox_addlist 
      huilu_form1_control 
      (mapcar 'vl-princ-to-string 
              (cdr (assoc "控制" circuitdict)) 
      ) 
    ) 
    (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 
         '("YWt6A/JEAADJVrlxBuKT5ScSaytmuYFpNOe0KC4Ue+m1XNwmkjxJLxw6bv88E91LHDwFpaU7xKdo" 
           "9N6qFtxa1oZcZEqvSQMOv7pTQMYqYYqzOWFyj68670lLUKqRRYlEDbBJC9i946DH7BdNw41BGZiy" 
           "540DwRGwg5gKt6r7VxrJB8NG9kCKraF6/hGZfVvCPSsVFa/2VNov/WoDSNx8Y9Y7S0QXEW3ENqut" 
           "IPQ0SNfDeKQ1rRFL10QKrWfjygsbUEu7Uyjt1NrdVZfN70DHu0QUzSXLJj0pnwhkF9HkFFTWwvRA" 
           "raowY+Pt2FWqrhlTtM7+ZZvwUN5zVR9bTnmnYcDTk2a8dniWApURahlVbALsi9Su+fpAXIrqrqF1" 
           "QxCWa+PGa7DekPmt7YOm9T+iPSVhuBaV3l2EDvqQtQQ3yofSrrt3LYFXlHF1g0vog0Vkpx/PJC56" 
           "k7nkLr3ZAABalSbt5hmqUQ2UQRhDSR/gge8t0Yp5PAFWioU8gVuEzbhOHq+nhbFBCYiaGbnSEfIM" 
           "JpXjCOQXMUd8iYJ0UA9HPI8IZIJwZAAINdWhwNgUvUReiv6jCJwpYO1fL4HOrq1yjWImiFOTC8TE" 
           "4AvPr8tH7dO9F5VMGWaGHulnePMNaEjfazekBJf4hJdJ98WWEfEf0J0CoAwfwBg5wbKEIDkN+dOV" 
           "+6Cdlk3SCXeNk2jEN5bjPF0foNlKlXMcYkpNwX6zsjXGurWyK0fk29YSnMmoMTHioOlxrdbfqDLN" 
           "XR/kmAtqyBegGmNMK7Sqov070kjEMsPlcuMsHTLYIFZ8oUJvVqFrixF1g/CuEXdjCLpGX6RBGaEl" 
           "OCEO8Ckdg/VGgRmySYokD4AH2UHUoHl7h25WbFDQ34xKom/yL8+w9j6A4A7pzk6Eupe1R5DV+CtX" 
           "yc0/ytUfyGJYGOV7GBUmgVqiIL0QSzKSMF96knweKHBz9bsinPs7C+YYEfmlkjNT5o5MxawHTkV5" 
           "dlHNjeo+SYUTvJIVA7LAddinee4BzblvsEW8pyZW+Ym83FgyUhSfuJzwKjexgV9kjGaWJhJvJtKN" 
           "vxxqWGilbh0vziYivbR19TPNQzdGhKb3SOkH2oeCzu+Y6pjtmOuYcnVFFygXCJdorBPaJZv+j1oy" 
           "8uG5ShDYHwP2lYOiMsTbcn0MAJeZ6PtE98ToNcLO1nNt9X0OHY8ktU3dT2hPaMm9upxWXLqcRFCP" 
           "vNxQMlLkT7MJ9cP9bU9onx2PezJSMLxl9Q869bt9Ts8WOfomWse6dfWETs/W+WX1SUSVJBxSnNm7" 
           "XU7PxmVvHM/0NcLOFnZtdbAFN1KkiAMJRLhcAlJA+fd7wfyPvJxO3LucSjJSBgRhd2hbys3qNVQj" 
           "JgpWFUkd+iGGsIJrK3MVtU9rYRArR4sj0hmfK+u05+FskxC9PN0jsxtUH8Qy7IjSzLKFB4WGUXv0" 
           "5HXXKTfL3ADrTr84szqiwDnoFGbYNZI+dlDvvdVM+zbxPhaPUhnjpDqFbJ8sPdGMJMXexREYWz3V" 
           "jODTCjh512AsI85g9F6xuyma9vhTUJY4TzhD4GcKyXaZ1YKRa20B9hnrxGtzpHknmYT4Ghc21594" 
           "DyNzDOs06+4RbombeYezfOx03xFsqYl1fGCugUCfc4MI5q7xXnqWZTsB/TxRmVkA1xZNVtKI/CwJ" 
           "kXLqpXY8ICBaznJFzto64fF1U30xpFluw1wK4L32qxMgsXBVlA+ZcFX9Gvd/ZJ39SoxHpEnIMz6l" 
           "mk/yQfcOvcbkxbsfokny1ZfFaLirikCcThD5+rXHumNspgADGskgdMAPNsYaPXwB4XdNWrI7Sl8/" 
           "Y9H7+mEe+HqLi1e67t5McEf6+mkf+PpL9khayl1lbKYP0ZrsZSP1rgUWCE46DfofCTAUr9vLol4W" 
           "5DF9NFMXC9NVgpQmQCi0MnU3/pvHm3cR2StV00vZM1x62etH9gtcJnsOHOB5phfVjDL3CpwAhGSP" 
           "VvOXNt8ZUYyBauQHbDFDS8pa4CTHJv43wnjmcNFiQj5sMUfCCWzRGlW7un/alpHjymOYK6J/rAQH" 
           "P1R+PDE+PZZUUA9fKko4fnN5tYRAe8bNwOxBlz7suTwDT2+qPxtijuXINvnrD70R5JxpKfwY110C" 
           "T+z69/W8WTwipN+fzPw1ojHiH3R1nedZsLL/lzty8qOxZub1eBhNMh5gOX9/zew1Ir4mcrIWiOE0" 
           "+U5meuVD9s/PhWcdDa+monlt5TBqbkgpDfd15YfjdOhPi1vDQZkpjE9KzXDzJD8Adz8tFjVqhh8e" 
           "mcoGzqNH0zsXPPjpCYvtYRBzeu45cNbklfU7ORv0MtiudGveYowzK3dtZiDwk8uS9IFnQDR5YPqX" 
           "vkVPdXDiPQDVSoWHcaUvJQM=" 
          ) 
  ) 
  (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) 
                                 circuitdict 
                            ) 
                  cposition (nth 
                              (dcl_combobox_getcursel huilu_form1_position) 
                              circuitdict 
                            ) 
                  cpower    (nth (dcl_combobox_getcursel huilu_form1_power) 
                                 circuitdict 
                            ) 
                  ccontrol  (nth (dcl_combobox_getcursel huilu_form1_control) 
                                 circuitdict 
                            ) 
            ) 
            (setq txt (xdrx_text_make 
                        p1 
                        (strcase str) 
                        (distof (dcl_control_gettext huilu_form1_height)) 
                        0.0 
                      ) 
                  pl1 (xdrx_polyline_make p p1) 
            ) 
            (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") 
                  ) 
                ) 
              ) 
            ) 
            (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) 
)

grs432 · 发表于 2014-12-1 12:12:45

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

我似乎看到了麻烦，XDTB_CalCircuit的统计程序是不是也要重写呀！唉！老这样子的让st788796老师给改来改去的，真心过瘾不去呀！不知道st788796老师有没有心烦。{:soso_e110:}

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

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

点评

点评

点评

点评

点评

点评

浏览过的版块