已解决，批量矩形中间生成属性块，插入时能否避免属性块对话框弹

清水白粥

批量矩形中间生成属性块，插入时能否避免属性块对话框弹出

暂时只能想到通过建成普通块，再炸开的方式 避免对话框
附件已上传

天命

清水白粥 发表于 2024-9-8 11:04
对话框是没有，但是属性块，也没有生成，很奇怪，而且把值也改变了

ATTREQ
0        所有属性均采用自己的默认值
1        根据系统变量 ATTDIA 设置的值，打开命令提示或使用对话框获取属性值

xyp1964

1. ;;直接复制图块
   
2. (defun c:tt ()
   
3.   (if (and (setq s0 (car (entsel "\n选择图块<退出>: ")))
   
4.            (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
5.            (setq p0 (cdr (assoc 10 (entget s0))))
   
6.            (setq i -1)
   
7.       )
   
8.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.       (command "copy" s0 "" p0 (vlax-curve-getStartPoint s1))
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

;;直接复制图块<br /> (defun c:tt ()<br />   (if (and (setq s0 (car (entsel "\n选择图块<退出>: ")))<br />            (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />            (setq p0 (cdr (assoc 10 (entget s0))))<br />            (setq i -1)<br />       )<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (command "copy" s0 "" p0 (vlax-curve-getStartPoint s1))<br />     )<br />   )<br />   (princ)<br /> )

清水白粥

..........

天命

好像有个系统变量能控制
ATTDIA=0

清水白粥

天命 发表于 2024-9-8 10:38
好像有个系统变量能控制
ATTDIA=0

对话框是没有，但是属性块，也没有生成，很奇怪，而且把值也改变了

清水白粥

xyp1964 发表于 2024-9-8 13:32

厉害呀……

清水白粥

天命 发表于 2024-9-8 11:22
ATTREQ
0        所有属性均采用自己的默认值
1        根据系统变量 ATTDIA 设置的值，打开命令提示或使用对话框获取 ...

我再查查 是什么问题……感谢

xyp1964

清水白粥 发表于 2024-9-8 15:15
我再查查 是什么问题……感谢

就一个复制copy命令，多余考虑ATTREQ和属性图块问题。

伍星

两个系统变量都需要设置