[编程申请]：请帮忙！！请编个这样的程序!谢谢！

lewis240 · 发表于 2004-11-17 22:22:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

谁能帮忙编这样的程序个:
1.能炸圆或弧线的程序!最好是圆或弧线要能定它炸开后的直线段数的(平滑度)要求不改变圆或弧的大小坐标位置!
2:把圆或弧变多义线,转好后希望是连着的但是多义线是由全直线构成不含弧的画法?

谁能编出其中一个呢?如果两个都能就太感谢了!!
谢谢!!谢谢!!谢谢!!小弟恭候!
*-*6 *-*5
最好是一个命令就搞定的不要转成其他格式的行吗？（就想CAD的explode似的那样方便）

saintdog · 发表于 2004-11-17 23:45:47

你说的这种程序，论坛上以前就有这种贴子，找一下应该还可以找到。另外我有一个建议，就是：1、对于ELLIPSE，只要再画ELLIPSE这前将参数PELLIPSE置为1再画ELLIPSE就可以用EXPLODE炸开了，2、对于ARC、SPLINE只要使用WMFOUT和WMFIN再配合SCALE使用也可以很方便的炸开，精度可在OPTION和VIEWRES里面选。

xyp1964 · 发表于 2004-11-18 00:38:21

试试这个：
http://www.xdcad.net/forum/showthread.php?s=&threadid=272155

lewis240 · 发表于 2004-11-18 19:22:16

最初由 saintdog 发布
[B]你说的这种程序，论坛上以前就有这种贴子，找一下应该还可以找到。另外我有一个建议，就是：1、对于ELLIPSE，只要再画ELLIPSE这前将参数PELLIPSE置为1再画ELLIPSE就可以用EXPLODE炸开了，2、对于ARC、SPLINE只要使用... [/B]

我试了一下，PELLIPSE是能炸开椭圆但我想炸的是圆，再是这样炸出来的还是小段弧啊！我想要的是直线！不过这个方法倒让我长了见识！谢谢！
对于输出成WINDOWS图元，我试过，和输出成DXB格式是一样的会影响到坐标！！不理想！
谢谢！！！

对于楼上的地址也不是我想要的！这只是个画云图的程序！
虽然很好用！不过也谢了！

论坛上有这程序吗？我搜不到！那位能给个地址？？谢谢！！

clon · 发表于 2004-11-22 20:29:50

关于转成POLYLINE--用晓东工具里的曲线工具1里的曲线转换可以把圆转成POLYLINE但是我发现转的量小还可以
量多点就会出问题
会把所有的弧线都删掉
那位高手能解决？？

lewis240 · 发表于 2004-11-24 22:47:25

没人知道怎么做吗？？？
论坛有吗？？
谁给个连接？

clon · 发表于 2004-11-30 22:03:22

我也遇到同样的问题？我也想知道怎么做！？

zxq0220 · 发表于 2004-12-1 15:39:58

