[求助]如何使用这个尺寸驱动程序

lucas_3333

wuzheng80425 发表于 2015-7-22 08:57
我的意思就像图片这样

燕秀工具箱 的尺寸驱动

ZZXXQQ

wuzheng80425 发表于 2015-7-22 08:57
我的意思就像图片这样

那不如直接用STRETCH。还不用编程。

wuzheng80425

ZZXXQQ 发表于 2015-7-22 09:03
那不如直接用STRETCH。还不用编程。

想过，如果用STRETCH这个命令呢，首先多操作了一部，而且同时要计算。这样就省了两部啦

wuzheng80425

lucas_3333 发表于 2015-7-22 09:00
燕秀工具箱 的尺寸驱动

看过燕秀的尺寸驱动，这个功能实在太强大了，自己能力有限，编不了，可是燕秀里的命令，我们不是做模具的，因此很多命令，我用不上

ZZXXQQ

wuzheng80425 发表于 2015-7-22 09:13
想过，如果用STRETCH这个命令呢，首先多操作了一部，而且同时要计算。这样就省了两部啦

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (setq ditl (getreal "\n尺寸变动量: "))
   
5. (setq pt1 (getpoint "\n窗交第一点: "))
   
6. (setq pt2 (getcorner pt1 "\n窗交第二点: "))
   
7. (command "_.STRETCH" "C" pt1 pt2)
   
8. (setq pt3 (getpoint pt1 "\n方向: "))
   
9. (setq pt3 (polar pt1 (angle pt1 pt3) dit1))
   
10. (command pt1 pt3)
    
11. (setvar "CMDECHO" 1)
    
12. (princ)
    
13. )

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq ditl (getreal "\n尺寸变动量: "))<br /> (setq pt1 (getpoint "\n窗交第一点: "))<br /> (setq pt2 (getcorner pt1 "\n窗交第二点: "))<br /> (command "_.STRETCH" "C" pt1 pt2)<br /> (setq pt3 (getpoint pt1 "\n方向: "))<br /> (setq pt3 (polar pt1 (angle pt1 pt3) dit1))<br /> (command pt1 pt3)<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

wuzheng80425

ZZXXQQ 发表于 2015-7-22 15:33

版主辛苦了，还是没有实现我图片的功能啊！

fl202

以我之见，你们的操作都太繁琐了，就这个问题：
针对长方形（改变长和宽） 或者圆（改变直径）
1 用户直接全选原对象，程序获取定位点和（长和宽或者直径）
2 用户输入改变的参数，程序删除原对象。
3 用户定位新对象的点，或者输入关键词12345，（可以用grread）， 12345（对于长方形:原四个角点和中心点，对于圆：原四个象限点或者圆心），程序生成新的对象。

这样通用性更强些。