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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：麻烦高手给我看下修改圆半径的两程序 ...
返回列表 发新帖
查看: 781|回复: 6

[求助] [求助]：麻烦高手给我看下修改圆半径的两程序

[复制链接]
eobser
发表于 2006-1-17 23:05:39 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
一个是教材的，运行都出错
先谢了！

  3. (defun c:xg_bj()
  4.    (setvar "cmdecho" 0)
  5.    (princ "\n选取要修改的圆...")
  6.    (setq ss (ssget))
  7.    (setq old_rr (getvar "circlerad"))
  8.    (setq str_rr (strcat "\n新直径<" (rtos (* old_rr 2) 2） ">:"))
  9.    (setq rr (getdist str_rr))
  10.    (if (null rr)
  11.        (setq rr old_rr)
  12.        (setq rr (/ rr 2.0))
  13.     )
  14.    (setq n 0)
  15.    (repeat (sslength ss)
  16.            (setq ssn (ssname ss n))
  17.            (setq ssdata (entget ssn))
  18.            (if (= (cdr (assoc 0 ssdata)) "CIRCLE")
  19.                (progn
  20.                  (setq new_rr (cons 40 rr))
  21.                  (setq old_rr (assoc 40 ssdata))
  22.                  (setq ssdata (subst new_rr old_rr ssdata))
  23.                  (entmod ssdata)
  24.                 )
  25.             )
  26.            (setq n (1+ n))
  27.     )
  28.    (prin1)
  29. )


  32. ***************************************************************
  33. (defun c:xg_bj ()
  34.    (setvar "cmdecho" 0)
  35.    (princ "\n 请选取要修改的圆:")
  36.    (if (setq ss (ssget (list (cons 0 "CIRCLE"))))
  37.        (progn     
  38.            (setq rr (getreal "\n请输入圆新半径:"))
  39.            (setq n 0)
  40.            (repeat (sslength ss)
  41.               (setq en (ssname ss n))
  42.               (setq entlist (entget en))
  43.               (setq new_rr (cons 40 rr))
  44.               (setq old_rr (assoc 40 entlist))
  45.               (setq entlist (subst new_rr old_rr entlist))
  46.               (entmod entlist)
  47.               (setq n (1+ n))
  48.             )
  49.         )
  50.    ）
  51.    (princ)
  52. )
setq, rr, ssdata

相关帖子

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

使用道具 举报

ljpnb
发表于 2006-1-18 07:55:37 | 显示全部楼层
上面一个程序这句的当中有个括号不对:
(setq str_rr (strcat "\n新直径<" (rtos (* old_rr 2) 2） ">:"))    ;_倒数第3个括号

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

使用道具 举报

yshf

已领礼包: 111个

财富等级: 日进斗金
发表于 2006-1-18 08:36:04 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
括号必须为英文半角字符才行。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

gucci218
发表于 2006-1-18 09:00:17 | 显示全部楼层
第一个程序的错误： (setq str_rr (strcat "\n新直径<" (rtos (* old_rr 2) 2） ">:"))
第二个程序的错误：  ）
                     (princ)

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

使用道具 举报

eobser
 楼主| 发表于 2006-1-18 12:34:15 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢 都解决了
还请教调试程序的技巧
以及一些错误提示该怎么解读
请高手帮帮忙
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2006-1-19 22:36:40 | 显示全部楼层
  2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060116 (1972)
  3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
  4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
  5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
  6. ■2·在每个程序内增加(load"xyp_lib.vlx")
  7. ■3·在command下，输入(load"xyp_lib.vlx")
  8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
  9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
  10. [COLOR=red] ★通用函数下载地址：[/COLOR]
  11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
  12. |;

  14. (defun c:test ()
  15.   (CMDLA0)
  16.   (if (null rad)
  17.     (setq rad (getvar "circlerad"))
  18.   )
  19.   (setq        ss  (ssget '((0 . "CIRCLE,ARC")))
  20.         rad (UREAL 7 "" "\n请输入圆新半径" rad)
  21.         i   -1
  22.   )
  23.   (while (setq s1 (ssname ss (setq i (1+ i))))
  24.     (sub_upd s1 40 rad)
  25.   )
  26.   (CMDLA1)
  27. )

  29. (defun c:xg_bj ()
  30.   (setvar "cmdecho" 0)
  31.   (princ "\n 请选取要修改的圆:")
  32.   (if (setq ss (ssget (list (cons 0 "CIRCLE"))))
  33.     (progn
  34.       (setq rr (UREAL 7 "" "\n请输入圆新半径" rr)
  35.             n  -1
  36.       )
  37.       (repeat (sslength ss)
  38.         (setq entlist (entget (ssname ss (setq n (1+ n)))))
  39.         (entmod (subst (cons 40 rr) (assoc 40 entlist) entlist))
  40.       )
  41.     )
  42.   )
  43.   (princ)
  44. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xiaojinwen
发表于 2006-1-21 22:53:01 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(defun c:CIRCLE-CR()
      (IF (SETQ SSOBJ(SSGET '(( 0 . "CIRCLE"))))
          (PROGN
                (SETQ R (GETDIST (STRCAT "\n 输入圆的新半径：<" (RTOS (VLAX-LDATA-GET "XET-DIC" "XET-DIC-CIRCLE-R" 10)) ">")))
                (IF (= R NIL)
                    (SETQ R (VLAX-LDATA-GET "XET-DIC" "XET-DIC-CIRCLE-R" 10))
                    (VLAX-LDATA-PUT "XET-DIC" "XET-DIC-CIRCLE-R" R)
                    )
                (SETQ INDEX 0)
                (REPEAT (SSLENGTH SSOBJ)
                      (VLA-PUT-RADIUS (VLAX-ENAME->VLA-OBJECT (SSNAME SSOBJ INDEX )) R)
                      (SETQ INDEX (1+ INDEX))
                      )
                )
          )
      )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-29 01:22 , Processed in 0.315207 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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