刷块角度旋转

edsion24

怎么会出现这种错误。。。 错误: no function definition:
VLAX-ENAME->VLA-OBJECT

Andyhon

Need 2000+
Vlisp Supported

jackynine

4楼热心，顶起来

dalin1985

有那么麻烦吗 直接框选在属性栏里选参照块 在输入A块的角度不行吗

xotoo

程序不错
可惜见到的晚了一点啊

xyp1964

2. 
   
3. ;; 刷块角度
   
4. ;; 需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]
   
5. (defun c:tt ()
   
6.   (if (and (setq s0 (car (entsel "\n选择样块: ")))
   
7.     (= (xyp-get-dxf 0 s0) "INSERT")
   
8.       )
   
9.     (progn
   
10.       (princ "\n选择要修改的图块: ")
    
11.       (setq ss (ssget '((0 . "INSERT")))
    
12.      i -1
    
13.      rad (xyp-get-dxf 50 s0)
    
14.       )
    
15.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
16. (xyp-SubUpd s1 50 rad)
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    

<br /> ;; 刷块角度<br /> ;; 需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]<br /> (defun c:tt ()<br />   (if (and (setq s0 (car (entsel "\n选择样块: ")))<br />     (= (xyp-get-dxf 0 s0) "INSERT")<br />       )<br />     (progn<br />       (princ "\n选择要修改的图块: ")<br />       (setq ss (ssget '((0 . "INSERT")))<br />      i -1<br />      rad (xyp-get-dxf 50 s0)<br />       )<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br /> (xyp-SubUpd s1 50 rad)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

teykmcqh

顶一下啦

zml84

yjycad

xianaihua 发表于 2009-12-19 00:03
一次框选程序

谢谢！收藏了！

neatmud

• ;; 刷块角度
  
• ;; 需要e派工具箱(XCAD)的支持：http://xyp1964.ys168.com
  
• (defun c:tt ()
  
•   (if (and (setq s0 (car (entsel "\n选择样块: ")))
  
•     (= (xyp-get-dxf 0 s0) "INSERT")
  
•       )
  
•     (progn
  
•       (princ "\n选择要修改的图块: ")
  
•       (setq ss (ssget '((0 . "INSERT")))
  
•      i -1
  
•      rad (xyp-get-dxf 50 s0)
  
•       )
  
•       (while (setq s1 (ssname ss (setq i (1+ i))))
  
• (xyp-SubUpd s1 50 rad)
  
•       )
  
•     )
  
•   )
  
•   (princ)
  
• )
  
  

选择样块: no function definition: XYP-GET-DXF

。。。。

不知何故。