一切为了整数，直线取整，强迫症患者必备

BB建筑师 · 发表于 2014-3-23 16:34:07

良好的建筑制图习惯是建筑师必备要求。
而线就是最基本的图元。
线对应的轴线是整个建筑平面最基本的东西。
在一般直线取整的基础上增加标识未取整的代码，用于强迫其他专业的条件，特别针对结构专业的柱子。
各种定位基于轴网，柱网。

(defun c:gz2 ( / ss i en ent pt10 pt11 pt10_x pt11_x x y)
(setq i 0)
(if (setq ss (ssget '((0 . "line"))))
(repeat (sslength ss)
(setq en (ssname ss i)
ent (entget en)
)
(setq pt10 (cdr (assoc 10 ent))
x (/ (car pt10) 100)
y (/ (cadr pt10) 100)
x (quzheng x)
y (quzheng y)
x (* x 100)
y (* y 100)
pt10_x (list x y)
)
(setq pt11 (cdr (assoc 11 ent))
x (/ (car pt11) 100)
y (/ (cadr pt11) 100)
x (quzheng x)
y (quzheng y)
x (* x 100)
y (* y 100)
pt11_x (list x y)
)
(if (not (equal '(pt10_x pt11_x) '(pt10 pt11)))
(progn
(setq ent (subst (cons 10 pt10_x )(assoc 10 ent) ent))
(setq ent (subst (cons 11 pt11_x )(assoc 11 ent) ent))
(entmod ent)
(command "line" pt10 pt11 "")
)
)
(setq i (1+ i))
)
)
(princ)
)
(Defun quzheng(n)
(if (equal (fix (+ 0.499999 n)) (fix n) 0.000001)
(+ 0.5 (fix n))
(fix (+ 0.5 n))
)
)

(defun c:gz2 ( / ss i en ent pt10 pt11 pt10_x pt11_x x y) 
    (setq i 0) 
    (if  (setq ss (ssget '((0 . "line")))) 
  (repeat  (sslength ss) 
      (setq en  (ssname ss i) 
      ent (entget en) 
      ) 
      (setq pt10 (cdr (assoc 10 ent)) 
        x    (/ (car pt10) 100) 
        y    (/ (cadr pt10) 100) 
        x    (quzheng x) 
        y    (quzheng y) 
      x    (* x 100) 
      y    (* y 100) 
        pt10_x (list x y) 
      ) 
      (setq pt11 (cdr (assoc 11 ent)) 
        x    (/ (car pt11) 100) 
        y    (/ (cadr pt11) 100) 
        x    (quzheng x) 
        y    (quzheng y) 
      x    (* x 100) 
      y    (* y 100) 
        pt11_x (list x y) 
      ) 
      (if (not (equal '(pt10_x pt11_x) '(pt10 pt11))) 
      (progn 
           (setq ent (subst (cons 10 pt10_x )(assoc 10 ent) ent)) 
               (setq ent (subst (cons 11 pt11_x )(assoc 11 ent) ent)) 
         (entmod ent) 
        (command "line" pt10 pt11 "") 
      ) 
    ) 
      (setq i (1+ i)) 
  ) 
    ) 
    (princ) 
) 
(Defun quzheng(n) 
(if (equal (fix (+ 0.499999 n)) (fix n) 0.000001) 
     (+ 0.5 (fix n)) 
   (fix (+ 0.5 n)) 
) 
)

李钊伟2012 · 发表于 2020-3-8 13:59:26

挺不错的，我2017年也想了一个，思路差不多，方法不同在于(Defun quzheng(n)。我是考虑±25以内的偏差。
然后是另外图层里标记出偏差的点，以及绘出正确的线。。
针对多段线，我是直接炸开，再用PEDIT重新生成多段线。

e2002 · 发表于 2020-3-13 10:03:26

轴网是否在整数位置这个一点也不重要，重要的是，各种墙，柱，梁等的图形表示的定位位置是否精确。

多专业之间的 dwg 协同工作方法是需要研究总结与团队规范执行的。

天凉好个秋 · 发表于 2021-1-20 14:56:40

你好，我对程序编码不懂，碰巧想用到你这个插件，请问怎么操作，启动命令是什么？望回复，感谢

tjuzkj · 发表于 2014-3-23 20:00:03

我同事也有这个习惯哦！

szxgsh · 发表于 2014-6-29 16:51:41

自贡黄明儒 · 发表于 2014-6-29 21:31:59

highflybird的图元归整也不错

cxjzxh · 发表于 2014-6-30 09:56:05

请问那个像中望CAD弹出筛选命令是怎样做出来的，谢谢！

影子风 · 发表于 2014-7-10 13:42:23

cxjzxh 发表于 2014-6-30 09:56
请问那个像中望CAD弹出筛选命令是怎样做出来的，谢谢！

高版本CAD 。。。。。。。。。。

lu_tea · 发表于 2014-7-21 20:50:01

有时候不纠结，直接默认不影响施工。呵呵。

潇湘飞雨 · 发表于 2014-8-11 15:35:29

貌似我也有一点点-。-！！！

hooboxu · 发表于 2014-9-28 01:41:46

收集，手机上看不到源码^_^。

flytoday · 发表于 2014-10-2 19:42:15

没用的..重新生成一条线呵呵

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

一切为了整数，直线取整，强迫症患者必备

本帖子中包含更多资源

相关帖子