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

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))
)
)

李钊伟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 static/image/common/back.gif
请问那个像中望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

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

页: [1] 2

明经CAD社区's Archiver

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