分段旋转
大家好在Autolisp中是否可以插入一个块（在这种情况下，它是一条线），然后拾取一个点（该点定义了一个假想圆的中心），一旦拾取该点，我想将光标围绕该点移动360度。与绘制假想点类似，但当光标在假想的8/45度段中移动时，块（线）将随着光标在每个段中移动而旋转。因此，当光标围绕中心点移动时，直线将旋转8次（每段45度）。一旦我决定了所需的旋转，我就会单击鼠标接受。
我希望你能理解这一切
当做
听起来你需要（grread），尽管我不确定它会按你想要的顺序做你想要的事情。
绘制曲线的演示代码
绘制任意圆弧、圆、椭圆或多段线，加载lisp，然后键入“lper”。四处移动光标。红线始终与选定对象对应。如果单击鼠标左键，它将从单击的点到选定对象绘制一条线。
或者我的动态角度和距离
(defun c:DAD (/pt pos dms)
(and (setq pt (getpoint "\nSpecify base point: "))
(while (eq 5 (car (setq pos (grread T 15 0))))
(redraw)
(grdraw pt (cadr pos) 1 1)
(setq dms (strcat "Angle : " (angtos (angle pt (cadr pos)) 1 4) " Distance : " (rtos (distance pt (cadr pos)) 2 3)))
(princ (strcat "\r" dms " "))
(grtext -1 dms)
);end_while
);end_and
(redraw)
(princ)
);end_defun
角度以度、分和秒为单位显示，但很容易更改 段？“polar snap’45d？
2
还是动态块？ 为什么不使用极轴追踪？https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-Core/files/GUID-7EC3C63D-EA4E-4E65-A676-C3A3627E3F19-htm.html
只需启用它，将旋转角度设置为45，或任何您想要的增量，然后像通常一样使用旋转命令。当您围绕基点移动光标时，它将捕捉到您指定的角度。
此外，插入块时，如果启用“在屏幕上指定旋转”，则可以使用指定的极轴跟踪角度围绕其插入点旋转块。 另一种方法是说以0角度插入线，然后重复按空格键旋转，按enter键接受。显然是Lisp程序。 谢谢，听起来很直截了当。我会试试，让你知道的
托尼
页:
[1]