[求助]：R12下程序如何迁移到R14或CAD 2000?

shwebhost

附件中的程序是在R12下能正常运行的软件，但在R14中会出错。程序共有4个压缩文件。

shwebhost

续前。

shwebhost

续前。

shwebhost

简单的使用过程如下：
从DRAW菜单的CENTER LINE，画线，
再从DRAW菜单的CENTER LINE TO WALL，在R14版本中就出错，因为选择的线是PLINE线，（本来该程序是应当画出一道有高、宽、厚等参数的墙体或门。）
该程序是用于屏风等的设计之专用软件。

lijiao

我帮你看看

zhang8755

应为在r14版中，默认的pline实际上是LWPOLYLINE，其实体数据表的格式不同，在r12版中对pline线的处理需用entnext函数，而在r14版中对LWPOLYLINE，只需用entget一次即将该实体的所有数据都提取出来了，其后只需对数据表处理即可。
你需将有关对pline操作的函数修改，以适应r14的变化。

shwebhost

最初由 zhang8755 发布
[B]应为在r14版中，默认的pline实际上是LWPOLYLINE，其实体数据表的格式不同，在r12版中对pline线的处理需用entnext函数，而在r14版中对LWPOLYLINE，只需用entget一次即将该实体的所有数据都提取出来了，其后只需对数据... [/B]

zhang8755 ：您好，可是我不知道怎么改？

lijiao

最初由 shwebhost 发布
[B][QUOTE]最初由 zhang8755 发布
[B]应为在r14版中，默认的pline实际上是LWPOLYLINE，其实体数据表的格式不同，在r12版中对pline线的处理需用entnext函数，而在r14版中对LWPOLYLINE，只需用entget一次即将该实... [/B]

如果这些程序是你自己写的，你应该会改，因为程序写到这个程度，应该是高手了。
我是搞机械的，搞不懂你的程序，见谅。

zhang8755

下面是R12中取出PLINE每个点坐标的例程，ENTNME代表实体名
(defun getver(entnme / subent verlst vertex)
        (setq subent(entnext entnme))
        (setq verlst '())
        (while  (setq vertex(cdr(assoc 10 (entget subent))))
                (setq verlst(append verlst(list vertex)))
                (setq subent (entnext subent))
        )
        verlst
)
下面是R14中取出PLINE每个点坐标的例程，ENT代表实体名
        (setq verlst (entget ent))
          (foreach onepoint verlst
          (if (= 10 (car onepoint))
                  (setq verlst2(append verlst2(list (cdr onepoint))))
          )
        )

shwebhost

其实现在的问题是生成的墙（见附件w.dwg）用菜单replace--change修改，出现一表格（可把wall改为door,可插入、删除、修改，但总长不能变），正常退出后，表格消失，平面立面相应变化，但在r14(2002)中无法正常退出。（见附件w1.dwg）

e2002

稍微看了一下这个程序,很古老的了(AutoCAD R10),对其用途不是很明确,看样子是建筑专业的吧?还没有看出其总体思路是怎么样的.有什么特别的优点?

不过现在到处都是TCH3,Tch5的D版,有没有必要继续使用这么古老的东东呢?我有些迷惑了...


//又看了一下*.slb,看来是一个电梯设计相关?室内装修?幕墙?的软件?

shwebhost

e2002:是一个墙体设计软件。是国外写的，基于R10开发的。想迁移，可以帮忙吗？

aeo

这么多包,瞎死我了,如果全是*.lsp,我要写一辈子了:)

r10到r14一般能用.
r14多了一个lwpolyline,而且是缺省的.要改回polyline.
有些命令格式变了,所以command会多个 ""  什么的.
我想原因可能就在里面.
你先用  (setvar "PLINETYPE" 0)  试试.