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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 构造线加强修改
12下一页
返回列表 发新帖
查看: 4346|回复: 23

[求助] 构造线加强修改

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

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

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

×
网上看到构造线的加强版代码，用hv命令后右键画垂直线要点两次。不知是什么原因。那位大虾能帮忙看看是怎么回事？
(defun c:hv (/ aa)
(princ "\n***构造线加强***")
(while (= aa nil)
    (princ "\n水平(左键)/垂直(右键)/角度(空格)")
    (setq aa (grread))
    (cond
      ((= (car aa) 3)  (c:hh)(setq aa nil))
      ((= (car aa) 12) (c:vv)(setq aa nil))
      ((= (cadr aa) 32) (c:xla)(setq aa nil))
      ((or (= (cadr aa) 88)(= (cadr aa) 120))(setq aa 1))
)
)
)

(defun c:hh ()
  (command "xline" "h")
  (while (not (zerop (getvar "CMDACTIVE")))
    (princ "\n指定通过点: ")
    (command pause)
  )  
(princ)
)
(defun c:vv ()
  (command "xline" "v")
  (while (not (zerop (getvar "CMDACTIVE")))
    (princ "\n指定通过点: ")
    (command pause)
  )
(princ)
)

(defun c:xla ()
  (command "xline" "a")
  (princ "\n输入构造线的角度:  ")
  (command pause)
  (while (not (zerop (getvar "CMDACTIVE")))
    (princ "\n指定通过点: ")
    (command pause)
  )
(princ)
)

command, 网上

相关帖子

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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-8-31 09:52:21 | 显示全部楼层
我这测试这样 Ok, windows 7 + 2014 32bit
  1. (defun c:hv (/ aa)
  2.   (princ "\n***构造线加强***")
  3.   (while (= aa nil)
  4.     (princ "\n水平(左键)/垂直(右键)/角度(空格)<任意键退出>")
  5.     (setq aa (grread))
  6.     (cond
  7.       ((= (car aa) 3) (c:hh) (setq aa nil))
  8.       ((= (car aa) 25) (c:vv) (setq aa nil));_回车 25
  9.       ((= (cadr aa) 32) (c:xla) (setq aa nil))
  10.       ((or (= (cadr aa) 88) (= (cadr aa) 120)) (setq aa t))
  11.       (t (setq aa t))
  12.     )   
  13.   )
  14.   (princ)
  15. )
  16. (defun c:hh ()
  17.   (command "xline" "h")
  18.   (while (not (zerop (getvar "CMDACTIVE")))
  19.     (princ "\n指定通过点: ")
  20.     (command pause)
  21.   )
  22.   (princ)
  23. )
  24. (defun c:vv ()
  25.   (command "xline" "v")
  26.   (while (not (zerop (getvar "CMDACTIVE")))
  27.     (princ "\n指定通过点: ")
  28.     (command pause)
  29.   )
  30.   (princ)
  31. )
  32. (defun c:xla ()
  33.   (command "xline" "a")
  34.   (princ "\n输入构造线的角度:  ")
  35.   (command pause)
  36.   (while (not (zerop (getvar "CMDACTIVE")))
  37.     (princ "\n指定通过点: ")
  38.     (command pause)
  39.   )
  40.   (princ)
  41. )

点评

--@-----
垂直的用不了啊！ 另外建议大侠修改下次功能，考虑垂直和水平使用的平率较多，把垂直改为空格键键 水平还是左键，角度改为右键  详情 回复 发表于 2013-8-31 11:56
myfrankie
我是xp+2006为什么不行？  详情 回复 发表于 2013-8-31 10:30
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

myfrankie
 楼主| 发表于 2013-8-31 10:30:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 myfrankie 于 2013-8-31 10:34 编辑
st788796 发表于 2013-8-31 09:52
我这测试这样 Ok, windows 7 + 2014 32bit

我知道为什么我用不了了，是因为我将“绘图区域中使用快捷菜单”这个关闭了，可是我平常都习惯将这个关掉，如何在用这做对代码时临时打开，用完又关闭呢？

点评

st788796
快捷菜单开关 Pickfirst 必须开 QPmode 1 打开 -1 关闭  详情 回复 发表于 2013-8-31 11:11
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-8-31 11:11:55 | 显示全部楼层
myfrankie 发表于 2013-8-31 10:30
我知道为什么我用不了了，是因为我将“绘图区域中使用快捷菜单”这个关闭了，可是我平常都习惯将这个关掉 ...

快捷菜单开关
Pickfirst 必须开
QPmode 1 打开 -1 关闭

点评

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

使用道具 举报

--@-----
发表于 2013-8-31 11:56:47 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2013-8-31 09:52
我这测试这样 Ok, windows 7 + 2014 32bit

垂直的用不了啊！ 另外建议大侠修改下次功能，考虑垂直和水平使用的平率较多，把垂直改为空格键键 水平还是左键，角度改为右键

点评

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

使用道具 举报

myfrankie
 楼主| 发表于 2013-8-31 12:04:37 | 显示全部楼层
st788796 发表于 2013-8-31 11:11
快捷菜单开关
Pickfirst 必须开
QPmode 1 打开 -1 关闭

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

使用道具 举报

