关于插入带属性的块

abcxyz0517

之前有一个LSP程序，是插入带属性的块的程序，但是在2014上无法使用了，找了很久，没有找到合适的解决方法，有大神帮忙改一下，插入的属性比如说是时间属性一类的，能自动根据当前的时间插入。原来的程序如下

(defun c:xgtq( / cdd f n n1 pt r s y);
  (setq cdd (getvar "CDATE"))
  (setq cdd (rtos cdd 2 4))
  (setq n (substr cdd 1 4))
  (setq y (substr cdd 5 2))
  (setq r (substr cdd 7 2))
  (setq s (substr cdd 10 2))
  (setq f (substr cdd 12 2))
  (setq pt (getpoint "输入插入点:"))
  (if (= pt nil)      (setq pt '(0 0 0)) )
  (setq n1 (* 1 plot_scale))
  (command "INSERT" "blk/tuchuo.dwg" pt n1 n1 "" s n f y r "给排水" "" "")  
)

烟盒迷唇

应该是这些系统变量影响的，试一试吧：
attdia 控制 insert 命令是否使用对话框用于属性值的输入:0.给出命令行提示 1.使用对话框

attmode 控制属性的显示:0 关,使所有属性不可见；1.普通，保持每个属性当前的可见性；2.开，使全部属性可见

attreq 确定 insert 命令在插入块时默认属性设置。0.所有属性均采用各自的默认值；1.使用对话框获取属性值

start4444

plot_scale 这个变量没赋值

abcxyz0517

start4444 发表于 2019-7-16 18:19
plot_scale 这个变量没赋值

这个在别的程序里面有赋值，是出图比例的一个值，比如100，但是还是不行啊，插入不进去。

abcxyz0517

我想着先带属性插入进去，比如带有6个属性，在直接把这六个属性提取出来替换掉，但是不会

start4444

lsp应该是通用的，你手动看看14版插入属性块的命令是不是操作有改变了导致不行

abcxyz0517

命令: (command "INSERT"
(_> )
INSERT 输入块名或 [?]: nil
输入块名或 [?]: A1
忽略块 _ArchTick 的重复定义。
正在用 [@_1hz.shx] 替换 [tssdeng2.shx]。
单位: 无单位   转换:         1
指定插入点或 [基点(B)/比例(S)/X/Y/Z/旋转(R)]:
输入 X 比例因子，指定对角点，或 [角点(C)/XYZ(XYZ)] <1>: 1
输入 Y 比例因子或 <使用 X 比例因子>: 1
指定旋转角度 <0>: 0

输入角度就直接结束了。

ISSICC

abcxyz0517 发表于 2019-7-17 11:20
命令: (command "INSERT"
(_> )
INSERT 输入块名或 [?]: nil

你好，我也遇到插入属性块传递属性除了问题，请问你后来解决了吗？

dasha321

怎样插入有属性的块