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

xyzjint_cn

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


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


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


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

meflying

从你的图中并没有发现"送风量的"的数据，这个是词典而不是扩展数据。。。 看了你的GetListOfPline函数，你的两个判断都是POLYLINE，有一个是LWPOLYLINE吧，还有最后(setq LastList LastList)有什么意义？ 我给你写了一个，你先看看，并且按X、Y从小到大排过序，你的程序其余部分未细看： (defun GetListOfPline(EntityName / SSE_Pline pt_lst pt ents)
(setq SSE_Pline (entget EntityName))
(setq pt_lst nil)
(cond
((= (cdr (assoc 0 SSE_Pline)) "POLYLINE")
(while
(/= (cdr (assoc 0 (setq ents (entget (setq EntityName (entnext EntityName)))))) "SEQEND")
(setq pt_lst (append pt_lst (list (cdr (assoc 10 ents)))))
)
)
((= (cdr (assoc 0 SSE_Pline)) "LWPOLYLINE")
(while (setq pt (assoc 10 SSE_Pline))
(setq pt_lst (append pt_lst (list (cdr pt))))
(setq SSE_Pline (cdr (member pt SSE_Pline)))
)
)
)
(setq pt_lst (vl-sort pt_lst '(lambda(e1 e2) (< (cadr e1) (cadr e2)))))
(vl-sort pt_lst '(lambda(e1 e2) (< (car e1) (car e2))))
)

xyzjint_cn

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

meflying

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


2、不知道你是怎么测试的，我这里绝对没有问题