设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [编程申请]：求LSP程序，将选定圆弧变成圆(非360度的圆 ...
12下一页
返回列表 发新帖
查看: 1122|回复: 19

[编程申请]：求LSP程序，将选定圆弧变成圆(非360度的圆弧)，圆心位置不变。

[复制链接]
lengliqun
发表于 2005-3-15 14:49:53 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
求LSP程序，将选定圆弧变成圆(非360度的圆弧)，圆心位置不变。
圆弧, 圆心, 选定

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

zxq0220

已领礼包: 11288个

财富等级: 富甲天下
发表于 2005-3-15 20:03:26 | 显示全部楼层

Re: [编程申请]：求LSP程序，将选定圆弧变成圆(非360度的圆弧)，圆心位置不变。

最初由 lengliqun 发布
[B]求LSP程序，将选定圆弧变成圆(非360度的圆弧)，圆心位置不变。 [/B]

楼主：在ACAD中圆弧无论如何也不能画到360度！
[php]
(DEFUN C:ARC-CIRCLE ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(PRINC "\nPlease Select Arc(s) 请选择圆弧 :")
(IF (SETQ SS (SSGET '((0 . "ARC")))) (PROGN
  (SETQ SL (SSLENGTH SS) I 0)
  (REPEAT SL
   (SETQ SN (SSNAME SS I)
         ENT (ENTGET SN)
         CEN (CDR (ASSOC 10 ENT))
         R (CDR (ASSOC 40 ENT)))
   (COMMAND "ERASE" SN "" "CIRCLE" CEN R)
  )
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lengliqun
 楼主| 发表于 2005-3-15 23:43:21 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
可以框选多个圆弧，但只有其中一个能变成圆，加油哦。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-3-16 00:48:47 | 显示全部楼层
[php]
(defun c:test()
  (command ".undo" "BE")
  (setq SS (ssget '((0 . "ARC")))
        i -1)
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt (dxf 10 (entget s1))
          rad (dxf 40 (entget s1))
          )
    (command "erase" s1 "" "circle" pt rad)
    )
  (command ".undo" "E")
  )
(defun dxf (code elist) (cdr (assoc code elist)))
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lengliqun
 楼主| 发表于 2005-3-16 12:28:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
经测试可以用了，谢谢zxq0220 和xyp1964 。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11288个

财富等级: 富甲天下
发表于 2005-3-16 13:30:10 | 显示全部楼层
最初由 lengliqun 发布
[B]可以框选多个圆弧，但只有其中一个能变成圆，加油哦。 [/B]

更改后程序：
[php]
(DEFUN C:ARC-CIRCLE ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(COMMAND ".UNDO" "BE")
(PRINC "\nPlease Select Arc(s) 请选择圆弧 :")
(IF (SETQ SS (SSGET '((0 . "ARC")))) (PROGN
  (SETQ SL (SSLENGTH SS) I 0)
  (REPEAT SL
   (SETQ SN (SSNAME SS I) I (1+ I)
         ENT (ENTGET SN)
         CEN (CDR (ASSOC 10 ENT))
         R (CDR (ASSOC 40 ENT)))
   (COMMAND "ERASE" SN "" "CIRCLE" CEN R)
  )
))
(COMMAND ".UNDO" "E")
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lengliqun
 楼主| 发表于 2005-3-16 17:49:58 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
经测试6楼zxq0220  大侠LSP完全可用，谢谢。论坛高手真多。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

li809
发表于 2005-3-16 17:52:10 | 显示全部楼层
谢谢了，好程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

狂刀
发表于 2005-3-17 14:32:32 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
[php];; arc 转为circle.
(defun c:ARC2C ( / i ss e ent)
  (command ".undo" "be")
  (princ "\nplease select arc(s) 请选择圆弧 <全选>:")
  (or (setq i -1 ss (ssget '((0 . "ARC"))))
      (setq ss (ssget "x" '((0 . "ARC"))))
  )
  (while (setq e (ssname ss (setq i (1+ i))))
    (setq ent (vl-remove-if '(lambda(x)(member (car x) '(100 50 51)))(entget e)))
    (entdel e)
    (entmake (subst (cons 0 "CIRCLE") (assoc 0 ent) ent))
  )
  (command ".undo" "e")
  (princ)
)[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lengliqun
 楼主| 发表于 2005-3-21 12:58:51 | 显示全部楼层
经测试楼上三位大侠LSP完全可用，谢谢。论坛高手真多。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

kevinchan
发表于 2005-3-21 13:53:06 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
如果把圆环donut转成圆呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11288个

财富等级: 富甲天下
发表于 2005-3-22 22:21:26 | 显示全部楼层
最初由 kevinchan 发布
[B]如果把圆环donut转成圆呢? [/B]

程序：

  3. (DEFUN C:DONUT2C ( / SS OLDOS SL I SL SN EN P1 P2 R PC)
  4. (SETVAR "CMDECHO" 0)
  5. (IF (SETQ SS (SSGET "X" '((0 . "LWPOLYLINE") (70 . 1) (42 . 1)))) (PROGN
  6.   (SETQ OLDOS (GETVAR "OSMODE"))
  7.   (SETVAR "OSMODE" 0)
  8.   (SETQ SL (SSLENGTH SS) I 0)
  9.   (COMMAND ".UNDO" "BE")
  10.   (REPEAT SL
  11.    (SETQ SN (SSNAME SS I) I (1+ I)
  12.          EN (ENTGET SN)
  13.          P1 (CDR (ASSOC 10 EN))
  14.          P2 (CDR (ASSOC 10 (REVERSE EN)))
  15.          R (* (DISTANCE P1 P2) 0.5)
  16.          PC (POLAR P1 (ANGLE P1 P2) R))
  17.    (COMMAND "ERASE" SN "" "CIRCLE" PC R)
  18.   )
  19.   (COMMAND ".UNDO" "E")
  20.   (SETVAR "OSMODE" OLDOS)
  21. ))
  22. (SETVAR "CMDECHO" 1)
  23. (PRINC)
  24. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

kevinchan
发表于 2005-4-2 16:10:42 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 kevinchan 发布
[B]如果把圆环donut转成圆呢? [/B]


好象运行没有反应?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-4-2 21:13:32 | 显示全部楼层
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;将圆环donut转成圆 <kevinchan>
(defun c:test ()
  (cmdla0)
  (setq        ss (ssget '((0 . "*LINE") (70 . 1)))
        n  -1
  )
  (while (setq s1 (ssname ss (setq n (+ 1 n))))
    (setq obj        (vlax-ename->vla-object S1)
          plist        (vlax-safearray->list
                  (vlax-variant-value
                    (vla-get-coordinates obj)
                  )
                )
    )
    (if        (= (1- (/ (length plist) 2)) 2)
      (progn
        (setq pt1 (list (nth 0 plist) (nth 1 plist) (nth 2 plist))
              pt2 (list (nth 3 plist) (nth 4 plist) (nth 5 plist))
              rad (abs (/ (distance pt1 pt2) 2.0))
              pt  (_midp pt1 pt2)
        )
        (command "erase" s1 "" "circle" pt rad)
      )
    )
  )
  (cmdla1)
)
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11288个

财富等级: 富甲天下
发表于 2005-4-2 21:42:32 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 kevinchan 发布
[B]

好象运行没有反应? [/B]

程序是自动将图中所有圆环转为圆，您运行后是无任何反应。
这是因为：1、图中无圆环。
          2、图中圆环全部转换成圆后程序无任何输出。
程序更改如下：

  3. (DEFUN C:DONUT2C ( / SS OLDOS SL I SL SN EN P1 P2 R PC)
  4. (SETVAR "CMDECHO" 0)
  5. (IF (SETQ SS (SSGET "X" '((0 . "LWPOLYLINE") (70 .  1) (42 . 1)))) (PROGN
  6.   (SETQ OLDOS (GETVAR "OSMODE"))
  7.   (SETVAR "OSMODE" 0)
  8.   (SETQ SL (SSLENGTH SS) I 0)
  9.   (COMMAND ".UNDO" "BE")
  10.   (REPEAT SL
  11.    (SETQ SN (SSNAME SS I) I (1+ I)
  12.          EN (ENTGET SN)
  13.          P1 (CDR (ASSOC 10 EN))
  14.          P2 (CDR (ASSOC 10 (REVERSE EN)))
  15.          R (* (DISTANCE P1 P2) 0.5)
  16.          PC (POLAR P1 (ANGLE P1 P2) R))
  17.    (COMMAND "ERASE" SN "" "CIRCLE" PC R)
  18.   )
  19.   (PRINC (STRCAT "\n" (ITOA SL) " DONUT HAS CHANGE TO CIRCLE."))
  20.   (PRINC (STRCAT "\n" (ITOA SL) " 个圆环已经转换成圆。"))
  21.   (COMMAND ".UNDO" "E")
  22.   (SETVAR "OSMODE" OLDOS)
  23. ))
  24. (SETVAR "CMDECHO" 1)
  25. (PRINC)
  26. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-22 11:50 , Processed in 0.253982 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表