edsion24 发表于 2011-7-26 09:56:39

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

Andyhon 发表于 2011-7-26 10:15:56

Need 2000+
Vlisp Supported

jackynine 发表于 2011-7-26 10:53:42

4楼热心，顶起来

dalin1985 发表于 2011-8-16 22:24:47

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

xotoo 发表于 2011-8-18 17:13:45

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

xyp1964 发表于 2011-8-18 19:02:53


;; 刷块角度
;; 需要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)
)


teykmcqh 发表于 2012-1-23 17:37:41

顶一下啦

zml84 发表于 2012-1-29 20:58:48


yjycad 发表于 2012-2-1 00:02:56

xianaihua 发表于 2009-12-19 00:03 static/image/common/back.gif
一次框选程序

谢谢！收藏了！

neatmud 发表于 2012-3-13 17:44:55

本帖最后由 neatmud 于 2012-3-13 17:45 编辑


[*];; 刷块角度

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif;; 需要e派工具箱(XCAD)的支持：http://xyp1964.ys168.com

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(defun c:tt ()

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(if (and (setq s0 (car (entsel "\n选择样块: ")))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    (= (xyp-get-dxf 0 s0) "INSERT")

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    (progn

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif      (princ "\n选择要修改的图块: ")

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif      (setq ss (ssget '((0 . "INSERT")))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   i -1

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   rad (xyp-get-dxf 50 s0)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif      (while (setq s1 (ssname ss (setq i (1+ i))))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif (xyp-SubUpd s1 50 rad)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif      )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(princ)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)




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

。。。。

不知何故。
页: 1 [2] 3
查看完整版本: 刷块角度旋转