修改块比例工具

小小毛毛虫

求做一个工具,具体要求如下
第一步: 选择块(如果能改为双击块更好,不能的话我自己去CAD中再改下双击动作)后启动命令,将选中的图块"Z轴"比例改为某个固定值(比如1.0).(块可能为等比缩放,也可能是不等比缩放块)
第二步:继续保持选中块的状态,用鼠标操作图块.......在没有选择别的图元或者按键盘操作的情况下可以用鼠标一直操作目标图块,直至按ESC退出或者按键盘等,都将退出操作.
第三步:不管何种原因退出或放弃操作,就将块"Z轴"比例改回某个固定值(比如0.8),OVER.(尽量多的支持各种类型图块,不用考虑嵌套块和参照块)

能解决或者提点建议的朋友,我都非常感谢你们.豆子很少,表示表示

newer

说的那么复杂，就一个工具，点击块，修改Z比例。 剩下你自己操作。

newer

XDRX API

1. (defun c:tt()
   
2.    (if (and (setq e (car (xdrx_entsel "\n拾取块<退出>:" '((0 . "insert")))))
   
3.             (setq zscl (getreal "\nZ比例值<退出>:"))
   
4.         )
   
5.       (progn
   
6.          (xdrx_modent 43 zscl)
   
7.          (setq ss (ssadd))
   
8.          (ssadd e ss)
   
9.          (sssetfirst nil ss)
   
10.       )
    
11.    )
    
12.    (princ)
    
13. )
    

(defun c:tt()<br />    (if (and (setq e (car (xdrx_entsel "\n拾取块<退出>:" '((0 . "insert")))))<br />             (setq zscl (getreal "\nZ比例值<退出>:"))<br />         )<br />       (progn<br />          (xdrx_modent 43 zscl)<br />          (setq ss (ssadd))<br />          (ssadd e ss)<br />          (sssetfirst nil ss)<br />       )<br />    )<br />    (princ)<br /> )<br />

小小毛毛虫

吃饭刚回来,谢谢啊,先试下

小小毛毛虫

这个要加载东哥函数库吧,我一加载那个ARX文件CAD就立刻崩溃了.....什么原因呢

Lisphk

小小毛毛虫 发表于 2013-8-30 18:43
这个要加载东哥函数库吧,我一加载那个ARX文件CAD就立刻崩溃了.....什么原因呢

你是什么版本的CAD呢? 加载的ARX文件名是哪个？ 你下载的是最新的0805版本的XDRX API吗？ 哈，我把版主要问你的替他们说了。

小小毛毛虫

你好我是CAD2010 32位的,刚刚提示说过期三天了,我去下载新的

小小毛毛虫

这会麻烦更大,我CAD被直接击溃无法运行,重装了一次,再来又是这样....重装两次了,不知道什么原因,有哪位大哥帮下忙,给写个单独执行的LISP吧,再请教下版主加载ARX的问题出在哪里? 每次提示都是致命错误,怪吓人的.

Free-Lancer

学学如何使用 快捷属性 面板吧！

Lisphk

小小毛毛虫 发表于 2013-8-30 19:03
你好我是CAD2010 32位的,刚刚提示说过期三天了,我去下载新的

你那都啥时候的版本的，至少一个月前的了，升级无数次了。