(命令“_chemfer”…?)
大家好我的问题是为正确编写命令函数
(setvar“CHAMFERA”2)
(setvar“CHAMFERB”2)
(命令“_chemfer”…)
(setq a(entget(ssname ss 0));第一行
(setq x(cdr(assoc 10 a));第一条线的点
((-1 . ) (0.“线”)(330)(5.“76”)(100。“AcDbEntity”)(67.0)(410。“Model”)(8.0”)(62.1)(100。“AcDbLine”)(10 0.0 428.416 0.0)(11 0.0 1872.0 0.0)(210 0.0 0 0.0 1.0)
(setq b(entget(ssname ss 0));第二行
(setq y(cdr(assoc 10 b));第二条线的点
((-1 . ) (0.“线”)(330)(5.“73”)(100.“AcDbEntity”)(67.0)(410.“Model”)(8.0”)(62.2)(100.“AcDbLine”)(10 0.0 1872.0 0 0.0)(11 1345.0 1872.0 0 0.0)(210 0.0 0 0.0 1.0)
(commond“_chemfer”x y”“)它可以工作
(命令“_chamfer“x y”)不起作用
如何写入(命令“_chamfer”…[并写入线和点])以实现自动倒角功能?
页:
[1]