清水白粥 发表于 2024-9-8 10:08:26

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

本帖最后由 清水白粥 于 2024-11-3 17:01 编辑

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

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

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

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

天命 发表于 2024-9-8 11:22:28

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

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

清水白粥 发表于 2024-9-8 15:15:06

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

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

清水白粥 发表于 2024-9-8 10:19:58

本帖最后由 清水白粥 于 2024-9-8 10:38 编辑

..........

天命 发表于 2024-9-8 10:38:41

本帖最后由 天命 于 2024-9-8 10:44 编辑

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

清水白粥 发表于 2024-9-8 11:04:19

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

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

清水白粥 发表于 2024-9-8 15:12:56

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


厉害呀……

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

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

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

伍星 发表于 2024-9-8 17:06:58

两个系统变量都需要设置
页: [1] 2
查看完整版本: 已解决，批量矩形中间生成属性块，插入时能否避免属性块对话框弹