[求助]关于lisp中command调用scale命令的问题！

xxsheng

看了半天主要想改块的比例?利用vla-put-XScaleFactor,vla-put-YScaleFactor,vla-put-ZScaleFactor不就可以了???为什么一定要用scale命令?

87282374

问题已解决！谢谢个位提供的帮助！！

2. (defun c:tykb (/      a1     a0        a1e       a1n      szj     str0    ssa1
3.            sn     n         a1on   ne       na1e      roscal xscale    yscale
4.            yscale cmd
5.           )
6.   (setq    a1   (entsel "请选择图块：")
7.     a0   (car a1)
8.     a1e  (entget a0)
9.     a1n  (assoc 2 a1e)
10.     na1e (assoc 50 a1e)
11.     ax   (assoc 41 a1e)
12.     cmd  (getvar "cmdecho")
13.     szj  (ssadd a0)
14.   )
15.   (Setq    str0 (getreal "\n请输入要缩放块的比例: ")
17.   )
18.   (setq roscal (strcat "\n比例因子为：" (rtos str0)))
20.   (setq    ssa1 (ssget "x" (list a1n))
21.     sn   (sslength ssa1)
22.   )
23.   (sssetfirst ssa1 szj)
24.   (princ (strcat "\n您选择的块名为："
25.          (cdr a1n)
26.          "; 共有 "
27.          (itoa sn)
28.          "个。 "
29.          "旋转角度为: "
30.          (angtos (cdr na1e))
31.          "   比例因子为: "
32.          (rtos (cdr ax))
33.      )
34.   )
35.   (princ "\n")
36.   (princ)
37.   (setq n 0)
38.   (repeat sn
39.     (progn
40.       (setq a1on (ssname ssa1 n)
41.       )
42.       (setq a1on (vlax-ename->vla-object a1on))
43.       (setq xscale (vla-get-xscalefactor a1on)
44.         yscale (vla-get-yscalefactor a1on)
45.         zscale (vla-get-zscalefactor a1on)
46.       )
47.       (princ "\n*******")
48.       (if (> xscale 0)
49.     (setq xscale str0)
50.     (setq xscale (- str0))
51.       )
52.       (if (> yscale 0)
53.     (setq yscale str0)
54.     (setq yscale (- str0))
55.       )
57.       (vla-put-xscalefactor a1on xscale)
58.       (vla-put-yscalefactor a1on yscale)
59.       (vla-put-zscalefactor a1on zscale)
60.     )
61.     (setq n (1+ n))
62.   )
63.   (sssetfirst nil nil)
64.   (setvar "cmdecho" cmd)
65.   (alert (strcat "您选择的块名为："
66.          (cdr a1n)
67.          "; \n共有 "
68.          (itoa n)
69.          " 个 \n被改变为  "
70.          roscal
71.      )
72.   )
73.   (princ)
74. )

(defun c:tykb (/      a1     a0        a1e       a1n      szj     str0    ssa1            sn     n         a1on   ne       na1e      roscal xscale    yscale            yscale cmd           )   (setq    a1   (entsel "请选择图块：")     a0   (car a1)     a1e  (entget a0)     a1n  (assoc 2 a1e)     na1e (assoc 50 a1e)     ax   (assoc 41 a1e)     cmd  (getvar "cmdecho")     szj  (ssadd a0)   )   (Setq    str0 (getreal "\n请输入要缩放块的比例: ")   )   (setq roscal (strcat "\n比例因子为：" (rtos str0)))   (setq    ssa1 (ssget "x" (list a1n))     sn   (sslength ssa1)   )   (sssetfirst ssa1 szj)   (princ (strcat "\n您选择的块名为："          (cdr a1n)          "; 共有 "          (itoa sn)          "个。 "          "旋转角度为: "          (angtos (cdr na1e))          "   比例因子为: "          (rtos (cdr ax))      )   )   (princ "\n")   (princ)   (setq n 0)   (repeat sn     (progn       (setq a1on (ssname ssa1 n)       )       (setq a1on (vlax-ename->vla-object a1on))       (setq xscale (vla-get-xscalefactor a1on)         yscale (vla-get-yscalefactor a1on)         zscale (vla-get-zscalefactor a1on)       )       (princ "\n*******")       (if (> xscale 0)     (setq xscale str0)     (setq xscale (- str0))       )       (if (> yscale 0)     (setq yscale str0)     (setq yscale (- str0))       )       (vla-put-xscalefactor a1on xscale)       (vla-put-yscalefactor a1on yscale)       (vla-put-zscalefactor a1on zscale)     )     (setq n (1+ n))   )   (sssetfirst nil nil)   (setvar "cmdecho" cmd)   (alert (strcat "您选择的块名为："          (cdr a1n)          "; \n共有 "          (itoa n)          " 个 \n被改变为  "          roscal      )   )   (princ) )

我来看MM的

留个印