关于块问题的一个困惑！希望高手指点！

bower

我在编程时用到了（command "block" "块名" "插入点" "块"）语句的时候

如果块名重复了就会调用失败，那如何才能顺利的创建一个块而不必担心重名呢？（因为第二次调用我编写的函数时由于块名不变造成重名现象）

是不是可以把可见对象创建成匿名块就能解决呢？我不懂如何创建匿名块，希望高手指点。

afeng0712

我也需要噢！我把自定义的曲线标注也象做成匿名块

alin

到实用函数栏目里找找

 

无痕

匿名块或用 ctrl+c  shift+ctrl+v 作的块

sailorcwx

取时间做块名应该不会重了吧,精确到秒

xyp1964

2. (defun c:test (/ ss1 p x2)
3.   (prompt "\n请选择加入块的对象 : ")
4.   (setq ss1 (ssget))
5.   (princ "\n选择基点: ")
6.   (setq p  (getpoint)
7. x2 (rtos (* (getvar "cdate") 1000000) 2 0)
8.   )
9.   (command "_block" x2 p ss1 "")
10.   (command "_insert" x2 p "" "" "")
11.   (princ)
12. )

(defun c:test (/ ss1 p x2)   (prompt "\n请选择加入块的对象 : ")   (setq ss1 (ssget))   (princ "\n选择基点: ")   (setq p  (getpoint) x2 (rtos (* (getvar "cdate") 1000000) 2 0)   )   (command "_block" x2 p ss1 "")   (command "_insert" x2 p "" "" "")   (princ) )

afeng0712

目前有按时间等取块名这样做过！

但标注往往针对某一个对象而做，在此不想占用一块名！就想让其匿名，不知可否？？/

但若能做成标注本身那种实体就好了！既可以修改文字内容！文字也可以切底咋开！

alin

那lisp做不到

bower

多谢zyp1964,你提供的方法确实是一个很好的方法，佩服。

我还有一个疑问：

当我对选择集用旋转命令时，系统题是错误，比如说：

（setq inp (getpoint "\n请输入插入点")）

（command "rotate" ss1 inp 90）[ss1是一个非空选择集；inp使插入点坐标]

无痕

其实dim也就是个“块”