【炫翔】批量矩形偏移端点连线（大部分已注释）

wowan1314 · 发表于 2013-7-15 18:33:33

本帖最后由 wowan1314 于 2013-7-15 18:36 编辑

感觉用对象包围盒求的9PT。对于斜的矩形不行吧？

最近就玩编辑器了。用编辑器练习下编程序。编辑器不能格式化还是不好玩。套的太多不格式下的话我都晕掉了。

下面程序只是练手，也许会出错。

(defun c:t11 (/ PP P1 P2 SS EN ENO I A)
(princ "\n选择矩形")
(setq ss (ssget ":l:s" '((0 . "*lwpolyline"))))
(if ss
(progn
(setq i -1)
(while (setq en (ssname ss (setq i (1+ i))))
(vla-offset (vlax-ename->vla-object en) 100)
(setq eno (entlast)
A 1
)
(repeat 2
(set (read (strcat "P" (itoa A)))
(mapcar 'cdr
(vl-remove-if
'(lambda (b)
(/= (car b) 10)
)
(entget (if (= A 1)
en
eno
)
)
)
)
)
(setq A (1+ A))
)
(mapcar
'(lambda (a b)
(entmake (list '(0 . "line") (cons 10 a) (cons 11 b)))
)
P1
P2
)
)
)
)
(princ)
)

(defun c:t11 (/ PP P1 P2 SS EN ENO I A) 
  (princ "\n选择矩形") 
  (setq ss (ssget ":l:s" '((0 . "*lwpolyline")))) 
  (if ss 
    (progn 
      (setq i -1) 
      (while (setq en (ssname ss (setq i (1+ i)))) 
        (vla-offset (vlax-ename->vla-object en) 100) 
        (setq eno (entlast) 
              A          1 
        ) 
        (repeat        2 
          (set (read (strcat "P" (itoa A))) 
               (mapcar 'cdr 
                       (vl-remove-if 
                         '(lambda (b) 
                            (/= (car b) 10) 
                          ) 
                         (entget (if (= A 1) 
                                   en 
                                   eno 
                                 ) 
                         ) 
                       ) 
               ) 
          ) 
          (setq A (1+ A)) 
        ) 
        (mapcar 
          '(lambda (a b) 
             (entmake (list '(0 . "line") (cons 10 a) (cons 11 b))) 
           ) 
          P1 
          P2 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

NET-JOB · 发表于 2013-7-15 18:46:57

newer 发表于 2013-7-15 17:22
这样画，是什么专业的，什么图形？

做园林的，我用来画石材走边铺地的，以前用用曲线放样，遇到这种节点的地方总是画的很难看，这个程序如果能加强画两条线直接的线，图纸就漂亮了

newer · 发表于 2013-7-15 19:31:10

NET-JOB 发表于 2013-7-15 18:46
做园林的，我用来画石材走边铺地的，以前用用曲线放样，遇到这种节点的地方总是画的很难看，这个程序如果 ...

哦，你可以把这种图形，画一个所有情况的，然后贴图去发个编程申请吧，应该好写程序的。

newer · 发表于 2013-7-15 19:38:19

wowan1314 发表于 2013-7-15 18:33
感觉用对象包围盒求的9PT。对于斜的矩形不行吧？

最近就玩编辑器了。用编辑器练习下编程序。编辑 ...

斜的可以写程序解决，论坛以前讨论过的。

■D_zZ · 发表于 2013-10-31 08:11:22

真厉害，谢谢:lol

434939575 · 发表于 2014-3-25 19:57:59

学习了子程序。感谢！

enn09 · 发表于 2014-4-16 15:18:00

好程序，感谢分享

liyesheng22 · 发表于 2015-11-30 23:53:40

学习学习，

xinyeyu · 发表于 2016-2-6 20:17:08

很好的资料

start4444 · 发表于 2016-8-26 18:39:21

:lol:lol谢谢共享源码

Lisphk · 发表于 2016-9-21 00:09:18

API 练练手

(defun c:tt ()
(if (setq ss (ssget '((0 . "lwpolyline"))))
(progn
(xdrx_begin)
(mapcar '(lambda (x)
(setq x1 (xdrx_curve_offset x 20))
(xdrx_polyline_make x1)
(mapcar '(lambda (y z) (xdrx_line_make y z))
(xdrx_getpropertyvalue x "vertices")
x1
)
)
(xdrx_pickset->ents ss)
)
(xdrx_end)
)
)
(princ)
)

longer1000 · 发表于 2016-9-21 00:22:17

高手，实用、省事

kqqt6236 · 发表于 2016-9-23 13:29:13

谢谢分享源码。

a88611462 · 发表于 2016-11-7 15:19:04

确实是难得好帖啊，顶先

yoyoho · 发表于 2016-11-7 17:03:29

谢谢高手分享源码。

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

[原创] 【炫翔】批量矩形偏移端点连线（大部分已注释）

点评

点评