偏移G上的多个对象

notview · 发表于 2022-7-6 00:04:15

我找不到lisp“在给定点上偏移多个对象”。

任何慷慨的帮助，我需要这样的偏移：选择对象（直线或多段线）。
获取/选择一个点。询问物体间隔距离。然后，从源对象到
拾取点是要填充的距离。

e、 g：填充距离为101m。；物体间隔距离为2m。然后，从源对象到100m的距离现在被填充。由于2m的额外长度为102m，因此仅填充100m，现在已超过要填充的距离。

danielk · 发表于 2022-7-6 00:07:48

也许这个：
;; 由David Harrington安排
;;; 以给定距离以任意角度排列对象
;;;
;;; 主程序
;;;
（defun c:ara（/x ent ang num dist pt1 dist1 pt2 ang\u error olcmdecho olosmode）
（defun ang_错误（msg）
（如果（或（=消息“功能取消”）（/=消息“退出/退出中止”））
（princ（strcat“错误：”msg））
)
（命令“_UNDO”“E”“UNDO”“”）
（setvar“CMDECHO”olcmdecho）
（setvar“OSMODE”olosmode）
（setq*错误*旧错误
old\u err nil
)
（普林斯）
)
（setq old\U err*错误*
*错误*ang_错误
)
（setq olosmode（getvar“OSMODE”）
olcmdecho（getvar“CMDECHO”）
)
（setvar“CMDECHO”0）
（命令“.u UNDO”“BE”）
（提示“\n Arrang-以一定角度排列对象”）
（setq x 1）
（princ“\n选择要数组的对象：”）
（条件
（（setq ent（ssget））
（initget 1）
（setq ang（getangle“\n与数组对象对齐：”）
（initget 1）
（setq num（getint“\n要数组的对象数：”）
（initget 1）
（setq dist（getdist“\n对象之间的距离：”））
（setq pt1（getvar“lastpoint”））
（setq dist1 dist）
（setq pt2（极性pt1和距离1））
（setvar“osmode”0）
（while（/=num x）
（命令“.u COPY“ent”pt1 pt2）
（setq dist1（+dist dist1））
（setq pt2（极性pt1和距离1））
（setq x（+x 1））
)
)
)
（命令“.u UNDO”“E”）
（setvar“OSMODE”olosmode）
（setvar“CMDECHO”olcmdecho）
（setq*error*old\U err）
（普林斯）
)
（普林斯）

notview · 发表于 2022-7-6 00:10:50

很好，但这正是我想要的。
选择对象后，无需询问阵列的角度和阵列的对象数。
只需要对象之间的距离（或对象间隔）和拾取点与对象之间的垂直距离。
物体的数量将由以下因素决定：从拾取点到物体的垂直距离/物体之间的距离。
商（只有整数，忽略小数）是要偏移/填充的对象数。
创建拾取点的一侧是创建偏移对象的一侧。

ReMark · 发表于 2022-7-6 00:13:57

直到你找到你想要的东西，也许李的自定义lisp例程称为动态偏移量就足够了。过来看。。。。http://lee-mac.com/dynamicoffset.html

CADstudio有一个名为XOffset的lisp实用程序。XOffset在指定距离内为选定对象创建多个偏移。您可以指定是向内偏移还是向外偏移选定闭合多段线。偏移在当前图层中绘制在这里找到它。。。。

http://www.cadstudio.cz/en/download.asp?file=XOffset