请帮忙改改程序.

abc498091367

st788796 发表于 2014-11-12 11:31
看不清，传测试图，正好在修改 Table 函数

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:桌面.rar 
下载次数:6  文件大小:17.31 KB 
下载权限: 不限 以上  [免费赚D豆]

请查看里面有DWG还有源码，请帮忙修改一下！谢谢！

st788796

你这个表中的 A 和 冲针 什么意思，尺寸怎么来的
是图示关系吗

abc498091367

st788796 发表于 2014-11-12 14:01
你这个表中的 A 和 冲针 什么意思，尺寸怎么来的

你下载我后面发的没有？里面有...

st788796

abc498091367 发表于 2014-11-12 14:18
你下载我后面发的没有？里面有...

不懂你这个行业，详细说说

abc498091367

st788796 发表于 2014-11-12 14:01
你这个表中的 A 和 冲针 什么意思，尺寸怎么来的
是图示关系吗

A是形状...意思除了举行还有另外几种，冲针是在尺寸的基础上加的

最好能在我的程序里面修改一下，我就想一个功能...在按AKF后就判断2层里面有没有闭合线，如果有就打散，如果没有就跳过打散这一步。
这样就方便不用只显2次打散，在按AKF了。

因为行业不同...如果全部写的话那就麻烦！

st788796

abc498091367 发表于 2014-11-12 14:27
A是形状...意思除了举行还有另外几种，冲针是在尺寸的基础上加的

最好能在我的程序里面修改一下，我就 ...

1. (if (setq ss (ssget "X"
   
2.                     '((0 . "Lwpolyline") (8 . "2") (-4 . "&=") (70 . 1))
   
3.              )
   
4.     )
   
5.   (progn
   
6.     (setvar "qaflags" 0)
   
7.     (setvar "cmdecho" 0)
   
8.     (vl-cmdf ".explode" ss)
   
9.   )
   
10. )
    

(if (setq ss (ssget "X"<br />                     '((0 . "Lwpolyline") (8 . "2") (-4 . "&=") (70 . 1))<br />              )<br />     )<br />   (progn<br />     (setvar "qaflags" 0)<br />     (setvar "cmdecho" 0)<br />     (vl-cmdf ".explode" ss)<br />   )<br /> )<br />

abc498091367

st788796 发表于 2014-11-12 14:42

你好st788796程序可以执行
但是还有个问题，现在程序可以打散1个。如果有N个闭合线...
还得麻烦帮忙修改一下！

st788796

abc498091367 发表于 2014-11-12 14:48
你好st788796程序可以执行
但是还有个问题，现在程序可以打散1个。如果有N个闭合线...
还得麻烦帮忙修 ...

1. (if (setq ss (ssget "X"
   
2.                     '((0 . "Lwpolyline") (8 . "2") (-4 . "&=") (70 . 1))
   
3.              )
   
4.     )
   
5.   (progn
   
6.     (setvar "qaflags" 1)
   
7.     (setvar "cmdecho" 0)
   
8.     (vl-cmdf ".explode" ss "")
   
9.   )
   
10. )

(if (setq ss (ssget "X"<br />                     '((0 . "Lwpolyline") (8 . "2") (-4 . "&=") (70 . 1))<br />              )<br />     )<br />   (progn<br />     (setvar "qaflags" 1)<br />     (setvar "cmdecho" 0)<br />     (vl-cmdf ".explode" ss "")<br />   )<br /> )

abc498091367

st788796 发表于 2014-11-12 14:54

不行了，出错了。

命令: akf 请指定要统计物体<第2层>:
; 错误: 参数类型错误: 二维/三维点: nil
选择对象: *取消*



是不是系统变量变了？我得重新装2004，之前能用的现在也不行，得重新装

abc498091367

st788796 发表于 2014-11-12 14:54

(setvar "qaflags" 0)
是不是这句有问题？(setvar "qaflags" 0)就不会出错，但是只能打散1个。
(setvar "qaflags" 1)的话系统变量就出错。还有没有办法？

守仁格竹GM

不用炸开直接矩形就行了

abc498091367

守仁格竹GM 发表于 2014-11-12 17:22
不用炸开直接矩形就行了

我也想呀，不过现在这程序是闭合线就出错，没办法。能帮忙改成闭合线也可以？

iLisp

abc498091367 发表于 2014-11-12 17:32
我也想呀，不过现在这程序是闭合线就出错，没办法。能帮忙改成闭合线也可以？

就认准自己的程序了，那就遍历 explode, 再高版本的qaflags都可以的，2004不适合玩程序了

zxq0220

还是换个思路，直接对封闭矩形判断。

abc498091367

zxq0220 发表于 2014-11-13 07:37
还是换个思路，直接对封闭矩形判断。

程序在16楼下载
请高手帮忙，