xyzjint_cn 发表于 2004-3-16 09:47:00

[原创]请教程序中究竟有什么错误？

我编的了一个程序，房间中的送风口自动布置，程序运行过程大致如下：


运行后，选择矩形房间中的文字，程序自动提取房间名称中的“送风量”扩展数据（该数据是由其它程序加上去的），进行风口类型的判断及求出风口的数量，采用“BPOLY”命令得到矩形房间的中到中的由POLYLINE围成的方框，得到四个顶点列表（PLIST），根据列表求出房间的中点，长度及宽度，在多个风口时，以后的程序就为交互式输入风口行数，列数，间距，程序就自动插入风口图块。


我的程序在得到POLYLINE列表PLIST时，判断房间的对角点，求出中点PT时总是出错，请版主指教！


该程序须在我的DWG文件中运行。

meflying 发表于 2004-3-16 12:46:00

从你的图中并没有发现"送风量的"的数据，这个是词典而不是扩展数据。。。


看了你的GetListOfPline函数，你的两个判断都是POLYLINE，有一个是LWPOLYLINE吧，还有最后(setq LastList LastList)有什么意义？


我给你写了一个，你先看看，并且按X、Y从小到大排过序，你的程序其余部分未细看：


(defun GetListOfPline(EntityName / SSE_Pline pt_lst pt ents)<BR>       (setq SSE_Pline (entget EntityName))<BR>       (setq pt_lst nil)<BR>       (cond<BR>                       ((= (cdr (assoc 0 SSE_Pline)) "POLYLINE")<BR>                               (while<BR>                                               (/= (cdr (assoc 0 (setq ents (entget (setq EntityName (entnext EntityName)))))) "SEQEND")<BR>                                               (setq pt_lst (append pt_lst (list (cdr (assoc 10 ents)))))<BR>                               )<BR>                       )<BR>                       ((= (cdr (assoc 0 SSE_Pline)) "LWPOLYLINE")<BR>                               (while (setq pt (assoc 10 SSE_Pline))<BR>                                               (setq pt_lst (append pt_lst (list (cdr pt))))<BR>                                               (setq SSE_Pline (cdr (member pt SSE_Pline)))<BR>                               )<BR>                       )<BR>       )<BR>       (setq pt_lst (vl-sort pt_lst '(lambda(e1 e2) (&lt; (cadr e1) (cadr e2)))))<BR>       (vl-sort pt_lst '(lambda(e1 e2) (&lt; (car e1) (car e2))))<BR>)

xyzjint_cn 发表于 2004-3-16 15:56:00

"送风量的"的数据在程序中是用(setq        roomfl        (vlax-ldata-get        room        "送风量"))，它是用(vlax-ldata-put函数加上去的，我的GetListOfPline函数也是从本论坛上下载的，你的子程序我用了一下，得到的表为NIL。


        <BR>

meflying 发表于 2004-3-16 20:10:00

1、我是说你的图中没有，不是问你这是什么东西。。。


2、不知道你是怎么测试的，我这里绝对没有问题
页: [1]
查看完整版本: [原创]请教程序中究竟有什么错误？