为什么我的画线不能闭合呀，我都输入c啦
www.dimcax.com
为什么我的画线不能闭合呀，我都输入c啦
(defun tt (circle / cirdata cen rad i lst)
(setq cirdata (entget circle))
(setq cen (cdr (assoc 10 cirdata)))
(setq rad (cdr (assoc 40 cirdata)))
(setq i 0 lst '())
(repeat 30
(setq lst (append lst (list (polar cen (* (/ pi 15) i) rad))))
(setq i (1+ i))
)
(command "pline" (foreach x lst (command x)) "c")
)
d
84大哥的帮忙下已解决
d
(defun tt (circle / cirdata cen rad i lst)
(setq cirdata (entget circle))
(setq cen (cdr (assoc 10 cirdata)))
(setq rad (cdr (assoc 40 cirdata)))
(setq i 0 lst '())
(repeat 30
(setq lst (append lst (list (polar cen (* (/ pi 15) i) rad))))
(setq i (1+ i))
)(setq lst (append lst '("c")))
(command "pline" (foreach x lst (command x)))
)
d
这样也行:
( tt (circle / cirdata cen rad i lst)
( cirdata ( circle))
( cen ( ( 10 cirdata)))
( rad ( ( 40 cirdata)))
( i 0 lst '("c"))
( 30
( lst ( ( cen ( ( pi 15) i) rad) lst))
( i ( i))
)
( "pline" ( x lst ( x)))
)
d
(command ...)里面不要套command
可以
(command ...)
(repeat x (command ....))
(command ...)
d
谢谢