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

BB建筑师

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

2. (defun c:gz2 ( / ss i en ent pt10 pt11 pt10_x pt11_x x y)
   
3.     (setq i 0)
   
4.     (if  (setq ss (ssget '((0 . "line"))))
   
5.   (repeat  (sslength ss)
   
6.       (setq en  (ssname ss i)
   
7.       ent (entget en)
   
8.       )
   
9.       (setq pt10 (cdr (assoc 10 ent))
   
10.         x    (/ (car pt10) 100)
    
11.         y    (/ (cadr pt10) 100)
    
12.         x    (quzheng x)
    
13.         y    (quzheng y)
    
14.       x    (* x 100)
    
15.       y    (* y 100)
    
16.         pt10_x (list x y)
    
17.       )
    
18.       (setq pt11 (cdr (assoc 11 ent))
    
19.         x    (/ (car pt11) 100)
    
20.         y    (/ (cadr pt11) 100)
    
21.         x    (quzheng x)
    
22.         y    (quzheng y)
    
23.       x    (* x 100)
    
24.       y    (* y 100)
    
25.         pt11_x (list x y)
    
26.       )
    
27.       (if (not (equal '(pt10_x pt11_x) '(pt10 pt11)))
    
28.       (progn
    
29.            (setq ent (subst (cons 10 pt10_x )(assoc 10 ent) ent))
    
30.                (setq ent (subst (cons 11 pt11_x )(assoc 11 ent) ent))
    
31.          (entmod ent)
    
32.         (command "line" pt10 pt11 "")
    
33.       )
    
34.     )
    
35.       (setq i (1+ i))
    
36.   )
    
37.     )
    
38.     (princ)
    
39. )
    
40. (Defun quzheng(n)
    
41. (if (equal (fix (+ 0.499999 n)) (fix n) 0.000001)
    
42.      (+ 0.5 (fix n))
    
43.    (fix (+ 0.5 n))
    
44. )
    
45. )

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

李钊伟2012

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

e2002

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

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

天凉好个秋

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

tjuzkj

我同事也有这个习惯哦！

szxgsh

自贡黄明儒

highflybird的图元归整也不错

cxjzxh

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

影子风

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

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

lu_tea

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

潇湘飞雨

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

hooboxu

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

flytoday

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