隧道超欠挖线标注

newer · 发表于 2018-11-19 20:35:23

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

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

x

本帖最后由 newer 于 2018-11-19 21:03 编辑

有朋友申请：http://bbs.xdcad.net/thread-678707-1-1.html

欠挖线.gif

(defun c:xdtb_cqwx (/ var e1 e2 pts p1 p2 p3 dis dis1 dir dir1 tf)
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(if (not #xd_var_global_txtheight)
(setq #xd_var_global_txtheight 3.5)
)
(if (setq var (getreal (xdrx_prompt
"\n输入文字高度<"
#xd_var_global_txtheight
">:"
t
)
)
)
(setq #xd_var_global_txtheight var)
)
(if (not #xd_var_global_bits)
(setq #xd_var_global_bits 3)
)
(if (setq var (getint
(xdrx_prompt "\n输入小数位数<" #xd_var_global_bits ">:" t)
)
)
(setq #xd_var_global_bits var)
)
(if (and (setq e1 (car
(xdrx_entsel "\n拾取实际开挖线<退出>:" '((0 . "*polyline")))
)
)
(setq e2 (car
(xdrx_entsel "\n拾取设计开挖线<退出>:" '((0 . "*polyline,circle,ellipse")))
)
)
)
(progn (setq pts (xdrx_getpropertyvalue e1 "vertices"))
(xd::text:init 1)
(mapcar '(lambda (x)
(setq p1 (xdrx_curve_getclosestpoint e2 x)
dis (distance p1 x)
dir (xdrx_vector_normalize (mapcar '- x p1))
dir1 (xdrx_curve_getfirstderiv e2 p1)
dir1 (xdrx_vector_perpvector dir1)
)
(if (setq tf (xdrx_point_isinside x e2))
(setq dis1 (strcat "-" (rtos dis 2 #xd_var_global_bits))
p3 p1
)
(setq dis1 (strcat "+" (rtos dis 2 #xd_var_global_bits))
p3 x
)
)
(if (xdrx_point_isinside (mapcar '+ p1 dir1) e2)
(setq dir1 (xdrx_vector_negate dir1))
)
(setq p2 (mapcar '+
p3
(xdrx_vector_product dir1 (/ #xd_var_global_txtheight 2.0))
)
)
(if (not (equal dis 0.0 1e-3))
(progn (xdrx_text_make
p2
dis1
#xd_var_global_txtheight
(xd::geom:angleformat (xdrx_vector_angle dir))
)
(if tf
(xdrx_setpropertyvalue (entlast) "color" 1 "WidthFactor" 0.7)
(xdrx_setpropertyvalue (entlast) "color" 2 "WidthFactor" 0.7)
)
(xd::text:adjust (entlast))
(if (< (car dir1) 0)
(xd::text:setalignment (entlast) p2 "mr")
(xd::text:setalignment (entlast) p2 "ml")
)
(xdrx_circle_make x (/ #xd_var_global_txtheight 7.0))
)
)
)
pts
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)

(defun c:xdtb_cqwx (/ var e1 e2 pts p1 p2 p3 dis dis1 dir dir1 tf) 
  (xdrx_begin) 
  (xdrx_sysvar_push '("dimzin" 0)) 
  (if (not #xd_var_global_txtheight) 
    (setq #xd_var_global_txtheight 3.5) 
  ) 
  (if (setq var (getreal (xdrx_prompt 
                           "\n输入文字高度<" 
                           #xd_var_global_txtheight 
                           ">:" 
                           t 
                         ) 
                ) 
      ) 
    (setq #xd_var_global_txtheight var) 
  ) 
  (if (not #xd_var_global_bits) 
    (setq #xd_var_global_bits 3) 
  ) 
  (if (setq var (getint 
                  (xdrx_prompt "\n输入小数位数<" #xd_var_global_bits ">:" t) 
                ) 
      ) 
    (setq #xd_var_global_bits var) 
  ) 
  (if (and (setq e1 (car 
                      (xdrx_entsel "\n拾取实际开挖线<退出>:" '((0 . "*polyline"))) 
                    ) 
           ) 
           (setq e2 (car 
                      (xdrx_entsel "\n拾取设计开挖线<退出>:" '((0 . "*polyline,circle,ellipse"))) 
                    ) 
           ) 
      ) 
    (progn (setq pts (xdrx_getpropertyvalue e1 "vertices")) 
           (xd::text:init 1) 
           (mapcar '(lambda (x) 
                      (setq p1   (xdrx_curve_getclosestpoint e2 x) 
                            dis  (distance p1 x) 
                            dir  (xdrx_vector_normalize (mapcar '- x p1)) 
                            dir1 (xdrx_curve_getfirstderiv e2 p1) 
                            dir1 (xdrx_vector_perpvector dir1) 
                      ) 
                      (if (setq tf (xdrx_point_isinside x e2)) 
                        (setq dis1 (strcat "-" (rtos dis 2 #xd_var_global_bits)) 
                              p3   p1 
                        ) 
                        (setq dis1 (strcat "+" (rtos dis 2 #xd_var_global_bits)) 
                              p3   x 
                        ) 
                      ) 
                      (if (xdrx_point_isinside (mapcar '+ p1 dir1) e2) 
                        (setq dir1 (xdrx_vector_negate dir1)) 
                      ) 
                      (setq p2 (mapcar '+ 
                                       p3 
                                       (xdrx_vector_product dir1 (/ #xd_var_global_txtheight 2.0)) 
                               ) 
                      ) 
                      (if (not (equal dis 0.0 1e-3)) 
                        (progn (xdrx_text_make 
                                 p2 
                                 dis1 
                                 #xd_var_global_txtheight 
                                 (xd::geom:angleformat (xdrx_vector_angle dir)) 
                               ) 
                               (if tf 
                                 (xdrx_setpropertyvalue (entlast) "color" 1 "WidthFactor" 0.7) 
                                 (xdrx_setpropertyvalue (entlast) "color" 2 "WidthFactor" 0.7) 
                               ) 
                               (xd::text:adjust (entlast)) 
                               (if (< (car dir1) 0) 
                                 (xd::text:setalignment (entlast) p2 "mr") 
                                 (xd::text:setalignment (entlast) p2 "ml") 
                               ) 
                               (xdrx_circle_make x (/ #xd_var_global_txtheight 7.0)) 
                        ) 
                      ) 
                    ) 
                   pts 
           ) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)

w18089326749 · 发表于 2018-11-20 11:09:29

newer 发表于 2018-11-19 20:35
有朋友申请：http://bbs.xdcad.net/thread-678707-1-1.html

晓东工具箱在哪下载
来自: 微社区

Lisphk · 发表于 2018-11-20 11:38:53

w18089326749 发表于 2018-11-20 11:09
晓东工具箱在哪下载

这问题
都不看帖子吗，屏幕上四处看看

evayleung · 发表于 2018-11-20 14:46:27

谢谢分享。。。。。。

tzyzxjh · 发表于 2018-11-20 15:42:25

搞隧道的很实用

gao4486 · 发表于 2018-11-21 21:54:39

谢谢楼主分享

tzfcn · 发表于 2018-11-22 11:02:48

现在真正进行测量的不多了，基本上都是造资料。形式主义害死人呀。

liuwenxuan8351 · 发表于 2018-11-25 21:01:20

感谢分享做资料可以用了吧呵呵

xoyo88 · 发表于 2019-5-6 21:45:10

隧道隧道隧道隧道隧道隧道

xoyo88 · 发表于 2019-10-25 09:53:58

超欠面积怎么标注

qqp741005 · 发表于 2019-10-26 08:21:59

谢谢楼主，支持原创！

qqp741005 · 发表于 2019-10-27 19:16:28

相当实用，支持一个！

chrive · 发表于 2019-10-28 11:46:57

基坑处理也很适用，谢谢分享！

ce8888 · 发表于 2021-6-19 22:21:57

搞隧道的很实用谢谢分享！

至尊宝宝 · 发表于 2021-6-25 13:56:41

感谢楼主分享

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

[专业] 隧道超欠挖线标注

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

点评