[转贴]：在CAD中绘制表格线

monkey12 · 发表于 2006-4-25 18:42:10

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

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

×

在Auto CAD中绘制表格线
;在Auto CAD中绘制表格线
;入口参数：pt—表格的右上角插入点
;                   jjb—表格行、列的高宽表((第一行高  第二行高  第三行高  ...... 第n行高 )
;                                                                (第一列宽  第二列宽  第三列宽  ...... 第m列宽 ))
;以表格右上角为准，行数由上往下数，列数由左向右数
(defun hbg(pt jjb / dx dy ppb pyx i zb dd)
(setq dx (apply '+ (cadr hljj))
   dy ( * -1 (apply '+ (car  hljj)))
   ppb (list (mapcar '+ pt (list x 0)) (mapcar '+ pt (list 0 y)))
   pyx (list (mapcar '+ p2 '(0 -10)) (mapcar '+ p1 '(10 0)))
   i 0
   )
   (foreach zb hljj
         (command "line" pt (nth i ppb) "")
         (foreach dd zb  (command "_offset" dd (entlast) (nth i pyx) ""))
      (setq i (1+ i))
   )
)

yshf · 发表于 2006-4-26 07:52:22

你这家伙把我的程序弄到这里来也不吭一声?

monkey12 · 发表于 2006-4-26 09:30:51

yshf,很抱歉!我是是在测量其他地方转过来的,如果你是原作者,侵犯之处请见凉!

guangshunsong · 发表于 2006-4-26 17:14:28

资源共享，大家道个歉就算了吧
呵呵呵

zhaoli_3000 · 发表于 2006-4-26 22:52:27

借鉴下要先说清楚,尊重知识产权

yitian519 · 发表于 2006-4-27 09:51:07

i 0
)什么意识?

yshf · 发表于 2006-4-27 16:57:02

难道这还有假，请看http://www.celiang.net/celiang/a ... 376&author=yshf

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

[转贴]：在CAD中绘制表格线

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

相关帖子