从点表画多边形

dhxf · 发表于 2009-4-24 19:10:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[pcode=lisp,true](defun draw_r(#l /)
(setq n 0
p1 (nth n #l)
)
(while (< n (length #l ))
(setq p2 (nth n #l))
(vl-cmdf "pline" P1 P2)
(setq p1 p2)
(setq n (1+ n))
)
(command "c" )
(princ)
)
;;;;;;;;;;;;;
[/pcode]
试验
#l
((11662.9 2181.44 0.0) (11662.9 2598.96 0.0) (12215.8 2598.96 0.0) (12215.8
2181.44 0.0))

===> 能画出闭合多边形，多出如下提示
需要二维角点或选项关键字。
需要二维角点或选项关键字。
需要二维角点或选项关键字。

Underway · 发表于 2009-4-24 22:22:53

(defun draw_r (#l /)
(vl-cmdf "pline")
(foreach pt #L
(vl-cmdf pt)
)
(vl-cmdf "c" )
(princ)
)

yshf · 发表于 2009-4-24 23:35:40

(apply 'command (append '("_Pline") (append #1 '("c"))))

复制代码

xuyu · 发表于 2009-4-25 00:43:23

看不懂这一段代码

dhxf · 发表于 2009-4-25 12:15:49

懂2楼没懂3楼，和4楼一样；都谢谢。

Underway · 发表于 2009-4-25 23:02:28

也可以这样写
(apply 'vl-cmdf (cons "_Pline" (reverse (cons "c" #L))))

账号		自动登录	找回密码
密码			立即注册

[求助] 从点表画多边形

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子