选取范围的标注合并

Lispboy · 发表于 2016-5-23 10:13:36

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

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

×

[sell=5]

(defun c:XDTB_DimMerge (/ base baseLine e e1 ents p1 p2 pnts prj ret x xLine
y
)
(xdrx_begin)
(xdrx_sysvar_push '("osmode" 0))
(if (and
(setq e (car (xdrx_entsel "\n拾取一个标注确定合并行<退出>:" '
((0 . "dimension") (-4 . "<or")
(70 . 32)
(70 . 33)
(-4 . "or>")
)
)
)
)
(setq p1 (getpoint "\n范围第一点<退出>:"))
(setq p2 (getpoint p1 "\n范围第二点<退出>:"))
)
(progn
(setq ret nil
baseLine (XD::DIM:BasePoints e)
xLine (XD::DIM:xLine e)
ents (XD::DIM:AlignedDimEnts e)
)
(mapcar
'(lambda (x)
(setq base (XD::DIM:BasePoints x)
prj (XD::Pnts:OrthoProject base p1 p2)
)
(vl-some '(lambda (y)
(if (xdrx_point_ison y p1 p2)
(setq ret (cons x ret))
)
) prj
)
)
ents
)
(setq pnts (apply
'append
(mapcar
'(lambda (x)
(mapcar
'car
(xd::dim:xline x)
)
)
ret
)
)
pnts (xdrx_points_sortoncurve baseline pnts)
p1 (cadar pnts)
p2 (cadr (last pnts))
)
(setq e (xdrx_dimension_makerotate p1 p2 (car baseline)
(angle (car baseline)
(cadr baseline)
)
)
)
(xdrx_entity_setPropertiesFrom e e1)
(xdrx_entity_delete ret)
(xdrx_prompt "\n成功合并了 " (length ret) " 个尺寸标注.")
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)

(defun c:XDTB_DimMerge (/ base baseLine e e1 ents p1 p2 pnts prj ret x xLine 
                          y 
                       ) 
  (xdrx_begin) 
  (xdrx_sysvar_push '("osmode" 0)) 
  (if (and 
        (setq e (car (xdrx_entsel "\n拾取一个标注确定合并行<退出>:" ' 
                                  ((0 . "dimension") (-4 . "<or") 
                                   (70 . 32) 
                                   (70 . 33) 
                                   (-4 . "or>") 
                                  ) 
                     ) 
                ) 
        ) 
        (setq p1 (getpoint "\n范围第一点<退出>:")) 
        (setq p2 (getpoint p1 "\n范围第二点<退出>:")) 
      ) 
    (progn 
      (setq ret nil 
            baseLine (XD::DIM:BasePoints e) 
            xLine (XD::DIM:xLine e) 
            ents (XD::DIM:AlignedDimEnts e) 
      ) 
      (mapcar 
        '(lambda (x) 
           (setq base (XD::DIM:BasePoints x) 
                 prj (XD::Pnts:OrthoProject base p1 p2) 
           ) 
           (vl-some '(lambda (y) 
                       (if (xdrx_point_ison y p1 p2) 
                         (setq ret (cons x ret)) 
                       ) 
                     ) prj 
           ) 
         ) 
        ents 
      ) 
      (setq pnts (apply 
                   'append 
                   (mapcar 
                     '(lambda (x) 
                        (mapcar 
                          'car 
                          (xd::dim:xline x) 
                        ) 
                      ) 
                     ret 
                   ) 
                 ) 
            pnts (xdrx_points_sortoncurve baseline pnts) 
            p1 (cadar pnts) 
            p2 (cadr (last pnts)) 
      ) 
      (setq e (xdrx_dimension_makerotate p1 p2 (car baseline) 
                                         (angle (car baseline) 
                                                (cadr baseline) 
                                         ) 
              ) 
      ) 
      (xdrx_entity_setPropertiesFrom e e1) 
      (xdrx_entity_delete ret) 
      (xdrx_prompt "\n成功合并了 " (length ret) " 个尺寸标注.") 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)

[/sell]

lucas3 · 发表于 2016-5-23 11:18:10

大师，来个非ＡＰＩ版的吧

Lispboy · 发表于 2016-5-23 12:11:40

lucas3 发表于 2016-5-23 11:18
大师，来个非ＡＰＩ版的吧

不用API会用很长时间，很累脑子，API写10行代码，普通LISP要几百行都不一定行。没那么多时间。有现成的为什么不用。另外这是插件，你安装工具箱或者API就可以用，为什么不用？

lucas3 · 发表于 2016-5-23 14:06:23

Lispboy 发表于 2016-5-23 12:11
不用API会用很长时间，很累脑子，API写10行代码，普通LISP要几百行都不一定行。没那么多时间。有现成的为 ...

关键xdapi有使用时间限制，平时用ＣＡＤ也不多，每次装了，用了一两次后，就提示过期了，又要下载新版本，公司电脑都是管制的，都不能随便拷贝东西　　　　　

newer · 发表于 2016-5-23 14:16:38

lucas3 发表于 2016-5-23 14:06
关键xdapi有使用时间限制，平时用ＣＡＤ也不多，每次装了，用了一两次后，就提示过期了，又要下载新版本 ...

你看了最近API更新的内容介绍了吗？取消很长时间了。
搜狗截图20160523141130.png

lucas3 · 发表于 2016-5-23 14:39:56

newer 发表于 2016-5-23 14:16
你看了最近API更新的内容介绍了吗？取消很长时间了。

测试到期后继续使用，是什么意思？　为什么不写"去除时间限制"呢？

newer · 发表于 2016-5-23 14:56:05

lucas3 发表于 2016-5-23 14:39
测试到期后继续使用，是什么意思？　为什么不写"去除时间限制"呢？

“测试到期后继续使用” 你的理解是什么？

lucas3 · 发表于 2016-5-23 15:21:06

newer 发表于 2016-5-23 14:56
“测试到期后继续使用” 你的理解是什么？

感觉到期后，会不会有提示，或部分限制之类？？

newer · 发表于 2016-5-23 15:35:26

lucas3 发表于 2016-5-23 15:21
感觉到期后，会不会有提示，或部分限制之类？？

无语凝噎了， “取消时间限制”几个字就包含了没提示不部分限制？我要去找我语文老师了。省略一万言，懒得打了。

还是打点吧，听说WINDOWS系统有后门，影响**，你相信吗？

st788796 · 发表于 2016-5-23 16:14:00

lucas3 发表于 2016-5-23 15:21
感觉到期后，会不会有提示，或部分限制之类？？

没有限制，只有提示

lucas3 · 发表于 2016-5-23 18:18:20

st788796 发表于 2016-5-23 16:14
没有限制，只有提示

嗯，知道了，ＳＴ大师

正德敬业 · 发表于 2016-5-26 21:41:02

谢谢楼主分享！赞一个！

墙角哥 · 发表于 2016-5-27 10:35:46

谢谢楼主分享！赞一个！

tanwei1 · 发表于 2017-8-27 12:28:54

谢谢楼主分享

liulisheng · 发表于 2017-9-7 16:23:30

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

[标注] 选取范围的标注合并

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

评分

点评

点评

点评

点评

点评

点评

点评

点评