刷图形的比例

k1nger

(defun C:sbl()
  (setvar "cmdecho" 0)
  (setq a1 (entsel "\n 请选择源对像"))
  (setq a2 (entsel "\n请选择目标对像"))
  (command ".LENGTHEN" (car a1) "")
  (setq a1l (getvar "PERIMETER"))
  (command ".LENGTHEN" (car a2) "")
  (setq a2l (getvar "PERIMETER"))
  (setq a (/ a1l a2l))
;a1对像的长度：a2对像的长度
(command "scale" a2 0,0 a);将a2的值赋给比例因子
  )

无法将a2的值赋给scale这个命令，求修改！！！

正常功能在5楼！！

yshf

改为如下：

2. 
   
3. (defun C:sbl()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq a1 (entsel "\n 请选择源对像"))
   
6.   (setq a2 (entsel "\n请选择目标对像"))
   
7.   (command ".LENGTHEN" (car a1) "")
   
8.   (setq a1l (getvar "PERIMETER"))
   
9.   (command ".LENGTHEN" (car a2) "")
   
10.   (setq a2l (getvar "PERIMETER"))
    
11.   (setq a (/ a1l a2l))
    
12.   ;a1对像的长度：a2对像的长度
    
13.   (command "scale" (car a2) "" (cadr a2) a);将a2的值赋给比例因子
    
14. )
    

<br /> (defun C:sbl()<br />   (setvar "cmdecho" 0)<br />   (setq a1 (entsel "\n 请选择源对像"))<br />   (setq a2 (entsel "\n请选择目标对像"))<br />   (command ".LENGTHEN" (car a1) "")<br />   (setq a1l (getvar "PERIMETER"))<br />   (command ".LENGTHEN" (car a2) "")<br />   (setq a2l (getvar "PERIMETER"))<br />   (setq a (/ a1l a2l))<br />   ;a1对像的长度：a2对像的长度<br />   (command "scale" (car a2) "" (cadr a2) a);将a2的值赋给比例因子<br /> )<br />

k1nger

yshf 发表于 2011-10-8 17:42
改为如下：

谢谢，明白了，没有将字符串转成数值型，呵呵！

k1nger

yshf 发表于 2011-10-8 17:42
改为如下：

能不能帮忙继续改进一下这个程序，要实现的目的，最后缩放的对像不只是一个，可以多选，也可以连续缩放！

k1nger

k1nger 发表于 2011-10-23 11:53
能不能帮忙继续改进一下这个程序，要实现的目的，最后缩放的对像不只是一个，可以多选，也可以连续缩放！

这是我自己查了一下资料后又修改的：功能实现了，拿出来和大家共享一下成果：
(defun C:sbl()
  (setvar "cmdecho" 0)
  (setq a1 (entsel "\n 请选择源对像"))
  (setq a2 (entsel "\n 请选择目标对像"))
  (command ".LENGTHEN" (car a1) "")
  (setq a1l (getvar "PERIMETER"))
  (command ".LENGTHEN" (car a2) "")
  (setq a2l (getvar "PERIMETER"))
  (setq a (/ a1l a2l))
  ;a1对像的长度：a2对像的长度
  (command "scale" (ssget) "" (cadr a2) a);将a2的值赋给比例因子
)

669423907

谢谢楼主分享，谢谢 yshf  分享！

功夫佬

同道中人，多谢分享

LIULISHENG

很不错支持一下

偶尔郁闷

08好用 2021不好用为啥?