找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: zx0sl

[求助]:为拉伸,移动,复制之类添加数值记忆功能

[复制链接]
发表于 2009-8-24 21:36:45 | 显示全部楼层
最初由 paladi 发布
[B]楼主,非正交移动的那个LISP发现一个小地方不是很方便啊,就是一使用这个命令就没有捕捉了,要重新点F3才能再设置捕捉,能否修改成使用的时候仍然保持捕捉啊。 [/B]

将  (setvar "osmode" 0) 移至  (command "move"   ss "" p1 p3)前。

最初由yinzhun22  发布
[B]距离能不能在输入数值的基础上,添加用点取两点距离作为后面移动,拉伸的距离,并记录下 。 [/B]

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

使用道具 举报

发表于 2009-8-25 14:26:04 | 显示全部楼层
楼主,谢谢,真的可以捕捉了,这个记忆数值也是我曾经觉得很方便的东西,这下好了,方便多了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2009-8-26 08:59:18 | 显示全部楼层
最初由 yinzhun22 发布
[B]距离能不能在输入数值的基础上,添加用点取两点距离作为后面移动,拉伸的距离,并记录下 [/B]

下面的程序中,输入0则将基点和搬移方向点之间的距离作为移动的距离:

[PHP](princ "\n欢迎使用定距移动程序!命令名:md   === gysjy 2009.8===")
(defun c:md(/ ss p1 p2 ang dis p3)     
  (setq os (getvar "osmode") ot (getvar "orthomode"))
  (setvar "cmdecho" 0)
  (setvar "orthomode" 0)
  (setq ss (ssget) p1 (getpoint "\n基点:"))     
  (if mvang0
    (setq fix0 "刚才方向")(setq fix0 "竖直向上")
  )
  (setq p2 (getpoint (strcat "\n搬移方向点<" fix0 ">:") p1))
  (if p2
    (setq ang (angle p1 p2) disp2 (fix (distance p1 p2)))
    (setq ang (if mvang0 mvang0 (/ pi 2))))
  (if (= distan nil) (setq distan 1000))
  (princ  "\n移动距离(两点距离请输入0)<")(princ distan)
  (setq dis (getint  ">:" ))
  (if (= dis nil) (setq dis distan))
  (if (and (= dis 0) p2) (setq dis disp2))
  (setq p3 (polar p1 ang dis))
  (setvar "osmode" 0)
  (command "move"   ss "" p1 p3)
  (setq distan dis mvang0 ang)
  (setvar "osmode" os)
  (setvar "orthomode" ot)
  (princ "\n(gysjy  2009.8 制作)")   
  (moder)
  (princ)
)
[/PHP]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 828个

财富等级: 财运亨通

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

使用道具 举报

发表于 2009-9-27 22:39:51 | 显示全部楼层

长见识了!

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

使用道具 举报

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

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-28 21:05 , Processed in 0.366631 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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