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

87282374

关于lisp中command调用scale命令的问题！
  (setq n 0)
  (setq n11 0)
  (repeat sn
    (progn
    (setq a1on (ssname ssa1 n)
      ne   (entget a1on)
      ax   (assoc 41 ne)
      scal (abs (/  str0  (cdr ax)))
      p1   (list (cdr (assoc 10 ne)) (cdr (assoc 20 ne)) 0)
    )
    (command "_scale" ne "" p1 "" scal "")

    )
    (setq n (1+ n))
  )
以上程序无法实现对选择集中的块进行放大！

caoyin

程序不全啊...

狂刀无痕

(assoc 20 ne) dxf组码20？

87282374

(defun c:tykb (/     a1       a0     a1e   a1n   a1_obj     szj   str
           jd    ssa1  sn     n     pro   a1on  ne     na1e  newa1
           cmd   newa  a1x     a1y   newaxy  ne1       str0     str1  roscal
           p1    p2       scal
          )
  (setq    a1     (entsel "请选择图块：")
    a0     (car a1)
    a1e    (entget a0)
    a1n    (assoc 2 a1e)
    a1_obj (assoc 0 a1e)
    na1e   (assoc 50 a1e)
    ax     (assoc 41 a1e)
    cmd    (getvar "cmdecho")
    szj    (ssadd a0)
  )
  (setq p1 (list 0 0 0))
  (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 pro (cons 50 jd))
  (setq n 0)
  (setq n11 0)
  (repeat sn
    (progn
    (setq a1on (ssname ssa1 n)
      ne   (entget a1on)
      ax   (assoc 41 ne)
      scal (/  str0  (abs (cdr ax) ))
      p1   (cdr (assoc 10 ne))
    )
   (command ".scale" ne1 "" p1  scal )
    )
    (setq n (1+ n))
    
  )
  (sssetfirst nil nil)
  (setvar "cmdecho" cmd)
  (alert (strcat "您选择的块名为："
         (cdr a1n)
         "; \n共有 "
         (itoa n)
         " 个 \n被改变为  "
         roscal
     )
  )
  (princ)

)

caoyin

(command ".scale" ne1 "" p1  scal )

变量 ne1 是什么啊？？？

87282374

变量ne1按我的想法是选择集ssa1中的一个块而这个块就是我想进行缩放的！

ZZXXQQ

这样试试:

3.   (setq n 0)
4.   (setq n11 0)
5.   (repeat sn
6.     (setq a1on (ssname ssa1 n)
7.       ne   (entget a1on)
8.       ax   (assoc 41 ne)
9.       scal (abs (/  str0  (cdr ax)))
10.       p1   (cdr (assoc 10 ne))
11.     )
12.     (command "_scale" a1on "" p1 "" scal "")
13.     (setq n (1+ n))
14.   )

  (setq n 0)   (setq n11 0)   (repeat sn     (setq a1on (ssname ssa1 n)       ne   (entget a1on)       ax   (assoc 41 ne)       scal (abs (/  str0  (cdr ax)))       p1   (cdr (assoc 10 ne))     )     (command "_scale" a1on "" p1 "" scal "")     (setq n (1+ n))   )

87282374

运行时提示“点无效”！！！

87282374

自己顶一下！帖子快沉底了！

caoyin

变量ne1按我的想法是选择集ssa1中的一个块而这个块就是我想进行缩放的！

4 楼的帖子没有看到对 ne1 赋值啊？？

ZZXXQQ 版主已经把问题指出来了，

就是把 4 楼代码中的

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

改为

(command ".scale" ne1 "" p1  scal )