求封闭线与轴线的精确定位调整

flytoday

说明：

图中的红色线为轴线，要调的是封闭线至轴线的距离

1:封闭线至轴线距离调整为n值(n的末位数为零,或为5的整数)

N值＋－(加或减)2mm以内值，自动调整为N值

如：102，202，101.553，98.7，98.3

调整后为：100，200，100，100，100

如：107，307，103，303，176.5，173.45

调整后为：105，305，105，305，175，175

命令是：

提示设置N最大值

提定一根轴线，框选要指定的轴线

框选择要指定的封闭图形

最后进行调整，，一次性调好。。。

最终：：：：调整后的封闭线变成蓝色(但层不变).....



求各路高人出手相助谢谢。
祝各位路过滴朋友：在新滴一年里心想事成。年终奖多多哈

highflybird

楼主可用过我的那个归整命令么？
能自动调整图元使得数据凑为整数。
命令GG,选择基点，譬如某个轴线的交点或者其他定位点。然后选择要调整的图元，那么小数部分就可以消除了。
它不仅仅可以调整封闭线段，还可以调整尺寸标注之类。

如需要修改为蓝色，可以按照这样：
(defun RoundEnt (ent BasePt TOL / DXF typ obj pt1 pt2 e pts lst)
  (setq DXF (entget ent))
  (setq typ (cdr (assoc 0 DXF)))    ;图元类型
  (setq obj (vlax-ename->vla-object ent))
在后面插入一句：
  (vla-put-color obj 5)                ;---修改为蓝色

参考这个帖子:
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=86961

byghbcx

2. (defun c:tt()
   
3.   (setq oldvar (mapcar 'getvar '("cmdecho" "osmode")))
   
4.   (mapcar 'setvar '("cmdecho" "osmode") '(0 0))
   
5.   (setq ss (ssget '((0 . "line") (8 . "paxis"))) n 0)
   
6.   (if ss
   
7.   (repeat (sslength ss)
   
8.     (setq en (ssname ss n))
   
9.     (setq dxfcod (entget en))
   
10.     (setq pt1 (cdr (assoc 10 dxfcod)) pt2 (cdr (assoc 11 dxfcod)))
    
11.     (setq ss1 (ssget "f" (list pt1 pt2) '((0 . "*polyline") (8 . "column1,s_cl"))) m 0)
    
12.     (if ss1
    
13.     (repeat (sslength ss1)
    
14.       (setq dxfcod (entget (ssname ss1 m)) pts nil)
    
15.       (mapcar '(lambda(x) (if (= (car x) 10) (setq pts (cons (cdr x) pts)))) dxfcod)
    
16.       (setq x (apply 'min (mapcar 'car pts)) y (apply 'min (mapcar 'cadr pts)))
    
17.       (cond ((or (= (angle pt1 pt2) 0) (= (angle pt1 pt2) pi))
    
18.              (setq d (- (cadr pt1) y))
    
19.              (setq d (rem d 5.0))
    
20.              (setq d (if (< d 2.5) d (- d 5.0)))
    
21.              (command "_.move" (ssname ss1 m) "" '(0 0 0) (list 0 d 0))
    
22.              (command "_.chprop" (ssname ss1 m) "" "c" 4 "")
    
23.              )
    
24.             ((or (= (angle pt1 pt2) (* 0.5 pi)) (= (angle pt1 pt2) (* 1.5 pi)))
    
25.              (setq d (- (car pt1) x))
    
26.              (setq d (rem d 5.0))
    
27.              (setq d (if (< d 2.5) d (- d 5.0)))
    
28.              (command "_.move" (ssname ss1 m) "" '(0 0 0) (list d 0 0))
    
29.              (command "_.chprop" (ssname ss1 m) "" "c" 4 "")
    
30.              )
    
31.         )
    
32.       (setq m (1+ m))
    
33.       )
    
34.     )
    
35.     (setq n (1+ n))
    
36.   )
    
37.     )
    
38.   (mapcar 'setvar '("cmdecho" "osmode") oldvar)
    
39.   (princ)
    
40.   )

(defun c:tt()<br />   (setq oldvar (mapcar 'getvar '("cmdecho" "osmode")))<br />   (mapcar 'setvar '("cmdecho" "osmode") '(0 0))<br />   (setq ss (ssget '((0 . "line") (8 . "paxis"))) n 0)<br />   (if ss<br />   (repeat (sslength ss)<br />     (setq en (ssname ss n))<br />     (setq dxfcod (entget en))<br />     (setq pt1 (cdr (assoc 10 dxfcod)) pt2 (cdr (assoc 11 dxfcod)))<br />     (setq ss1 (ssget "f" (list pt1 pt2) '((0 . "*polyline") (8 . "column1,s_cl"))) m 0)<br />     (if ss1<br />     (repeat (sslength ss1)<br />       (setq dxfcod (entget (ssname ss1 m)) pts nil)<br />       (mapcar '(lambda(x) (if (= (car x) 10) (setq pts (cons (cdr x) pts)))) dxfcod)<br />       (setq x (apply 'min (mapcar 'car pts)) y (apply 'min (mapcar 'cadr pts)))<br />       (cond ((or (= (angle pt1 pt2) 0) (= (angle pt1 pt2) pi))<br />              (setq d (- (cadr pt1) y))<br />              (setq d (rem d 5.0))<br />              (setq d (if (< d 2.5) d (- d 5.0)))<br />              (command "_.move" (ssname ss1 m) "" '(0 0 0) (list 0 d 0))<br />              (command "_.chprop" (ssname ss1 m) "" "c" 4 "")<br />              )<br />             ((or (= (angle pt1 pt2) (* 0.5 pi)) (= (angle pt1 pt2) (* 1.5 pi)))<br />              (setq d (- (car pt1) x))<br />              (setq d (rem d 5.0))<br />              (setq d (if (< d 2.5) d (- d 5.0)))<br />              (command "_.move" (ssname ss1 m) "" '(0 0 0) (list d 0 0))<br />              (command "_.chprop" (ssname ss1 m) "" "c" 4 "")<br />              )<br />         )<br />       (setq m (1+ m))<br />       )<br />     )<br />     (setq n (1+ n))<br />   )<br />     )<br />   (mapcar 'setvar '("cmdecho" "osmode") oldvar)<br />   (princ)<br />   )

flytoday

highflybird 哥太感谢您技术分享了谢谢，，非常好用哈

flytoday

测试结果很完美哈哈。。只有斜线不会
如下

flytoday

太感谢highflybird 哥了.人很好还帮我程测试了下斜线也行哈哈
..将坐标调成与斜线齐平就行了哈哈
超极完美程序.

vlisp2012

byghbcx 发表于 2012-1-11 15:08

选择paxis图层的直线后，没反应啊，啥程序，解释一下啊。

xiaodao520

看看什么情况，热心人

xiaodao520

这个归整插件，如何使用啊，请高手演示下，看不懂

jhkdyhl1

学习了解到