如何在cad里面通过excel依次展线，展点是可以的，并且设置线的颜色和图层

君是我的泪

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:rank.xls 
下载次数:10  文件大小:36 KB 
下载权限: 不限 以上  [免费赚D豆]

VBA执行，alt+f11运行

C行代表线号
D行代表点号
E行可表示图层
A   x轴

B   y轴
源文件亲测可试，在此基础上增加筛选展线功能，用来将每一条线分解成多段，分颜色表示

st788796

看不懂，画个和数据对应的示例图

tzfcn

不错的工具，可以方便使用、也可以帮助大家学习代码

君是我的泪

st788796 发表于 2019-7-15 09:44
看不懂，画个和数据对应的示例图

4578.535	857.0983	4578.5349,857.0983	pl	layer1	0,255,255
16458.53	857.0983	16458.5349,857.0983	pl	layer1	0,255,255
16458.53	15988.87	16458.5349,15988.8722	pl	layer2	255,255,0
4578.535	15988.87	4578.5349,15988.8722	pl	layer2	255,255,0
4578.535	857.0983	4578.5349,857.0983	pl	layer2	255,255,0

pxr201419

本例为一种思路，供参考。注： EXCEL文件的F列必须设置为文本
(defun c:exht (/ xl fl fn lst p0 p1 tc ys)
    (vl-load-com)
    (setvar "cecolor" "bylayer")
    (defun Excel-Get-CellValue (xl cell)
        (setq xlsval (vlax-variant-value (vlax-get-property (vlax-get-property xl "range" cell) "Value"))))
    (setq fl (getfiled "选择数据文件" "" "xls" 8))
    (if        (setq fn (findfile fl))
        (if (setq xl (vlax-get-or-create-object "Excel.Application"))
               (progn
                   (vlax-invoke-method (vlax-get-property xl 'WorkBooks) 'Open fn)
;;;                   (vla-put-visible xl 1)        ;此行可略去
                   (setq ii 0 lst nil)
                   (while (setq        dyg (Excel-Get-CellValue xl (strcat (chr (+ 65 ii)) "1")   )          )
                       (setq lst (cons dyg lst) ii (1+ ii))   )        ;读入第1行，组成LIST
                   (setq lst (reverse lst) p0 (list (nth 0 lst)(nth 1 lst)))        ;取得坐标
                   (setq jj 2)
                   (while (Excel-Get-CellValue xl (strcat "A" (rtos jj)))
                       (setq ii 0 lst nil)
                       (while (setq dyg (Excel-Get-CellValue xl (strcat (chr (+ 65 ii)) (rtos jj))   )          )
                           (setq lst (cons dyg lst) ii (1+ ii)) )        ;读入后续行数据，组成LIST
                       (setq lst (reverse lst)
                             p1 (list (nth 0 lst)(nth 1 lst))        ;取得坐标
                             tc (nth 4 lst)                        ;取得图层名
                             ys (read (vl-string-translate "," " " (strcat "(" (nth 5 lst) ")"))));组成RGB值LIST
                       (if (not (tblsearch "layer" tc))(command "layer" "n" tc ""));建立新的图层
                       (vl-cmdf "layer" "s" tc "");将新建的图层置为当前层
                       (setq acCmColo (vla-getinterfaceobject (vlax-get-acad-object)
                                (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
                       (vlax-invoke-method acCmColo "SetRGB" (car ys) (cadr ys) (last ys));建立RGB颜色
                       (vlax-for Layer (vla-get-Layers                                ;以下4行置图层RGB颜色
                                           (vla-get-ActiveDocument (vlax-get-acad-object)) )
                           (if (= (vlax-get-property Layer "name") tc)
                               (vlax-put Layer "Truecolor" acCmColo)))
                       (vl-cmdf "pline" p0 p1 "")
;;;                       (vlax-put-property (vlax-ename->vla-object (entlast)) 'trueCOLOR acCmColo);本行置最后图元的RGB颜色
                       (setq p0 p1 jj (1+ jj))  )        ;交换点坐标
                   (vlax-invoke-method xl 'quit)
                   (vlax-release-object xl)
                   (vl-cmdf "regen" "zoom" "e")
               );progn
        );if
    );if  
)
(prompt "command: exht")(princ)

君是我的泪

pxr201419 发表于 2019-7-18 08:23
本例为一种思路，供参考。注： EXCEL文件的F列必须设置为文本
(defun c:exht (/ xl fl fn lst p0 p1 tc ys ...

给一个颜色文本的格式，是按照上表来的？excel新建一行依然有效？

君是我的泪

pxr201419 发表于 2019-7-18 08:23
本例为一种思路，供参考。注： EXCEL文件的F列必须设置为文本
(defun c:exht (/ xl fl fn lst p0 p1 tc ys ...

能让画出来的线 多条首尾相连吗？也就是pline，这个dxf转化成kml方便点，不然还得选择，可否设置一个switch

pxr201419

那就是说一张表里的数据画一根PLINE ?那E列表示的是什么？一根线不可能在多个图层上

君是我的泪

pxr201419 发表于 2019-7-19 15:11
那就是说一张表里的数据画一根PLINE ?那E列表示的是什么？一根线不可能在多个图层上

一条连续的线一个图层，这个是导入奥维地图做kml 用的

君是我的泪

pxr201419 发表于 2019-7-19 15:11
那就是说一张表里的数据画一根PLINE ?那E列表示的是什么？一根线不可能在多个图层上

由衷的谢谢

君是我的泪

如何设置一条pl路径，多种line颜色,但首尾相连且连续，可以标注kml上的路径，这又是另一个思路

4578.535	857.0983	1.1	4578.5349,857.0983,1.1	pl	layer1	0,255,255
16458.53	857.0983	2.2	16458.5349,857.0983,2.2	pl	layer1	0,255,255
16458.53	15988.87	1.2	16458.5349,15988.8722,1.2	pl	layer2	255,255,0
4578.535	15988.87	1.2	4578.5349,15988.8722,1.2	pl	layer2	255,255,0
4578.535	857.0983	2.2	4578.5349,857.0983,2.2	pl	layer2	255,255,0

st788796

pline 是一个实体，不能每段一个颜色

君是我的泪

st788796 发表于 2019-7-31 06:56
pline 是一个实体，不能每段一个颜色

首尾相连或者首位不相连的line，颜色可以一拉就行，这样可以做到吗？首尾相连，单色应用在等水压线上，不相连可以在奥维kml上

60ck

君是我的泪 发表于 2019-7-31 15:09
首尾相连或者首位不相连的line，颜色可以一拉就行，这样可以做到吗？首尾相连，单色应用在等水压线上， ...

您好

請教一下，我下載excel檔後
我執行後出現錯誤的訊息

kmliro_2017

谢谢分享！！！！！