图框分幅编号

newer · 发表于 2018-12-17 18:41:52

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

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

×

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

(defun c:xdtb_fenfubh (/ var ss pts p1 cen x y val)
(xdrx_begin)
(xdrx_sysvar_push '("dimzin" 0))
(if (not #xd_var_global_txtheight)
(setq #xd_var_global_txtheight 3.0)
)
(if (setq var (getreal
(xdrx_prompt "\n输入字高<" #xd_var_global_txtheight ">:" t)
)
)
(setq #xd_var_global_txtheight var)
)
(if (and (xdrx_initssget "\n选择要标注的封闭的图框多段线<退出>:")
(setq ss (xdrx_ssget '((0 . "*polyline")(-4 . "&=")(70 . 1))))
)
(progn
(mapcar '(lambda (x)
(setq pts (xdrx_getpropertyvalue x "vertices")
p1 (xd::pnts:extremum pts '< '< t)
cen (xdrx_getpropertyvalue x "centroid")
x (rtos (/ (car p1) 1e3) 2 2)
y (rtos (/ (cadr p1) 1e3) 2 2)
val (strcat y "-" x)
)
(xdrx_text_make cen val #xd_var_global_txtheight)
(xdrx_entity_move
(entlast)
(xdrx_getpropertyvalue (entlast) "9pt" 5)
cen
)
(princ)
)
(xdrx_pickset->ents ss)
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)

(defun c:xdtb_fenfubh (/ var ss pts p1 cen x y val) 
  (xdrx_begin) 
  (xdrx_sysvar_push '("dimzin" 0)) 
  (if (not #xd_var_global_txtheight) 
    (setq #xd_var_global_txtheight 3.0) 
  ) 
  (if (setq var (getreal 
                  (xdrx_prompt "\n输入字高<" #xd_var_global_txtheight ">:" t) 
                ) 
      ) 
    (setq #xd_var_global_txtheight var) 
  ) 
  (if (and (xdrx_initssget "\n选择要标注的封闭的图框多段线<退出>:") 
           (setq ss (xdrx_ssget '((0 . "*polyline")(-4 . "&=")(70 . 1)))) 
      ) 
    (progn 
      (mapcar '(lambda (x) 
                 (setq pts (xdrx_getpropertyvalue x "vertices") 
                       p1  (xd::pnts:extremum pts '< '< t) 
                       cen (xdrx_getpropertyvalue x "centroid") 
                       x   (rtos (/ (car p1) 1e3) 2 2) 
                       y   (rtos (/ (cadr p1) 1e3) 2 2) 
                       val (strcat y "-" x) 
                 ) 
                 (xdrx_text_make cen val #xd_var_global_txtheight) 
                 (xdrx_entity_move 
                   (entlast) 
                   (xdrx_getpropertyvalue (entlast) "9pt" 5) 
                   cen 
                 ) 
                 (princ) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)

evayleung · 发表于 2018-12-17 22:06:44

谢谢分享。。。。。。。。。。。。

xudi1234 · 发表于 2018-12-18 09:26:42

用的场合不多，支持

cfc123456 · 发表于 2018-12-18 11:50:55

谢谢分享。。。。。

bai0371 · 发表于 2019-1-16 15:05:05

用的场合不多，支持

wang112358 · 发表于 2019-1-17 15:53:57

感谢热心分享，下来学习学习

7079977a · 发表于 2019-1-31 11:00:37

用的场合不多，支持

香远益清 · 发表于 2019-11-25 20:52:00

大面积测图分幅有用，不过有专门的绘图软件可以生成，比如南方CASS，比这个功能要完善的多，是严格按照国家地形图图式来的，且专门的图层和颜色，与图廓外整饰同时一步生成。

无在 · 发表于 2022-4-4 12:39:42

感谢楼主的分享

wskiqght · 发表于 2022-12-27 15:22:10

兄弟我想做成这样

登录/注册后可看大图

可以把填充的文字弄成一样吗？好我方便替换

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

[工具] 图框分幅编号

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