快速作块（源码）..

挪威的森林

收藏下来好好学习学习

preone

挪威的森林 发表于 2012-8-2 17:00
收藏下来好好学习学习

preone

lohas1118 发表于 2012-8-2 11:11
命令: bb
选择作块对象:
选择对象: 找到 1 个

emkblk 子程序 在开头部分~~

preone

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

谢谢鼓励~~
今天突然想到 其实用 or 也可以，程序也简洁一点点，可读性更好 哈哈~~
主程序如下：
(defun c:bb (/ bent bpoint bname tmp)
  (prompt "\n选择作块对象:")
  (setq bent (ssget))
  (or (setq bpoint (getpoint "\n选择块基点<0,0,0>:"))
        (setq bpoint '(0 0 0))
  )
   (or (/= (setq bname (getstring "\t输入块名 或 空格后选择块名文本:")) "")
        (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)
(princ)
)
一个小程序都有这么多优化的空间，学无止境啊，哈哈 ~
and & or ~~

longer1000

兄弟，把带记忆的功能加上吧。

万艳同窟

先留着，以后用

万艳同窟

谢谢楼主，辛苦了

preone

万艳同窟 发表于 2012-8-3 08:50
谢谢楼主，辛苦了

c735023723

good！！

preone

c735023723 发表于 2012-8-3 20:40
good！！