【已解决】标注图幅分幅图编号

Kllies

我有一批图框，均为矩形或者正方形的。现在想标注图框左下角的点坐标到该图框的正中间。我想要实现的是： 1.输入命令后，提示输入图框的长、宽；2.1拾取这批图框的最左下角那个图框的左下角那个点；2.2拾取这批图框的最右上角那个图框的右上角那个点；3.回车自动标注完这批图框的图幅号。PS：图幅号标注样式为Y/1000-X/1000  比如Y坐标为2383000.0000 X坐标为495500.0000 则标注为2383.00-495.50

newer

试试

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (xdrx_sysvar_push '("dimzin" 0))
   
4.   (if (not #xd_var_global_txtheight)
   
5.     (setq #xd_var_global_txtheight 3.0)
   
6.   )
   
7.   (if (setq var (getreal
   
8.                   (xdrx_prompt "\n输入字高<" #xd_var_global_txtheight ">:" t)
   
9.                 )
   
10.       )
    
11.     (setq #xd_var_global_txtheight var)
    
12.   )
    
13.   (if (and (xdrx_initssget "\n选择要标注的多边形<退出>:")
    
14.            (setq ss (xdrx_ssget '((0 . "*polyline")(-4 . "&=")(70 . 1))))
    
15.       )
    
16.     (progn
    
17.       (mapcar '(lambda (x)
    
18.                  (setq pts (xdrx_getpropertyvalue x "vertices")
    
19.                        p1  (xd::pnts:extremum pts '< '< t)
    
20.                        cen (xdrx_getpropertyvalue x "centroid")
    
21.                        x   (rtos (/ (car p1) 1e3) 2 2)
    
22.                        y   (rtos (/ (cadr p1) 1e3) 2 2)
    
23.                        val (strcat y "-" x)
    
24.                  )
    
25.                  (xdrx_text_make cen val #xd_var_global_txtheight)
    
26.                  (xdrx_entity_move
    
27.                    (entlast)
    
28.                    (xdrx_getpropertyvalue (entlast) "9pt" 5)
    
29.                    cen
    
30.                  )
    
31.                )
    
32.               (xdrx_pickset->ents ss)
    
33.       )
    
34.     )
    
35.   )
    
36.   (xdrx_sysvar_pop)
    
37.   (xdrx_end)
    
38.   (princ)
    
39. )
    

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

newer

Kllies 发表于 2018-12-17 18:45
找了好久没找到在哪处理悬赏接受答案。。。

帖子右下角，看看

newer

这种帖子，要上传你的DWG方便人家测试

Kllies

newer 发表于 2018-12-17 16:37
这种帖子，要上传你的DWG方便人家测试

好像不能直接上传DWG，所以上传了个附件。麻烦帮看看

newer

Kllies 发表于 2018-12-17 16:53
好像不能直接上传DWG，所以上传了个附件。麻烦帮看看

说保留5位，不严谨吧，应该是除以1000，或者某个比例吧
否则，只说5位，对其他图，小数点在哪呢而且，也不要选两次左下、右上的，一次全选你要标的，都标上就行了

Kllies

newer 发表于 2018-12-17 17:13
说保留5位，不严谨吧，应该是除以1000，或者某个比例吧
否则，只说5位，对其他图，小数点在哪呢而且，也 ...

嗯嗯，就是Y/1000-X/1000。一次选完要标的图，直接标注也好

Kllies

newer 发表于 2018-12-17 17:33
试试

嗯嗯，就是要这个效果。谢谢版主

newer

可以，请编辑下主题，标题前面加上【已解决】，并且把你的悬赏处理接受答案吧。

Kllies

newer 发表于 2018-12-17 18:43
可以，请编辑下主题，标题前面加上【已解决】，并且把你的悬赏处理接受答案吧。

找了好久没找到在哪处理悬赏接受答案。。。

Kllies

newer 发表于 2018-12-17 18:47
帖子右下角，看看

奇怪了~设置成了最佳答案，悬赏为什么还在。标题重新编辑加上【已解决】，但是刷新网页还是没变

wskiqght

Kllies 发表于 2018-12-17 18:22
嗯嗯，就是要这个效果。谢谢版主

兄弟可以交流一下怎么使用吗？