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

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)
   (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 · 发表于 2004-3-16 15:56:00

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

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

1、我是说你的图中没有，不是问你这是什么东西。。。
2、不知道你是怎么测试的，我这里绝对没有问题

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

发表回复

精选推荐