明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 243|回复: 2

记忆拉伸

[复制链接]
发表于 2017-9-12 21:38 | 显示全部楼层 |阅读模式
本帖最后由 yoyrtweq 于 2017-9-12 22:16 编辑

在本站找了记忆拉伸的LISP的插件 但是使用的时候不能用捕捉拉伸了  哪位大侠能完善下 这个功能  它能记忆上次拉伸的命令  还可以带捕捉拉伸,就是CAD自带的效果。此插件不带捕捉,必须填数值才能拉伸    下面是我下载的LISP
  
(defun c:jyls (/ s_dis)
(cmdla0)
   (command ".STRETCH" (ssget) "")
   (command (setq BasicPoint (getpoint "\n指定基点:")))
   (if (= nil s_dis_all)
     (progn
       (setq s_dis_all (getreal "\n输入拉伸距离:"))
       (command s_dis_all)
     )
     (progn
       (setq
s_dis (getreal
   (strcat "\n输入拉伸距离<" (rtos s_dis_all 2 4) ">:")
        )
       )
       (if (= nil s_dis)
(setq s_dis s_dis_all)
       )
       (command s_dis)
       (setq s_dis_all s_dis)
  (cmdla1)
     )
   )
)







发表于 2017-9-13 17:17 | 显示全部楼层
打开捕捉不就行了..
 楼主| 发表于 2017-9-13 22:06 | 显示全部楼层
q3_2006 发表于 2017-9-13 17:17
打开捕捉不就行了..

这插件打开捕捉你不输入数值拉不动,必须输入数值
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2017-11-23 04:24 , Processed in 0.205781 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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