Free-Lancer
发表于 2013-8-31 13:29:37 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
--@----- 发表于 2013-8-31 11:56
垂直的用不了啊！ 另外建议大侠修改下次功能，考虑垂直和水平使用的平率较多，把垂直改为空格键键 水平还 ...

要了解 Grread 的返回值
  1. (defun c:hv (/ aa)
  2.   (princ "\n***构造线加强***")
  3.   (while (= aa nil)
  4.     (princ "\n水平(左键)/垂直(空格)/角度(回车)<任意键退出>")
  5.     (setq aa (grread))
  6.     ;;(princ aa)
  7.     (cond
  8.       ((= (car aa) 3) (c:hh) (setq aa nil));_水平
  9.       ((= (cadr aa) 32) (c:vv) (setq aa nil)) ;_垂直 回车 25
  10.       ((= (car aa) 25) (c:xla) (setq aa nil));_空格
  11.       (t (setq aa t))
  12.     )
  13.   )
  14.   (princ)
  15. )
  16. (defun c:hh ()
  17.   (command "xline" "h")
  18.   (while (not (zerop (getvar "CMDACTIVE")))
  19.     (princ "\n指定通过点: ")
  20.     (command pause)
  21.   )
  22.   (princ)
  23. )
  24. (defun c:vv ()
  25.   (command "xline" "v")
  26.   (while (not (zerop (getvar "CMDACTIVE")))
  27.     (princ "\n指定通过点: ")
  28.     (command pause)
  29.   )
  30.   (princ)
  31. )
  32. (defun c:xla ()
  33.   (command "xline" "a")
  34.   (princ "\n输入构造线的角度:  ")
  35.   (command pause)
  36.   (while (not (zerop (getvar "CMDACTIVE")))
  37.     (princ "\n指定通过点: ")
  38.     (command pause)
  39.   )
  40.   (princ)
  41. )

点评

--@-----
为啥我的空格键不是画垂直的啊  详情 回复 发表于 2013-8-31 14:36
myfrankie
回车用不了  详情 回复 发表于 2013-8-31 13:38
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ysq101

已领礼包: 685个

财富等级: 财运亨通
发表于 2013-8-31 13:32:29 | 显示全部楼层
楼主纯小白啊~~~~~加油吧~~~靠人家帮你改还不如自己动手吧:)

点评

Lisphk
高手也是从小白过来的，鼓励楼主的精神，不耻下问。  详情 回复 发表于 2013-8-31 14:20
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

myfrankie
 楼主| 发表于 2013-8-31 13:38:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Free-Lancer 发表于 2013-8-31 13:29
要了解 Grread 的返回值

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

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2013-8-31 14:20:07 | 显示全部楼层
ysq101 发表于 2013-8-31 13:32
楼主纯小白啊~~~~~加油吧~~~靠人家帮你改还不如自己动手吧

高手也是从小白过来的，鼓励楼主的精神，不耻下问。{:soso_e142:}

点评

ysq101
没有笑话楼主的意思哦~~ 同为新手的学习中。。。  详情 回复 发表于 2013-8-31 16:36
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

--@-----
发表于 2013-8-31 14:36:38 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 --@----- 于 2013-8-31 15:12 编辑
Free-Lancer 发表于 2013-8-31 13:29
要了解 Grread 的返回值


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

使用道具 举报

--@-----
发表于 2013-8-31 14:49:43 | 显示全部楼层
现在有一设想，输入hv就是垂直线，在屏幕是点取。输入hv是垂直线按下空格就切换到水平线。在屏幕上点去，这个方法是不是更为快捷。
:lol

点评

--@-----
或者输入hv按下空格就是垂直线（也就是命令默认的是垂直线），再按下空格就切换为水平线。 操作过程是hv+空格（垂直) :hv+空格空格（水平）。 刚才上个说的操作是hv垂直 hv+空格水平。 我觉得这两种方法不  详情 回复 发表于 2013-8-31 14:55
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

--@-----
发表于 2013-8-31 14:55:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
--@----- 发表于 2013-8-31 14:49
现在有一设想，输入hv就是垂直线，在屏幕是点取。输入hv是垂直线按下空格就切换到水平线。在屏幕上点去，这 ...

或者输入hv按下空格就是垂直线（也就是命令默认的是垂直线），再按下空格就切换为水平线。  操作过程是hv+空格（垂直)      :hv+空格空格（水平）。  刚才上个说的操作是hv垂直   hv+空格水平。 我觉得这两种方法不错，只是我不会，哈哈

点评

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

使用道具 举报

ysq101

已领礼包: 685个

财富等级: 财运亨通
发表于 2013-8-31 16:36:03 | 显示全部楼层
Lisphk 发表于 2013-8-31 14:20
高手也是从小白过来的，鼓励楼主的精神，不耻下问。

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

使用道具 举报

ysq101

已领礼包: 685个

财富等级: 财运亨通
发表于 2013-8-31 17:08:10 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
--@----- 发表于 2013-8-31 14:55
或者输入hv按下空格就是垂直线（也就是命令默认的是垂直线），再按下空格就切换为水平线。  操作过程是hv ...

你应该是大师级别的人物啊~~不可能不会吧

点评

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-15 12:05 , Processed in 0.370908 second(s), 73 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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