如何让生成的图形在鼠标点击的位置？

184235521

2. (defun c:TT(/ P0 P1 P2 P3 P4 p5)
   
3.   (setq p0 '( 0 0)
   
4.          p1 '( 0 400)
   
5.          p2 '( 100 400)
   
6.          p3 '( 100 100)
   
7.          p4 '( 400 100)      
   
8.          p5 '( 400 0))
   
9. (command "pline" p0 p1 p2 p3 p4 p5 "c")
   
10. (prin1))

(defun c:TT(/ P0 P1 P2 P3 P4 p5)<br />   (setq p0 '( 0 0)<br />          p1 '( 0 400)<br />          p2 '( 100 400)<br />          p3 '( 100 100)<br />          p4 '( 400 100)       <br />          p5 '( 400 0))<br /> (command "pline" p0 p1 p2 p3 p4 p5 "c")<br /> (prin1))

因为图形生成后总是在原点位置，请大神指导如何实现生成的图形在鼠标位置或者点击的位置？尽量简单明了，本人小白一枚。

USER2128

在原程序之后，加一行：
(command "_.move" "L" "" "0,0,0" pause)

烟盒迷唇

0，0就是原点啊，要让他不在原点就改掉或者转换坐标系啊。

184235521

USER2128 发表于 2020-12-15 15:31
在原程序之后，加一行：
(command "_.move" "L" "" "0,0,0" pause)

谢谢，要的就是这效果。