abcxyz0517 发表于 2019-7-16 16:34:05

关于插入带属性的块

之前有一个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 "给排水" "" "")
)

烟盒迷唇 发表于 2019-8-6 21:04:26

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

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

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

start4444 发表于 2019-7-16 18:19:54

plot_scale 这个变量没赋值

abcxyz0517 发表于 2019-7-17 09:52:32

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

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

abcxyz0517 发表于 2019-7-17 09:59:13

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

start4444 发表于 2019-7-17 10:35:14

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

abcxyz0517 发表于 2019-7-17 11:20:54

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

输入角度就直接结束了。

ISSICC 发表于 2020-10-12 15:11:50

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


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

dasha321 发表于 2020-10-29 13:50:06

怎样插入有属性的块
页: [1]
查看完整版本: 关于插入带属性的块