（已解决）申请实线批量指定基点放大图形

chenpeng417 · 发表于 2017-3-19 13:54:49

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

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

×

本帖最后由 chenpeng417 于 2017-3-19 22:59 编辑

申请实线批量指定基点放大图形，将图中蓝色三角形沿着柱边放大2倍，都按底边中点为基点放大

Lispboy · 发表于 2017-3-19 16:19:01

本帖最后由 Lispboy 于 2017-3-19 17:07 编辑

加载XDRX API 或安装晓东工具箱

三角构件贴柱放大.gif

(defun c:tt ()
(defun _getvertices (e)
(setq ed (entget e))
(mapcar '(lambda (x) (cdr (assoc x ed))) (list 10 11 12 13))
)
(defun _scale1 (ss)
(setq pts1 (xd::list:snakepair (xd::pnts:close pts)))
(if (vl-some '(lambda (x)
(xdrx_getpropertyvalue x "startpoint" "endpoint")
(setq i 0)
(vl-some '(lambda (y)
(setq pmid (apply 'xdrx_midp y)
dis1 (apply 'distance y)
dis (abs
(xdrx_point_dist2line
pmid
#startpoint
#endpoint
)
)
)
(and (> dis1 0) (equal dis 0 1e-3))
)
pts1
)
)
(xdrx_pickset->ents ss)
)
(xdrx_entity_scale e scl pmid)
)
)
(defun _scale (e)
(setq box (xdrx_entity_box e)
pts (_getvertices e)
)
(_scale1 (ssget "f" box '((0 . "LINE"))))
)
(if (and (setq scl (getreal "\n输入放大倍数<退出>:"))
(xdrx_initssget "\n选择三角构件<退出>:")
(setq ss (xdrx_ssget '((0 . "SOLID"))))
)
(progn
(xdrx_begin)
(setq box1 (xd::pnts:ucs2wcs (xdrx_entity_box ss t)))
(setq tf (XD::Doc:SafeZoom box1))
(mapcar '(lambda (x)
(_scale x)
)
(xdrx_pickset->ents ss)
)
(xdrx_end)
)
)
(princ)
)

(defun c:tt () 
  (defun _getvertices (e) 
    (setq ed (entget e)) 
    (mapcar '(lambda (x) (cdr (assoc x ed))) (list 10 11 12 13)) 
  ) 
  (defun _scale1 (ss) 
    (setq pts1 (xd::list:snakepair (xd::pnts:close pts))) 
    (if (vl-some '(lambda (x) 
                    (xdrx_getpropertyvalue x "startpoint" "endpoint") 
                    (setq i 0) 
                    (vl-some '(lambda (y) 
                                (setq pmid (apply 'xdrx_midp y) 
                                      dis1 (apply 'distance y) 
                                      dis  (abs 
                                             (xdrx_point_dist2line 
                                               pmid 
                                               #startpoint 
                                               #endpoint 
                                             ) 
                                           ) 
                                ) 
                                (and (> dis1 0) (equal dis 0 1e-3)) 
                              ) 
                             pts1 
                    ) 
                  ) 
                 (xdrx_pickset->ents ss) 
        ) 
      (xdrx_entity_scale e scl pmid) 
    ) 
  ) 
  (defun _scale (e) 
    (setq box (xdrx_entity_box e) 
          pts (_getvertices e) 
    ) 
    (_scale1 (ssget "f" box '((0 . "LINE")))) 
  ) 
  (if (and (setq scl (getreal "\n输入放大倍数<退出>:")) 
           (xdrx_initssget "\n选择三角构件<退出>:") 
           (setq ss (xdrx_ssget '((0 . "SOLID")))) 
      ) 
    (progn 
      (xdrx_begin) 
      (setq box1 (xd::pnts:ucs2wcs (xdrx_entity_box ss t))) 
      (setq tf (XD::Doc:SafeZoom box1)) 
      (mapcar '(lambda (x) 
                 (_scale x) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2017-3-19 17:31:33

仅对样图有效

(defun c:tt (/ ss)
(while (setq ss (ssget '((0 . "solid") (8 . "三角形"))))
(mapcar '(lambda (x / pts)
(setq pts (xdrx_entity_getstretchpoint x))
(xdrx_entity_scale
x
2.0
(xdrx_line_midp (car pts) (caddr pts))
)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

chenpeng417 · 发表于 2017-3-19 17:36:40

谢谢大神，我试试

chenpeng417 · 发表于 2017-3-19 18:06:32

请老大详细说说怎么用吧，我试了好久都还没有弄懂

chenpeng417 · 发表于 2017-3-19 18:08:16

是不是要安装XDRX-API，我现在是把代码复制下来，用写字板粘贴到一个以前的插件，再加载它，可是用不了呢

chenpeng417 · 发表于 2017-3-19 18:28:50

加载XDRX API 或安装晓东工具箱就搞定了，谢谢大神

newer · 发表于 2017-3-19 19:21:10

chenpeng417 发表于 2017-3-19 18:28

解决了，那就编辑下主题帖，标题编程申请后面加上【已解决】吧

chenpeng417 · 发表于 2017-3-20 08:25:23

已修改，谢谢老大

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

[已解决] （已解决）申请实线批量指定基点放大图形

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