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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 这段代码问题出在哪儿？运行后无反应
返回列表 发新帖
查看: 1571|回复: 7

[求助] 这段代码问题出在哪儿？运行后无反应

[复制链接]
明天你好

已领礼包: 149个

财富等级: 日进斗金
发表于 2014-9-24 18:55:34 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
  2. (defun c:dmr (/ ss ang ANG1 ssl e lst)
  3.   (mapcar 'setvar '("cmdecho""blipmode")'(0 0))
  4.   (while (progn
  5.   (prompt "\n请选取要翻转文字方向的尺寸标注 <退出>: ")
  6.   (setq ss (ssget '((0 . "DIMENSION")))))
  7.   (setq ssl (sslength ss))
  8.     (while (> ssl 6)
  9.       (setq e   (ssname ss (setq ssl (1- ssl)))
  10.             lst (entget e)
  11.             ang (dxf 51 1st)
  12.             ang1(if (and (>= pi ang)(> ang 0)) 0 pi))
  13.       (entmod (subst (cons 51 ang1)(assoc 51 lst) lst))
  14.     )
  15.   )
  16.   (mapcar 'setvar '("cmdecho""blipmode")'(1 1))
  17.   (princ)
  18. )

  20. (defun dxf (key dxfcod / )
  21.   (cdr (assoc key dxfcod))
  22.   )


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

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2014-9-24 19:30:30 | 显示全部楼层
你这代码，得要求你选6个以上的尺寸才工作。

点评

明天你好
原来这样，谢谢管理员！ 还有问题就是，反转后，再次选择，就反转不回来了，希望热心朋友帮忙修改下  详情 回复 发表于 2014-9-24 19:39
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

明天你好

已领礼包: 149个

财富等级: 日进斗金
 楼主| 发表于 2014-9-24 19:39:42 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
XDSoft 发表于 2014-9-24 19:30
你这代码，得要求你选6个以上的尺寸才工作。

原来这样，谢谢管理员！ 还有问题就是，反转后，再次选择，就反转不回来了，希望热心朋友帮忙修改下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2014-9-24 19:48:12 来自手机 | 显示全部楼层
恢复默认   

点评

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

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-9-24 22:08:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 lucas3 于 2014-9-24 22:30 编辑


引用错了，不好意思，这样改改
  2. (defun c:dmr  (/ ss ang  ssl e lst)
  3. (mapcar 'setvar '("cmdecho""blipmode")'(0 0))
  4.   (while (progn
  5.            (prompt "\n请选取要翻转文字方向的尺寸标注 <退出>: ")
  6.            (setq ss (ssget '((0 . "DIMENSION")))))
  7.     (setq ssl (sslength ss))
  8.     (while (> ssl 0)
  9.       (setq e   (ssname ss (setq ssl (1- ssl)))
  10.             lst (entget e)
  11.             ang (dxf 51 lst)
  12.             ang1(if (and (>= pi ang)(> ang 0)) 0 pi))
  13.       (entmod (subst (cons 51 ang1)(assoc 51 lst) lst))
  14.     )
  15.   )
  16.   (mapcar 'setvar '("cmdecho""blipmode")'(1 1))
  17.   (princ)
  18. )

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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-9-25 01:01:16 | 显示全部楼层
lucas3 发表于 2014-9-24 22:08
引用错了，不好意思，这样改改

  1. (defun c:dmr (/ ss ang ssl e lst)
  2.   (while (progn
  3.            (prompt "\n请选取要翻转文字方向的尺寸标注 <退出>: ")
  4.            (setq ss (ssget '((0 . "DIMENSION"))))
  5.          )
  6.     (setq ssl (sslength ss))
  7.     (while (> ssl 0)
  8.       (setq e        (ssname ss (setq ssl (1- ssl)))
  9.             lst        (entget e)
  10.             ang        (assoc 51 lst)
  11.       )
  12.       (entmod
  13.         (subst (cons 51 (abs (- (cdr ang) pi))) ang lst)
  14.       )
  15.     )
  16.   )
  17.   (princ)
  18. )

点评

lucas3
大师就是大师!厉害!  详情 回复 发表于 2014-9-25 09:14
明天你好
非常好用，谢谢！  详情 回复 发表于 2014-9-25 08:16
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

明天你好

已领礼包: 149个

财富等级: 日进斗金
 楼主| 发表于 2014-9-25 08:16:08 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2014-9-25 01:01

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

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-9-25 09:14:45 来自手机 | 显示全部楼层
st788796 发表于 2014-9-25 01:01

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-14 21:54 , Processed in 0.259578 second(s), 48 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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