API应用相同矩形编号

st788796 · 发表于 2014-1-22 17:46:14

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

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

×

(defun c:tt (/ ss pts i)
(if (setq ss (ssget))
(progn
(setq pts (xdrx_curve_getinters ss)
pts (XD::List:TableSort
(mapcar '(lambda (x) (list x x)) pts)
0
3
1e-3
)
pts (mapcar '(lambda (x) (mapcar 'cadr x)) pts)
pts (mapcar '(lambda (x)
(mapcar 'list x (cdr x))
)
pts
)
pts (mapcar
'(lambda (x y)
(mapcar
'(lambda (a b)
(list
(list (apply 'distance a)
(distance (car a) (car b))
)
(xdrx_line_midp (car a) (cadr b))
)
)
x
y
)
)
pts
(cdr pts)
)
pts (apply 'append pts)
pts (xd::List:GroupByIndex pts 1e-3)
)
(setq i 1)
(mapcar
'(lambda (x)
(mapcar '(lambda (a)
(xdrx_text_make a (strcat "A-" (itoa i)) 50. 0.)
)
x
)
(setq i (1+ i))
)
(mapcar 'cdr pts)
)
)
)
(princ)
)

(defun c:tt (/ ss pts i) 
  (if (setq ss (ssget)) 
    (progn 
      (setq pts        (xdrx_curve_getinters ss) 
            pts        (XD::List:TableSort 
                  (mapcar '(lambda (x) (list x x)) pts) 
                  0 
                  3 
                  1e-3 
                ) 
            pts        (mapcar '(lambda (x) (mapcar 'cadr x)) pts) 
            pts        (mapcar        '(lambda (x) 
                           (mapcar 'list x (cdr x)) 
                         ) 
                        pts 
                ) 
            pts        (mapcar 
                  '(lambda (x y) 
                     (mapcar 
                       '(lambda        (a b) 
                          (list 
                            (list (apply 'distance a) 
                                  (distance (car a) (car b)) 
                            ) 
                            (xdrx_line_midp (car a) (cadr b)) 
                          ) 
                        ) 
                       x 
                       y 
                     ) 
                   ) 
                  pts 
                  (cdr pts) 
                ) 
            pts        (apply 'append pts) 
            pts        (xd::List:GroupByIndex pts 1e-3) 
      ) 
      (setq i 1) 
      (mapcar 
        '(lambda (x) 
           (mapcar '(lambda (a) 
                      (xdrx_text_make a (strcat "A-" (itoa i)) 50. 0.) 
                    ) 
                   x 
           ) 
           (setq i (1+ i)) 
         ) 
        (mapcar 'cdr pts) 
      ) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2014-1-24 08:38:58

hzj268 发表于 2014-1-24 08:15
老大图已经传上来了

上面程序是针对Line构成的网格,你的每个矩形是封闭 Pline, 不适用上面程序

如果都是是独立的 Pline , 就更简单了

sachindkini · 发表于 2014-1-22 22:56:08

dear sir, nice lisp

sachindkini · 发表于 2014-1-22 22:57:39

dear sir, nice lisp

hzj268 · 发表于 2014-1-23 08:47:51

:)谢谢了，。。。。。。。

hzj268 · 发表于 2014-1-23 08:55:06

sachindkini 发表于 2014-1-22 22:57
dear sir, nice lisp

什么意思

hzj268 · 发表于 2014-1-23 08:55:44

夸人还用英文

hzj268 · 发表于 2014-1-23 09:00:02

老大怎么运行命令选择后没反应

hzj268 · 发表于 2014-1-23 09:04:20

我不知道怎么弄的没反应

st788796 · 发表于 2014-1-23 10:01:06

hzj268 发表于 2014-1-23 09:04
我不知道怎么弄的没反应

由线构成的NET网格

hzj268 · 发表于 2014-1-23 11:05:54

本帖最后由 hzj268 于 2014-1-23 11:12 编辑

st788796 发表于 2014-1-23 10:01
由线构成的NET网格

好的我试过 net网格怎么画呀不是用 line 画吗？

st788796 · 发表于 2014-1-23 13:22:35

本帖最后由 st788796 于 2014-1-23 13:59 编辑

hzj268 发表于 2014-1-23 11:05
好的我试过 net网格怎么画呀不是用 line 画吗？

把自己的图发上来
需要加载api lisp-lib

kwok · 发表于 2014-1-23 17:12:52

这个网里的每个小矩形的中点用lisp怎么求出来？

hzj268 · 发表于 2014-1-23 17:52:18

就这张...........................

st788796 · 发表于 2014-1-23 19:50:23

kwok 发表于 2014-1-23 17:12
这个网里的每个小矩形的中点用lisp怎么求出来？

求交点，排行列，列组宽，再行组矩形，由矩形对角点求中心

hzj268 · 发表于 2014-1-24 08:15:45

st788796 发表于 2014-1-23 19:50
求交点，排行列，列组宽，再行组矩形，由矩形对角点求中心

老大图已经传上来了

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

[发布] API应用相同矩形编号

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

点评

点评

点评

点评

[发布] API应用 相同矩形编号

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

点评

点评

点评

点评

[发布] API应用相同矩形编号