184235521 发表于 2020-12-14 10:36:27

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

(defun c:TT(/ P0 P1 P2 P3 P4 p5)
(setq p0 '( 0 0)
         p1 '( 0 400)
         p2 '( 100 400)
         p3 '( 100 100)
         p4 '( 400 100)      
         p5 '( 400 0))
(command "pline" p0 p1 p2 p3 p4 p5 "c")
(prin1))因为图形生成后总是在原点位置，请大神指导如何实现生成的图形在鼠标位置或者点击的位置？尽量简单明了，本人小白一枚。

USER2128 发表于 2020-12-15 15:31:37

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

烟盒迷唇 发表于 2020-12-15 08:46:04

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

184235521 发表于 2020-12-15 17:29:35

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

谢谢，要的就是这效果。
页: [1]
查看完整版本: 如何让生成的图形在鼠标点击的位置？