一个实体拉伸的问题

alwsu666

请教各位大侠，我想编一个实体拉伸的程序但不对，但我就是找不到错在哪里请大侠们指教

(defun cS(/ P0 P1 P2 P3 P4 P5 p6)
  (setq p0 '( 0 0)
        p1 '( 0 40)
        p2 '( 3 40)
        p3 '( 3 3)
        p4 '( 40 3)
        p5 '( 40 0)
        p6 100)
(command "pline" p0 p1 p2 p3 p4 p5 "c")
  (command "extrude" (entget(entlast)) "" p6 "")
  (prin1))

alwsu666

不好意思我以在本网站的启发下搞定啦

(command "extrude" (entget(entlast)) "" p6 "")改为

(command "extrude"（entlast) "" p6 "")就行啦，哈哈

184235521

你这图形生成在0，0坐标。如果要让图形在鼠标点击的任意坐标生成图形该怎么写？请教

mokson

还有这种操作？学习学习