Mariusz 发表于 2022-7-5 17:02:31

(命令“_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]
查看完整版本: (命令“_chemfer”…?)