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

87282374

我把代码中的

(command "_scale" a1on "" p1 "" scal "")

改为：

(command "_scale" (ssget "x" '(2 a1on))  p1 "" scal “” )后

却需要在屏幕上点取基点。郁闷ing！

caoyin

;;求插入点不就可以了吗？？

2. (defun c:tykb (/ en sc ss ins)
3.   (if (and (setq en (entsel "请选择图块: "))
4.            (setq sc (getreal "\n请输入要缩放块的比例: "))
5.       )
6.     (progn
7.       (setq ss (ssget "_x" (list '(0 . "insert") (assoc 2 (entget (car en))))))
8.       (repeat (setq n (sslength ss))
9.         (setq en  (ssname ss (setq n (1- n)))
10.               ins (cdr (assoc 10 (entget en)))
11.         )
12.         (command "_.scale" en "" "_non" ins sc)
13.       )
14.     )
15.   )
16.   (princ)
17. )

(defun c:tykb (/ en sc ss ins)   (if (and (setq en (entsel "请选择图块: "))            (setq sc (getreal "\n请输入要缩放块的比例: "))       )     (progn       (setq ss (ssget "_x" (list '(0 . "insert") (assoc 2 (entget (car en))))))       (repeat (setq n (sslength ss))         (setq en  (ssname ss (setq n (1- n)))               ins (cdr (assoc 10 (entget en)))         )         (command "_.scale" en "" "_non" ins sc)       )     )   )   (princ) )

87282374

感谢楼上的不懈帮助！

但可能您没有完全理解我程序要完成的任务！

他的任务就是：一个同名块的选择集，要把个集内的每个块的比例设成我所输入得值！而这个集内的块又有不一致插入比例！

caoyin

2. (defun c:tykb (/ en sc dat ss 41d 42d 43d)
3.    (if (and (setq en (entsel "请选择图块: "))
4.             (setq sc (getreal "\n请输入要缩放块的比例: "))
5.        )
6.      (progn
7.        (setq dat (entget (car en))
8.              ss  (ssget "_x" (list '(0 . "insert") (assoc 2 dat)))
9.              41d (cons 41 sc)
10.              42d (cons 42 sc)
11.              43d (cons 43 sc)
12.        )
13.        (repeat (setq n (sslength ss))
14.          (setq en  (ssname ss (setq n (1- n)))
15.                dat (entget en)
16.                dat (subst 43d
17.                           (assoc 43 dat)
18.                           (subst 42d
19.                                  (assoc 42 dat)
20.                                  (subst 41d (assoc 41 dat) dat)
21.                           )
22.                    )
23.          )
24.          (entmod dat)
25.        )
26.      )
27.    )
28.    (princ)
29. )

(defun c:tykb (/ en sc dat ss 41d 42d 43d)    (if (and (setq en (entsel "请选择图块: "))             (setq sc (getreal "\n请输入要缩放块的比例: "))        )      (progn        (setq dat (entget (car en))              ss  (ssget "_x" (list '(0 . "insert") (assoc 2 dat)))              41d (cons 41 sc)              42d (cons 42 sc)              43d (cons 43 sc)        )        (repeat (setq n (sslength ss))          (setq en  (ssname ss (setq n (1- n)))                dat (entget en)                dat (subst 43d                           (assoc 43 dat)                           (subst 42d                                  (assoc 42 dat)                                  (subst 41d (assoc 41 dat) dat)                           )                    )          )          (entmod dat)        )      )    )    (princ) )

87282374

再次感谢！

但以上程序对带有属性文字的块，有点小问题！

就是属性文字大小不能随着块的比例而改变！不是跟“Scale”命令一样缩放！

caoyin

2. (defun c:tykb (/ en sc dat ss 41d 42d 43d n th)
3.     (if (and (setq en (entsel "请选择图块: "))
4.              (setq sc (getreal "\n请输入要缩放块的比例: "))
5.         )
6.       (progn
7.         (setq en  (car en)
8.               dat (entget en)
9.               ss  (ssget "_x" (list '(0 . "insert") (assoc 2 dat)))
10.         )
11.         (repeat (setq n (sslength ss))
12.           (setq en  (ssname ss (setq n (1- n)))
13.                 dat (entget en)
14.                 41d (assoc 41 dat)
15.                 42d (assoc 42 dat)
16.                 43d (assoc 43 dat)
17.                 att (assoc 66 dat)
18.                 dat (subst (cons 41 (* sc (cdr 41d)))
19.                            41d
20.                            (subst (cons 42 (* sc (cdr 41d)))
21.                                   42d
22.                                   (subst (cons 42 (* sc (cdr 41d)))
23.                                          43d
24.                                          dat
25.                                   )
26.                            )
27.                     )
28.           )
29.           (entmod dat)
30.           (if (equal att '(66 . 1))
31.             (while
32.               (equal (assoc 0 (setq dat (entget (setq en (entnext en)))))
33.                      '(0 . "ATTRIB")
34.               )
35.               (setq th  (assoc 40 dat)
36.                     dat (subst (cons 40 (* (cdr th) sc)) th dat)
37.               )
38.               (entmod dat)
39.             )
40.           )
41.         )
42.       )
43.     )
44.     (princ)
45. )

(defun c:tykb (/ en sc dat ss 41d 42d 43d n th)     (if (and (setq en (entsel "请选择图块: "))              (setq sc (getreal "\n请输入要缩放块的比例: "))         )       (progn         (setq en  (car en)               dat (entget en)               ss  (ssget "_x" (list '(0 . "insert") (assoc 2 dat)))         )         (repeat (setq n (sslength ss))           (setq en  (ssname ss (setq n (1- n)))                 dat (entget en)                 41d (assoc 41 dat)                 42d (assoc 42 dat)                 43d (assoc 43 dat)                 att (assoc 66 dat)                 dat (subst (cons 41 (* sc (cdr 41d)))                            41d                            (subst (cons 42 (* sc (cdr 41d)))                                   42d                                   (subst (cons 42 (* sc (cdr 41d)))                                          43d                                          dat                                   )                            )                     )           )           (entmod dat)           (if (equal att '(66 . 1))             (while               (equal (assoc 0 (setq dat (entget (setq en (entnext en)))))                      '(0 . "ATTRIB")               )               (setq th  (assoc 40 dat)                     dat (subst (cons 40 (* (cdr th) sc)) th dat)               )               (entmod dat)             )           )         )       )     )     (princ) )

caoyin

楼上的思路还是有问题，就是属性的缩放与块插入点有关系，现在忙，有空帮你调试！

danxingpen

为什么不用vla方法?这样就不用管什么属性了,,,,,

87282374

caoyin发表于2008-5-23 12:53:00楼上的思路还是有问题，就是属性的缩放与块插入点有关系，现在忙，有空帮你调试！

是我表达的有问题！

我是希望块的属性文字大小随着块的比例而同步改变！跟“Scale”命令一样缩放！

但按你14楼的程序运行后就出现上图的情形！

另：楼上的朋友能给出 用什么 vla函数实现吗？

狂刀无痕

;;自己完善下吧

2. (defun c:tt ()
3.   (SETQ SC (GETREAL "\N 比例:"))
4.   (while (setq ss (ssget ":s" '((0 . "INSERT"))))
5.     (command ".scale"
6.       ss "" "non"
7.       (cdr (assoc 10 (entget (ssname ss 0))))
8.       sc
9.     )
10.   )
11. )

(defun c:tt ()   (SETQ SC (GETREAL "\N 比例:"))   (while (setq ss (ssget ":s" '((0 . "INSERT"))))     (command ".scale"       ss "" "non"       (cdr (assoc 10 (entget (ssname ss 0))))       sc     )   ) )