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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：求助把这次移动或拉伸的距离作为下次的隐含值 ...
12下一页
返回列表 发新帖
查看: 1902|回复: 19

[求助] [求助]：求助把这次移动或拉伸的距离作为下次的隐含值

[复制链接]
surenwang
发表于 2007-11-23 16:38:30 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
怎么把这次移动MOVE或拉伸STRETCH的距离作为下次的隐含值
本人初学，怎么都搞不懂。
求助各位高手
拉伸, 隐含, 下次

相关帖子

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

gysjy
发表于 2007-11-23 18:11:00 | 显示全部楼层
(if (= distan nil) (setq distan 1000))
    (princ  "\n移动距离<") (princ distan)
    (setq dis (getint  ">:" ))
    (if (= dis nil) (setq dis distan))
    (setq distan dis)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

surenwang
 楼主| 发表于 2007-11-26 17:58:49 | 显示全部楼层
4楼的隐含值是有了
但实现起来还是很难的啊（像我这样的初学者）
移动或拉伸的过程要先给出一个起始点和一个方向这个距离才有用
如何做到？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

sony123
发表于 2007-11-26 19:32:39 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这个正好可以解决我以前的程序,使用记忆值的问题!@
大家需要的和我正要学习刚好相反
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

gysjy
发表于 2007-12-4 19:22:52 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 surenwang 发布
[B]4楼的隐含值是有了
但实现起来还是很难的啊（像我这样的初学者）
移动或拉伸的过程要先给出一个起始点和一个方向这个距离才有用
如何做到？ [/B]

现给出一例：

  3.   [FONT=courier new]
  4. (defun c:md(/ ss blx0 p1 p2 ang dis p3)   
  5.     (setq oer *error* *error* myerr)
  6.     (modes '("osmode" "cmdecho" "orthomode"))
  7.     (setvar "osmode" 0)
  8.     (setvar "cmdecho" 0)
  9.     (setvar "orthomode" 1)
  10.     (setq ss (ssget) p1 (getvar "viewctr") blx0 (getvar "userr2"))
  11.     (princ (strcat "\n**  当前绘图比例为1:" (itoa (fix blx0)) "  **"))
  12.     (if mvang0
  13.       (foreach n ' ((0 "向右")(1 "向上")(3 "向左")(4 "向下"))
  14.         (if (= (fix mvang0) (car n)) (setq fx0 (cadr n)))
  15.       )
  16.       (setq fx0 "竖直向上")
  17.     )
  18.     (setq p2 (getpoint (strcat "\n搬移方向<" fx0 ">:") p1))
  19.     (if p2 (setq ang (angle p1 p2)) (setq ang (if mvang0 mvang0 (/ pi 2))))
  20.     (if (= distan nil) (setq distan 1000))
  21.     (princ  "\n移动距离<") (princ distan)
  22.     (setq dis (getint  ">:" ))
  23.     (if (= dis nil) (setq dis distan))
  24.     (setq p3 (polar p1 ang (/ (* 100  dis) blx0)))
  25.     (command "move"   ss "" p1 p3)
  26.     (setq distan dis mvang0 ang)
  27.     (princ "\n(gysjy  95.12 制作)")  
  28.     (moder) (setq *error* oer)
  29.     (princ)
  30. )
  31.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

taner

已领礼包: 2个

财富等级: 恭喜发财
发表于 2007-12-5 07:35:52 | 显示全部楼层
寫入註冊表也可實現記憶功能。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

sandyhuahua
发表于 2007-12-14 13:29:55 | 显示全部楼层
楼主的建议很好，但9楼的好像不能用，盼高手相助。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

gysjy
发表于 2007-12-14 19:11:11 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 wwwchard 发布
[B]9楼程序中缺少modes函数的定义 [/B]

  3.   [FONT=courier new]
  4. (defun MODES (a)
  5.   (setq MLST '())
  6.   (repeat (length a)
  7.     (setq MLST (append MLST (list (list (car a) (getvar (car a))))))
  8.     (setq a (cdr a))
  9.   )
  10. )

  12. (defun MODER ()
  13.   (repeat (length MLST)
  14.     (setvar (caar MLST) (cadar MLST))
  15.     (setq MLST (cdr MLST))
  16.   )
  17. )
  18.   
  19. (defun c:md(/ ss blx0 p1 p2 ang dis p3)   
  20.     (setq oer *error* *error* myerr)
  21.     (modes '("osmode" "cmdecho" "orthomode"))
  22.     (setvar "osmode" 0)
  23.     (setvar "cmdecho" 0)
  24.     (setvar "orthomode" 1)
  25.     (setq ss (ssget) p1 (getvar "viewctr") blx0 (getvar "userr2"))
  26.     (princ (strcat "\n**  当前绘图比例为1:" (itoa (fix blx0)) "  **"))
  27.     (if mvang0
  28.       (foreach n ' ((0 "向右")(1 "向上")(3 "向左")(4 "向下"))
  29.         (if (= (fix mvang0) (car n)) (setq fx0 (cadr n)))
  30.       )
  31.       (setq fx0 "竖直向上")
  32.     )
  33.     (setq p2 (getpoint (strcat "\n搬移方向<" fx0 ">:") p1))
  34.     (if p2 (setq ang (angle p1 p2)) (setq ang (if mvang0 mvang0 (/ pi 2))))
  35.     (if (= distan nil) (setq distan 1000))
  36.     (princ  "\n移动距离<") (princ distan)
  37.     (setq dis (getint  ">:" ))
  38.     (if (= dis nil) (setq dis distan))
  39.     (setq p3 (polar p1 ang (/ (* 100  dis) blx0)))
  40.     (command "move"   ss "" p1 p3)
  41.     (setq distan dis mvang0 ang)
  42.     (princ "\n(gysjy  95.12 制作)")  
  43.     (moder) (setq *error* oer)
  44.     (princ)
  45. )
  46.   

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-23 07:46 , Processed in 0.482391 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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