偏移G上的多个对象
我找不到lisp“在给定点上偏移多个对象”。任何慷慨的帮助，我需要这样的偏移：选择对象（直线或多段线）。
获取/选择一个点。询问物体间隔距离。然后，从源对象到
拾取点是要填充的距离。
e、 g：填充距离为101m。；物体间隔距离为2m。然后，从源对象到100m的距离现在被填充。由于2m的额外长度为102m，因此仅填充100m，现在已超过要填充的距离。 也许这个：
;; 由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）
（普林斯）
)
（普林斯） 很好，但这正是我想要的。
选择对象后，无需询问阵列的角度和阵列的对象数。
只需要对象之间的距离（或对象间隔）和拾取点与对象之间的垂直距离。
物体的数量将由以下因素决定：从拾取点到物体的垂直距离/物体之间的距离。
商（只有整数，忽略小数）是要偏移/填充的对象数。
创建拾取点的一侧是创建偏移对象的一侧。 直到你找到你想要的东西，也许李的自定义lisp例程称为动态偏移量就足够了。过来看。。。。http://lee-mac.com/dynamicoffset.html
CADstudio有一个名为XOffset的lisp实用程序。XOffset在指定距离内为选定对象创建多个偏移。您可以指定是向内偏移还是向外偏移选定闭合多段线。偏移在当前图层中绘制在这里找到它。。。。
http://www.cadstudio.cz/en/download.asp?file=XOffset 很好的自定义lisp！
五十、 M.，如果可以使用附加选项拾取对象内部或外部的点，则从该对象到拾取点的距离将根据选择的偏移距离填充。这太棒了！！ 我想你是在问李，他是否愿意为动态偏移lisp例程调整当前代码。对 备注，是的！ 这完全取决于李。他没有义务这样做。无法确定他何时以及是否会看到/回复此帖子。你只需要有耐心。 好的，谢谢你的评论。
我会等L.M.回复。 看看你有55个帖子，你可以PM他。礼貌地问。通常要求很高的人在这里走不了多远。如果他拒绝了，那就从容不迫吧。好啊
页:
[1]
2