有人能帮我吗

Ahmeds · 发表于 2022-7-6 07:16:29

我有一个。以前运行的DCL文件，但碰巧我丢失了LISP文件。
我已经在这里附上了我的对话框，这是DCL的代码。

//TXScale。dcl

@包括“Ahmeds.dcl”

//绘图比例：行{key=“plottingscale”；fixed\u width=true；hgap；：t12{key=“sctxt”；value=“Plotting Scale:”；horizontal\u margin=none；}：pop10{key=“scale”value=“7”；horizontal\u margin=none；}}}
ChangeTextHeight：对话框{key=“author”label=“更改文本高度”；
艾哈迈德服务软件；
vht；
：box_列{label=“如何更改文本高度？”；
：radio\u row{key=“nh”；fixed\u width=true；
：rbf{key=“c”；label=“&更改文本高度（绝对）”；垂直_边距=无；}
：rbf{key=“r”label=“重新缩放文本高度（&S）”vertical\u margin=none；}
}
vgap；
}
：box_列{label=“文本高度选项”；
：行{
：列{
：行{fixed_width=true；
：t13{value=“新文本高度：”；key=“nth”}
：eb7{key=“th”；allow\u accept=true；horizontal\u margin=none；}

}
：行{fixed_width=true；
：t13{value=“新文本宽度：”；key=“ntw”}
：eb7{key=“tw”；horizontal\u margin=none；}

}
}

：间隔{width=1；}
：列{fixed_width=true；
绘图比例；
：行{fixed_width=true；
hgap；

}

：t30{key=“缩放文本”；}
}
}
vgap；
}
右按钮2；
}

我试图重建代码，但作为LISP的初学者，这对我来说太难了

DCL以前是这样工作的。。。。

当我按下此功能的工具栏按钮时，我只选择一个实体（数字、文本或字符串），然后出现此对话框。

1、编辑框自动携带相应的高度和宽度（实数）
2.如果我选择单选按钮（更改文本高度），打印比例（文本）和弹出菜单将被禁用。
3.如果我选择单选按钮（重新缩放文本高度），打印比例启用，其他功能不启用。
4、绘图比例取决于我选择的图层。。

每层文字高度的公式如下。。

;角（/（*1.40比例）1000.0）
;地块，面积，ADJ-TXT（/（*2.00比例）1000.0）
;ERYA（/（*2.50刻度）1000.0）
;边界/（*3.00比例）1000.0）
;索赔（/（*7.40比例）1000.0）
; 蒙拉德（/（*0.60标度）1000.0）

在我之前的LISP中，好的事情是我只选择了一个实体，当我按ok时，整个层都改变了。。。

请帮忙。。。。。

非常感谢。

5854-A.dwg

[编程交流] 有人能帮我吗

发表回复

精选推荐