[编程申请]：如何利用excel数据连续画各种线型(如直线。曲线等）所组成的图型，并自动

3602705

如何利用excel数据连续画各种线型(如直线。曲线等）所组成的图型，并自动标注各点的座标

XDSoft

最初由 3602705 发布
[B]如何利用excel数据连续画各种线型(如直线。曲线等）所组成的图型，并自动标注各点的座标 [/B]

推荐先用 EXCEL 做关键字，搜索下论坛，看看以前的帖子。

zhqchn

试试CadAssis吧！我觉得完全可以满足你的要求！

excel数据连续画线用Pline->Acad

自动标注标注各点的座标用SCR

具体用法请参见CadAssis的readme！

msdg

刚才我见到我就想推荐该软件，只是其暂时无法自动标注各点的座标，用SCR当然可以，但新手用可能会更麻烦。我一般是把杨明峰先生编制的“坐标标注子程序”和其配合使用。如果楼上zhqchn 先生能继续增加其软件功能，我想将会方便更多会员！

eachy

读取当前工作簿，利用Excel绘图，标坐标用工具箱的坐标系统－》批量标注。
使用方法：复制－》粘贴－》保存到工具箱 Lisp 目录下，加载。

2. 
   
3. (defun c:Ea_DRLn (/ key plst)
   
4.   (xdrx_begin)
   
5.   (xdrx_sysvar_push "osmode")
   
6.   (princ "\n注意：行、列值按Excel格式输入.....")
   
7.   (setq
   
8.     key        (getstring t
   
9.                    "\n输入EXCEL范围[起始行 起始列 结束行 结束列]: "
   
10.         )
    
11.   )
    
12.   (setq plst (hww_excel_cad (read key)))
    
13.   (apply 'command
    
14.          (cons ".pline"
    
15.                (mapcar '(lambda (x) (mapcar 'read x)) plst)
    
16.          )
    
17.   )
    
18.   (command "c")
    
19.   (xdrx_sysvar_pop)
    
20.   (xdrx_end)
    
21.   (princ)
    
22. )
    

<br /> (defun c:Ea_DRLn (/ key plst)<br />   (xdrx_begin)<br />   (xdrx_sysvar_push "osmode")<br />   (princ "\n注意：行、列值按Excel格式输入.....")<br />   (setq<br />     key        (getstring t<br />                    "\n输入EXCEL范围[起始行 起始列 结束行 结束列]: "<br />         )<br />   )<br />   (setq plst (hww_excel_cad (read key)))<br />   (apply 'command<br />          (cons ".pline"<br />                (mapcar '(lambda (x) (mapcar 'read x)) plst)<br />          )<br />   )<br />   (command "c")<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

3602705

谢谢各位大哥，能否在Excel里同时用几个命令，如：
pl
12  45
24  68
s
21   45
78   45
等如此形式
格式如何？请多多指教

msdg

先画出PL，再转为S不可以吗？

3602705

先复制PL，粘贴PL，再复制S，粘贴S，这样分命令得；如果ＰＬ Ｓ连在一起复制，粘贴运行后只得PL部分，是否格式不对？请大哥多多指教，最好能例出一段作为参考，拜托了。

eachy

最初由 3602705 发布
[B]先复制PL，粘贴PL，再复制S，粘贴S，这样分命令得；如果ＰＬ Ｓ连在一起复制，粘贴运行后只得PL部分，是否格式不对？请大哥多多指教，最好能例出一段作为参考，拜托了。 [/B]

msdg  的意思是：画好 Pline 后，输入 pedit  选择 Pline ，输入 S ，回车。

3602705

不明白，能否详细点，谢谢！

zhqchn

to 3602705 :
你的第6、8帖我都看不懂，到底是要做一个什么样的操作？

halibt

hww_excel_cad未定义

msdg

最初由 halibt 发布
[B]hww_excel_cad未定义 [/B]

我也遇到同样问题.另外坐标标注系统的自定义坐标,起点坐标也不能定义为(0,0),改为(100,100)又正常了.请EACHY兄明示.

3602705

我的意思：
在excel里建立如下座标和命令
x        y        x,y
                pline
40        40        40,40
60        60        60,60
                spline
60        60        60,60
78        86        78,86
54        48        54,48
复制后，到CAD命令行粘贴运行是否得出直线和样条曲线。
如不行，该如何才能实现（在excel里），请指教！

halibt

最初由 3602705 发布
[B]我的意思：
在excel里建立如下座标和命令
x        y        x,y
                pline
40        40        40,40
60        60        60,60
                spline
60        60        60,60
78        86        78,86
54        48        54,48
复制后，到CAD命令行粘贴运行是否得出直线和样条曲线。
如不行，该如?.. [/B]

可以啊，pline、spline都可以的，先输命令再粘贴数据。标注就不知道了。