flytoday 发表于 2012-1-11 12:49:23

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

本帖最后由 flytoday 于 2012-1-11 12:52 编辑

说明：图中的红色线为轴线，要调的是封闭线至轴线的距离
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 发表于 2012-1-11 12:49:24

本帖最后由 highflybird 于 2012-1-11 15:05 编辑


楼主可用过我的那个归整命令么？
能自动调整图元使得数据凑为整数。
命令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 发表于 2012-1-11 15:08:03

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

flytoday 发表于 2012-1-11 20:27:36

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

flytoday 发表于 2012-1-11 21:15:17

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

flytoday 发表于 2012-1-11 23:14:08

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

vlisp2012 发表于 2012-1-13 20:53:18

byghbcx 发表于 2012-1-11 15:08 static/image/common/back.gif


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

xiaodao520 发表于 2012-4-19 07:57:07

看看什么情况，热心人

xiaodao520 发表于 2012-4-19 10:44:06

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

jhkdyhl1 发表于 2013-4-9 01:08:00

学习了解到   
页: [1] 2
查看完整版本: 求封闭线与轴线的精确定位调整