gazzalp 发表于 2022-7-6 17:11:08

李，该区块位于我们服务器上的一个文件夹中，所以我猜我需要文件路径。。。如果你把这部分留空，让我知道在哪里填什么，我应该能够处理。非常感谢

Lee Mac 发表于 2022-7-6 17:16:53

试试这个：
 
（定义c：网格线（/*错误*varLst oldVars tpt bpt slab ang llpt l1 lrpt l2 l1mid blkpt）；--错误陷阱---（defun*Error*（msg）（mapcar'setvar varLst oldVars）（if（=msg“”）（princ“\n函数完成。”）（普林斯“\n按了错误或Esc…”）；_结束if（princ））；结束*错误*（setq varLst（list“CMDECHO”“CLAYER”“OSMODE”）oldVars（mapcar'getvar varLst））；结束setq；--错误陷阱---（setvar“cmdecho”0）（defun makelay（x）（if（not（tblsearch“Layer”x））（命令“-Layer“m”x”）；_如果结束）；_端点偏移（if（和（setq tpt（getpoint“\n选择网格线的顶点：”）（setq bpt（getpoint“\n选择网格线的基点：”））（setq板（getstring t“\n指定板厚度：”）；\uend和（progn（setq ang（角度tpt bpt））（setvar“osmode”0）（makelay“CONTECT”）（setvar“clayer”“CONTECT”）（命令行）（setq llpt（极性tpt（+ang（/pi 2））1200））（极性llpt ang（距离tpt bpt））“”）end命令（setq l1（entlast））（命令“_line”（setq lrpt（极性tpt（-ang（/pi 2））1200））（极性lrpt ang（距离tpt bpt））”）；_end命令（setq l2（entlast））（命令“_chprop“l1 l2”“lt”“awthidden2”“）（setq l1mid（polar llpt ang（/（distance tpt bpt）2））（setq l2mid（polar lrpt ang（/（distance tpt bpt）2））（makelay“Dimensions”）（setvar“clayer”“Dimensions”）（命令“_dimalized”l1mid l2mid l1mid l1mid）（setq blkpt（polar tpt ang（/（distance tpt bpt）2）1000）））（命令“-插入“[颜色=红色]”C:\…”；

gazzalp 发表于 2022-7-6 17:20:57

好吧，现在对我来说更有意义了。。。。两个问题-我们是否可以更改它，使插入的块位于一个称为“标记”的层上，并扩展到100（它在1处插入）谢谢李

Lee Mac 发表于 2022-7-6 17:24:17

 
试试这个：
 
（定义c：网格线（/*错误*varLst oldVars tpt bpt slab ang llpt l1 lrpt l2 l1mid blkpt）；--错误陷阱---（defun*Error*（msg）（mapcar'setvar varLst oldVars）（if（=msg“”）（princ“\n函数完成。”）（普林斯“\n按了错误或Esc…”）；_结束if（princ））；结束*错误*（setq varLst（list“CMDECHO”“CLAYER”“OSMODE”）oldVars（mapcar'getvar varLst））；结束setq；--错误陷阱---（setvar“cmdecho”0）（defun makelay（x）（if（not（tblsearch“Layer”x））（命令“-Layer“m”x”）；_如果结束）；_端点偏移（if（和（setq tpt（getpoint“\n选择网格线的顶点：”）（setq bpt（getpoint“\n选择网格线的基点：”））（setq板（getstring t“\n指定板厚度：”）；\uend和（progn（setq ang（角度tpt bpt））（setvar“osmode”0）（makelay“CONTECT”）（setvar“clayer”“CONTECT”）（命令行）（setq llpt（极性tpt（+ang（/pi 2））1200））（极性llpt ang（距离tpt bpt））“”）end命令（setq l1（entlast））（命令“_line”（setq lrpt（polar tpt（-ang（/pi 2））1200））（polar lrpt ang（distance tpt bpt））”）；_end命令（setq l2（entlast））（命令“_chprop“l1 l2”“lt”“awthidden2”“）（setq l1mid（polar llpt ang（/（distance tpt bpt）2））（setq l2mid（polar lrpt ang（/（distance tpt bpt）2））（makelay“Dimensions”）（setvar“clayer”“Dimensions”）（命令“_dimalized”l1mid l2mid l1mid l1mid）（setq blkpt（polar tpt ang（/（distance tpt bpt）2）1000）））（makelay“Tags”）（setvar“clayer”“Tags”）（命令“-插入““C:\…”；

gazzalp 发表于 2022-7-6 17:28:57

李很棒，作品完美。非常感谢

Lee Mac 发表于 2022-7-6 17:33:56

没问题，很乐意帮忙。
页: 1 [2]
查看完整版本: 偏移2行添加尺寸