程序：
[php]
(DEFUN C:TOLINE ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(PRINC "\nSelect Arc or Circle")
(SETQ SS (SSGET '((0 . "Arc,Circle"))))
(SETQ AC (GETDIST "\nPrecision (Highness of Chord) <0.03> :")
   AC (IF (= AC nil) 0.03 AC))
(IF (/= SS nil) (PROGN
(SETQ SL (SSLENGTH SS) I 0)
(WHILE (< I SL)
  (SETQ SN (SSNAME SS I) DL (ENTGET SN) I (1+ I)
      L (CDR (ASSOC 0 DL)))
  (IF (= L "ARC") (PROGN
(SETQ PC (CDR (ASSOC 10 DL))  SA (CDR (ASSOC 50 DL))
      EA (CDR (ASSOC 51 DL))  R (CDR (ASSOC 40 DL))
      P1 (POLAR PC SA R)    P2 (POLAR PC EA R)
      STEPANG (* (ATAN (SQRT (- (* R R) (* (- R AC) (- R AC)))) (- R AC)) 2)
      SA (IF (> SA PI) (- SA PI PI) SA)
      STARTA SA ENDA EA
)
(COMMAND "PLINE" P1)
(WHILE (< STARTA (- ENDA STEPANG))
(COMMAND (POLAR PC (SETQ STARTA (+ STARTA STEPANG)) R))
)
(COMMAND P2 "" "ERASE" SN "")
  ))
  (IF (= L "CIRCLE") (PROGN
(SETQ PC (CDR (ASSOC 10 DL)) R (CDR (ASSOC 40 DL))
      P1 (POLAR PC 0 R)
      STEPANG (* (ATAN (SQRT (- (* R R) (* (- R AC) (- R AC)))) (- R AC)) 2)
      STARTA 0 ENDA (+ PI PI)
)
(COMMAND "PLINE" P1)
(WHILE (< STARTA (- ENDA STEPANG))
(COMMAND (POLAR PC (SETQ STARTA (+ STARTA STEPANG)) R))
)
(COMMAND "C" "ERASE" SN "")
  ))
)
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

lewis240 · 发表于 2004-12-2 23:56:29

哇！！！佩服佩服！！！！
我今天试了一下又有问题了！
就是我在画多义线的时候如果其中有带弧的话是选不到的
那我就把它炸开把炸开的弧转多义线结果出现了几个大圆！
我又试着新画几个连着的弧结果也一样！

zxq0220 · 发表于 2004-12-6 10:38:10

找到BUG，已经改好了。
[php]
(DEFUN C:TOLINE ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(PRINC "\nSelect Arc or Circle")
(SETQ SS (SSGET '((0 . "Arc,Circle"))))
(SETQ AC (GETDIST "\nPrecision (Highness of Chord) <0.03> :")
   AC (IF (= AC nil) 0.03 AC))
(IF (/= SS nil) (PROGN
(SETQ SL (SSLENGTH SS) I 0)
(WHILE (< I SL)
  (SETQ SN (SSNAME SS I) DL (ENTGET SN) I (1+ I)
      L (CDR (ASSOC 0 DL)))
  (IF (= L "ARC") (PROGN
(SETQ PC (CDR (ASSOC 10 DL))  SA (CDR (ASSOC 50 DL))
      EA (CDR (ASSOC 51 DL))  R (CDR (ASSOC 40 DL))
      P1 (POLAR PC SA R)    P2 (POLAR PC EA R)
      STEPANG (* (ATAN (SQRT (- (* R R) (* (- R AC) (- R AC)))) (- R AC)) 2)
      SA (IF (< (- EA SA) 0) (- SA PI PI) SA)
      STARTA SA ENDA EA
)
(COMMAND "PLINE" P1)
(WHILE (< STARTA (- ENDA STEPANG))
(COMMAND (POLAR PC (SETQ STARTA (+ STARTA STEPANG)) R))
)
(COMMAND P2 "" "ERASE" SN "")
  ))
  (IF (= L "CIRCLE") (PROGN
(SETQ PC (CDR (ASSOC 10 DL)) R (CDR (ASSOC 40 DL))
      P1 (POLAR PC 0 R)
      STEPANG (* (ATAN (SQRT (- (* R R) (* (- R AC) (- R AC)))) (- R AC)) 2)
      STARTA 0 ENDA (+ PI PI)
)
(COMMAND "PLINE" P1)
(WHILE (< STARTA (- ENDA STEPANG))
(COMMAND (POLAR PC (SETQ STARTA (+ STARTA STEPANG)) R))
)
(COMMAND "C" "ERASE" SN "")
  ))
)
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

lewis240 · 发表于 2004-12-7 23:33:51

大哥！！厉害啊！！！
太谢谢了！

xyp1964 · 发表于 2004-12-8 00:00:40

试试：[原创]：任意线转POLYLINE程序（暂时免币！）
http://www.xdcad.net/forum/showthread.php?s=&threadid=301953

lewis240 · 发表于 2004-12-11 13:02:49

大哥还有问题！不知道什么原因我把圆转成多义线后炸碎然后转成DXF格式
这个DXF文件就打不开了！用修复也不行？！
请zxq0220大哥看看是程序的问题吗？还是我CAD的问题？我的CAD2002的

xxxyzxx · 发表于 2004-12-11 13:09:58

1楼楼主，3楼楼主提供的完全满足你说的1.2两种所有情况，已经测试N天无问题！

zxq0220 · 发表于 2004-12-13 08:06:11

将DXF文件传上来。或发到我的邮箱里zxq0220@sohu.com。

账号		自动登录	找回密码
密码			立即注册

[编程申请]：请帮忙！！请编个这样的程序!谢谢！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子