社区 › Auto Lisp › 偏移G上的多个对象

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

好的，谢谢你的提醒。。

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

https://www.cadtutor.net/forum/attachment.php?attachmentid=45011&stc=1&d=1383662984

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
(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
(setqstd (rtos ca:distance 2 4))
(setq d(getdist (strcat "Distance between elements<"std ">: ")))
   (ifd
    (setq ca:distance d)
   )
);end progn
(setq ca:distance(getdist "Distance between elements: "))
);end if
(setq a(angle p1 p2))
(setq a(* (/ 180pi) 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上的多个对象