如何给图形加边框

n12cn · 发表于 2016-4-11 00:31:28

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

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

×

求助如何给图形加边框

XDSoft · 发表于 2016-4-11 08:29:56

什么图形？你能画几个示例截图上来吗？

n12cn · 发表于 2016-4-22 01:31:48

XDSoft 发表于 2016-4-11 08:29
什么图形？你能画几个示例截图上来吗？

就是加这样的边框

快乐王子刚 · 发表于 2016-9-12 20:54:14

n12cn 发表于 2016-4-22 01:31
就是加这样的边框

(defun c:tt1 ()
  (if (not (setq dis (getreal "\n输入板边30<0>:")))
(setq dis 30)
  )
  (xdrx_prompt "\n选取生成外框的实体<退出>:")
  (if (setq ss (ssget))
(progn
   (setq box (xdrx_entity_box ss))
   (if (> dis 0)
      (setq box (xdrx_points_offset (abs dis) (xd::pnts:close box)))
   )
   (xdrx_polyline_make box t)
)
  )
  (princ)
)

Lispboy · 发表于 2016-9-12 21:45:40

快乐王子刚发表于 2016-9-12 20:54
(defun c:tt1 ()
(if (not (setq dis (getreal "\n输入板边30:")))
(setq dis 30)

这是你自己写的？

newer · 发表于 2016-9-12 22:21:18

快乐王子刚发表于 2016-9-12 20:54
(defun c:tt1 ()
(if (not (setq dis (getreal "\n输入板边30:")))
(setq dis 30)

(setq dis (getreal "\n输入板边30<0>:")))

应该这样：

(setq dis (getreal "\n输入板边<30>:")))

快乐王子刚 · 发表于 2016-9-13 14:29:15

不是我自己写的，是上次这在论谈里发布的，别人帮我写的。

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

[编程申请] 如何给图形加边框

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

相关帖子

点评

点评

点评

评分