偏移G上的多个对象

notview · 发表于 2022-7-6 00:36:13

好的，谢谢你的提醒。。

notview · 发表于 2022-7-6 00:42:13

登录/注册后可看大图

notview · 发表于 2022-7-6 00:43:45

任何帮助都将不胜感激。（请参见附图。）

ReMark · 发表于 2022-7-6 00:45:59

问题是。。。。。。。？对不起，由于太阳活动增加，我的心灵感应能力被打断了。

你在使用什么lisp例程？

notview · 发表于 2022-7-6 00:49:05

这一刻，我正在使用李-麦克Lisp程序，DynOffV2-1。我只是假设偏移的（N）个数。如果dot填充了总长度，我只要再运行一次。。进来选择最后一个对象并输入。。

ReMark · 发表于 2022-7-6 00:53:30

你需要什么帮助？

troggarf · 发表于 2022-7-6 00:57:34

我从屏幕截图中看到，您正在使用AutoCAD 2012。你很幸运，因为这是复制命令的一部分！！！
请参阅以下链接：
http://autocadtips.wordpress.com/2011/03/24/autocad-2012-copy-tool-with-array-option/
http://autocadtips.wordpress.com/2011/03/24/autocad-2012-copy-with-array-fit/

~格雷格

rkent · 发表于 2022-7-6 00:58:37

使用“关联”设置为“开”的数组是最好的选择。之后，您可以对对象的数量或间距等进行调整。

dvpluto · 发表于 2022-7-6 01:03:37

@notview尝试此代码
函数语法：caa

copy

(defun cpar(
           / ss1 a d di n std
           )
(setq cmdo(getvar "cmdecho"))
;(command "_.ucs" "")
(setvar "cmdecho" 0)
(princ "\nCopy array:")
(setq ss1(ssget))
(setq p1(getpoint "First point: "))
(setq p2(getpoint p1 "Second point: "))
(if ca:distance
 (progn
  (setq  std (rtos ca:distance 2 4))
  (setq d(getdist (strcat "Distance between elements<"std ">: ")))
   (if  d
    (setq ca:distance d)
   )
 );end progn
 (setq ca:distance(getdist "Distance between elements: "))
);end if
(setq a(angle p1 p2))
(setq a(* (/ 180  pi) a))
(command "_.ucs" "z" a)
(setq di (distance p1 p2))
(setq d ca:distance)
(setq n(/ di d))
(setq n(+ 1(atoi (rtos n 2 1))))
(command "_.array" ss1 "" "r" 1 n d)
(command "_.ucs" "")
(setvar "cmdecho" cmdo)
(princ)
);end defun
(defun c:caa()
(cpar)
)

notview · 发表于 2022-7-6 01:05:17

谢谢你格雷格，我学到了一些东西一个额外的命令使用复制和阵列在cad。
复制和选项数组与Lee Mac Lisp几乎相同。

Thanx rkent的想法。。

冥王星，你就快到了！
这个惯例要求两点，这很好。求元素之间的距离，复制一个数组，并均匀填充拾取的两个点。
之后，我注意到元素之间的间隔或距离有点变化。

如果你能帮我个忙，你能做些改变吗。。

请。，元素之间的距离是平行距离。

非常感谢您的努力！！

[编程交流] 偏移G上的多个对象

发表回复

精选推荐

浏览过的版块