快速作块（源码）..

preone · 发表于 2012-7-28 21:09:36

illcyt 发表于 2012-7-28 14:40
思路不错，但是整个做起来的话和block差不多时间啊，不过还是支持下

呵呵你仔细看看还是很快哦~

xyp1964 · 发表于 2012-7-28 21:56:48

;; 伪源码需要e派工具箱(XCAD)的支持
;; 随机图块
(defun c:tt (/ p1 ss)
(princ "\n选择实体: ")
(if (and (setq ss (ssget))
(setq p1 (UPOINT 1 "" "点" (xyp-get-9pt s5 5) nil))
)
(xyp-Rand-Block ss p1)
)
(princ)
)

preone · 发表于 2012-7-29 11:52:04

xyp1964 发表于 2012-7-28 21:56

院长的代码简洁明了~ 敬礼~~

longer1000 · 发表于 2012-7-31 14:30:12

很好用，可是有一点，当不选择块名时，生成的是*u前缀的块名，当你想修改块名时则不能修改，望修改以时间为块名来定义无名块

preone · 发表于 2012-7-31 18:54:17

本帖最后由 preone 于 2012-8-2 21:23 编辑

longer1000 发表于 2012-7-31 14:30
很好用，可是有一点，当不选择块名时，生成的是*u前缀的块名，当你想修改块名时则不能修改，望修改以时间为 ...

中午有点忙刚才改了一下~  块名现在是当前时间了  主程序如下：
(defun c:bb (/  bent bpoint bname tmp)
  (prompt "\n选择作块对象:")
  (setq bent (ssget))
  (if (null (setq bpoint (getpoint "\n选择块基点<0,0,0>:")))
(setq bpoint '(0 0 0))
  )
  (prompt "\n选择文本作块名:")
  (setq tmp (ssget '((0 . "*text"))))
  (if
(null tmp)
   (setq bname (rtos (getvar 'cdate) 2))
   (setq bname (cdr (assoc 1 (entget (ssname tmp 0)))))
  )
  (emkblk bent bpoint bname)
  (prin1)
)

呵呵你先试试，有需要改进的还请再指教~~

kinglzk2000 · 发表于 2012-7-31 20:19:12

good ！

longer1000 · 发表于 2012-8-1 08:35:36

preone 发表于 2012-7-31 18:54
中午有点忙刚才改了一下~ 块名现在是当前时间了主程序如下：
(defun c:bb (/ bent bpoint bname ...

非常感谢，个人觉得指定文本为块名还没有直接输入块名方便，如果能有记忆上次的块名更好。

preone · 发表于 2012-8-1 17:41:24

kinglzk2000 发表于 2012-7-31 20:19
good ！

preone · 发表于 2012-8-1 19:20:27

本帖最后由 preone 于 2012-8-2 21:23 编辑

longer1000 发表于 2012-8-1 08:35
非常感谢，个人觉得指定文本为块名还没有直接输入块名方便，如果能有记忆上次的块名更好。

加上了输入块名的操作~ 主程序如下：

(defun c:bb (/ bent bpoint bname tmp)
  (prompt "\n选择作块对象:")
  (setq bent (ssget))
  (if (null (setq bpoint (getpoint "\n选择块基点<0,0,0>:")))
(setq bpoint '(0 0 0))
  )
  (and (= (setq bname (getstring "\t输入块名或空格后选择块名文本:")) "")
   (and
      (null (and
               (princ "\n选择文本作块名或空格用当前时间作块名:")
               (setq tmp (ssget '((0 . "*text"))))
               (setq bname (cdr(assoc 1(entget (ssname tmp 0)))))
            )
      )
      (setq bname (rtos (getvar 'cdate) 2))
   )
  )
  (emkblk bent bpoint bname)
  (prin1)
)

如果要加记忆功能的话加一个全局变量就可以了~具体可以参考这里~

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=93390&fromuid=401233

lohas1118 · 发表于 2012-8-2 11:11:10

命令: bb
选择作块对象:
选择对象: 找到 1 个

选择对象: 找到 1 个，总计 2 个

选择对象:

选择块基点<0,0,0>: 输入块名或空格后选择块名文本:11 ; 错误: no function
definition: EMKBLK

请教，这是怎么回事啊？

账号		自动登录	找回密码
密码			注册

快速作块（源码）..

点评

评分